home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 March / 64er_Magazin_85-03_1985_Markt__Technik_de.d64 / hires-3_teil2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  10.7 KB  |  192 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 /teil 2     *
  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=32768
  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=13thenend
  17. 60 goto20
  18. 98 rem***** hires-3 datas teil 2 *******
  19. 99 rem ---------- block 1 --------------
  20. 100 data169,0,141,168,148,32,253,174,32,138,173,169,108,160,148,32,91,188
  21. 101 data201,255,208,11,169,0,141,159,148,141,160,148,76,66,128,32,12,188
  22. 102 data169,108,160,148,32,162,187,32,83,184,169,98,160,148,32,40,186,32
  23. 103 data155,188,165,101,141,159,148,165,100,141,160,148,32,253,174,32,138
  24. 104 data173,169,113,160,148,32,91,188,201,1,208,8,169,0,141,161,148,76,113
  25. 105 data128,169,113,160,148,32,80,184,169,103,160,148,32,40,186,32,155,188
  26. 106 data165,101,141,161,148,32,253,174,32,138,173,169,108,160,148,32,91,188
  27. 107 data201,255,208,11,169,0,141,162,148,141,163,148,76,174,128,32,12,188
  28. 108 data169,108,160,148,32,162,187,32,83,184,169,98,160,148,32,40,186,32
  29. 109 data155,188,165,101,141,162,148,165,100,141,163,148,32,253,174,32,138
  30. 110 data173,169,113,160,148,32,91,188,201,1,208,8,169,0,141,164,148,76,221
  31. 111 data128,169,-1,25639
  32. 118 rem
  33. 119 rem ---------- block 2 -------------
  34. 120 data113,160,148,32,80,184,169,103,160,148,32,40,186,32,155,188
  35. 121 data165,101,141,164,148,76,179,152,169,0,141,168,148,32,253,174,32,138
  36. 122 data173,32,12,188,169,108,160,148,32,162,187,32,83,184,169,98,160,148
  37. 123 data32,40,186,32,155,188,165,101,141,165,148,165,100,141,166,148,32,253
  38. 124 data174,32,138,173,169,113,160,148,32,80,184,169,103,160,148,32,40,186
  39. 125 data32,155,188,165,101,141,167,148,32,253,174,32,138,173,169,98,160,148
  40. 126 data32,40,186,160,148,162,121,32,212,187,32,253,174,32,138,173,169,103
  41. 127 data160,148,32,40,186,76,37,153,169,0,141,168,148,32,253,174,32,138,173
  42. 128 data32,12,188,169,108,160,148,32,162,187,32,83,184,169,98,160,148,32
  43. 129 data40,186,32,155,188,165,101,141,146,148,165,100,141,147,148,32,253
  44. 130 data174,32,138,173,169,113,160,148,32,80,184,169,103,160,148,32,40,186
  45. 131 data32,155,188,165,-1,25416
  46. 138 rem
  47. 139 rem ---------- block 3 -------------
  48. 140 data101,141,148,148,32,253,174,32,138,173,169,98,160,148
  49. 141 data32,40,186,160,148,162,121,32,212,187,32,253,174,32,138,173,169,103
  50. 142 data160,148,32,40,186,76,19,154,169,255,141,168,148,76,171,155,169,255
  51. 143 data141,168,148,76,16,156,169,255,141,168,148,76,240,156,169,255,141
  52. 144 data168,148,76,5,128,169,255,141,168,148,76,229,128,169,255,141,168,148
  53. 145 data76,81,129,32,173,131,134,65,133,66,32,184,131,32,173,131,134,61,133
  54. 146 data62,228,65,229,66,176,5,162,14,76,55,164,32,173,131,134,63,133,64
  55. 147 data160,1,177,67,240,55,169,255,133,21,133,20,32,107,131,32,142,166,176
  56. 148 data50,160,0,177,67,170,200,177,67,240,31,72,200,165,61,145,67,200,165
  57. 149 data62,145,67,134,67,104,133,68,165,61,24,101,63,133,61,165,62,101,64
  58. 150 data133,62,144,215,76,96,166,230,122,208,2,230,123,160,0,177,122,208
  59. 151 data19,160,-1,25261
  60. 158 rem
  61. 159 rem ---------- block 4 -------------
  62. 160 data2,177,122,240,194,165,122,24,105,5,133,122,144,235,230,123
  63. 161 data176,231,201,34,208,11,32,115,0,201,0,240,226,201,34,208,245,201,137
  64. 162 data240,23,201,141,240,19,201,167,240,15,201,138,240,11,201,203,208,190
  65. 163 data32,115,0,201,164,208,191,32,115,0,176,186,132,20,132,21,233,47,144
  66. 164 data51,170,165,21,133,34,201,25,176,237,165,20,10,38,34,10,38,34,101
  67. 165 data20,133,20,165,34,101,21,133,21,6,20,38,21,138,101,20,133,20,144,2
  68. 166 data230,21,200,177,122,201,32,240,249,201,58,144,201,165,20,197,65,165
  69. 167 data21,229,66,144,72,132,206,32,107,131,56,162,144,32,68,188,32,221,189
  70. 168 data160,255,200,185,1,1,208,250,165,122,166,123,133,95,134,96,56,152
  71. 169 data229,206,48,38,240,64,133,206,165,45,133,90,24,101,206,133,88,165
  72. 170 data46,133,91,105,0,133,89,197,56,144,6,165,88,197,55,176,-1,24243
  73. 178 rem
  74. 179 rem ---------- block 5 -------------
  75. 180 data67,32,191,163
  76. 181 data240,30,144,48,73,255,168,200,162,0,165,95,197,45,165,96,229,46,176
  77. 182 data12,177,95,129,95,230,95,208,238,230,96,208,234,160,0,185,1,1,240
  78. 183 data5,145,122,200,208,246,32,184,131,32,115,0,144,251,160,0,201,44,208
  79. 184 data2,169,137,170,76,85,130,169,69,32,210,255,208,232,165,61,166,62,133
  80. 185 data99,134,98,165,67,166,68,133,34,134,35,160,2,177,34,197,20,200,177
  81. 186 data34,229,21,176,47,160,0,177,34,170,200,177,34,134,34,133,35,177,34
  82. 187 data240,31,165,99,101,63,133,99,165,98,101,64,133,98,176,4,201,250,144
  83. 188 data209,76,255,129,32,253,174,32,107,169,166,20,165,21,96,32,51,165,24
  84. 189 data165,34,105,2,133,45,165,35,105,0,133,46,165,65,166,66,133,20,134
  85. 190 data21,32,19,166,165,95,133,67,134,68,96,165,45,164,46,133,20,132,21
  86. 191 data196,48,208,2,197,47,-1,23364
  87. 198 rem
  88. 199 rem ---------- block 6 -------------
  89. 200 data176,24,105,2,144,1,200,133,34,132,35,32,32,132
  90. 201 data32,84,132,138,16,7,32,93,132,76,15,132,96,152,48,6,32,109,132,76
  91. 202 data15,132,32,118,132,169,13,32,210,255,165,20,164,21,24,105,7,144,193
  92. 203 data200,176,190,160,0,177,20,170,41,127,32,210,255,200,177,20,168,41
  93. 204 data127,240,3,32,210,255,138,16,17,152,48,10,169,33,32,210,255,104,104
  94. 205 data76,15,132,169,37,208,78,152,16,4,169,36,208,71,96,32,210,255,169
  95. 206 data32,32,210,255,169,61,208,58,160,0,177,34,170,200,177,34,168,138,32
  96. 207 data149,179,76,112,132,32,166,187,32,221,189,76,30,171,32,149,132,160
  97. 208 data2,177,34,133,37,136,177,34,133,36,136,177,34,133,38,240,10,177,36
  98. 209 data32,210,255,200,196,38,208,246,169,34,76,210,255,0,0,0,173,14,220
  99. 210 data9,128,141,14,220,173,15,220,41,127,141,15,220,32,121,0,-1,21898
  100. 218 rem
  101. 219 rem ---------- block 7 -------------
  102. 220 data240,101,32
  103. 221 data253,174,32,158,173,32,163,182,201,6,208,107,160,0,177,34,56,233,48
  104. 222 data201,3,176,96,10,10,10,10,133,251,200,177,34,56,233,48,201,10,176
  105. 223 data80,5,251,208,4,169,146,208,15,201,36,176,68,201,19,144,7,56,248,233
  106. 224 data18,216,9,128,141,11,220,32,154,133,141,10,220,32,154,133,141,9,220
  107. 225 data169,0,141,8,220,32,121,0,240,13,32,253,174,32,158,183,224,16,176
  108. 226 data22,142,167,2,120,173,20,3,73,28,141,20,3,173,21,3,73,111,141,21,3
  109. 227 data88,96,76,72,178,165,251,72,165,252,72,173,136,2,133,252,169,0,133
  110. 228 data251,160,30,173,11,220,201,18,240,17,201,128,144,15,41,127,201,18
  111. 229 data240,9,248,24,105,18,216,208,2,169,0,32,120,133,173,10,220,32,120
  112. 230 data133,173,9,220,32,120,133,173,8,220,9,48,32,144,133,104,133,252,104
  113. 231 data133,251,76,49,234,-1,22737
  114. 238 rem
  115. 239 rem ---------- block 8 -------------
  116. 240 data72,41,240,74,74,74,74,24,105,48,32,144,133,104
  117. 241 data41,15,24,105,48,32,144,133,169,58,145,251,173,167,2,153,0,216,200
  118. 242 data96,200,177,34,56,233,48,201,6,176,134,10,10,10,10,133,251,200,177
  119. 243 data34,56,233,48,201,10,176,238,5,251,96,0,169,0,141,168,148,32,253,174
  120. 244 data32,121,0,32,19,177,176,3,76,11,175,9,128,72,230,122,165,122,208,2
  121. 245 data230,123,32,253,174,32,138,173,169,108,160,148,32,91,188,201,255,208
  122. 246 data7,169,108,160,148,32,162,187,162,121,160,148,32,212,187,32,23,134
  123. 247 data141,146,148,140,147,148,32,253,174,32,138,173,162,126,160,148,32
  124. 248 data212,187,32,23,134,141,149,148,140,150,148,76,51,134,32,12,188,169
  125. 249 data108,160,148,32,162,187,32,83,184,169,98,160,148,32,40,186,32,155
  126. 250 data188,165,101,164,100,96,104,133,69,133,16,160,0,132,70,165,45,166
  127. 251 data46,-1,23284
  128. 258 rem
  129. 259 rem ---------- block 9 -------------
  130. 260 data134,96,133,95,228,48,208,4,197,47,240,25,165,69,209,95,208,8,165
  131. 261 data70,200,209,95,240,17,136,24,165,95,105,7,144,225,232,76,64,134,162
  132. 262 data27,76,55,164,165,95,24,105,2,164,96,144,1,200,133,78,132,79,160,2
  133. 263 data177,78,133,71,200,177,78,133,72,200,177,71,72,136,16,250,169,121
  134. 264 data160,148,32,162,187,165,122,72,165,123,72,165,71,72,165,72,72,165
  135. 265 data78,72,165,79,72,160,0,104,133,79,104,133,78,177,78,133,122,200,177
  136. 266 data78,133,123,104,133,72,168,104,133,71,170,32,212,187,165,71,72,165
  137. 267 data72,72,165,78,72,165,79,72,32,138,173,169,113,160,148,32,91,188,201
  138. 268 data1,208,5,162,0,76,252,134,169,113,160,148,32,80,184,169,103,160,148
  139. 269 data32,40,186,32,155,188,165,101,170,173,146,148,133,20,173,147,148,133
  140. 270 data21,32,159,149,24,173,146,148,105,1,141,146,148,-1,23741
  141. 278 rem
  142. 279 rem ---------- block 10 ------------
  143. 280 data173,147,148,105,0
  144. 281 data141,147,148,205,150,148,208,8,173,146,148,205,149,148,240,29,173
  145. 282 data147,148,172,146,148,32,145,179,32,12,188,169,98,160,148,32,5,187
  146. 283 data169,108,160,148,32,103,184,76,163,134,104,133,79,104,133,78,104,133
  147. 284 data79,104,133,78,104,133,123,104,133,122,76,79,180,169,255,141,168,148
  148. 285 data76,189,133,169,79,162,0,141,0,4,138,141,0,216,169,80,141,39,4,138
  149. 286 data141,39,216,169,76,141,192,7,138,141,192,219,169,122,141,231,7,138
  150. 287 data141,231,219,160,0,169,119,153,1,4,138,153,1,216,200,192,38,208,242
  151. 288 data169,111,153,192,7,138,153,192,219,136,208,244,169,116,141,40,4,138
  152. 289 data141,40,216,169,79,133,251,133,253,169,4,133,252,169,216,133,254,169
  153. 290 data106,145,251,169,0,145,253,200,169,116,145,251,169,0,145,253,160,0
  154. 291 data232,224,22,240,29,24,165,251,105,40,133,251,165,-1,26846
  155. 298 rem
  156. 299 rem ---------- block 11 ------------
  157. 300 data252,105,0,133,252
  158. 301 data24,165,253,105,40,133,253,165,254,105,0,133,254,76,176,135,169,106
  159. 302 data141,191,7,169,0,141,191,219,160,0,185,254,135,240,7,32,210,255,200
  160. 303 data76,241,135,96,19,144,18,32,32,72,69,73,77,79,32,80,79,78,78,65,84
  161. 304 data72,32,32,32,86,69,82,83,73,79,78,32,49,52,46,48,54,46,49,57,56,52
  162. 305 data32,32,32,32,146,0,255,255,255,255,255,255,165,1,72,169,55,133,1,169
  163. 306 data124,162,4,160,0,132,251,132,252,140,167,2,140,176,2,140,177,2,140
  164. 307 data178,2,140,179,2,140,180,2,140,175,2,140,181,2,32,186,255,152,32,189
  165. 308 data255,32,192,255,169,125,162,4,160,5,32,186,255,32,192,255,169,126
  166. 309 data162,4,160,6,32,186,255,32,192,255,162,126,32,201,255,169,21,32,210
  167. 310 data255,32,204,255,32,121,0,201,44,208,20,32,115,0,32,138,173,32,247
  168. 311 data-1,23363
  169. 318 rem
  170. 319 rem ---------- block 12 ------------
  171. 320 data183,165,20,164,21,133,251,132,252,24,144,24,173,0,221,73,255,41,3
  172. 321 data24,106,106,106,133,252,173,24,208,41,8,10,10,5,252,133,252,32,70
  173. 322 data137,162,125,32,201,255,162,0,160,0,189,167,2,240,1,200,32,210,255
  174. 323 data232,224,8,208,242,32,204,255,162,124,32,201,255,192,0,240,18,174
  175. 324 data175,2,240,8,169,32,32,210,255,202,208,248,169,254,32,210,255,238
  176. 325 data175,2,173,175,2,201,40,208,13,238,181,2,169,0,141,175,2,169,13,32
  177. 326 data210,255,169,141,32,210,255,32,204,255,165,251,24,109,176,2,133,251
  178. 327 data144,2,230,252,173,181,2,201,25,208,150,162,126,104,133,1,32,201,255
  179. 328 data169,36,32,210,255,32,204,255,169,124,32,195,255,169,125,32,195,255
  180. 329 data169,126,32,195,255,96,169,0,141,176,2,169,0,141,178,2,240,69,208
  181. 330 data18,173,178,2,172,176,2,153,167,2,200,140,176,-1,26734
  182. 338 rem
  183. 339 rem ---------- block 13 ------------
  184. 340 data2,192,8,208,230,96,120
  185. 341 data169,48,133,1,169,0,141,177,2,169,1,208,35,172,177,2,177,251,45,179
  186. 342 data2,240,10,173,178,2,24,109,180,2,141,178,2,200,140,177,2,192,8,208
  187. 343 data224,169,55,133,1,88,208,189,160,1,72,170,169,7,56,253,176,2,240,7
  188. 344 data170,152,10,202,208,252,168,104,170,152,157,179,2,224,1,208,158,240
  189. 345 data190,255,255,-1,11117
  190. 349 rem
  191. 350 rem ----------- das war's ----------
  192.