home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 73 / 64er_Magazin_Sonderheft_73_19xx_Markt__Technik_de_Side_A.d64 / hyperthrust (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  564b  |  26 lines
  1. 1 poke53265,11
  2. 5 poke52 ,15:poke56,15
  3. 10 forl=1to15
  4. 20 read a:read b:poke52992+l,a:poke53024+l,b
  5. 30 next
  6. 100 pq = 7*11:po = 5*3^2:pw = 8.7*10^1
  7. 120 c$=chr$(pq)+chr$(po)+chr$(pw)
  8. 1000 poke53280,0:poke53281,0:print"[147][144]";
  9. 1010 for y = 1 to 2
  10. 1020 gosub 2000
  11. 1030 next
  12. 1040 sys 1024
  13. 1050 for y = 3 to 15
  14. 1060 gosub2000
  15. 1070 next
  16. 1080 sys57812"hyperscore",8,1
  17. 1090 poke780,0:sys65493:open1,8,15,"i":close1
  18. 1105 poke40959,0:sys 52224
  19. 2000 open1,8,15:print#1,c$chr$(31.5*4)chr$(0)chr$(1)chr$(peek(52992+y))
  20. 2020 print#1,c$chr$(100+11)chr$(2)chr$(1)chr$(peek(53024+y)):close1
  21. 2030 sys57812"*",8,1
  22. 2040 poke780,0:sys65493:return
  23. 10000 data 17,0,17,1,17,10,19,0,19,5
  24. 10005 data 21,2,21,7,21,8,14,0,14,5
  25. 10010 data 22,2,13,3,13,4,13,20,23,9
  26.