home *** CD-ROM | disk | FTP | other *** search
/ Dimension 64 15 / Dimension_64_Nr.15_19xx_-_de_Side_B.d64 / min.gundur (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  9KB  |  163 lines
  1. 1 rem *********************************
  2. 2 rem *          minas gundur         *
  3. 3 rem *      geschrieben 1986/87      *
  4. 4 rem *       von philipp koehn       *
  5. 5 rem *    fuer tronic verlag gmbh    *
  6. 6 rem *********************************
  7. 7 :
  8. 10 for i=49152 to 49242
  9. 30 read a
  10. 40 poke i,a
  11. 50 next i:sys 49152
  12. 60 sys 49201
  13. 100 data 120,169,51,133,1,169,0,133,95,133,90,133,88,169,208,133,96,169,224
  14. 101 data 133,91,169,240,133,89,32,191,163,169,55,133,1,88,169,24,141,24,208
  15. 102 data 169,148,141,0,221,169,196,141,136,2,96
  16. 103 data 169,0,133,95,133,90,133,88,169,160,133,96,169,192,133,89,133,91,32
  17. 104 data 191,163,169,85,141,161,168,169,192,141,162,168,169,54,133,1,96,32
  18. 105 data 138,173,76,247,183
  19. 110 printchr$(142)"[147]data lader - bitte warten"
  20. 111 poke 53280,0:poke 53281,0
  21. 120 adr=59392
  22. 130 for i=1 to 128
  23. 140 print "[145]"i*10+990;:s=0
  24. 150 for j=0 to 15
  25. 160 read d:s=s+d:pokeadr,d
  26. 170 adr=adr+1:next j
  27. 180 read c:if s<>c then print"fehler!":end
  28. 190 print"ok":next i
  29. 200 goto 2290
  30. 1000 data 0,102,0,60,110,102,60,0,0,0,124,142,126,206,123,0, 1155
  31. 1010 data 0,248,96,124,102,118,220,0,0,0,60,102,96,224,126,0, 1516
  32. 1020 data 0,31,6,62,102,102,59,0,0,0,62,102,124,227,126,0, 1003
  33. 1030 data 14,27,24,62,24,24,60,24,0,3,62,102,102,63,198,124, 913
  34. 1040 data 216,96,96,124,102,230,102,12,24,48,0,56,24,60,24,0, 1214
  35. 1050 data 12,0,12,30,12,12,12,24,224,96,124,102,124,108,238,0, 1130
  36. 1060 data 54,28,24,24,24,60,24,0,0,0,238,255,219,219,219,0, 1388
  37. 1070 data 0,0,236,254,102,102,239,0,0,0,60,110,102,102,60,0, 1367
  38. 1080 data 0,0,220,102,102,252,112,216,0,0,118,204,204,124,28,54, 1736
  39. 1090 data 0,0,236,118,96,240,96,0,12,6,126,192,124,7,126,192, 1571
  40. 1100 data 24,56,126,24,24,28,56,0,0,0,239,102,102,126,55,0, 962
  41. 1110 data 0,0,198,198,198,108,56,0,0,0,102,195,219,255,110,0, 1639
  42. 1120 data 0,0,110,56,24,28,118,0,0,0,239,118,102,124,96,60, 1075
  43. 1130 data 0,0,126,12,56,124,6,124,0,0,24,0,0,24,0,0, 496
  44. 1140 data 0,238,0,239,102,126,55,0,0,0,12,0,0,12,12,24, 820
  45. 1150 data 108,0,124,134,126,198,123,0,60,102,102,108,102,102,108,192, 1689
  46. 1160 data 0,0,0,0,0,0,0,0,48,24,24,24,24,0,24,0, 168
  47. 1170 data 102,102,102,102,0,0,0,0,0,216,108,54,108,216,0,0, 1110
  48. 1180 data 0,54,108,216,108,54,0,0,99,102,12,24,51,99,0,0, 927
  49. 1190 data 126,231,219,223,219,231,126,0,6,12,24,0,0,0,0,0, 1417
  50. 1200 data 12,24,48,48,48,24,12,0,48,24,12,12,12,24,48,0, 396
  51. 1210 data 0,102,24,126,24,102,0,0,0,24,24,126,24,24,0,0, 600
  52. 1220 data 0,0,0,0,0,24,24,48,0,0,0,255,0,0,0,0, 351
  53. 1230 data 0,0,0,0,0,24,24,0,0,3,6,12,24,48,96,0, 237
  54. 1240 data 60,102,102,102,102,102,60,0,24,56,120,24,24,24,126,0, 1028
  55. 1250 data 60,102,6,12,24,51,126,0,126,6,12,28,6,6,124,0, 689
  56. 1260 data 192,96,108,108,126,12,12,0,30,48,96,124,6,6,124,0, 1088
  57. 1270 data 12,24,48,124,102,102,60,0,126,102,12,62,24,48,48,0, 894
  58. 1280 data 56,108,56,124,198,198,124,0,60,102,102,62,12,24,48,0, 1274
  59. 1290 data 0,0,24,0,0,24,0,0,0,0,24,0,0,24,24,48, 168
  60. 1300 data 0,0,0,0,0,24,24,48,0,0,126,0,126,0,0,0, 348
  61. 1310 data 224,48,24,252,24,48,224,0,120,204,198,12,24,0,56,0, 1458
  62. 1320 data 0,0,0,127,0,0,0,0,126,158,54,102,126,198,198,0, 1089
  63. 1330 data 252,102,100,238,102,102,120,192,60,110,200,200,200,104,62,0, 2144
  64. 1340 data 252,102,102,230,102,108,248,0,108,218,216,222,216,242,124,0, 2490
  65. 1350 data 31,124,238,108,108,108,248,0,62,112,215,219,211,118,60,0, 1962
  66. 1360 data 252,96,110,251,115,227,99,230,126,12,28,60,28,28,56,0, 1718
  67. 1370 data 255,198,30,14,30,6,124,192,240,48,102,236,120,236,126,198, 2155
  68. 1380 data 244,104,232,104,232,107,126,198,126,219,219,255,219,219,195,0, 2799
  69. 1390 data 56,108,230,102,230,108,206,0,60,118,214,222,214,214,124,0, 2206
  70. 1400 data 204,118,230,246,102,252,108,96,60,118,214,222,214,214,123,0, 2521
  71. 1410 data 236,118,99,230,236,102,243,0,126,226,188,214,123,142,252,0, 2535
  72. 1420 data 126,184,120,216,216,214,124,0,197,102,198,198,198,206,118,0, 2417
  73. 1430 data 247,118,214,214,214,124,120,0,246,126,214,214,214,222,119,0, 2606
  74. 1440 data 195,108,56,252,56,108,198,0,220,70,230,102,230,124,192,126, 2267
  75. 1450 data 254,198,28,254,112,195,254,0,0,0,0,0,0,255,255,255, 2060
  76. 1460 data 54,54,108,0,0,0,0,0,126,24,24,24,24,24,126,0, 588
  77. 1470 data 54,126,182,102,126,198,198,0,255,127,63,31,15,7,3,1, 1488
  78. 1480 data 0,0,0,0,0,0,0,0,0,120,0,120,24,24,126,0, 414
  79. 1490 data 24,48,0,120,24,24,126,0,108,0,0,30,54,102,199,0, 859
  80. 1500 data 0,0,0,0,0,0,0,255,0,0,48,48,48,58,127,12, 596
  81. 1510 data 0,0,0,0,0,54,54,108,3,3,3,3,3,3,3,3, 240
  82. 1520 data 0,0,0,54,54,54,255,0,54,0,109,198,198,206,118,0, 1300
  83. 1530 data 3,3,3,3,3,3,3,3,102,0,60,102,126,96,60,0, 570
  84. 1540 data 126,0,60,102,126,96,62,0,124,0,120,12,124,204,126,0, 1282
  85. 1550 data 0,0,0,248,248,24,24,24,0,0,0,0,0,0,255,255, 1078
  86. 1560 data 24,48,120,12,124,204,126,0,12,24,60,102,126,96,62,0, 1140
  87. 1570 data 0,0,0,255,255,24,24,24,24,48,254,102,248,102,254,0, 1614
  88. 1580 data 0,0,0,0,0,0,0,0,0,126,0,102,102,102,62,0, 494
  89. 1590 data 0,126,0,60,102,102,60,0,255,255,0,0,0,0,0,0, 960
  90. 1600 data 12,24,238,102,102,102,62,0,12,24,60,102,102,102,60,0, 1104
  91. 1610 data 198,60,118,214,222,214,124,0,255,255,255,255,255,255,255,255, 3190
  92. 1620 data 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, 4080
  93. 1630 data 240,240,240,240,0,0,0,0,255,255,255,255,255,255,255,255, 3000
  94. 1640 data 31,127,195,99,7,7,14,14,134,204,236,252,124,60,60,60, 1624
  95. 1650 data 31,28,60,62,123,241,240,0,252,60,60,124,254,156,24,0, 1715
  96. 1660 data 63,255,206,29,29,59,123,251,184,124,206,134,134,28,240,248, 2313
  97. 1670 data 221,29,125,253,223,63,113,224,156,140,252,140,158,248,240,0, 2585
  98. 1680 data 0,25,51,103,110,206,206,206,192,240,252,204,192,192,192,192, 2563
  99. 1690 data 206,236,120,124,63,15,3,0,192,192,192,206,252,248,224,0, 2273
  100. 1700 data 255,127,13,27,27,59,27,123,240,248,252,188,60,60,252,60, 2018
  101. 1710 data 251,59,59,115,239,223,48,0,252,56,120,240,224,128,0,0, 2014
  102. 1720 data 28,49,99,103,231,231,231,231,192,240,124,94,76,88,126,126, 2269
  103. 1730 data 231,231,102,124,63,15,0,0,64,64,70,92,248,224,0,0, 1528
  104. 1740 data 0,56,63,61,125,253,221,29,96,254,255,224,224,252,248,224, 2585
  105. 1750 data 29,29,29,27,119,255,222,0,224,224,224,192,192,128,0,0, 1894
  106. 1760 data 7,31,62,110,110,238,238,239,192,240,252,56,0,24,124,206, 2129
  107. 1770 data 238,238,110,108,56,31,7,0,206,254,206,220,248,240,192,0, 2354
  108. 1780 data 254,253,27,59,51,55,246,246,240,240,128,128,152,60,110,199, 2448
  109. 1790 data 55,55,246,247,54,55,127,192,143,255,15,255,15,238,206,24, 2182
  110. 1800 data 31,63,3,7,7,7,31,63,220,176,112,112,112,112,112,112, 1280
  111. 1810 data 7,7,7,14,48,127,0,0,112,112,112,112,224,192,0,0, 1074
  112. 1820 data 63,255,192,216,113,3,0,0,255,252,59,54,238,238,238,238, 2414
  113. 1830 data 3,7,1,1,3,127,255,192,238,238,222,188,188,120,224,0, 2007
  114. 1840 data 126,253,205,13,29,29,125,253,192,128,128,128,128,152,188,238, 2315
  115. 1850 data 29,29,125,253,57,103,255,0,204,152,184,248,156,239,246,0, 2280
  116. 1860 data 127,255,206,29,125,253,29,29,184,112,224,192,128,128,128,128, 2277
  117. 1870 data 125,253,29,27,63,127,192,0,128,128,128,0,227,255,62,0, 1744
  118. 1880 data 14,30,63,57,57,57,57,121,120,251,254,206,206,206,206,206, 2111
  119. 1890 data 255,57,57,57,57,123,241,0,254,206,206,206,206,239,206,0, 2370
  120. 1900 data 3,15,59,59,251,123,59,251,240,248,60,30,14,14,14,28, 1468
  121. 1910 data 123,59,59,59,59,243,254,0,28,56,56,48,118,126,126,0, 1414
  122. 1920 data 7,15,31,55,119,247,231,231,224,248,60,30,30,254,14,14, 1810
  123. 1930 data 231,231,247,118,124,63,15,0,14,254,14,28,60,248,224,0, 1871
  124. 1940 data 97,249,31,31,125,253,29,29,128,240,248,188,156,252,152,252, 2460
  125. 1950 data 29,29,127,255,221,29,29,31,156,156,248,240,128,128,128,0, 1934
  126. 1960 data 7,15,30,62,118,231,230,230,192,240,120,56,60,252,60,60, 1963
  127. 1970 data 230,231,118,127,63,15,0,0,60,252,56,120,243,254,204,0, 1973
  128. 1980 data 112,249,59,63,59,123,251,123,224,240,56,28,14,12,24,48, 1685
  129. 1990 data 59,59,59,59,59,127,255,0,224,224,112,112,59,62,28,0, 1498
  130. 2000 data 31,63,124,124,239,199,225,123,254,252,24,48,224,248,188,28, 2394
  131. 2010 data 63,63,24,48,97,255,255,0,204,204,220,248,248,240,192,0, 2361
  132. 2020 data 31,127,239,15,31,59,115,115,254,252,96,96,96,96,96,96, 1814
  133. 2030 data 115,115,115,118,63,15,0,0,96,96,96,102,252,240,0,0, 1423
  134. 2040 data 255,255,31,59,123,115,243,243,27,62,60,60,252,60,60,60, 1965
  135. 2050 data 243,243,115,123,63,15,0,0,252,60,60,124,236,222,12,0, 1768
  136. 2060 data 96,223,31,61,59,123,119,118,216,220,142,134,6,6,198,230, 1982
  137. 2070 data 118,54,54,54,62,127,192,0,6,12,24,48,96,192,0,0, 1039
  138. 2080 data 124,253,60,125,239,206,206,206,239,255,238,238,110,110,110,110, 2829
  139. 2090 data 206,207,207,109,109,63,12,0,110,110,110,238,239,126,60,0, 1906
  140. 2100 data 112,248,60,30,15,7,63,127,12,30,54,96,192,192,248,240, 1726
  141. 2110 data 7,15,25,48,224,192,0,0,192,224,246,252,120,48,0,0, 1593
  142. 2120 data 225,247,123,59,251,123,59,59,192,112,56,56,252,60,60,252, 2186
  143. 2130 data 251,123,63,127,224,224,127,0,60,60,248,240,0,248,204,0, 2199
  144. 2140 data 63,127,224,0,0,1,63,7,255,254,60,120,240,224,248,128, 2014
  145. 2150 data 127,30,60,120,255,255,0,0,224,0,0,6,254,252,0,0, 1583
  146. 2160 data 255,255,255,201,201,201,0,255,57,255,57,57,57,57,129,255, 2547
  147. 2170 data 252,252,252,252,252,252,252,252,153,255,195,153,129,159,195,255, 3510
  148. 2180 data 129,255,195,153,129,159,193,255,131,255,135,243,131,51,129,255, 2798
  149. 2190 data 255,255,255,7,7,231,231,231,255,255,255,255,255,255,0,0, 3002
  150. 2200 data 231,207,135,243,131,51,129,255,243,231,195,153,129,159,193,255, 2940
  151. 2210 data 255,255,255,0,0,231,231,231,231,207,1,153,7,153,1,255, 2466
  152. 2220 data 255,255,255,255,255,255,255,255,255,129,255,153,153,153,193,255, 3586
  153. 2230 data 255,129,255,195,153,153,195,255,0,0,255,255,255,255,255,255, 3120
  154. 2240 data 243,231,17,153,153,153,193,255,243,231,195,153,153,153,195,255, 2976
  155. 2250 data 57,131,57,57,57,57,131,255,0,0,0,0,0,0,0,0, 802
  156. 2260 data 0,0,0,0,0,0,0,0,255,207,135,243,131,51,129,255, 1406
  157. 2270 data 15,15,15,15,255,255,255,255,255,153,255,195,153,153,195,255, 2694
  158. 2280 rem
  159. 2290 if peek(186)<>8 thenpoke631,131:poke198,1:new
  160. 2300 print"[147]load";chr$(34);"main";chr$(34);",8"
  161. 2310 print"run"
  162. 2320 poke198,3:poke631,19:poke632,13:poke633,13:new
  163.