home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 February / 64er_Magazin_85-02_1985_Markt__Technik_de.d64 / hires3.1_b.datas (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  24KB  |  259 lines
  1. 1 rem *********************************
  2. 2 rem *                               *
  3. 3 rem *         basic-lader           *
  4. 4 rem *            fuer               *
  5. 5 rem *                               *
  6. 6 rem *      h i r e s - 3 /teil1     *
  7. 7 rem *                               *
  8. 8 rem *   1984 von heimo ponnath hh   *
  9. 9 rem *                               *
  10. 10 rem*********************************
  11. 15 poke52,128:poke56,128:s=0:m=0:a=0:p=36864
  12. 20 reada:printchr$(147)a:ifa=-1then50
  13. 25 pokep,a
  14. 30 s=s+a:p=p+1:goto20
  15. 50 readk:m=m+1:ifs<>kthenprint"data-fehler in block "m:end
  16. 55 s=0:ifm=18thenend
  17. 60 goto20
  18. 99 rem****** hires-3 datas teil 1 ******
  19. 100 rem ------------- block 1 ----------
  20. 101 data169,11,160,144,141,143,2,140,144,2,96,162,6,228,203,240,8,202,224
  21. 102 data2,208,247,76,72,235,228,197,240,249,134,197,173,141,2,201,1,208,4
  22. 103 data232,232,232,232,216,169,0,224,3,240,8,24,105,9,202,224,3,208,248
  23. 104 data170,160,0,200,189,81,144,153,118,2,201,13,240,5,232,192,9,48,240
  24. 105 data132,198,76,66,235,83,89,83,52,57,49,53,50,13,82,85,78,13,0,0,0,0
  25. 106 data0,83,89,83,51,55,52,57,56,13,83,89,83,51,55,48,49,56,13,83,89,83
  26. 107 data50,56,54,55,50,13,83,89,83,51,51,50,53,54,0,83,89,83,51,55,50,50
  27. 108 data55,13,83,89,83,51,55,51,48,54,13,255,169,0,141,164,144,141,165,144
  28. 109 data240,4,220,5,173,17,166,45,142,166,144,166,46,142,167,144,169,188
  29. 110 data141,2,3,169,144,141,3,3,166,45,236,166,144,208,20,166,46,236,167
  30. 111 data144,-1,21128
  31. 119 rem ------------- block 2 ----------
  32. 120 data208,13,174,164,144,208,5,174,165,144,240,3,76,93,145,166,45,142
  33. 121 data166,144,166,46,142,167,144,166,45,202,202,228,43,208,6,166,46,228
  34. 122 data44,240,61,166,43,134,251,134,20,166,44,134,252,134,21,160,0,177,251
  35. 123 data208,20,200,177,251,208,15,200,177,20,141,164,144,200,177,20,141,165
  36. 124 data144,76,44,145,165,251,133,20,165,252,133,21,160,0,177,251,170,200
  37. 125 data177,251,134,251,133,252,76,251,144,173,164,144,24,105,10,141,164
  38. 126 data144,173,165,144,105,0,141,165,144,174,164,144,32,205,189,169,32,32
  39. 127 data210,255,160,0,177,209,153,119,2,230,198,200,196,211,208,244,169,0
  40. 128 data133,211,76,131,164,169,131,141,2,3,169,164,141,3,3,76,131,164,0,165
  41. 129 data43,24,105,4,133,253,165,44,105,0,133,254,160,0,177,253,240,8,200
  42. 130 data192,88,208,247,76,8,175,200,152,160,0,24,101,253,145,43,133
  43. 131 data-1,26931
  44. 139 rem ------------- block 3 ----------
  45. 140 data253,144
  46. 141 data2,230,254,165,254,200,145,43,136,177,253,170,200,177,253,240,7,133
  47. 142 data254,134,253,56,176,240,165,253,24,105,2,133,45,165,254,32,85,166
  48. 143 data76,156,166,0,169,255,133,2,165,43,201,1,208,13,133,251,165,44,201
  49. 144 data8,208,5,133,252,56,176,22,165,251,133,43,165,252,133,44,162,0,189
  50. 145 data69,146,240,6,32,22,231,232,208,245,96,24,160,0,177,43,208,12,200
  51. 146 data177,43,208,7,200,177,43,208,2,133,2,230,43,208,2,230,44,165,2,208
  52. 147 data228,162,0,189,18,146,240,6,32,22,231,232,208,245,96,13,13,32,32,32
  53. 148 data32,32,42,42,42,42,32,77,69,82,71,69,32,42,42,42,42,42,13,66,69,82
  54. 149 data69,73,84,32,90,85,77,32,75,79,80,80,69,76,78,33,13,0,0,0,0,0,0,0
  55. 150 data13,13,32,32,32,32,32,42,42,42,42,32,77,69,82,71,69,32,42
  56. 151 data-1,20674
  57. 159 rem ------------- block 4 ----------
  58. 160 data42,42,42
  59. 161 data42,13,80,82,79,71,82,65,77,77,69,32,71,69,75,79,80,80,69,76,84,33
  60. 162 data13,0,0,0,0,0,0,0,0,169,146,141,8,3,169,146,141,9,3,96,169,228,141
  61. 163 data8,3,169,167,141,9,3,96,40,95,32,115,0,144,30,201,96,176,26,201,65
  62. 164 data144,21,141,145,146,162,0,142,144,146,160,0,238,144,146,189,64,147
  63. 165 data208,7,173,145,146,56,76,231,167,209,122,208,40,200,232,189,64,147
  64. 166 data208,245,24,152,101,122,133,122,144,2,230,123,173,144,146,10,170,189
  65. 167 data238,146,141,223,146,189,239,146,141,224,146,32,188,148,76,174,167
  66. 168 data232,189,64,147,208,250,232,76,167,146,231,167,176,148,179,148,182
  67. 169 data148,185,148,188,148,116,154,231,147,191,148,194,148,197,148,200,148
  68. 170 data203,148,206,148,209,148,212,148,215,148,218,148,221,148,224,148,227
  69. 171 data148,230,148,233,148,236,148,239,148
  70. 172 data-1,25689
  71. 179 rem ------------- block 5 ----------
  72. 180 data242,148,245,148,248,148,251,148
  73. 181 data254,148,1,149,4,149,7,149,10,149,13,149,133,146,218,131,157,132,184
  74. 182 data133,79,135,231,167,72,70,76,0,72,65,78,0,70,65,82,0,76,79,69,0,72
  75. 183 data79,70,0,80,65,85,0,68,69,69,75,0,80,75,84,0,76,73,78,0,82,69,67,0
  76. 184 data66,76,79,0,67,73,82,0,82,65,68,0,72,73,83,0,72,73,76,0,76,80,75,0
  77. 185 data76,76,78,0,76,82,69,0,76,66,75,0,76,75,82,0,76,82,65,0,84,82,83,0
  78. 186 data84,80,75,0,84,76,78,0,84,82,69,0,84,66,75,0,84,75,82,0,84,82,65,0
  79. 187 data76,84,80,0,76,84,76,0,76,84,82,0,76,84,66,0,76,84,75,0,76,84,86,0
  80. 188 data65,85,83,0,68,85,77,80,0,85,72,82,0,70,85,78,75,84,0,76,70,85,78
  81. 189 data75,0,0,0,0,0,0,165,-1,14170:rem---------- block 6 -----------------
  82. 190 data21,72,165,20,72,32,253,174,32,138,173,32,247,183
  83. 191 data165,1,72,41,252,120,133,1,160,0,177,20,168,104,133,1,88,104,133,20
  84. 192 data104,133,21,132,2,96,169,0,133,87,133,88,160,8,24,38,91,144,13,24
  85. 193 data165,87,101,89,133,87,165,88,101,90,133,88,136,240,6,38,87,38,88,144
  86. 194 data230,96,162,0,134,142,134,143,160,16,6,87,38,88,38,142,38,143,56,165
  87. 195 data142,229,89,170,165,143,229,90,144,6,134,142,133,143,230,87,136,208
  88. 196 data227,165,87,133,92,165,88,133,93,96,133,54,73,36,146,135,4,170,170
  89. 197 data171,131,224,0,0,0,129,64,0,0,0,0,0,5,129,192,0,0,0,134,60,0,0,0,131
  90. 198 data73,136,43,116,123,46,76,65,93,131,73,15,218,161,51,1,117,52,1,106
  91. 199 data1,0,255,11,184,0,12,1,0,1,62,1,198,160,0,53,0,136,71,0,0,0,0,0
  92. 200 data-1,18262
  93. 209 rem ------------- block 7 ----------
  94. 210 data76
  95. 211 data135,149,76,93,149,76,34,149,76,70,149,76,114,149,76,144,149,76,28
  96. 212 data150,76,210,151,76,136,152,76,250,152,76,232,153,76,196,154,76,232
  97. 213 data154,76,247,154,76,255,154,76,7,155,76,15,155,76,23,155,76,31,155
  98. 214 data76,39,155,76,166,155,76,11,156,76,235,156,76,0,128,76,224,128,76
  99. 215 data76,129,76,184,129,76,192,129,76,200,129,76,208,129,76,216,129,76
  100. 216 data224,129,76,172,148,76,172,148,76,172,148,76,172,148,76,172,148,76
  101. 217 data172,148,32,155,183,138,10,10,10,10,133,2,32,155,183,138,5,2,160,0
  102. 218 data153,0,140,153,250,140,153,244,141,153,238,142,200,192,250,208,239
  103. 219 data96,169,160,133,254,169,0,133,253,168,145,253,200,208,251,230,254
  104. 220 data164,254,192,192,208,242,96,169,149,141,0,221,169,56,141,24,208,169
  105. 221 data140,141,136,2,169,59,141,17,208,96,169,4,141,136,2,169
  106. 222 data-1,25859
  107. 229 rem ------------- block 8 ----------
  108. 230 data21,141,24
  109. 231 data208,169,151,141,0,221,169,27,141,17,208,96,32,34,149,32,70,149,76
  110. 232 data93,149,169,0,141,168,148,32,253,174,32,235,183,234,234,234,234,24
  111. 233 data224,200,176,107,165,21,240,10,201,1,208,99,165,20,201,64,176,93,165
  112. 234 data20,41,7,168,56,169,0,106,136,16,252,77,168,148,72,165,20,41,248,133
  113. 235 data20,138,41,7,24,101,20,133,20,165,21,105,160,133,21,138,41,248,133
  114. 236 data89,169,0,133,90,169,40,133,91,32,16,148,24,165,20,101,87,133,20,165
  115. 237 data21,101,88,133,21,104,160,0,133,2,165,1,72,41,254,120,133,1,165,2
  116. 238 data44,168,148,48,12,17,20,145,20,104,133,1,88,234,234,234,96,49,20,145
  117. 239 data20,104,133,1,88,96,169,0,141,168,148,32,253,174,32,235,183,142,148
  118. 240 data148,165,20,141,146,148,165,21,141,147,148,32,253,174,32,235,183,142
  119. 241 data151,148,166,20,142
  120. 242 data-1,22098
  121. 249 rem ------------- block 9 ----------
  122. 250 data149,148,165,21,141,150,148,174,149,148,173,150
  123. 251 data148,205,147,148,48,11,240,2,176,43,236,146,148,240,106,176,36,173
  124. 252 data146,148,174,149,148,141,149,148,142,146,148,173,147,148,174,150,148
  125. 253 data141,150,148,142,147,148,173,148,148,174,151,148,141,151,148,142,148
  126. 254 data148,56,173,149,148,237,146,148,141,152,148,173,150,148,237,147,148
  127. 255 data141,153,148,162,0,142,154,148,56,173,151,148,237,148,148,240,79,238
  128. 256 data154,148,141,155,148,176,11,73,255,105,1,202,142,154,148,141,155,148
  129. 257 data173,153,148,208,98,173,152,148,205,155,148,176,90,76,125,151,173
  130. 258 data151,148,205,148,148,176,9,174,148,148,142,151,148,141,148,148,174
  131. 259 data148,148,138,72,173,146,148,133,20,173,147,148,133,21,32,155,149,104
  132. 260 data170,232,236,151,148,144,233,96,173,146,148,133,20,173,147,148,133
  133. 261 data21,174,151,148,32,155,149,238,146,148,208,3,238,147
  134. 262 data-1,28880
  135. 269 rem ------------- block 10 ---------
  136. 270 data148,173,150,148
  137. 271 data205,147,148,144,10,208,222,173,149,148,205,146,148,176,214,96,169
  138. 272 data0,141,156,148,141,157,148,24,173,156,148,133,89,109,146,148,133,20
  139. 273 data173,157,148,133,90,109,147,148,133,21,173,155,148,133,91,32,16,148
  140. 274 data173,152,148,133,89,173,153,148,133,90,32,52,148,173,148,148,44,154
  141. 275 data148,48,5,24,101,92,144,3,56,229,92,170,32,155,149,238,156,148,208
  142. 276 data3,238,157,148,173,153,148,205,157,148,144,10,208,176,173,152,148
  143. 277 data205,156,148,176,168,96,169,0,141,158,148,133,91,173,148,148,44,154
  144. 278 data148,48,6,24,109,158,148,144,4,56,237,158,148,72,173,152,148,133,89
  145. 279 data173,153,148,133,90,32,16,148,173,155,148,133,89,169,0,133,90,32,52
  146. 280 data148,24,165,92,109,146,148,133,20,165,93,109,147,148,133,21,104,170
  147. 281 data32,155,149,238,158,148,173,158,148,205,155,148,240,179,144
  148. 282 data-1,25865
  149. 289 rem ------------- block 11 ---------
  150. 290 data177,96
  151. 291 data169,0,141,168,148,32,253,174,32,235,183,142,161,148,165,20,141,159
  152. 292 data148,165,21,141,160,148,32,253,174,32,235,183,142,164,148,166,20,142
  153. 293 data162,148,165,21,141,163,148,173,159,148,141,146,148,173,160,148,141
  154. 294 data147,148,173,161,148,141,148,148,141,151,148,173,162,148,141,149,148
  155. 295 data173,163,148,141,150,148,32,71,150,173,162,148,141,146,148,141,149
  156. 296 data148,173,163,148,141,147,148,141,150,148,173,161,148,141,148,148,173
  157. 297 data164,148,141,151,148,32,71,150,173,159,148,141,146,148,173,160,148
  158. 298 data141,147,148,173,164,148,141,148,148,141,151,148,173,162,148,141,149
  159. 299 data148,173,163,148,141,150,148,32,71,150,173,159,148,141,146,148,141
  160. 300 data149,148,173,160,148,141,147,148,141,150,148,173,164,148,141,148,148
  161. 301 data173,161,148,141,151,148,32,71,150,96,169,0,141,168,148,32,253,174
  162. 302 data32,235,183,142,161,148,165,20
  163. 303 data-1,28630
  164. 309 rem ------------- block 12 ---------
  165. 310 data141,159,148,165,21,141,160,148,32,253
  166. 311 data174,32,235,183,142,164,148,166,20,142,162,148,165,21,141,163,148
  167. 312 data173,164,148,205,161,148,176,9,174,161,148,142,164,148,141,161,148
  168. 313 data174,161,148,142,158,148,173,159,148,141,146,148,173,160,148,141,147
  169. 314 data148,173,158,148,141,148,148,141,151,148,173,162,148,141,149,148,173
  170. 315 data163,148,141,150,148,32,71,150,238,158,148,172,164,148,204,158,148
  171. 316 data176,209,96,169,0,141,168,148,32,253,174,32,235,183,142,167,148,165
  172. 317 data20,141,165,148,165,21,141,166,148,32,253,174,32,138,173,160,148,162
  173. 318 data121,32,212,187,32,253,174,32,138,173,160,148,162,126,32,212,187,169
  174. 319 data121,160,148,32,80,184,32,43,188,48,10,169,121,160,148,32,162,187
  175. 320 data76,73,153,169,126,160,148,32,162,187,169,188,160,185,32,15,187,162
  176. 321 data136,160,148,32,212,187,169,32,141,132,148,169,0,141,131
  177. 322 data-1,27969
  178. 329 rem ------------- block 13 ---------
  179. 330 data148,141,133
  180. 331 data148,141,134,148,141,135,148,32,253,174,32,138,173,160,148,162,141
  181. 332 data32,212,187,169,131,160,148,32,162,187,32,107,226,169,121,160,148
  182. 333 data32,40,186,169,17,160,191,32,103,184,32,155,188,24,165,101,109,165
  183. 334 data148,133,20,165,100,109,166,148,133,21,169,131,160,148,32,162,187
  184. 335 data32,100,226,169,126,160,148,32,40,186,169,17,160,191,32,103,184,32
  185. 336 data155,188,24,165,101,109,167,148,170,32,155,149,169,131,160,148,32
  186. 337 data162,187,169,136,160,148,32,103,184,162,131,160,148,32,212,187,169
  187. 338 data141,160,148,32,80,184,32,43,188,16,144,96,169,0,141,168,148,32,253
  188. 339 data174,32,235,183,142,148,148,165,20,141,146,148,165,21,141,147,148
  189. 340 data32,253,174,32,138,173,160,148,162,121,32,212,187,32,253,174,32,138
  190. 341 data173,160,148,162,126,32,212,187,32,253,174,32,138,173,160,148,162
  191. 342 data141,32,212,187,32
  192. 343 data-1,26198
  193. 349 rem ------------- block 14 ---------
  194. 350 data107,226,169,121,160,148,32,40,186,169,17,160,191
  195. 351 data32,103,184,32,155,188,24,165,101,109,146,148,141,149,148,165,100
  196. 352 data109,147,148,141,150,148,169,141,160,148,32,162,187,32,100,226,169
  197. 353 data126,160,148,32,40,186,169,17,160,191,32,103,184,32,155,188,24,165
  198. 354 data101,109,148,148,141,151,148,32,71,150,96,173,14,221,9,128,141,14
  199. 355 data221,173,15,221,41,127,141,15,221,162,3,169,0,157,8,221,202,16,250
  200. 356 data32,155,183,169,0,141,119,148,248,224,0,240,15,202,24,105,1,201,96
  201. 357 data144,244,238,119,148,169,0,240,237,141,120,148,216,32,237,246,240
  202. 358 data16,173,10,221,205,119,148,144,243,173,9,221,205,120,148,144,235,96
  203. 359 data32,253,174,32,212,225,162,0,160,192,169,0,133,253,169,160,133,254
  204. 360 data165,1,72,41,254,120,133,1,169,253,32,216,255,104,133,1,88,96,32,253
  205. 361 data174,32,212,225,169,97
  206. 362 data-1,26548
  207. 369 rem ------------- block 15 ---------
  208. 370 data133,185,169,0,76,213,255,169,255,141,168,148
  209. 371 data76,149,149,169,255,141,168,148,76,33,150,169,255,141,168,148,76,215
  210. 372 data151,169,255,141,168,148,76,141,152,169,255,141,168,148,76,255,152
  211. 373 data169,255,141,168,148,76,237,153,169,1,160,63,32,145,179,162,98,160
  212. 374 data148,32,212,187,32,253,174,32,138,173,162,108,160,148,32,212,187,32
  213. 375 data253,174,32,138,173,32,12,188,169,108,160,148,32,162,187,32,83,184
  214. 376 data169,98,160,148,32,15,187,162,98,160,148,32,212,187,160,199,32,162
  215. 377 data179,162,103,160,148,32,212,187,32,253,174,32,138,173,162,121,160
  216. 378 data148,32,212,187,32,253,174,32,138,173,162,113,160,148,32,212,187,169
  217. 379 data121,160,148,32,162,187,169,113,160,148,32,80,184,169,103,160,148
  218. 380 data32,15,187,162,103,160,148,32,212,187,96,169,0,141,168,148,32,253
  219. 381 data174,32,138,173,169,108,160,148,32,91,188
  220. 382 data-1,27855
  221. 389 rem ------------- block 16 ---------
  222. 390 data201,255,240,71,32,12,188
  223. 391 data169,108,160,148,32,162,187,32,83,184,169,98,160,148,32,40,186,32
  224. 392 data155,188,165,101,133,20,165,100,133,21,32,253,174,32,138,173,169,113
  225. 393 data160,148,32,91,188,201,1,240,29,169,113,160,148,32,80,184,169,103
  226. 394 data160,148,32,40,186,32,155,188,165,101,170,76,160,149,32,253,174,32
  227. 395 data138,173,96,255,169,0,141,168,148,32,253,174,32,138,173,169,108,160
  228. 396 data148,32,91,188,201,255,208,11,169,0,141,146,148,141,147,148,76,77
  229. 397 data156,32,12,188,169,108,160,148,32,162,187,32,83,184,169,98,160,148
  230. 398 data32,40,186,32,155,188,165,101,141,146,148,165,100,141,147,148,32,253
  231. 399 data174,32,138,173,169,113,160,148,32,91,188,201,1,208,8,169,0,141,148
  232. 400 data148,76,124,156,169,113,160,148,32,80,184,169,103,160,148,32,40,186
  233. 401 data32,155,188,165,101,141,148,148,32,253,174,32
  234. 402 data-1,25388
  235. 409 rem ------------- block 17 ---------
  236. 410 data138,173,169,108,160
  237. 411 data148,32,91,188,201,255,208,11,169,0,141,149,148,141,150,148,76,185
  238. 412 data156,32,12,188,169,108,160,148,32,162,187,32,83,184,169,98,160,148
  239. 413 data32,40,186,32,155,188,165,101,141,149,148,165,100,141,150,148,32,253
  240. 414 data174,32,138,173,169,113,160,148,32,91,188,201,1,208,8,169,0,141,151
  241. 415 data148,76,232,156,169,113,160,148,32,80,184,169,103,160,148,32,40,186
  242. 416 data32,155,188,165,101,141,151,148,76,71,150,169,0,141,168,148,32,253
  243. 417 data174,32,138,173,169,108,160,148,32,91,188,201,255,208,11,169,0,141
  244. 418 data159,148,141,160,148,76,45,157,32,12,188,169,108,160,148,32,162,187
  245. 419 data32,83,184,169,98,160,148,32,40,186,32,155,188,165,101,141,159,148
  246. 420 data165,100,141,160,148,32,253,174,32,138,173,169,113,160,148,32,91,188
  247. 421 data201,1,208,8,169,0,141,161,148,76,92,157,169,113
  248. 422 data-1,25577
  249. 429 rem ------------- block 18 ---------
  250. 430 data160,148,32,80,184
  251. 431 data169,103,160,148,32,40,186,32,155,188,165,101,141,161,148,32,253,174
  252. 432 data32,138,173,169,108,160,148,32,91,188,201,255,208,11,169,0,141,162
  253. 433 data148,141,163,148,76,153,157,32,12,188,169,108,160,148,32,162,187,32
  254. 434 data83,184,169,98,160,148,32,40,186,32,155,188,165,101,141,162,148,165
  255. 435 data100,141,163,148,32,253,174,32,138,173,169,113,160,148,32,91,188,201
  256. 436 data1,208,8,169,0,141,164,148,76,200,157,169,113,160,148,32,80,184,169
  257. 437 data103,160,148,32,40,186,32,155,188,165,101,141,164,148,76,253,151,0
  258. 438 data-1,16977
  259.