home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh27c.d64 / gr2001.beftab (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  816b  |  28 lines
  1. 10 :
  2. 20 OPEN 4,4
  3. 30 PR$="----------------------------------------":DP$=CHR$(16)
  4. 500 TB=50594:TP=TB
  5. 520 JT=50512
  6. 600 GOSUB 6000
  7. 1000 TK=PEEK(TB+Z):Z=Z+1:IFTK=0THEN3000
  8. 1100 IF TK AND 128 THEN TK = TK AND 127:GOTO 2000
  9. 1120 TK$=TK$+CHR$(TK)
  10. 1200 GOTO 1000
  11. 2000 TK$=TK$+CHR$(TK)
  12. 2100 JU=1+PEEK(JT+ZJ)+256*PEEK(ZJ+JT+1):ZJ=ZJ+2:
  13. 2120 D=JU:GOSUB 5000:JU$=DU$
  14. 2130 D=TP:GOSUB 5000:TP$=DU$
  15. 2200 IF TK$="TEST" OR TK$="CTEST"THENPRINT#4,TK$DP$"12.............":GOTO2500
  16. 2250 PRINT#4,TK$DP$"12"JU;"<$"JU$">"DP$ "35 ("TP"$"TP$")":
  17. 2500 TK$="":TP=TB+Z:GOTO1000
  18. 3000 PRINT#4,PR$PR$:GOSUB6200:PRINT#4:CLOSE4:END
  19. 5000 DU$="":FORP=0TO0:D=D/16:S=(D-INT(D))*16:DU$=CHR$(55+S+7*(S<10))+DU$
  20. 5010 P=-D:NEXT:RETURN
  21. 6000 PRINT#4,"DR. H. DOMES, JOSEF MARX STR. 13, A - 8043 GRAZ, AUSTRIA"
  22. 6010 PRINT#4,PR$PR$
  23. 6020 PRINT#4,"'GR2001'      BEFEHLSTABELLE"
  24. 6100 PRINT#4,PR$PR$:PRINT#4,"BEFEHL"," SPRUNGZIEL","[157][157][157]POSITION TOKEN"
  25. 6150 PRINT#4,PR$PR$:RETURN
  26. 6200 PRINT#4,PR$PR$:PRINT#4,"T A B E L L E   1"
  27. 6250 :RETURN
  28.