home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 27 / 64er_Magazin_Sonderheft_27_19xx_Markt__Technik_de_Disk_2_of_2_Side_A.d64 / gr2001.beftab (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.