home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 October / 64er_Magazin_90-10_1990_Markt__Technik_de_Side_A.d64 / com < prev    next >
Encoding:
Text File  |  1990-01-01  |  9.4 KB  |  28 lines
  1. dINTVAR AT 51200 teanf,teend,pranf,prend,conanf,conend,varanf,varendROW 0016 STRVAR 14 fehlerROW 0016 BYTEVAR fehlerartROW 0008 STRVAR 14 textROW 0008 INTVAR anzROW 0032 INTVAR adrROW 0032 INTVAR af1ROW 0032 INTVAR af2ROW 0032 BYTEVAR arROW 0008 BYTEVAR ax)ROW 0004 BYTEVAR addROW 0008 INTVAR ifROW 0127 BYTEVAR varartROW 0127 INTVAR varadrROW 0127 STRVAR 14 var$ADRVAR comz,szeile,ende,comkl,combe'ADRVAR cbef,cvar,ccon,czahl,inc fehler&ADRVAR s7,comso,dekl,comfu,rowat,fi45'ADRVAR fi1,fi2,fi3,fi4,fi5,fi6,fi7,fi8$ADRVAR fi9,fi10,fi11,fi12,fi13,fi14%ADRVAR fi15,fi16,fi17,fi18,fi19,fi20%ADRVAR fi21,fi22,fi23,fi24,fi25,fi26%ADRVAR fi27,fi28,fi29,fi30,fi31,fi32%ADRVAR fi33,fi34,fi35,fi36,fi37,fi38*ADRVAR fi40,fi41,fi42,fi43,fi44,weitercomINTVAR varanz,fehlerz,klammerINTVAR z,z1,z2,z3,a3,ersatzvar INTVAR zeile,pufferg,anzahl,ifz
  2. REALVAR realSTRVAR 14 variable,te,antwort)BYTEVAR q,a1,a2,b1,b2,b3,b4,fehlerzeilenINTVAR AT 0182 i182,i184,i1868BYTEVAR AT 0182 b182,b183,b184,b185,b186,b187,b188,b189BYTEVAR AT 50000 b50000BYTEVAR qwerty,qwert2prend_pranfconend_conanfvarend_varanfvaranz_0000CLR (var[0001])z_0001)REPEAT) (add[z])_(PEEK(50912+z))) INC z)UNTIL (z>0008)z_0000ersatzvar_zifz_zREPEAT (ar[z])_0 (adr[z])_0000 (af1[z])_0000 (af2[z])_0000 INC zUNTIL (z>0039)fehlerzeilen_0
  3. fehlerz_00001?"              COMPILING                "zeile_0000szeile: OUT145
  4.  ?(STRzeile) i182_zeile SYS 49349 SYS 49392 SYS 49680 IF (fehlerz=0000) GOTO fi1   PRINT "Error #";!   PRINT (STR(fehlerart[0001]));
  5.    OUT 58   PRINT (fehler[0001]);
  6.    ? "  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
  7. 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
  8.    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
  9.    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:
  10.   ADDte,q  INC z
  11.  GOTO fi2 cvar:  CLR variable  REPEAT   ADD variable,q
  12.    REPEAT
  13.     INC z    q_(PEEK(50000+z))-   UNTIL ((q<>32) OR ((LOW z)>(PEEK 50000)))3  UNTIL (((PEEK(50256+q))<=1) OR ((LOW z)>b50000))
  14.   z1_0000  REPEAT
  15.    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])
  16.   INC anzahl  ADDte,((varart[z1])+64)   IF ((varart[z1])<=8) GOTO fi2   (ax[klammer])_(LOWz1)
  17.  GOTO fi2 ccon:  IF (q<>34) GOTO czahl  z2_conend
  18.   INC conend  s7:   INC z   q_(PEEK(50000+z))   INC conend+   IF ((q=34) OR ((LOWz)>b50000)) GOTO fi8   POKEconend,q
  19.   GOTO s7  fi8:  POKEz2,(LOW(conend-z2))  POKE(z2+1),(PEEKz2)  ADDte,68#  (adr[((klammerSHL2)+anzahl)])_z2
  20.   INC anzahl  INC z  GOTO fi2 czahl:  b1_65  CLR variable  REPEAT3   IF (((q<>46) AND (q<>45)) AND (q<>69)) GOTO fi9
  21.     b1_67   fi9:   ADD variable,q
  22.    REPEAT
  23.     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
  24.     b1_66    IF (real<65536.) GOTO fi10     b1_67  fi10:  ADDte,b1/  IF((b1<>66)OR(((LOWconend)AND1)=0))GOTO fi36   INC conend  fi36:'  (adr[((klammerSHL2)+anzahl)])_conend
  25.   INC anzahl  IF (b1<>65) GOTO fi11   POKE conend,(BYTEreal)   INC conend   GOTO fi2  fi11:  IF (b1<>66) GOTO fi12   (INT AT conend)_(INTreal)   INC conend   INC conend   GOTO fi2  fi12:  (REAL AT conend)_real  conend_(conend+5)  GOTO fi2inc fehler: IF (fehlerz>0015) GOTO fi13  INC fehlerz fi13:RETURNcombe: (STR AT 49919)_te POKE 49920,((LEN te)+2) SYS 49696 IF (b186 <> 0) GOTO fi14  GOSUB inc fehler  (fehler[fehlerz])_te  (fehlerart[fehlerz])_1  RETURN fi14: IF (klammer=0001) GOTO fi15  IF (b187 <> 64) GOTO fi16   GOSUB inc fehler   (fehler[fehlerz])_te   (fehlerart[fehlerz])_4
  26.    RETURN  fi16:  IF (klammer<=0002)   IF (b186=115)
  27.     b186_194   ENDIF   IF (b186=116)
  28.     b186_198   ENDIF   IF (b186=136)
  29.     b186_201   ENDIF   IF (b186=137)
  30.     b186_197   ENDIF   IF (b186=138)
  31.     b186_202   ENDIF  ELSE   IF (b186=193)    b186_78   ENDIF  ENDIF  IF(b186>191) GOTO comfu  ADD (text[(klammer-1)]),b187g  (adr[(((klammer-1) SHL 2) + (anz[(klammer-1)]))])_(varend + pufferg)  INC (anz[(klammer-1)]),  (adr[(klammer SHL 2)])_(varend + pufferg)  IF (b187 >= 67) GOTO fi17#   pufferg_(pufferg + (b187 - 64))
  32.    GOTO fi15  fi17:  IF (b187 <> 67) GOTO fi18   pufferg_(pufferg + 5)
  33.    GOTO fi15  fi18:   POKE prend,169   POKE (prend+1),255   POKE (prend+2),141)   (INT AT (prend+3))_(varend + pufferg)   prend_(prend + 5)   pufferg_(pufferg + 255) fi15:- IF ((klammer<>0001) OR (b187=64)) GOTO fi19  GOSUB inc fehler  (fehler[fehlerz])_te  (fehlerart[fehlerz])_3  RETURN fi19: IF (b186>223) GOTO comso weitercom: z1_0000 REPEAT
  34.   z2_0000  REPEAT!   z3_((49984+(z1SHL2))+(z2+z2))+   (INT AT z3)_(adr[((klammer SHL 2)+z1)])
  35.    INC z2  UNTIL (z2>0001)  INC z1 UNTIL (z1>0003) i184_prend SYS 49760 a1_b188 a2_b189 a3_i184 b1_00 REPEAT4  IF ((af1[((klammer SHL 2)+b1)])>0000) GOSUB rowat  INC b1 UNTIL (b1>03)
  36.  prend_a3RETURNcomso : b2_(b186-224)! IF ((b2<15)OR(b2>24)) GOTO fi40
  37.   b2_(b2-14)  ersatzvar_varend
  38.   DEC conend
  39.   DEC conend  varend_(INTATconend)  IF (b2=4)   conend_(adr[0004])   INC conend  ENDIF
  40.   IF (b2=10)   DEC conend  ENDIF fi40: IF (b2>5) GOTO fi21  UNTIL (fehlerz<>0000)
  41.   z3_0001  dekl:-  IF((b2<>5)OR(((LOWconend)AND1)=0))GOTOfi37   INC conend  fi37:  IF(b2<>2)GOTOfi22%   varend_(varend+((LOWvarend)AND1))   z3_(z3+z3)  fi22:  IF(b2<>3)GOTOfi23   z3_((z3SHL2)+z3)  fi23:  IF(b2<>4)GOTOfi24   DEC conend   z3_(INT((PEEKconend)+2),0)  fi24:
  42.   z1_0001  REPEAT   INC varanz   (var[varanz])_(fehler[z1])   IF(b2<>5)GOTOfi25*    (varadr[varanz])_(conend+((z1+z1)-2))    (varart[varanz])_2    GOTO fi26   fi25:    (varart[varanz])_b2+    (varadr[varanz])_(varend+((z1*z3)-z3))   fi26:   IF(b2<>4)GOTOfi27    POKEprend,169    POKE(prend+1),(LOWz3)    POKE(prend+2),141&    (INTAT(prend+3))_(varadr[varanz])    prend_(prend+5)   fi27:
  43.    INC z1  UNTIL (z1>fehlerz)  IF (b2<>5) GOTO fi28%   conend_(conend+(fehlerz+fehlerz))
  44.    GOTO fi29  fi28:    varend_(varend+(fehlerz*z3))  fi29:  fehlerz_0000  RETURN fi21: IF (b2<>6) GOTO fi30  (INT AT(adr[0004]))_prend  RETURN fi30: IF (b2>10) GOTO fi31  b2_(b2-6)  IF (b2=4) GOTO fi32   conend_(conend-2)   z3_((INT AT conend)+1)   GOSUB dekl)   (varart[varanz])_((varart[varanz])+8)
  45.    RETURN  fi32:
  46.   INC varanz  (var[varanz])_(fehler[0001])  conend_(conend-3)  (varart[varanz])_12  (varadr[varanz])_varend  fehlerz_0000!  (INT AT 49986)_(INT AT conend)"  POKE 49988,((PEEK(conend+2))+2)  (INT AT 49984)_varend
  47.   i184_prend  b186_100  SYS 49760.  z3_(((INTATconend)+1)*((PEEK(conend+2))+2))  varend_(varend+z3)
  48.   prend_i184  RETURN fi31: IF (b2>11) GOTO fi42  POKE prend,169!  POKE (prend+1),(HIGH(prend-1))  POKE (prend+2),72  POKE (prend+3),169   POKE (prend+4),(LOW(prend-1))  POKE (prend+5),72  prend_(prend+6)  RETURN fi42: IF (b2<>12) GOTO fi43  (if[ifz])_conend
  49.   INC ifz  (adr[0005])_conend
  50.   INC conend
  51.   INC conend  b186_127  GOTO weitercom fi43: DEC ifz IF (ifz<0009) GOTO fi45
  52.   inc fehler  (fehlerart[fehlerz])_5  CLR (fehler[fehlerz])  RETURN fi45: IF (b2<>13) GOTO fi44  (INTAT(if[ifz]))_(prend+3)  (if[ifz])_conend
  53.   INC ifz  (adr[0004])_conend
  54.   INC conend
  55.   INC conend
  56.   b186_10  GOTO weitercom fi44:  (INTAT(if[ifz]))_prendRETURNcomfu: b2_(b186-192) z3_(klammer-1) z1_((z3SHL2)+(anz[z3])) (af1[z1])_prend IF (b2>4)  qwerty_(ax[klammer])!  qwert2_(varart[(INTqwerty,0)])  b2_(b2-4)  IF (b2>4)
  57.    b2_(b2-4)&   prend_(prend+(PEEK(50908+qwert2)))   (ar[z1])_(qwerty+128)  ELSE&   prend_(prend+(PEEK(50904+qwert2)))   (ar[z1])_qwerty  ENDIF ELSE  prend_(prend+18) ENDIF ADD (text[z3]),(b2+64)- (af2[z1])_(adr[((klammerSHL2)+(anzahl-1))]) INC (anz[z3])RETURNrowat: b2_0 REPEAT  POKE(49988+b2),251  POKE(49989+b2),0  INC b2  INC b2 UNTIL (b2>8) z1_((klammerSHL2)+b1) IF ((ar[z1])>127)
  58.   qwerty_255  (ar[z1])_((ar[z1])-128) ELSE  qwerty_0 ENDIF (INTAT49984)_(af2[z1]) (INTAT49986)_((INTAT49984)+1) b187_b1 i182_prend i184_(af1[z1]) b188_a1 b189_a2( (INTAT49996)_(varadr[(INT(ar[z1]),0)]) (INTAT49998)_(INTAT49996) b186_45 IF qwerty'  b186_(123+(varart[(INT(ar[z1]),0)])) ELSE  IF ((ar[z1])=0) GOTO fi20'   b186_(87+(varart[(INT(ar[z1]),0)]))  fi20: ENDIF SYS 50768 (ar[z1])_0 (af1[z1])_0000 (af2[z1])_0000RETURN
  59. AD