home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 60 / 64er_Magazin_Sonderheft_60_19xx_Markt__Technik_de_Side_B.d64 / teil3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  49 lines
  1. 200 fori=53248to53263:pokei,0:next
  2. 30000 fori=12800to13103
  3. 30001 reada
  4. 30002 pokei,a
  5. 30003 next
  6. 30005 goto40000
  7. 30101 data 234,250,254,255,255,255,255,255
  8. 30102 data 170,170,170,170,234,250,254,255
  9. 30103 data 255,255,255,255,255,253,245,213
  10. 30104 data 255,253,245,213,85,85,85,85
  11. 30105 data 255,127,95,87,85,85,85,85
  12. 30106 data 255,255,255,255,255,127,95,87
  13. 30107 data 170,170,170,170,171,175,191,255
  14. 30108 data 171,175,191,255,255,255,255,255
  15. 30109 data 170,170,170,170,170,170,170,170
  16. 30110 data 85,85,85,85,85,85,85,85
  17. 30111 data 0,63,127,127,127,127,127,21
  18. 30112 data 0,255,255,213,255,255,87,255
  19. 30113 data 0,252,255,127,215,255,255,252
  20. 30114 data 255,245,85,85,95,255,255,255
  21. 30115 data 255,127,95,85,213,245,255,255
  22. 30116 data 254,254,254,254,254,254,254,254
  23. 30117 data 0,3,63,127,127,119,125,127
  24. 30118 data 0,255,255,255,255,255,255,84
  25. 30119 data 0,252,255,255,255,255,255,255
  26. 30120 data 127,127,127,125,119,127,127,21
  27. 30121 data 253,255,215,127,255,255,255,85
  28. 30122 data 127,223,255,255,255,253,212,64
  29. 30123 data 0,24,60,60,60,126,126,219
  30. 30124 data 153,24,24,24,24,24,24,24
  31. 30125 data 24,24,24,24,24,24,24,153
  32. 30126 data 219,126,126,60,60,60,24,0
  33. 30127 data 1,0,0,255,255,0,0,1
  34. 30128 data 128,224,124,254,254,124,224,128
  35. 30129 data 1,7,62,127,127,62,7,1
  36. 30130 data 128,0,0,255,255,0,0,128
  37. 30131 data 0,0,0,0,0,0,0,255
  38. 30132 data 255,0,0,0,0,0,0,0
  39. 30133 data 128,128,128,128,128,128,128,128
  40. 30134 data 1,1,1,1,1,1,1,1
  41. 30135 data 255,128,128,128,128,128,128,128
  42. 30136 data 128,128,128,128,128,128,128,255
  43. 30137 data 255,1,1,1,1,1,1,1
  44. 30138 data 1,1,1,1,1,1,1,255
  45. 40000 printchr$(147)"[144]"
  46. 40001 print"[147]load"chr$(34)"teil3.1"chr$(34)",8"
  47. 40002 print"run[145][145][145][145][145][145][145][145]"
  48. 40003 poke631,13:poke632,13:poke198,2:new
  49.