home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 60 / 64er_Magazin_Sonderheft_60_19xx_Markt__Technik_de_Side_B.d64 / teil1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  88 lines
  1. 200 fori=53248to53263:pokei,0:next
  2. 30000 fori=12800to13415
  3. 30001 reada
  4. 30002 pokei,a
  5. 30003 next
  6. 30005 goto40000
  7. 30101 data 128,192,224,240,248,252,254,255
  8. 30102 data 1,3,7,15,31,63,127,255
  9. 30103 data 219,219,215,215,187,187,187,187
  10. 30104 data 187,187,187,219,219,237,237,237
  11. 30105 data 239,239,111,111,111,119,247,247
  12. 30106 data 247,119,119,119,111,111,111,111
  13. 30107 data 247,247,111,111,111,119,247,247
  14. 30108 data 0,0,0,0,0,0,3,255
  15. 30109 data 0,1,3,2,14,61,243,207
  16. 30110 data 181,181,117,237,237,222,190,129
  17. 30111 data 247,247,246,246,246,238,239,239
  18. 30112 data 239,238,238,238,246,246,246,246
  19. 30113 data 245,245,246,246,246,238,239,239
  20. 30114 data 173,173,174,183,183,123,125,126
  21. 30115 data 0,128,192,64,112,188,207,243
  22. 30116 data 0,0,0,0,0,0,192,255
  23. 30117 data 29,59,110,123,222,247,221,247
  24. 30118 data 184,236,250,222,123,239,187,247
  25. 30119 data 237,219,126,219,191,237,183,237
  26. 30120 data 221,247,93,119,93,118,189,111
  27. 30121 data 251,238,118,238,190,239,189,239
  28. 30122 data 219,190,219,119,221,119,221,119
  29. 30123 data 59,13,3,0,0,0,0,0
  30. 30124 data 238,183,253,3,0,0,0,0
  31. 30125 data 219,245,175,248,0,0,0,0
  32. 30126 data 0,239,239,239,239,239,239,239
  33. 30127 data 0,255,255,255,255,255,255,255
  34. 30128 data 127,127,127,127,127,127,127,127
  35. 30129 data 0,7,31,63,120,96,0,0
  36. 30130 data 0,255,255,255,0,0,0,0
  37. 30131 data 0,224,248,252,30,6,0,0
  38. 30132 data 15,239,239,224,239,239,239,224
  39. 30133 data 240,247,247,7,247,247,247,7
  40. 30134 data 0,255,255,224,238,238,238,224
  41. 30135 data 0,255,255,7,119,119,119,7
  42. 30136 data 0,239,239,0,238,238,238,0
  43. 30137 data 0,255,255,0,238,238,238,0
  44. 30138 data 0,255,0,0,0,0,0,0
  45. 30139 data 0,0,0,0,255,0,0,0
  46. 30140 data 192,192,192,224,96,112,51,30
  47. 30141 data 3,3,3,7,6,14,204,120
  48. 30142 data 1,3,7,15,15,31,31,31
  49. 30143 data 128,192,224,240,240,248,248,248
  50. 30144 data 63,63,63,63,63,63,63,63
  51. 30145 data 252,252,252,252,252,252,252,252
  52. 30146 data 31,31,31,15,15,7,3,1
  53. 30147 data 248,248,248,240,240,224,192,128
  54. 30148 data 220,176,192,0,0,0,0,0
  55. 30149 data 0,0,0,0,1,7,14,24
  56. 30150 data 0,0,63,255,192,0,0,0
  57. 30151 data 0,0,255,255,0,0,0,0
  58. 30152 data 24,48,48,48,48,48,48,48
  59. 30153 data 60,127,99,96,96,96,96,96
  60. 30154 data 0,224,240,24,12,6,6,6
  61. 30155 data 48,48,24,24,28,31,15,12
  62. 30156 data 96,96,96,96,96,255,255,62
  63. 30157 data 6,12,12,12,28,252,248,24
  64. 30158 data 6,6,6,6,6,6,6,6
  65. 30159 data 48,48,48,48,48,48,48,48
  66. 30160 data 12,28,56,48,48,48,31,15
  67. 30161 data 0,0,0,0,0,0,255,255
  68. 30162 data 24,28,14,6,6,6,252,248
  69. 30163 data 48,48,48,48,63,63,48,48
  70. 30164 data 12,12,12,12,252,252,12,12
  71. 30165 data 0,0,252,255,3,0,0,0
  72. 30166 data 0,0,0,0,128,224,112,24
  73. 30167 data 0,7,15,24,48,96,96,96
  74. 30168 data 60,254,198,6,6,6,6,6
  75. 30169 data 24,12,12,12,12,12,12,12
  76. 30170 data 96,48,48,48,56,63,31,24
  77. 30171 data 6,6,6,6,6,135,255,124
  78. 30172 data 12,12,24,24,56,248,240,48
  79. 30173 data 12,12,12,12,12,12,12,12
  80. 30174 data 96,96,96,96,96,96,96,96
  81. 30175 data 24,56,112,96,96,96,63,31
  82. 30176 data 48,56,28,12,12,12,248,240
  83. 30177 data 0,0,0,0,255,255,0,0
  84. 40000 printchr$(147)"[144]"
  85. 40001 print"[147]load"chr$(34)"teil1.1"chr$(34)",8"
  86. 40002 print"run[145][145][145][145][145][145][145][145]"
  87. 40003 poke631,13:poke632,13:poke198,2:new
  88.