summaryrefslogtreecommitdiff
path: root/app/baisy/2.2.1-schulis/src/maskenerweiterung
blob: a61d7f0ea590276548dec86215044e1c508d1066 (plain)
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;