home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8506c.d64 / hypra-perfekt (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.