1
2
3
4
5
6
7
8
9
10
11
|
#-S tand: 04.11.8714:46'1238216893388-2761274802888164125853-15453-2245822115
#PACKET maskenerweiterungDEFINES put,get,putget:LET maxfields=200;PROC putget
(TAG CONST ff,ROW maxfieldsTEXT VAR v,INT VAR einstieg):put(ff,v);get(ff,v,
einstieg)END PROC putget;PROC put(TAG CONST ff,ROW maxfieldsTEXT VAR
fieldvalues):INT VAR iFOR iFROM 1UPTO fields(ff)REP IF fieldexists(ff,i)THEN
put(ff,fieldvalues(i),i)FI PER END PROC put;PROC get(TAG CONST ff,ROW
maxfieldsTEXT VAR fieldvalues,INT VAR feld):INT VAR felder:=fields(ff);IF
NOT fieldexists(ff,feld)THEN errorstop("startfeld nicht im tag")ELSE WHILE
feld<=felderREPEAT get(ff,fieldvalues(feld),feld);executecommandcode(ff,feld)
UNTIL leavingcode=27PER FI END PROC get;END PACKET maskenerweiterung;
|
