home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 April / 64er_Magazin_85-04_1985_Markt__Technik_de.d64 / hypra-perfekt (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  6KB  |  132 lines
  1. 10 poke56,96:poke55,0:clr
  2. 15 of=32768
  3. 20 print"[147]kopieren der rom-daten nach $6000":print
  4. 30 fori=6*4096to8*4096-1:pokei,peek(i+of):nexti
  5. 40 rem einschaltfarben setzen
  6. 50 poke58677-of,5: rem zeichen gruen
  7. 60 poke60633-of,0: rem rahmen schwarz
  8. 70 poke60634-of,0: rem hintergr. schwarz
  9. 80 print"lesen der data-zeilen":print:print
  10. 100 t=0
  11. 110 t=t+1:read a:ifa=0then240
  12. 120 read b: rem anzahl der bytes
  13. 130 read p1: rem pruefsumme
  14. 140 p2=0:print"block ";t;"  ";
  15. 150 fori=a-oftoa-of-1+b
  16. 160 readd:pokei,d:p2=p2+d
  17. 170 nexti
  18. 180 ifp2<>p1then210
  19. 190 print"   ok"
  20. 200 goto110
  21. 210 print"pruefsumme falsch: ";p2;" statt ";p1:print
  22. 220 geta$:ifa$=""then220
  23. 230 goto110
  24. 240 print:print"fertig!":end
  25. 8000 rem *** block 1: $eb3f-$eb41 ***
  26. 8001 data 60223,3,359
  27. 8002 data76,32,251
  28. 8005 rem *** block 2: $fb20-$fb68 ***
  29. 8006 data64288,73,10154
  30. 8007 data232,134,198,201,133,144,4,201,141,144,3,76,66,235,157,119,2,72,152
  31. 8008 data72,160,0,169,32,37,2,208,13,185,162,251,221,119,2,240,11,200,192
  32. 8009 data224,208,243,104,168,104,76,66,235,200,185,162,251,201,133,144,4,201
  33. 8010 data141,144,238,236,137,2,176,233,157,119,2,232,134,198,76,79,251
  34. 8015 rem *** block 3: $fba0-$fbdf ***
  35. 8016 data64416,64,5759
  36. 8017 data252,255,133,76,207,34,36,34,44,56,13,137,76,79,65,68,134,76,73,83
  37. 8018 data84,13,138,83,65,86,69,135,82,85,78,13,139,83,121,54,52,55,51,56,13
  38. 8019 data136,79,208,49,44,56,44,49,53,44,34,140,67,76,79,83,69,49,13,136,255
  39. 8020 data255,255
  40. 8100 rem *** block 4: $e5ef-$e5f5 ***
  41. 8101 data58862,8,1523
  42. 8102 data32,235,240,134,198,189,255,240
  43. 8105 rem *** block 5: $f0d9-$f0ea ***
  44. 8106 data61657,45,5377
  45. 8107 data76,207,34,58,42,34,44,56,44,49,58,88,32,8,249,76,40,245,162,0,189
  46. 8108 data216,240,32,210,255,232,224,12,208,245,162,6,120,96,234,255,255,255
  47. 8109 data13,82,85,78,58,13
  48. 8110 rem *** block 6: $f4ad-$f4b7 ***
  49. 8111 data62637,11,1586
  50. 8112 data201,4,176,7,169,8,133,186,234,234,234
  51. 8115 rem *** block 7: $f4f9-$f500 ***
  52. 8116 data62713,8,820
  53. 8117 data165,2,48,4,76,44,247,234
  54. 8120 rem *** block 8: $f5ef-$f5f9 ***
  55. 8121 data62959,11,1586
  56. 8122 data201,4,176,7,169,8,133,186,234,234,234
  57. 8125 rem *** block 9: $f72c-$f7ff ***
  58. 8126 data63276,212,31985
  59. 8127 data160,0,177,187,201,36,208,63,76,224,251,255,255,255,255,255,255,255
  60. 8128 data255,165,186,32,12,237,169,111,32,185,237,169,77,32,221,237,169,45
  61. 8129 data32,221,237,169,69,32,221,237,169,69,32,221,237,169,193,32,221,237
  62. 8130 data32,254,237,32,239,237,76,21,249,255,255,255,255,255,255,255,255,169
  63. 8131 data28,162,249,133,167,134,168,169,0,162,3,133,169,134,170,165,186,32
  64. 8132 data12,237,169,111,32,185,237,169,77,32,221,237,169,45,32,221,237,169
  65. 8133 data87,32,221,237,160,0,165,169,32,221,237,165,170,32,221,237,169,30
  66. 8134 data32,221,237,177,167,32,221,237,200,192,30,144,246,32,254,237,24,165
  67. 8135 data167,105,30,133,167,144,3,230,168,24,165,169,166,170,105,30,133,169
  68. 8136 data144,2,230,170,224,5,144,173,201,0,144,169,165,186,32,12,237,169,111
  69. 8137 data32,185,237,169,77,32,221,237,169,45,32,221,237,169,69,32,221,237
  70. 8138 data169,139,32,221,237,169,4,32,221,237,173,0,221
  71. 8140 rem *** block 10: $f800-$f8ff ***
  72. 8141 data63488,256,38681
  73. 8142 data133,171,169,239,45,17,208,141,17,208,32,128,248,32,152,248,32,63
  74. 8143 data247,8,72,166,174,164,175,104,40,88,96,32,39,248,201,255,240,248,160
  75. 8144 data0,96,169,39,141,0,221,44,0,221,80,251,169,3,141,0,221,162,7,202,208
  76. 8145 data253,234,173,0,221,42,42,102,176,106,102,176,234,234,173,0,221,42
  77. 8146 data42,102,176,106,102,176,234,234,173,0,221,42,42,102,176,106,102,176
  78. 8147 data234,234,173,0,221,42,42,102,176,106,102,176,165,176,73,255,96,234
  79. 8148 data96,234,234,234,234,234,234,234,234,234,234,234,234,234,234,234,169
  80. 8149 data3,141,0,221,32,251,237,138,162,255,234,234,234,202,208,252,170,96
  81. 8150 data234,234,234,234,234,120,169,1,133,167,160,255,32,29,248,192,255,208
  82. 8151 data3,76,228,240,32,39,248,133,169,32,39,248,133,168,165,167,240,30,32
  83. 8152 data39,248,32,39,248,169,252,234,234,164,169,208,30,198,168,198,168,198
  84. 8153 data168,169,254,24,229,168,133,170,76,229,248,165,169,208,8,198,168,169
  85. 8154 data0,76,205,248,44,169,254,133,168,160,0,32,39,248,145,174,230,174,208
  86. 8155 data2,230,175,198,168,208,241,162,0,134,167,165,169,208,159,198,170
  87. 8160 rem *** block 11: $f900-$f9ff ***
  88. 8161 data63744,256,30043
  89. 8162 data240,6,32,39,248,76,254,248,169,16,13,17,208,141,17,208,165,171,141
  90. 8163 data0,221,169,64,133,144,24,96,255,165,0,41,6,201,2,240,3,76,158,253
  91. 8164 data234,169,5,133,9,162,90,134,75,162,0,169,82,133,36,32,86,245,80,254
  92. 8165 data184,173,1,28,197,36,240,9,198,75,208,239,169,10,76,105,249,80,254
  93. 8166 data184,173,1,28,149,37,232,224,7,208,243,32,151,244,165,22,69,23,69
  94. 8167 data24,69,25,69,26,240,7,198,9,208,192,76,30,244,165,24,197,6,240,3,76
  95. 8168 data11,244,133,34,169,6,133,49,76,92,4,165,18,166,19,133,22,134,23,165
  96. 8169 data6,133,24,165,7,133,25,169,0,69,22,69,23,69,24,69,25,133,26,32,52
  97. 8170 data249,162,90,32,86,245,160,0,80,254,184,173,1,28,217,36,0,240,6,202
  98. 8171 data208,237,76,81,245,200,192,8,208,234,32,86,245,80,254,184,173,1,28
  99. 8172 data145,48,200,208,245,160,186,80,254,184,173,1,28,153,0,1,200,208,244
  100. 8173 data32,224,248,165,56,197,71,240,3,76,246,244,32,233,245,197,58,240,3
  101. 8174 data76,2,245,160,0,169,85,32,232,3,185,0,6,32,232,3,200,208,247,240
  102. 8180 rem *** block 12: $fa00-$faff ***
  103. 8181 data64000,256,29911
  104. 8182 data111,234,234,234,133,119,162,1,138,44,0,24,240,251,169,0,141,0,24
  105. 8183 data138,44,0,24,208,251,162,0,138,102,119,42,42,102,119,42,42,141,0,24
  106. 8184 data138,102,119,42,42,102,119,42,42,141,0,24,138,102,119,42,42,102,119
  107. 8185 data42,42,141,0,24,138,102,119,42,42,102,119,42,42,141,0,24,162,2,202
  108. 8186 data208,253,169,8,141,0,24,96,234,169,8,141,0,24,96,234,234,234,234,234
  109. 8187 data234,234,234,234,234,234,234,234,234,234,234,234,234,234,173,0,28
  110. 8188 data9,8,141,0,28,173,0,6,208,3,76,158,253,197,24,208,249,133,6,173,1
  111. 8189 data6,133,7,76,101,3,234,234,234,234,234,234,234,234,234,234,234,234
  112. 8190 data234,234,96,96,133,0,88,165,0,48,252,120,96,120,169,8,141,0,24,234
  113. 8191 data165,24,141,0,6,133,6,165,25,141,1,6,133,7,169,4,133,120,169,226,32
  114. 8192 data130,4,201,2,144,51,160,0,132,120,164,120,185,219,254,240,18,88,32
  115. 8193 data118,214,120,169,226,32,130,4,201,2,144,26,230,120,208,231,169,192
  116. 8194 data32,130,4,169,226,32,130,4,201,2,144,8,169,255,32,232,3,76,34,235
  117. 8195 data173,0,6,240
  118. 8200 rem *** block 13: $fb00-$fb1f ***
  119. 8201 data64256,32,4506
  120. 8202 data248,197,24,240,196,173,0,6,133,6,173,1,6,133,7,76,160,4,234,234,234
  121. 8203 data234,160,0,185,25,244,153,255,255,255,255
  122. 8210 rem *** block 14: $fbe0-$fc3f ***
  123. 8211 data64480,96,12568
  124. 8212 data165,2,41,64,240,3,76,1,245,169,13,32,210,255,234,169,0,133,144,160
  125. 8213 data2,132,169,32,19,238,133,170,32,225,255,208,3,76,51,246,164,144,208
  126. 8214 data47,32,19,238,164,144,208,40,164,169,136,208,225,166,170,32,205,189
  127. 8215 data169,32,32,210,255,32,19,238,166,144,208,18,170,240,6,32,210,255,76
  128. 8216 data30,252,169,13,32,210,255,160,2,208,190,32,66,246,166,45,164,46,96
  129. 8217 data255
  130. 9000 data 0
  131. 9010 rem **** ende ****
  132.