home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_010_19xx_-_de_Side_B.d64 / bla3 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  42 lines
  1. 10 poke56,31:clr:ad=8000
  2. 20 poke53272,28:poke53280,11:poke53281,0
  3. 30 print"[147]":sh=int(ad/256):sl=ad-sh*256
  4. 40 poke252,sl:poke253,sh:sys49152:ad=ad+590
  5. 50 poke198,0:wait198,1:geta$:ifa$="[133]"then110
  6. 55 ifa$="[136]"then108
  7. 60 ifa$="-"andad=16974thenad=9770:goto30
  8. 70 ifa$="-"andad-1179>8000thenad=ad-1180:goto30
  9. 80 ifad=10360thenad=16384
  10. 90 ifad<31723then30
  11. 100 goto10
  12. 108 print"[147][144]load"chr$(34)"blagger 1701"chr$(34)",8":print"run":poke2,1
  13. 109 poke53272,21:poke631,19:poke632,13:poke633,13:poke634,13:poke198,4:new
  14. 110 restore:fory=1to17step2:forx=32to38step2:reada,b:poke1024+x+y*40,a
  15. 120 poke55296+x+y*40,b:nextx,y:q=ad:gosub210:ad=q
  16. 130 sys49264:poke53280,11:poke53272,21:print"[147]save ?"
  17. 140 poke198,0:wait198,1:geta$:ifa$<>"y"then20
  18. 150 input"file name =<16 tkn.";a$:iflen(a$)>16then150
  19. 160 eh=int((ad)/256):el=(ad)-eh*256
  20. 170 print"[147][144]p[207]43,"sl":p[207]44,"sh":p[207]45,"el":p[207]46,"eh
  21. 180 print"save"chr$(34)"@0:"a$chr$(34)",8[144]"
  22. 190 print"p[207]43,1:p[207]44,8:p[207]45,"peek(45)":p[207]46,"peek(46)":ad="ad":goto20
  23. 200 [151]631,19:[129]t[178]1[164]9:[151]631[170]t,13:[130]:[151]198,t:[128]
  24. 210 x[178]32:y[178]1:xx[178]32:yy[178]1:f[178]54272:a[178][194](1096):b[178][194](55368):ad[178]1096:c[178]32:cf[178]1
  25. 220 [129]t[178]1[164]25:[151]ad,122:[151]ad[170]f,1:[161]a$:[139]a$[179][177]""[167]240
  26. 230 [130]:[129]t[178]1[164]50:[151]ad,c:[151]ad[170]f,cf:[161]a$:[139]a$[178]""[167][130]:[137]220
  27. 240 [139]a$[178]"input"[167][151]ad,a:[151]ad[170]f,b:[151]53280,12:[142]
  28. 250 [139]a$[178]""[175]x[179]38[167]x[178]x[170]1
  29. 260 [139]a$[178]"cmd"[175]x[177]0[167]x[178]x[171]1
  30. 270 [139]a$[178]""[175]y[179]18[167]y[178]y[170]1
  31. 280 [139]a$[178]"on"[175]y[177]0[167]y[178]y[171]1
  32. 290 [139]a$[178]" "[175]x[177]30[167]c[178]a:cf[178]b:[137]220
  33. 300 [139]a$[178]" "[167][141]350:[151]ad,c:[151]ad[170]f,cf:[137]330
  34. 310 [139]x[178]xx[175]y[178]yy[167]220
  35. 320 [141]340:[151]ad,a:[151]ad[170]f,b:[141]350:xx[178]x:yy[178]y
  36. 330 a[178][194](ad):b[178][194](ad[170]f):[137]220
  37. 340 ad[178]1024[170]xx[170]yy[172]40:[142]
  38. 350 ad[178]1024[170]x[170]y[172]40:[142]
  39. 360 [131] 30,8,31,13,33,7,34,13,35,2,36,5,37,2,38,4,41,1,42,1,43,1,78,13
  40. 370 [131] 100,1,101,1,102,1,103,11,104,11,106,6,110,2,94,1,48,1,49,1,50,1,51,1
  41. 380 [131] 52,1,53,1,54,1,55,1,56,1,57,1,126,9,127,9,86,8,87,8,88,8,89,8
  42.