home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 March / 64er_Magazin_89-03_1989_Markt__Technik_de_Side_A.d64 / landschaftskorre (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  457b  |  15 lines
  1. 10 if a=1then goto 110
  2. 20 for x=8*4096 to 8*4096+47
  3. 30 read s:poke x,s:nextx
  4. 40 print"[147]":print"bitte diskette mit":print"kopie von (f1 c000) einlegen"
  5. 45 print:print:print:print"(taste)"
  6. 100 print"[147]":a=1:load"f1 c000",8,1
  7. 110 fory=50912 to50912+256:pokey,0:nexty
  8. 120 open1,8,15,"s:f1 c000":close1
  9. 130 sys8*4096
  10. 140 verify"f1 c000",8,1
  11. 150 print"das war's"
  12. 32000 data162,8,160,1,32,186,255,169,7,162,35,160,128,32,189,255,162,0,160,192
  13. 32001 data134,251,132,252,169,251,162,223,160,199,32,216,255,96,0,70,49,32,67
  14. 32002 data48,48,48,0,0,0,0,0,0
  15.