#-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;