1 REM ********************************* 2 REM * MINAS GUNDUR * 3 REM * GESCHRIEBEN 1986/87 * 4 REM * VON PHILIPP KOEHN * 5 REM * FUER TRONIC VERLAG GMBH * 6 REM ********************************* 7 : 10 FOR I=49152 TO 49242 30 READ A 40 POKE I,A 50 NEXT I:SYS 49152 60 SYS 49201 100 DATA 120,169,51,133,1,169,0,133,95,133,90,133,88,169,208,133,96,169,224 101 DATA 133,91,169,240,133,89,32,191,163,169,55,133,1,88,169,24,141,24,208 102 DATA 169,148,141,0,221,169,196,141,136,2,96 103 DATA 169,0,133,95,133,90,133,88,169,160,133,96,169,192,133,89,133,91,32 104 DATA 191,163,169,85,141,161,168,169,192,141,162,168,169,54,133,1,96,32 105 DATA 138,173,76,247,183 110 PRINTCHR$(142)"[147]DATA LADER - BITTE WARTEN" 111 POKE 53280,0:POKE 53281,0 120 ADR=59392 130 FOR I=1 TO 128 140 PRINT "[145]"I*10+990;:S=0 150 FOR J=0 TO 15 160 READ D:S=S+D:POKEADR,D 170 ADR=ADR+1:NEXT J 180 READ C:IF S<>C THEN PRINT"FEHLER!":END 190 PRINT"OK":NEXT I 200 GOTO 2290 1000 DATA 0,102,0,60,110,102,60,0,0,0,124,142,126,206,123,0, 1155 1010 DATA 0,248,96,124,102,118,220,0,0,0,60,102,96,224,126,0, 1516 1020 DATA 0,31,6,62,102,102,59,0,0,0,62,102,124,227,126,0, 1003 1030 DATA 14,27,24,62,24,24,60,24,0,3,62,102,102,63,198,124, 913 1040 DATA 216,96,96,124,102,230,102,12,24,48,0,56,24,60,24,0, 1214 1050 DATA 12,0,12,30,12,12,12,24,224,96,124,102,124,108,238,0, 1130 1060 DATA 54,28,24,24,24,60,24,0,0,0,238,255,219,219,219,0, 1388 1070 DATA 0,0,236,254,102,102,239,0,0,0,60,110,102,102,60,0, 1367 1080 DATA 0,0,220,102,102,252,112,216,0,0,118,204,204,124,28,54, 1736 1090 DATA 0,0,236,118,96,240,96,0,12,6,126,192,124,7,126,192, 1571 1100 DATA 24,56,126,24,24,28,56,0,0,0,239,102,102,126,55,0, 962 1110 DATA 0,0,198,198,198,108,56,0,0,0,102,195,219,255,110,0, 1639 1120 DATA 0,0,110,56,24,28,118,0,0,0,239,118,102,124,96,60, 1075 1130 DATA 0,0,126,12,56,124,6,124,0,0,24,0,0,24,0,0, 496 1140 DATA 0,238,0,239,102,126,55,0,0,0,12,0,0,12,12,24, 820 1150 DATA 108,0,124,134,126,198,123,0,60,102,102,108,102,102,108,192, 1689 1160 DATA 0,0,0,0,0,0,0,0,48,24,24,24,24,0,24,0, 168 1170 DATA 102,102,102,102,0,0,0,0,0,216,108,54,108,216,0,0, 1110 1180 DATA 0,54,108,216,108,54,0,0,99,102,12,24,51,99,0,0, 927 1190 DATA 126,231,219,223,219,231,126,0,6,12,24,0,0,0,0,0, 1417 1200 DATA 12,24,48,48,48,24,12,0,48,24,12,12,12,24,48,0, 396 1210 DATA 0,102,24,126,24,102,0,0,0,24,24,126,24,24,0,0, 600 1220 DATA 0,0,0,0,0,24,24,48,0,0,0,255,0,0,0,0, 351 1230 DATA 0,0,0,0,0,24,24,0,0,3,6,12,24,48,96,0, 237 1240 DATA 60,102,102,102,102,102,60,0,24,56,120,24,24,24,126,0, 1028 1250 DATA 60,102,6,12,24,51,126,0,126,6,12,28,6,6,124,0, 689 1260 DATA 192,96,108,108,126,12,12,0,30,48,96,124,6,6,124,0, 1088 1270 DATA 12,24,48,124,102,102,60,0,126,102,12,62,24,48,48,0, 894 1280 DATA 56,108,56,124,198,198,124,0,60,102,102,62,12,24,48,0, 1274 1290 DATA 0,0,24,0,0,24,0,0,0,0,24,0,0,24,24,48, 168 1300 DATA 0,0,0,0,0,24,24,48,0,0,126,0,126,0,0,0, 348 1310 DATA 224,48,24,252,24,48,224,0,120,204,198,12,24,0,56,0, 1458 1320 DATA 0,0,0,127,0,0,0,0,126,158,54,102,126,198,198,0, 1089 1330 DATA 252,102,100,238,102,102,120,192,60,110,200,200,200,104,62,0, 2144 1340 DATA 252,102,102,230,102,108,248,0,108,218,216,222,216,242,124,0, 2490 1350 DATA 31,124,238,108,108,108,248,0,62,112,215,219,211,118,60,0, 1962 1360 DATA 252,96,110,251,115,227,99,230,126,12,28,60,28,28,56,0, 1718 1370 DATA 255,198,30,14,30,6,124,192,240,48,102,236,120,236,126,198, 2155 1380 DATA 244,104,232,104,232,107,126,198,126,219,219,255,219,219,195,0, 2799 1390 DATA 56,108,230,102,230,108,206,0,60,118,214,222,214,214,124,0, 2206 1400 DATA 204,118,230,246,102,252,108,96,60,118,214,222,214,214,123,0, 2521 1410 DATA 236,118,99,230,236,102,243,0,126,226,188,214,123,142,252,0, 2535 1420 DATA 126,184,120,216,216,214,124,0,197,102,198,198,198,206,118,0, 2417 1430 DATA 247,118,214,214,214,124,120,0,246,126,214,214,214,222,119,0, 2606 1440 DATA 195,108,56,252,56,108,198,0,220,70,230,102,230,124,192,126, 2267 1450 DATA 254,198,28,254,112,195,254,0,0,0,0,0,0,255,255,255, 2060 1460 DATA 54,54,108,0,0,0,0,0,126,24,24,24,24,24,126,0, 588 1470 DATA 54,126,182,102,126,198,198,0,255,127,63,31,15,7,3,1, 1488 1480 DATA 0,0,0,0,0,0,0,0,0,120,0,120,24,24,126,0, 414 1490 DATA 24,48,0,120,24,24,126,0,108,0,0,30,54,102,199,0, 859 1500 DATA 0,0,0,0,0,0,0,255,0,0,48,48,48,58,127,12, 596 1510 DATA 0,0,0,0,0,54,54,108,3,3,3,3,3,3,3,3, 240 1520 DATA 0,0,0,54,54,54,255,0,54,0,109,198,198,206,118,0, 1300 1530 DATA 3,3,3,3,3,3,3,3,102,0,60,102,126,96,60,0, 570 1540 DATA 126,0,60,102,126,96,62,0,124,0,120,12,124,204,126,0, 1282 1550 DATA 0,0,0,248,248,24,24,24,0,0,0,0,0,0,255,255, 1078 1560 DATA 24,48,120,12,124,204,126,0,12,24,60,102,126,96,62,0, 1140 1570 DATA 0,0,0,255,255,24,24,24,24,48,254,102,248,102,254,0, 1614 1580 DATA 0,0,0,0,0,0,0,0,0,126,0,102,102,102,62,0, 494 1590 DATA 0,126,0,60,102,102,60,0,255,255,0,0,0,0,0,0, 960 1600 DATA 12,24,238,102,102,102,62,0,12,24,60,102,102,102,60,0, 1104 1610 DATA 198,60,118,214,222,214,124,0,255,255,255,255,255,255,255,255, 3190 1620 DATA 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, 4080 1630 DATA 240,240,240,240,0,0,0,0,255,255,255,255,255,255,255,255, 3000 1640 DATA 31,127,195,99,7,7,14,14,134,204,236,252,124,60,60,60, 1624 1650 DATA 31,28,60,62,123,241,240,0,252,60,60,124,254,156,24,0, 1715 1660 DATA 63,255,206,29,29,59,123,251,184,124,206,134,134,28,240,248, 2313 1670 DATA 221,29,125,253,223,63,113,224,156,140,252,140,158,248,240,0, 2585 1680 DATA 0,25,51,103,110,206,206,206,192,240,252,204,192,192,192,192, 2563 1690 DATA 206,236,120,124,63,15,3,0,192,192,192,206,252,248,224,0, 2273 1700 DATA 255,127,13,27,27,59,27,123,240,248,252,188,60,60,252,60, 2018 1710 DATA 251,59,59,115,239,223,48,0,252,56,120,240,224,128,0,0, 2014 1720 DATA 28,49,99,103,231,231,231,231,192,240,124,94,76,88,126,126, 2269 1730 DATA 231,231,102,124,63,15,0,0,64,64,70,92,248,224,0,0, 1528 1740 DATA 0,56,63,61,125,253,221,29,96,254,255,224,224,252,248,224, 2585 1750 DATA 29,29,29,27,119,255,222,0,224,224,224,192,192,128,0,0, 1894 1760 DATA 7,31,62,110,110,238,238,239,192,240,252,56,0,24,124,206, 2129 1770 DATA 238,238,110,108,56,31,7,0,206,254,206,220,248,240,192,0, 2354 1780 DATA 254,253,27,59,51,55,246,246,240,240,128,128,152,60,110,199, 2448 1790 DATA 55,55,246,247,54,55,127,192,143,255,15,255,15,238,206,24, 2182 1800 DATA 31,63,3,7,7,7,31,63,220,176,112,112,112,112,112,112, 1280 1810 DATA 7,7,7,14,48,127,0,0,112,112,112,112,224,192,0,0, 1074 1820 DATA 63,255,192,216,113,3,0,0,255,252,59,54,238,238,238,238, 2414 1830 DATA 3,7,1,1,3,127,255,192,238,238,222,188,188,120,224,0, 2007 1840 DATA 126,253,205,13,29,29,125,253,192,128,128,128,128,152,188,238, 2315 1850 DATA 29,29,125,253,57,103,255,0,204,152,184,248,156,239,246,0, 2280 1860 DATA 127,255,206,29,125,253,29,29,184,112,224,192,128,128,128,128, 2277 1870 DATA 125,253,29,27,63,127,192,0,128,128,128,0,227,255,62,0, 1744 1880 DATA 14,30,63,57,57,57,57,121,120,251,254,206,206,206,206,206, 2111 1890 DATA 255,57,57,57,57,123,241,0,254,206,206,206,206,239,206,0, 2370 1900 DATA 3,15,59,59,251,123,59,251,240,248,60,30,14,14,14,28, 1468 1910 DATA 123,59,59,59,59,243,254,0,28,56,56,48,118,126,126,0, 1414 1920 DATA 7,15,31,55,119,247,231,231,224,248,60,30,30,254,14,14, 1810 1930 DATA 231,231,247,118,124,63,15,0,14,254,14,28,60,248,224,0, 1871 1940 DATA 97,249,31,31,125,253,29,29,128,240,248,188,156,252,152,252, 2460 1950 DATA 29,29,127,255,221,29,29,31,156,156,248,240,128,128,128,0, 1934 1960 DATA 7,15,30,62,118,231,230,230,192,240,120,56,60,252,60,60, 1963 1970 DATA 230,231,118,127,63,15,0,0,60,252,56,120,243,254,204,0, 1973 1980 DATA 112,249,59,63,59,123,251,123,224,240,56,28,14,12,24,48, 1685 1990 DATA 59,59,59,59,59,127,255,0,224,224,112,112,59,62,28,0, 1498 2000 DATA 31,63,124,124,239,199,225,123,254,252,24,48,224,248,188,28, 2394 2010 DATA 63,63,24,48,97,255,255,0,204,204,220,248,248,240,192,0, 2361 2020 DATA 31,127,239,15,31,59,115,115,254,252,96,96,96,96,96,96, 1814 2030 DATA 115,115,115,118,63,15,0,0,96,96,96,102,252,240,0,0, 1423 2040 DATA 255,255,31,59,123,115,243,243,27,62,60,60,252,60,60,60, 1965 2050 DATA 243,243,115,123,63,15,0,0,252,60,60,124,236,222,12,0, 1768 2060 DATA 96,223,31,61,59,123,119,118,216,220,142,134,6,6,198,230, 1982 2070 DATA 118,54,54,54,62,127,192,0,6,12,24,48,96,192,0,0, 1039 2080 DATA 124,253,60,125,239,206,206,206,239,255,238,238,110,110,110,110, 2829 2090 DATA 206,207,207,109,109,63,12,0,110,110,110,238,239,126,60,0, 1906 2100 DATA 112,248,60,30,15,7,63,127,12,30,54,96,192,192,248,240, 1726 2110 DATA 7,15,25,48,224,192,0,0,192,224,246,252,120,48,0,0, 1593 2120 DATA 225,247,123,59,251,123,59,59,192,112,56,56,252,60,60,252, 2186 2130 DATA 251,123,63,127,224,224,127,0,60,60,248,240,0,248,204,0, 2199 2140 DATA 63,127,224,0,0,1,63,7,255,254,60,120,240,224,248,128, 2014 2150 DATA 127,30,60,120,255,255,0,0,224,0,0,6,254,252,0,0, 1583 2160 DATA 255,255,255,201,201,201,0,255,57,255,57,57,57,57,129,255, 2547 2170 DATA 252,252,252,252,252,252,252,252,153,255,195,153,129,159,195,255, 3510 2180 DATA 129,255,195,153,129,159,193,255,131,255,135,243,131,51,129,255, 2798 2190 DATA 255,255,255,7,7,231,231,231,255,255,255,255,255,255,0,0, 3002 2200 DATA 231,207,135,243,131,51,129,255,243,231,195,153,129,159,193,255, 2940 2210 DATA 255,255,255,0,0,231,231,231,231,207,1,153,7,153,1,255, 2466 2220 DATA 255,255,255,255,255,255,255,255,255,129,255,153,153,153,193,255, 3586 2230 DATA 255,129,255,195,153,153,195,255,0,0,255,255,255,255,255,255, 3120 2240 DATA 243,231,17,153,153,153,193,255,243,231,195,153,153,153,195,255, 2976 2250 DATA 57,131,57,57,57,57,131,255,0,0,0,0,0,0,0,0, 802 2260 DATA 0,0,0,0,0,0,0,0,255,207,135,243,131,51,129,255, 1406 2270 DATA 15,15,15,15,255,255,255,255,255,153,255,195,153,153,195,255, 2694 2280 REM 2290 IF PEEK(186)<>8 THENPOKE631,131:POKE198,1:NEW 2300 PRINT"[147]LOAD";CHR$(34);"MAIN";CHR$(34);",8" 2310 PRINT"RUN" 2320 POKE198,3:POKE631,19:POKE632,13:POKE633,13:NEW