Commit c673839b authored by kollo's avatar kollo

version 1.13-3

parent 19199404
clr count,beat
@get_meminfo
hn$=env$("HOSTNAME")
split hn$,".",0,hn$,dummy$
tineserver hn$+"-cpu-info",asc("C")
tineexport MEM_TOTAL,SWAP_TOTAL,MEM_FREE
do
myprop=timer
omemfree=mem_free
@get_meminfo
if mem_free<>omemfree
tinebroadcast MEM_FREE
endif
tinecycle
loop
procedure get_meminfo
open "I",#1,"/proc/meminfo"
while not eof(#1)
lineinput #1,t$
t$=xtrim$(t$)
split t$,":",0,a$,b$
if a$="MEMTOTAL"
split b$,":",0,a$,b$
mem_total=val(a$)
else if a$="SWAPTOTAL"
split b$,":",0,a$,b$
swap_total=val(a$)
else if a$="MEMFREE"
split b$,":",0,a$,b$
MEM_FREE=val(a$)
else
' print a$
endif
wend
close #1
return
29.08.06 19:16:04.699 CDT[*unknown*] TINE HOME : [/home/hoffmann/DESY/tine/database/]
29.08.06 19:16:04.701 CDT[*unknown*] Reserved 100 client connection link entries
29.08.06 19:16:04.702 CDT[*unknown*] Reserved 100 client connection addr entries
29.08.06 19:16:04.703 CDT[*unknown*] Control Structures Swap information registered
29.08.06 19:16:04.707 CDT[*unknown*] UDP PORT 0: bound to 8054 (socket 3 blocking)
29.08.06 19:16:04.708 CDT[*unknown*] joining globals multicast group : success
29.08.06 19:16:04.710 CDT[*unknown*] UDP PORT 8004: bound to 8004 (socket 4 blocking)
29.08.06 19:16:04.710 CDT[*unknown*] Attach SENDER PROPS (500 msec): SINGLE
29.08.06 19:16:04.711 CDT[*unknown*] UDP PORT 0: bound to 8055 (socket 5 blocking)
29.08.06 19:16:04.712 CDT[*unknown*] ENS: SENDER [FEC SENDER, EQP SENDER] added
29.08.06 19:16:04.717 CDT[*unknown*] joining multicast group : success
29.08.06 19:16:04.717 CDT[*unknown*] UDP PORT 9503: bound to 9503 (socket 6 blocking)
29.08.06 19:16:04.717 CDT[*unknown*] Attach SENDER MYPROP (100 msec): REFRESH
29.08.06 19:16:04.726 CDT[*unknown*] Attach SENDER PROPS (500 msec): SINGLE
29.08.06 19:16:04.728 CDT[*unknown*] Attach SENDER COUNT% (100 msec): REFRESH
29.08.06 19:16:04.729 CDT[*unknown*] Attach SENDER PROPS (500 msec): SINGLE
29.08.06 19:16:04.731 CDT[*unknown*] Attach SENDER BEAT (100 msec): REFRESH
29.08.06 19:16:04.731 CDT[*unknown*] Attach SENDER PROPS (500 msec): SINGLE
29.08.06 19:16:04.734 CDT[*unknown*] Attach SENDER STATUS$ (100 msec): REFRESH
29.08.06 19:21:52.463 CDT[*unknown*] TINE HOME : [/home/hoffmann/DESY/tine/database/]
29.08.06 19:21:52.467 CDT[*unknown*] Reserved 100 client connection link entries
29.08.06 19:21:52.468 CDT[*unknown*] Reserved 100 client connection addr entries
29.08.06 19:21:52.479 CDT[*unknown*] Control Structures Swap information registered
29.08.06 19:21:52.481 CDT[*unknown*] UDP PORT 0: bound to 8054 (socket 3 blocking)
29.08.06 19:21:52.482 CDT[*unknown*] joining globals multicast group : success
29.08.06 19:21:52.484 CDT[*unknown*] UDP PORT 8004: bound to 8004 (socket 4 blocking)
29.08.06 19:21:52.486 CDT[*unknown*] Attach SENDER PROPS (500 msec): SINGLE
29.08.06 19:21:52.491 CDT[*unknown*] UDP PORT 0: bound to 8055 (socket 5 blocking)
29.08.06 19:21:52.492 CDT[*unknown*] ENS: SENDER [FEC SENDER, EQP SENDER] added
29.08.06 19:21:52.505 CDT[*unknown*] joining multicast group : success
29.08.06 19:21:52.508 CDT[*unknown*] UDP PORT 9503: bound to 9503 (socket 6 blocking)
29.08.06 19:21:52.508 CDT[*unknown*] Attach SENDER MYPROP (100 msec): REFRESH
29.08.06 19:21:52.517 CDT[*unknown*] Attach SENDER PROPS (500 msec): SINGLE
29.08.06 19:21:52.530 CDT[*unknown*] Attach SENDER COUNT% (100 msec): REFRESH
29.08.06 19:21:52.537 CDT[*unknown*] Attach SENDER PROPS (500 msec): SINGLE
29.08.06 19:21:52.552 CDT[*unknown*] Attach SENDER BEAT (100 msec): REFRESH
29.08.06 19:21:52.558 CDT[*unknown*] Attach SENDER PROPS (500 msec): SINGLE
29.08.06 19:21:52.572 CDT[*unknown*] Attach SENDER STATUS$ (100 msec): REFRESH
HPMAGEN=0
MYPROP=0
MYPROP2=0
clr count%
status$=space$(100)+"Hallo ja ja j aj aj aj ajajaajajajajaj"
clr propcount,propcount1,propcount2
tinelisten HPMAGEN,enc
tinelisten MYPROP,prop
tinelisten MYPROP1,prop1
tinelisten MYPROP2,prop2
tinelisten COUNT%,np
tinelisten BEAT,bbb
tinelisten STATUS$,status
cls
do
tinecycle
loop
procedure np
print at(10,10);chr$(27);"[2K";count%
return
procedure bbb
print at(12,10);chr$(27);"[2K";100-propcount,100-propcount1,100-propcount2
clr propcount,propcount1,propcount2
return
procedure status
print at(13,10);chr$(27);"[2K Status:";status$
return
procedure ttt
print "Hallo",timer
return
procedure enc
print "Energie: ",timer,hpmagen
return
procedure prop1
print at(1,1);chr$(27);"[2KProp1: ";propcount1;" ";timer;" ";myprop1,"Rate: ",int(10*propcount1/(timer-proptim1))/10;" Hz"
if (propcount1 mod 100)=0
proptim1=timer
clr propcount1
endif
inc propcount1
return
procedure prop2
print at(2,1);chr$(27);"[2KProp2: ";propcount2;" ";timer;" ";myprop2,"Rate: ",int(10*propcount2/(timer-proptim2))/10;" Hz"
if (propcount2 mod 100)=0
proptim2=timer
clr propcount2
endif
inc propcount2
return
procedure prop
print at(3,1);chr$(27);"[2KProp: ";propcount;" ";timer;" ";myprop,"Rate: ",int(10*propcount/(timer-proptim))/10;" Hz"
if (propcount mod 100)=0
proptim=timer
clr propcount
endif
inc propcount
return
HPMAGEN=0
MYPROP=0
MYPROP2=0
clr count%
status$=space$(100)+"Hallo ja ja j aj aj aj ajajaajajajajaj"
clr propcount,propcount1,propcount2
tinemonitor "SENDER[MYPROP]",prop
tinemonitor "SENDER[COUNT%]",np
tinemonitor "SENDER[BEAT]",bbb
tinemonitor "SENDER[STATUS$]",status
do
tinecycle
loop
procedure np
print at(10,10);chr$(27);"[2K";count%
return
procedure bbb
print at(12,10);chr$(27);"[2K";100-propcount,100-propcount1,100-propcount2
clr propcount,propcount1,propcount2
return
procedure status
print at(13,10);chr$(27);"[2K Status:";status$
return
procedure ttt
print "Hallo",timer
return
procedure enc
print "Energie: ",timer,hpmagen
return
procedure prop1
print at(1,1);chr$(27);"[2KProp1: ";propcount1;" ";timer;" ";myprop1,"Rate: ",int(10*propcount1/(timer-proptim1))/10;" Hz"
if (propcount1 mod 100)=0
proptim1=timer
clr propcount1
endif
inc propcount1
return
procedure prop2
print at(2,1);chr$(27);"[2KProp2: ";propcount2;" ";timer;" ";myprop2,"Rate: ",int(10*propcount2/(timer-proptim2))/10;" Hz"
if (propcount2 mod 100)=0
proptim2=timer
clr propcount2
endif
inc propcount2
return
procedure prop
print at(3,1);chr$(27);"[2KProp: ";propcount;" ";timer;" ";myprop,"Rate: ",int(10*propcount/(timer-proptim))/10;" Hz"
if (propcount mod 100)=0
proptim=timer
clr propcount
endif
inc propcount
return
HPMAGEN=0
MYPROP=0
MYPROP2=0
tineserver "rule",56
clr propcount
tinelisten MYPROP,prop
do
tinecycle
loop
procedure prop
myprop1=myprop
tinebroadcast myprop1
inc propcount
return
HPMAGEN=0
MYPROP=0
MYPROP2=0
tineserver "rule2",59
clr propcount
tinelisten MYPROP1,prop
do
tinecycle
loop
procedure prop
myprop2=timer-myprop1
tinebroadcast myprop2
inc propcount
return
clr count%,beat
tineserver "sender",12
do
myprop=timer
tinebroadcast myprop
tinebroadcast count%
if (count mod 100)=0
inc beat
tinebroadcast beat
status$=time$+space$(100)+time$+space$(1000)
tinebroadcast status$
endif
tinecycle
inc count
loop
clr count%,beat
tineserver "SENDER",12
tineexport myprop,count%,beat,status$
do
myprop=timer
tinedeliver myprop
tinedeliver count%
if (count% mod 100)=0
inc beat
tinedeliver beat
status$=time$+space$(100)+time$+space$(1000)
tinedeliver status$
endif
tinecycle
inc count%
loop
' tine server. Sample how to export variables.
' The time between two tinecycles must not exceed 50ms
' (c) Markus Hoffmann 2005-2006
tineserver "TINEGATE"
t$="Hallo"
a=3
b=5
c=7
tineexport a,b,c,t$
do
print a,b,c
for i=0 to 30
pause 0.01
tinecycle
next i
loop
......@@ -4,18 +4,11 @@
#define FALSE 0
#define TRUE (!FALSE)
#define PI 3.141592654
#define E 2.718281828
char version[]="1.01";
const char version[]="1.02";
char ifilename[100]="input.txt";
int b[3000];
int stat[256];
int n=200;
int doauto=FALSE;
double anfang=-.6;
double ende=.6;
char *buffer;
char old[20];
int intellig=4;
......@@ -37,9 +30,7 @@ void intro(){
printf("* BRABBEL V. %s *\n",version);
printf("* von Markus Hoffmann 1997 *\n");
printf("* *\n");
printf("* *\n");
printf("* Programmversion vom 11.01.2006 *\n");
printf("* *\n");
printf("***************************************************************\n\n");
}
......@@ -59,41 +50,32 @@ int irandom(int m) { return((random() & 0xffff)*m/0x10000); }
char getbest(){
int best,i,sum=0,zu;
for(i=0;i<256;i++) sum+=stat[i];
/*for(i=0;i<256;i++) printf("[%d] ",stat[i]);*/
if(sum==0) { printf("\n");
fprintf(stderr,"\n SUMERROR <%s>\n",old);
strncpy(old,buffer,intellig);
return(buffer[intellig]);
}
zu=irandom(sum);
for(i=0;i<256;i++) {
zu-=stat[i];
if(zu<0) return(i);
}
fprintf(stderr,"ERROR\n");
return(-1);
if(sum==0) {
printf("\n");
fprintf(stderr,"\n SUMERROR <%s>\n",old);
strncpy(old,buffer,intellig);
return(buffer[intellig]);
}
zu=irandom(sum);
for(i=0;i<256;i++) {
zu-=stat[i];
if(zu<0) return(i);
}
fprintf(stderr,"ERROR\n");
return(-1);
}
void dostat() {
char *pos;
/*printf("[[[%s]]]\n",old);*/
pos=strstr(buffer,old);
if(pos>buffer+laenge-intellig) printf("\n Text ist auf das Ende gelaufen.\n");
while(pos && pos<buffer+laenge) {
/*printf("%d\n",pos[0]);*/
stat[(unsigned int)pos[intellig] & 0xff]++;
/* printf("dostat: <%x> <%s> <%c>",pos,old,pos[intellig]);*/
pos=strstr(pos+1,old);
}
return;
pos=strstr(buffer,old);
if(pos>buffer+laenge-intellig) printf("\n Text ist auf das Ende gelaufen.\n");
while(pos && pos<buffer+laenge) {
stat[(unsigned int)pos[intellig] & 0xff]++;
pos=strstr(pos+1,old);
}
}
......@@ -102,34 +84,29 @@ long lof( FILE *n) {
position=ftell(n);
if(fseek(n,0,2)==0){
laenge=ftell(n);
if(fseek(n,position,0)==0)return(laenge);
else return(-1);
} else return(-1);
if(fseek(n,position,0)==0) return(laenge);
}
return(-1);
}
main(int anzahl, char *argumente[]) {
FILE *dptr,*dptr2;
float se;
char string[2];
char zeile[100],dummy[50],zz[80];
int i,j=0,k,count;
FILE *dptr;
char best;
int i,j=0,count;
if(anzahl<=2) {intro(); usage(); return(0);} /* zu weinig Parameter */
init(anzahl, argumente); /* Kommandozeile einlesen */
srandom(200);
dptr2=fopen(ifilename,"r");
laenge=lof(dptr2);
dptr=fopen(ifilename,"r");
laenge=lof(dptr);
printf(" %s %d [",ifilename,laenge);
buffer=malloc(laenge+1);
j=fread(buffer,1,laenge,dptr2);
fclose(dptr2);
j=fread(buffer,1,laenge,dptr);
fclose(dptr);
printf("] %d\n",j);
buffer[laenge+1]=0;
strncpy(old,buffer,intellig);
......@@ -137,10 +114,10 @@ main(int anzahl, char *argumente[]) {
for(count=0;count<alaenge;count++) {
for(i=0;i<256;i++) stat[i]=0;
dostat();
string[0]=getbest();
best=getbest();
for(i=1;i<intellig;i++) old[i-1]=old[i];
old[intellig-1]=string[0];
printf("%c",string[0]);
old[intellig-1]=best;
printf("%c",best);
}
free(buffer);
}
' Liest und interpretiert *.mdf Dateien.
' (c) markus Hoffmann Mai 2006
dim m$(10000)
anzm=0
ccsdir$="/media/MH_A3/sgt/ccs/"
i=1
while len(param$(i))
if param$(i)="-b"
inc i
breite=@value(param$(i))
else if param$(i)="-o"
inc i
offset=@value(param$(i))
else if param$(i)="-cd0"
inc i
cd0dir$=param$(i)
else if param$(i)="-all"
doevents=true
doefs=true
else if param$(i)="-events"
doevents=true
else if param$(i)="-efs"
doefs=true
else if param$(i)="--noreplace"
doreplace=false
else if param$(i)="--nodetails"
donodetails=true
else if param$(i)="--new"
donew=true
else
filename$=param$(i)
if right$(filename$,4)=".mdf"
@load_file(filename$)
@doit
endif
endif
inc i
wend
quit
procedure load_file(f$)
clr anzm
if exist(f$)
open "I",#1,f$
while not eof(#1)
lineinput #1,t$
m$(anzm)=t$
inc anzm
wend
close #1
filename$=f$
print "loaded "+f$+" ("+str$(anzm)+" elements.)"
return
procedure doit
local i
weiss=get_color(65535,65535,65535)
grau=get_color(65535/2,65535/2,65535/2)
schwarz=get_color(0,0,0)
gelb=get_color(65535,65535,0)
hellblau=get_color(0,65535,65535)
orange=get_color(65535,65535/3,65535/3)
for i=0 to anzm-1
t$=m$(i)
if left$(t$)="M"
split t$,":",0,a$,t$
if a$="MenuValidation"
print "Validation=";@getval$(t$,"VALID")
else if a$="MenuVersion"
print "Version: ";@getval$(t$,"VERSION")
titel$=@getval$(t$,"ORIGFNAME")
print "Original Name: ",titel$
titlew 1,titel$
else if a$="MenuProperty"
bx=val(@getval$(t$,"XP"))
by=val(@getval$(t$,"YP"))
bw=val(@getval$(t$,"WIDTH"))
bh=val(@getval$(t$,"HEIGHT"))
sizew 1,bw,bh
bgc$=@getval$(t$,"WBGC")
@setcolor(bgc$)
pbox bx,by,bw,bh
else if a$="MenuParmString"
x=val(@getval$(t$,"XP"))
y=val(@getval$(t$,"YP"))
fgc$=@getval$(t$,"FGC")
font$=@getval$(t$,"FONT")
text$=@getval$(t$,"PARM")
text$=left$(text$,len(text$)-1)
text$=right$(text$,len(text$)-1)
@setcolor(fgc$)
setfont font$
text x+2,y,text$
else if a$="MenuString"
x=val(@getval$(t$,"XP"))
y=val(@getval$(t$,"YP"))
fgc$=@getval$(t$,"FGC")
font$=@getval$(t$,"FONT")
text$=@getval$(t$,"TEXT")
text$=left$(text$,len(text$)-1)
text$=right$(text$,len(text$)-1)
@draw_string(x,y,0,0,x,y,0,0,@convert_color(fgc$),0,font$,text$)
else if a$="MenuStringBox"
x=val(@getval$(t$,"XP"))
y=val(@getval$(t$,"YP"))
w=val(@getval$(t$,"WIDTH"))
h=val(@getval$(t$,"HEIGHT"))
bgc$=@getval$(t$,"BGC")
fgc$=@getval$(t$,"FGC")
font$=@getval$(t$,"FONT")
text$=@getval$(t$,"TEXT")
text$=left$(text$,len(text$)-1)
text$=right$(text$,len(text$)-1)
@draw_string(x,y-h,w,h+2,x,y,w,h,@convert_color(fgc$),@convert_color(bgc$),font$,text$)
else if a$="MenuParmLabel"
x=val(@getval$(t$,"XP"))
y=val(@getval$(t$,"YP"))
font$=@getval$(t$,"FONT")
inc i
o$=m$(i)
o$="TEXT="+trim$(o$)
fgc$=@getval$(o$,"FGC")
bgc$=@getval$(o$,"BGC")
text$=@getval$(o$,"TEXT")
text$=left$(text$,len(text$)-1)
text$=right$(text$,len(text$)-1)
@draw_string(x,y,0,0,x,y,0,0,@convert_color(fgc$),@convert_color(bgc$),font$,text$)
else if a$="MenuParmLabelBox"
x=val(@getval$(t$,"XP"))
y=val(@getval$(t$,"YP"))
w=val(@getval$(t$,"WIDTH"))
h=val(@getval$(t$,"HEIGHT"))
font$=@getval$(t$,"FONT")
inc i
o$=m$(i)
o$="TEXT="+trim$(o$)
fgc$=@getval$(o$,"FGC")
bgc$=@getval$(o$,"BGC")
text$=@getval$(o$,"TEXT")
text$=left$(text$,len(text$)-1)
text$=right$(text$,len(text$)-1)
@draw_string(x,y-h,w,h+2,x,y,w,h,@convert_color(fgc$),@convert_color(bgc$),font$,text$)
else if glob(a$,"MenuParm*Number") or a$="MenuParmDim"
x=val(@getval$(t$,"XP"))
y=val(@getval$(t$,"YP"))
fgc$=@getval$(t$,"FGC")
font$=@getval$(t$,"FONT")
if glob(a$,"*Long*")
text$="????????"
else if glob(a$,"*Prec*")
text$="?.???????"
else if glob(a$,"*Dim")
text$="dim"
else if glob(a$,"*Udef*")
text$=@getval$(t$,"FORMAT")
else
text$="?.???"
endif
if a$="MenuParmInNumber"
w=val(@getval$(t$,"WIDTH"))
h=val(@getval$(t$,"HEIGHT"))
defline 1,1
color hellblau
box x,y,x+w,y-h
defline 0
else
@draw_string(x,y,0,0,x,y,0,0,@convert_color(fgc$),0,font$,text$)
endif
else if a$="MenuLine"
x=val(@getval$(t$,"XP"))
y=val(@getval$(t$,"YP"))
x2=val(@getval$(t$,"X2"))
y2=val(@getval$(t$,"Y2"))
lw=val(@getval$(t$,"LINEWIDTH"))
fgc$=@getval$(t$,"FGC")
@setcolor(fgc$)
defline ,lw
line x,y,x2,y2
else if a$="MenuArc"
x=val(@getval$(t$,"XP"))
y=val(@getval$(t$,"YP"))
w=val(@getval$(t$,"WIDTH"))
h=val(@getval$(t$,"HEIGHT"))
a1=val(@getval$(t$,"ANGLE1"))
a2=val(@getval$(t$,"ANGLE2"))
lw=val(@getval$(t$,"LINEWIDTH"))
fgc$=@getval$(t$,"FGC")
@setcolor(fgc$)
defline ,lw
ellipse x+w/2,y-h/2,w/2,h/2,a1,a2
else if a$="MenuArcFilled"
x=val(@getval$(t$,"XP"))
y=val(@getval$(t$,"YP"))
w=val(@getval$(t$,"WIDTH"))
h=val(@getval$(t$,"HEIGHT"))
a1=val(@getval$(t$,"ANGLE1"))
a2=val(@getval$(t$,"ANGLE2"))
lw=val(@getval$(t$,"LINEWIDTH"))
fgc$=@getval$(t$,"FGC")
bgc$=@getval$(t$,"BGC")
defline ,0
@setcolor(bgc$)
pellipse x+w/2,y-h/2,w/2,h/2,a1,a2
@setcolor(fgc$)
defline ,lw
ellipse x+w/2,y-h/2,w/2,h/2,a1,a2
else if glob(a$,"MenuParm*Scale")
x=val(@getval$(t$,"XP"))
y=val(@getval$(t$,"YP"))
w=val(@getval$(t$,"WIDTH"))
h=val(@getval$(t$,"HEIGHT"))
lay=val(@getval$(t$,"LAYOUT"))
fgc$=@getval$(t$,"FGC")
bgc$=@getval$(t$,"BGC")
position=0
defline ,0
@setcolor(bgc$)
pbox x,y,x+w,y-h
@preclear_scale()
@setcolor(fgc$)
@prefill_scale()
if position>0
@draw_scale
else
@draw_ramp_logo(x,y,w,h)
endif
else if a$="MenuParmVBar"
x=val(@getval$(t$,"XP"))
y=val(@getval$(t$,"YP"))
w=val(@getval$(t$,"WIDTH"))
h=val(@getval$(t$,"HEIGHT"))
fgc$=@getval$(t$,"FGC")
bgc$=@getval$(t$,"BGC")
@setcolor(bgc$)
pbox x,y,x+w,y-h
@setcolor(fgc$)
pbox x,y,x+w,y-h/2
else if a$="MenuParmHBar"
x=val(@getval$(t$,"XP"))
y=val(@getval$(t$,"YP"))
w=val(@getval$(t$,"WIDTH"))
h=val(@getval$(t$,"HEIGHT"))
fgc$=@getval$(t$,"FGC")
bgc$=@getval$(t$,"BGC")
@setcolor(bgc$)
pbox x,y,x+w,y-h
@setcolor(fgc$)
pbox x,y,x+w/2,y-h
else if a$="MenuRectangleFilled"
x=val(@getval$(t$,"XP"))
y=val(@getval$(t$,"YP"))
w=val(@getval$(t$,"WIDTH"))
h=val(@getval$(t$,"HEIGHT"))
lw=val(@getval$(t$,"LINEWIDTH"))
fgc$=@getval$(t$,"FGC")
bgc$=@getval$(t$,"BGC")
defline ,0
@setcolor(bgc$)
pbox x,y,x+w,y-h
@setcolor(fgc$)
defline ,lw
box x,y,x+w,y-h
else if a$="MenuRectangle"
x=val(@getval$(t$,"XP"))
y=val(@getval$(t$,"YP"))
w=val(@getval$(t$,"WIDTH"))
h=val(@getval$(t$,"HEIGHT"))
lw=val(@getval$(t$,"LINEWIDTH"))
fgc$=@getval$(t$,"FGC")
@setcolor(fgc$)
defline ,lw
box x,y,x+w,y-h
else if a$="MenuMenu"
x=val(@getval$(t$,"XP"))
y=val(@getval$(t$,"YP"))
w=val(@getval$(t$,"WIDTH"))
h=val(@getval$(t$,"HEIGHT"))
defline 1
color weiss
box x,y,x+w,y-h
defline 0
else if a$="MenuMenuFrame"
x=val(@getval$(t$,"XP"))
y=val(@getval$(t$,"YP"))
w=val(@getval$(t$,"WIDTH"))
h=val(@getval$(t$,"HEIGHT"))
defline 1
color weiss
box x,y,x+w,y-h
defline 0
@draw_frame(x,y,w,h,1)
else if a$="MenuApplic"
x=val(@getval$(t$,"XP"))
y=val(@getval$(t$,"YP"))
w=val(@getval$(t$,"WIDTH"))
h=val(@getval$(t$,"HEIGHT"))
defline 1
color gelb
box x,y,x+w,y-h
defline 0
else if a$="MenuApplicFrame"
x=val(@getval$(t$,"XP"))
y=val(@getval$(t$,"YP"))
w=val(@getval$(t$,"WIDTH"))
h=val(@getval$(t$,"HEIGHT"))
@draw_frame(x,y,w,h,1)
defline 1
color gelb
box x,y,x+w,y-h
defline 0
else if a$="MenuParmInValue" or a$="MenuParmTickDecr" or a$="MenuParmTickIncr"
x=val(@getval$(t$,"XP"))
y=val(@getval$(t$,"YP"))
w=val(@getval$(t$,"WIDTH"))
h=val(@getval$(t$,"HEIGHT"))
defline 1
color orange
box x,y,x+w,y-h
defline 0
else if a$="MenuParmInValueFrame"