home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_1998-04_1998_CSW_Side_B.d64 / demo.basic (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  51 lines
  1. 10 dimh%(255):if fre(0)<>fre(1) then print"c64-mode only":stop
  2. 20 gosub 340
  3. 50 for i=1 to 4
  4. 60 poke49152+12,i
  5. 70 poke49152+13,0
  6. 80 poke49152+14,65+i
  7. 90 sys49152+6
  8. 100 next
  9. 110 print chr$(147)
  10. 120 for i=1 to 4
  11. 130 poke49152+12,i
  12. 140 poke49152+13,0
  13. 150 sys49152+9
  14. 160 printpeek(49152+14)
  15. 170 next
  16. 200 for i=0 to 255
  17. 210 poke49152+12,0
  18. 220 poke49152+13,i
  19. 230 poke49152+14,i
  20. 240 sys49152+6
  21. 250 next:print
  22. 270 for i=0 to 255
  23. 280 poke49152+12,0
  24. 290 poke49152+13,i
  25. 300 sys49152+9
  26. 310 h%(i)=peek(49152+14):next
  27. 320 for i= 0 to 255:printh%(i),;:next
  28. 330 end
  29. 340 cs=0:for i=49152 to 49301
  30. 350 readd:pokei,d:cs=cs+d:next:if 16483<>cs thenprintchr$(147)"data defekt":stop
  31. 360 return
  32. 370 data 76,16,192,76,34,192,76,52
  33. 380 data 192,76,101,192,0,0,0,0
  34. 390 data 173,15,192,141,0,214,44,0
  35. 400 data 214,16,251,173,14,192,141,1
  36. 410 data 214,96,173,15,192,141,0,214
  37. 420 data 44,0,214,16,251,173,1,214
  38. 430 data 141,14,192,96,169,18,141,0
  39. 440 data 214,44,0,214,16,251,173,13
  40. 450 data 192,141,1,214,169,19,141,0
  41. 460 data 214,44,0,214,16,251,173,12
  42. 470 data 192,141,1,214,169,31,141,0
  43. 480 data 214,44,0,214,16,251,173,14
  44. 490 data 192,141,1,214,96,169,18,141
  45. 500 data 0,214,44,0,214,16,251,173
  46. 510 data 13,192,141,1,214,169,19,141
  47. 520 data 0,214,44,0,214,16,251,173
  48. 530 data 12,192,141,1,214,169,31,141
  49. 540 data 0,214,44,0,214,16,251,173
  50. 550 data 1,214,141,14,192,96
  51.