? " in"; ?(STR(REAL(zeile-1 OUT13 fehlerz_0000 INC fehlerzeilen fi1:. IF ((b182=0) OR (fehlerzeilen>16)) GOTO ende IF (b50000>1) GOSUB comz IF (ersatzvar=0000) GOTO fi38 varend_ersatzvar ersatzvar_0000 fi38: INC zeileGOTO szeileende:POKE prend,96
INC prend?"eoc"POKE0198,0WAIT0198,1POKE0198,0ENDcomz: z_0001 klammer_0001 fehlerz_0000 pufferg_0000 comkl: CLR te (ax[klammer])_0 anzahl_0000) q_0) REPEAT!) (adr[((klammerSHL2)+q)])_1024) INC q) UNTIL (q>3) IF (klammer=0001) GOTO fi2 anzahl_0001 fi2 : q_(PEEK(50000+z))- IF ((q<>32) OR ((LOW z)<=b50000)) GOTO fi3 INC z GOTO fi2 fi3:. IF ((q<>41) AND ((LOW z)<=b50000)) GOTO fi4 IF(LENte)GOSUB combe DEC klammer
RETURN fi4: IF (q<>40) GOTO fi5 INC z (text[klammer])_te (anz[klammer])_anzahl INC klammer GOSUB comkl te_(text[klammer]) anzahl_(anz[klammer]) INC z GOTO fi2 fi5:" IF ((PEEK(50256+q))=1) GOTO cbef" IF ((PEEK(50256+q))=2) GOTO cvar" IF ((PEEK(50256+q))=3) GOTO ccon IF (q=45) GOTO fi6 INC z GOTO fi2 fi6: z1_z REPEAT
DEC z1/ UNTIL (((PEEK(50000+z1))<>32) OR (z1=65535))\ IF ((((PEEK(50256+(PEEK(50000+z1))))=1) OR (z1=65535)) OR ((PEEK(50000+z1))=45)) GOTO ccon GOTO cbef cbef:
ADDte,q INC z
GOTO fi2 cvar: CLR variable REPEAT ADD variable,q
REPEAT
INC z q_(PEEK(50000+z))- UNTIL ((q<>32) OR ((LOW z)>(PEEK 50000)))3 UNTIL (((PEEK(50256+q))<=1) OR ((LOW z)>b50000))
z1_0000 REPEAT
INC z1. UNTIL (((var[z1])=variable) OR (z1>varanz)) IF (z1<=varanz) GOTO fi7 GOSUB inc fehler (fehlerart[fehlerz])_2 (fehler[fehlerz])_variable ADDte,64 GOTO fi2 fi7:/ (adr[((klammer SHL 2)+anzahl)])_(varadr[z1])
INC anzahl ADDte,((varart[z1])+64) IF ((varart[z1])<=8) GOTO fi2 (ax[klammer])_(LOWz1)
GOTO fi2 ccon: IF (q<>34) GOTO czahl z2_conend
INC conend s7: INC z q_(PEEK(50000+z)) INC conend+ IF ((q=34) OR ((LOWz)>b50000)) GOTO fi8 POKEconend,q
INC anzahl INC z GOTO fi2 czahl: b1_65 CLR variable REPEAT3 IF (((q<>46) AND (q<>45)) AND (q<>69)) GOTO fi9
b1_67 fi9: ADD variable,q
REPEAT
INC z q_(PEEK(50000+z))' UNTIL ((q<>32) OR ((LOW z)>b50000))l UNTIL (((((PEEK(50256+q))<>3) AND(q<>69)) OR (q=34)) OR ((LOW z)>b50000)) real_(VALvariable) IF (b1=67) GOTO fi104 IF (((LENvariable)<4) AND (real<256.)) GOTO fi10