100 REM *** MARIO - EIN ADVENTURE FUER DEN COMMODORE 64 ***
110 REM BY HARALD BORNFLETH & HERBERT GROSSER
120 PRINT"[147]           EINEN MOMENT BITTE           ";
130 PRINTCHR$(8): IFLV=0THENLV=1:LOAD"SCR/1",8,1
140 SYS49152:DIM A(23,63),A$(10),C(6,12),D(6,12),E(6,12):VI=53248:X=-2:Y=3
150 GOSUB 4510
160 PRINT"           EINEN MOMENT BITTE           ";
170 IFM7>0THEN1220
180 FORLV=1TO54:READA(23,LV):NEXT
190 DATA,127,2,,255,2,,255,2,1,231,2,1,231,130,1,227,194,1,227,194,3,195,194,3
200 DATA195,194,3,193,228,3,193,226,3,193,226,7,129,225,7,128,241,7,128,241
210 DATA7,128,241,15,,121,15,,121
220 FORLV=1TO63:READA(0,LV):NEXT
230 DATA,62,,,127,,,107,,,62,,,62,,,28,,1,255,128,3,255,192,7,255,224,6,127,96,6
240 DATA126,96,6,126,96,6,126,96,6,126,96,6,126,96,6,126,96,6,126,96,6,126,96
250 DATA255,126,248,6,126,100,,126,4
260 FOR LV=1TO49:READA(1,LV):NEXT
270 DATA0,0,1,0,0,3,0,0,3,0,0,7,0,0,7,0,4,15,0,14,15,0,14,31,0,31,31,0,31,63
280 DATA0,63,191,8,63,255,28,127,255,60,127,255,62,255,255,126,255,255,127
290 FORLV=50TO63
300 A(1,LV)=255
310 NEXT
320 FORLV=1TO30:READA(2,LV):NEXT
330 DATA128,0,3,192,0,7,224,0,15,240,0,15,248,0,31,252,4,63,254,14,63,255,15
340 DATA127,255,159,255,255,223,255
350 FORLV=31 TO63:A(2,LV)=255:NEXT
360 FORLV=28TO54:READA(3,LV):NEXT
370 DATA0,126,0,3,255,192,7,255,224,15,255,240,31,255,248,63,255,252,127,255
380 DATA254,127,255,254,127,255,254
390 FORLV=55TO63:A(3,LV)=255:NEXT
400 FORLV=46TO63:READA(4,LV):NEXT
410 DATA0,224,0,1,252,0,1,255,0,1,255,128,1,255,128,1,255,128
420 FORLV=46TO63:READA(5,LV):NEXT
430 DATA0,7,0,0,63,128,0,255,128,1,255,128,1,255,128,1,255,128
440 FORLV=10TO63:READA(6,LV):NEXT
450 DATA0,60,0,1,255,128,3,60,192,6,219,96,14,219,112,15,60,240,31,255,248
460 DATA35,255,196,66,36,66,132,66,33,136,66,17,136,129,17,144,129,9,144,129,9
470 DATA144,129,9,144,129,9,144,129,9,144,129,9
480 FORLV=1TO63:READA(7,LV):NEXT
490 DATA8,28,8,8,62,28,8,127,62,8,42,8,8,62,8,8,34,8,8,62,8,28,28,8,31,255,252
500 DATA31,255,252,8,127,8,,127,8,,127,8,,127,8,,127,8,,119,8,,99,8,,99,8,,99,8
510 DATA,99,8,3,227,232
520 FOR LV=19TO48:READA(8,LV):NEXT
530 DATA3,231,192,7,255,224,15,255,240,31,255,248,63,255,252,127,255,254,253
540 DATA255,191,121,255,159,49,255,142,1,255,232
550 FOR LV=49 TO 63STEP3:A(8,LV)=1:A(8,LV+1)=255:A(8,LV+2)=128:NEXT
560 FORLV=29TO63:READA(9,LV):NEXT
570 DATA6,0,0,6,0,0,15,0,9,47,128,15,127,140,31,255,142,31,255,30,63,255,190
580 DATA63,255,255,127,255,254,127,255,255,255,255,255
590 FORLV=34TO63:READA(10,LV):NEXT
600 DATA4,130,0,15,198,12,15,215,14,31,223,158,31,255,190,63,255,190,63,255,255
610 DATA127,255,255,127,255,255,255,255,255
620 FORLV=28TO63:READA(11,LV):NEXT
630 DATA2,0,0,7,64,0,15,224,0,31,225,0,31,227,16,31,243,24,63,247,188,63,255
640 DATA188,63,255,254,127,255,254,127,255,255,255,255,255
650 FORLV=22TO63:READA(12,LV):NEXT
660 DATA2,0,0,7,0,0,7,128,0,15,160,0,31,240,0,31,240,0,31,240,128,63,241,200
670 DATA63,249,220,63,251,220,127,251,254,127,255,254,255,255,255,255,255,255
680 FOR LV=1TO54:READA(13,LV):NEXT
690 DATA15,255,240,31,255,248,63,255,252,122,16,94,240,,15,224,,7,240,,15
700 DATA224,,7,224,,7,224,,7,241,248,15,224,4,7,224,2,7,224,1,7,240,,143
710 DATA224,,71,240,,15,250,8,95
720 FORLV=55TO63:A(13,LV)=255:NEXT
730 FORLV=1TO63:READA(14,LV):NEXT
740 DATA0,127,224,7,128,24,8,,4,16,63,194,33,192,33,34,,17,68,63,9,136,64,137
750 DATA136,28,73,145,,73,145,16,137,145,15,9,72,128,18,72,96,100,36,31,132
760 DATA35,,8,16,192,48,8,63,192,4,,,3,128,,,127,255
770 FORLV=19TO63:READA(15,LV):NEXT
780 DATA30,,,30,,,30,,,30,,,31,255,252,255,255,254,255,255,255,255,255,255
790 DATA255,255,254,31,255,252,30,,,30,,,30,,,30,,,,,
800 FORLV=1TO63:READA(16,LV):NEXT
810 DATA,,,,3,128,,15,224,,31,240,,63,248,,127,248,,255,248,1,255,240,7,255,240
820 DATA24,255,224,32,63,224,71,31,192,72,159,128,144,79,,147,78,,144,76,,72,88,
830 DATA71,144,,32,32,,24,192,,7,,
840 FORLV=14TO63:READA(17,LV):NEXT
850 DATA15,255,,16,3,,40,7,,83,229,,128,135,1,99,118,2,16,22,4,231,244,8,,60
860 DATA19,11,72,36,148,112,71,159,144,128,,224,255,255,32,255,255,64,128,1,128
870 DATA255,255,128
880 FORLV=31TO63:READA(18,LV):NEXT
890 DATA7,128,,31,224,,56,112,,96,31,254,192,15,255,192,15,255,192,15,255
900 DATA96,24,227,56,48,227,31,224,227,7,128,3
910 FORLV=4TO59:READA(19,LV):NEXT
920 DATA3,255,192,28,,56,31,255,248,16,255,8,16,,16,8,,16,8,,16,8,,16,4,,16
930 DATA4,,32,4,,32,4,,32,2,,32,2,,64,2,,64,2,,64,2,,64,1,195,128,,60
940 FORLV=24TO63:READA(20,LV):NEXT
950 DATA16,,,24,,,24,,,88,,,228,,1,52,,1,252,,1,252,0,3,254,0,3,239
960 DATA127,255,254,255,255,254,255,255,250,127,255,252
970 FORLV=1TO63:READA(21,LV):NEXT
980 DATA,126,,,255,,,255,,1,255,128,1,255,128,3,255,192,3,255,192,7,255,224,7
990 DATA255,224,15,255,240,15,255,240,31,255,248,31,255,248,63,255,252,63,255
1000 DATA252,127,255,254,127,255,254,255,255,255,128,,1,128,,1,255,255,255
1010 FORLV=1TO63:READA(22,LV):NEXT
1020 DATA,24,,,24,,,24,,,60,,,126,,,255,,1,255,128,3,255,192,7,255,224,15,255
1030 DATA240,15,255,240,12,24,48,12,24,48,12,24,48,15,255,240,15,255,240,12,24,48
1040 DATA12,24,48,12,24,48,15,255,240,15,255,240
1050 FORLV=0TO12:FORLW=0TO6:READD(LW,LV):NEXT:NEXT
1060 DATA4,20,8,16,28,24,8
1070 DATA6,6,16,28,30,60,12
1080 DATA22,26,24,10,18,26,14
1090 DATA26,24,24,24,24,44,2
1100 DATA,,,,,18,8
1110 DATA20,28,12,,,,
1120 DATA6,2,22,8,,,
1130 DATA22,24,30,12,,,
1140 DATA18,24,26,10,,,
1150 DATA,,4,,,,
1160 DATA4,,6,,,,
1170 DATA22,16,18,24,,,
1180 DATA2,,,,,,
1190 FORLV=0TO10:READA$(LV):NEXT
1200 DATASCHRIFTROLLE,SCHWERT,FACKEL,PANZERHEMD,SCHLUESSEL,LATERNE,BUCH,PLATTE
1210 DATAEIMER,UHR,SEIL
1220 E(6,0)=4:E(0,1)=2:E(2,2)=1:E(6,2)=2:E(2,3)=1:E(6,4)=8:E(5,1)=64:E(1,6)=64
1230 E(2,6)=32:E(3,6)=8:E(1,7)=4:E(2,7)=1:E(0,10)=4:E(2,10)=1:E(3,11)=16
1240 E(0,12)=4
1250 C(0,0)=1:C(2,0)=2:C(3,0)=8:C(2,1)=4:C(4,1)=1024:C(6,3)=16
1260 C(1,5)=512:C(3,7)=32:C(0,11)=192:C(2,9)=256
1270 PRINT"      BITTE EINE TASTE DRUECKEN"
1280 POKE198,0:WAIT198,1:POKE53280,1:PRINTCHR$(142)
1290 POKE53281,5:POKE53280,0:POKEVI+21,0
1300 PRINT"[147][144]";
1310 FORLV=1TO13
1320 IFLV<6THENPRINT"[154]      [144]                      [154]      [144]      ";:GOTO1350
1330 IFLV>9THENPRINT"                 [151]      [144]                 ";:GOTO 1350
1340 PRINT"                                        ";
1350 NEXT
1360 PRINT"";
1370 PRINT"[146][164][164][175][175][185][185][162][162][184][184][183][183][163][163]            [163][163][183][183][184][184][146][162][162][185][185][175][175][164][164]";
1380 FORLV=1TO6
1390 PRINT"                                        ";
1400 NEXT
1410 PRINT"                                       ";:POKE2023,160
1420 POKE2040,13:POKE2041,14:POKE2042,15
1430 FORLV=0TO62:POKE832+LV,A(1,LV+1):NEXT
1440 FORLV=0TO62:POKE896+LV,A(2,LV+1):NEXT
1450 FORLV=0TO62:POKE960+LV,A(3,LV+1):NEXT
1460 POKEVI+29,7:POKEVI+23,7:POKEVI+39,0:POKEVI+40,0:POKEVI+41,11:POKEVI+21,7
1470 POKEVI,24:POKEVI+1,50:POKEVI+2,248:POKEVI+3,50:POKEVI+4,160:POKEVI+5,80
1480 PRINT:PRINT"[144][146]DU STEHST VOR DEM TOR VON MARIO. DAVOR"
1490 PRINT"LIEGT EIN DUNKLER, UNHEIMLICHER SEE."
1500 PRINT"MOEGLICHE RICHTUNGEN: W."
1510 PRINT"DANGALF UEBERSETZT DIE SCHRIFT AUF DEM"
1520 PRINT"TOR: 'SPRICH,'FREUND',UND TRITT EIN.'"
1530 GOTO4160
1540 POKE53280,0:POKE53281,12:POKEVI+21,0:POKEVI+23,1:POKEVI+29,1
1550 PRINT"[147]";:FORLV=8TO18STEP2:PRINT"[151]           ";
1560 PRINTSPC(LV/2-4)"[155][146][223]";:FORL1=1TO24-LV:PRINT" ";:NEXT:PRINT"[146][169]";
1570 PRINTSPC(LV/2-4)"[151]           ";:NEXT
1580 PRINT"";:FORLV=1TO15
1590 IFLV>6THENPRINT"[151]           [144]      [151]           ";:GOTO1610
1600 PRINT"[151]                      ";
1610 NEXT
1620 FORLV=10TO0STEP-2
1630 PRINT"[151]           ";SPC(LV/2)"[155][169]";:FORL1=1TO16-LV:PRINT" ";:NEXT
1640 PRINT"[223]";SPC(LV/2)"[151]           ";:NEXT
1650 POKE2040,13:POKEVI,160:POKEVI+1,64:POKEVI+39,0
1660 FORLV=0TO62:POKE832+LV,A(3,LV+1):NEXT:POKEVI+21,1
1670 PRINT"[146][144]EIN HELLER GANG.";
1680 IFM3=0THENPRINT"PLOETZLICH SCHLAEGT JE- MAND DAS EINGANGSTOR ZU.":M3=1
1690 PRINT"RICHTUNGEN: O":RI$="O"
1700 GOSUB5340:GOTO5830
1710 POKE53280,0:POKE53281,11:POKEVI+21,0:POKEVI+23,1:POKEVI+29,1
1720 PRINT"[147]";:FORLV=8TO18STEP2:PRINT"[144]           ";
1730 PRINTSPC(LV/2-4)"[152][146][223]";:FORL1=1TO24-LV:PRINT" ";:NEXT:PRINT"[146][169]";
1740 PRINTSPC(LV/2-4)"[144]           ";:NEXT
1750 PRINT"";:FORLV=1TO6
1760 PRINT"[144]                      ";:NEXT
1770 HV=D(X,Y):HV=(HVAND159)
1780 IFHV>=16THENB(4)=1
1790 FORLV=7TO15
1800 IFB(4)=1THENPRINT"[144]           [144]      [144]           ";:GOTO1820
1810 PRINT"[144]           [151]      [144]           ";
1820 NEXT
1830 FORLV=10TO0STEP-2
1840 PRINT"[144]           ";SPC(LV/2)"[152][169]";:FORL1=1TO16-LV:PRINT" ";:NEXT
1850 PRINT"[223]";SPC(LV/2)"[144]           ";:NEXT
1860 POKE2040,13:POKEVI,160:POKEVI+1,64
1870 IFB(4)=1THENPOKEVI+39,0
1880 IFB(4)=0THENPOKEVI+39,11
1890 FORLV=0TO62:POKE832+LV,A(3,LV+1):NEXT:POKEVI+21,1
1900 GOSUB4750
1910 IFB(1)=0THEN 2000
1920 B(1)=0
1930 PRINT"";
1940 FORLV=1TO7:PRINT"[144][146][167]  [146][165][157][157][157][157]";:NEXT
1950 PRINT"[146][167] [146][169][157][157][157][167][169]"
1960 POKE2041,14:POKEVI+2,112:POKEVI+3,80:POKEVI+40,0
1970 FORLV=0TO62:POKE896+LV,A(4,LV+1):NEXT
1980 POKEVI+23,3:POKEVI+29,3:POKEVI+21,3
1990 RI$=RI$+"N"
2000 IFB(2)=0THEN2090
2010 B(2)=0
2020 PRINT"";
2030 FORLV=1TO7:PRINT"[144][146][167]  [146][165][157][157][157][157]";:NEXT
2040 PRINT"[146][223] [146][165][157][157][223][165]"
2050 POKE2042,15:POKEVI+4,208:POKEVI+5,80:POKEVI+41,0
2060 FORLV=0TO62:POKE960+LV,A(5,LV+1):NEXT
2070 POKEVI+23,7:POKEVI+29,7:POKEVI+21,PEEK(VI+21)+4
2080 RI$=RI$+"-S"
2090 IFB(3)>0THENB(3)=0:RI$=RI$+"-W"
2100 IFB(4)>0THENB(4)=0:RI$=RI$+"-O"
2110 IFB(6)>0THENB(6)=0:RI$=RI$+"-H"
2120 IFB(5)=0THEN2160
2130 B(5)=0:RI$=RI$+"-R"
2140 PRINT"";
2150 PRINT"[152][171][192][179][157][157][157][157][144][169][194] [194][223][157][157][157][157][157][157][169] [171][192][179] [223]"
2160 PRINT"[146][144]EIN DUNKLER GANG.";
2170 PRINT"[144]RICHTUNGEN:";RI$
2180 GOSUB 4700
2190 PRINT"[144]GEGENSTAENDE:";GE$
2200 GOSUB4860
2210 PRINT"[144]BESONDERHEITEN:";
2220 IF FG$=""THEN FG$="KEINE"
2230 PRINTFG$
2240 GOSUB5340:GOTO5830
2250 PRINT"[147][144]";:POKE53280,0:POKE53281,12:POKEVI+21,0
2260 FOR LV=1TO5:PRINTSPC(LV-1)"[205]"SPC(39-2*LV)"[206]":NEXT
2270 PRINTSPC(5)"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
2280 FOR LV=1TO8:PRINTSPC(5)"[165]"SPC(27)"[167]":NEXT
2290 PRINTSPC(5)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
2300 FORLV=5TO1STEP-1:PRINTSPC(LV-1)"[206]"SPC(39-2*LV)"[205]":NEXT
2310 FOR LW=10 TO 25 STEP 15
2320 PRINT""SPC(LW)"[164][164][164][164][157][157][157][157][205][175][175][206]"
2330 FOR LV=1TO14
2340 IF LV=3THENPRINTSPC(LW)"[208]  [207]":GOTO 2370
2350 IF LV=12 THEN PRINTSPC(LW)"[186]  [204]":GOTO 2370
2360 PRINTSPC(LW)"[167]  [165]"
2370 NEXT
2380 PRINTSPC(LW)"[206][183][183][205][157][157][157][157][163][163][163][163]"
2390 NEXT LW
2400 GOSUB4750
2410 IF B(1)=0THEN2470
2420 B(1)=0
2430 PRINT"[167][205][157][157][167] [205][157][157][157][167][183][208]"
2440 FORLV=1TO8:PRINT"[167] [167]":NEXT
2450 PRINT"[167][175][186][157][157][157][167]  [157][157][157][167] "
2460 RI$=RI$+"-N"
2470 IFB(2)=0THEN2530
2480 B(2)=0
2490 PRINT""TAB(37)"[206][165][157][157][157][206] [165][157][157][157][207][183][165]"
2500 FORLV=1TO8:PRINTTAB(36)"[165] [165]":NEXT
2510 PRINTTAB(36)"[204][175][165][157][157][157]  [165][157][157] [165]"
2520 RI$=RI$+"-S"
2530 IFB(4)=0THEN2590
2540 B(4)=0
2550 PRINT""TAB(17)"[164][164][164][164][164][157][157][157][157][157][157][167][205][164][164][164][206][165]"
2560 FORLV=1TO6:PRINTTAB(16)"[167][167]   [165][165]":NEXT
2570 PRINTTAB(16)"[186][206][163][163][163][205][204]"
2580 RI$=RI$+"-O"
2590 IFB(6)>0THENB(6)=0:RI$=RI$+"-H"
2600 PRINT"[144]EIN RAUM MIT SAEULEN,DER DURCH SCHAECHTE":PRINT"BELEUCHTET WIRD.";
2610 PRINT"[144]RICHTUNGEN:";RI$
2620 GOSUB 4700
2630 PRINT"[144]GEGENSTAENDE:";GE$
2640 GOSUB 4860
2650 IF FG$=""THEN FG$="KEINE"
2660 PRINT"[144]BESONDERHEITEN:";FG$
2670 GOSUB5340:GOTO5830
2680 PRINT"[147][152]";:POKE53280,0:POKE53281,0
2690 PRINT:POKEVI+21,0
2700 FORLV=2TO20STEP2
2710 PRINTTAB(19-LV/2)"[152][169]";:FORLW=1TOLV:PRINT" ";:NEXT:PRINT"[223]"
2720 PRINTTAB(19-LV/2)"[151]";:FORLW=1TOLV+2:PRINT" ";:NEXT:PRINT
2730 NEXT LV
2740 PRINT"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
2750 RI$="W-O-N-S"
2760 PRINT"EINE TREPPE, SONST IST ALLES DUNKEL."
2770 PRINT"RICHTUNGEN:";RI$;" ; NICHTS BESONDERES"
2780 GOSUB 4700
2790 PRINT"[152]GEGENSTAENDE";GE$
2800 GOSUB5340:GOTO5830
2810 POKEVI+21,0:POKE53281,15:POKE53280,0
2820 PRINT"[147][144]";
2830 FORLV=0TO3
2840 IF LV=0THEN 2870
2850 FORLW=1TOLV
2860 PRINT"[152] ";:NEXT
2870 PRINT"[152][223]"SPC(37-2*LV)"[152][169]"
2880 NEXTLV
2890 PRINT"[152]"TAB(38)" [157][157]  [157][157][157]   "
2900 PRINT"[151]       [152][223][146]               [169][151]       "
2910 PRINT"[151]       [152] [223][146]             [169] [151]       "
2920 PRINT"[151]       [152]  [223][146]           [169]  [151]       "
2930 PRINT"[151]       [152]   [223][146]         [169]   [151]       "
2940 FORLV=1TO5:PRINT"[151]       [152]    [144]         [152]    [151]       ":NEXT
2950 PRINT"[151]       [152]   [146][169]         [223]   [151]       "
2960 PRINT"[151]       [152]  [146][169]           [223]  [151]       "
2970 PRINT"[151]       [152] [146][169][144][169]           [223][152][146][223] [151]       "
2980 PRINT"[151]       [152][146][169][144][169]             [223][152][146][223][151]       "
2990 PRINT"[152]";:FORLV=1TO13
3000 PRINT"    "SPC(31)"    "
3010 NEXT
3020 PRINT"[152]   [146][169][157][157][157][157]  [146][169][157][157][157] [146][169][157][157][169]"
3030 PRINT"[145][145][145][145]"SPC(35)"[223]   [146][157][157][157][223]  [146][157][157][223] [146][157][223]"
3040 FORLV=0TO20:POKE1063+40*LV,160:POKE55335+40*LV,12:NEXT
3050 POKE1063+40*21,95:POKE55335+40*21,12
3060 IFM5=2THENRI$="W-O":GOTO3080
3070 RI$="W-O-N"
3080 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][223][157] [223][157][157]  [157][157]  [157][157]  [157][157]  [157][157]  [157][157]  [157][157]  [157][157] [169][157][157][169]"
3090 POKE2040,11:POKE2041,11:POKE2042,13:POKE2043,13:POKE2044,14:POKE2045,14
3100 POKE2046,15:POKE2047,15
3110 FORLV=VI+39TOVI+46:POKELV,7:NEXT
3120 FORLV=VITOVI+12STEP4:POKELV,132:POKELV+1,144:POKELV+2,180:POKELV+3,144
3130 NEXT
3140 FORLV=0TO62:POKE704+LV,A(9,LV+1):NEXT
3150 FORLV=0TO62:POKE832+LV,A(10,LV+1):NEXT
3160 FORLV=0TO62:POKE896+LV,A(11,LV+1):NEXT
3170 FORLV=0TO62:POKE960+LV,A(12,LV+1):NEXT
3180 POKEVI+23,255:POKEVI+29,255
3190 L1=0
3200 FORLV=0TO6STEP2
3210 POKEVI+21,2^LV+2^(LV+1)
3220 NEXT
3230 L1=L1+1
3240 FORLV=4TO2STEP-2
3250 POKEVI+21,2^LV+2^(LV+1)
3260 NEXT
3270 IFL1<7THEN3200
3280 PRINT"[144]EIN RAUM MIT EINEM SCHMALEN ABGRUND,":PRINT"AUS DEM FEUER DRINGT."
3290 PRINT"[144]RICHTUNGEN:";RI$" BESONDERHEITEN:FEUER"
3300 GOSUB4700
3310 PRINT"[144]GEGENSTAENDE:";GE$
3320 GOSUB5340:GOTO5830
3330 PRINT"[147][144]";:POKE53280,0:POKE53281,12:POKEVI+21,0
3340 FOR LV=0TO4
3350 PRINTTAB(LV)"[205]"SPC(37-2*LV)"[206]":NEXT
3360 PRINTTAB(5)"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
3370 FORLV=1TO9:PRINTTAB(5)"[165]"SPC(27)"[167]":NEXT
3380 PRINTTAB(5)"[204][175][175][175][175][175][175][175][175][175][175][175][175]    [175][175][175][175][175][175][175][175][175][175][175][186]"
3390 FORLV=0TO4
3400 PRINTTAB(4-LV)"[169]";:FORL1=1TOLV
3410 IF LV=0THEN 3430
3420 PRINT" ";:NEXTL1
3430 PRINT:NEXT LV
3440 PRINT"[145][145][145][145][145]";:FORLV=0TO4
3450 PRINTTAB(34);:FORL1=1TOLV
3460 IF LV=0THEN GOTO 3480
3470 PRINT" ";:NEXT L1
3480 PRINT"[223]"
3490 NEXT LV
3500 PRINT"[145][145][145][145][145]";:FORLV=1TO5
3510 PRINTTAB(5)"[151]                             "
3520 NEXT
3530 PRINT"[145][145][145][145][145]";
3540 PRINTTAB(18)"[152]    [157][157][157][157][157][151][167][152]    [151][165][157][157][157][157][157][157][182][152]    [151][181][157][157][157][157][157][157][146][161][152]    [151][161]"
3550 PRINTTAB(17)"[151][181][152]    [151][182]"
3560 PRINT"[145][145][145][145][145][145][145][145][145][145]";:FORLV=1TO5
3570 PRINTTAB(18)"[129]    "
3580 NEXT
3590 PRINTTAB(17)"[144][145][186][145][157][167][145][157][167][145][157][167][145][157][167][145][175][175][175][175][165][157][165][157][165][157][165][157][204]"
3600 PRINT"EINE SCHMALE BRUECKE FUEHRT AUF EINE":PRINT"TUER ZU.";
3610 IFE(X,Y)>0THENPRINT"EIN UNGEHEUER VERSPERRT DEN WEG"
3620 PRINT"RICHTUNGEN:W-O":RI$="W-O"
3630 GOSUB4700
3640 PRINT"[144]GEGENSTAENDE:";GE$
3650 GOSUB 4860
3660 PRINT"BESONDERHEITEN:";FG$
3670 GOSUB5340:GOTO5830
3680 POKE 2043,11:FORLV=0TO62:POKE704+LV,A(6,LV+1):NEXT
3690 POKEVI+23,PEEK(VI+23)OR8:POKEVI+6,160:POKEVI+7,134:POKEVI+42,11
3700 POKEVI+29,PEEK(VI+29)OR8:POKEVI+21,PEEK(VI+21)OR8
3710 RETURN
3720 POKE2043,11:POKE2044,11:FORLV=0TO62:POKE704+LV,A(7,LV+1):NEXT
3730 POKEVI+6,160:POKEVI+7,132:POKEVI+8,160:POKEVI+9,175
3740 IF(D(X,Y)AND16)=16THENPOKEVI+42,11:POKEVI+43,11:GOTO3760
3750 POKEVI+42,0:POKEVI+43,0
3760 POKEVI+23,PEEK(VI+23)OR24:POKEVI+29,PEEK(VI+29)OR24
3770 POKEVI+21,PEEK(VI+21)OR24
3780 RETURN
3790 POKEVI+44,11
3800 POKE2045,11:FORL1=0TO62:POKE704+L1,A(15,L1+1):NEXT
3810 POKEVI+10,200:POKEVI+11,180:POKEVI+21,PEEK(VI+21)OR32
3820 RETURN
3830 POKE2045,14:FORL1=0TO62:POKE896+L1,A(19,L1+1):NEXT
3840 POKEVI+44,6:POKEVI+10,140:POKEVI+11,170
3850 POKEVI+21,PEEK(VI+21)OR32:RETURN
3860 POKE2047,11:FORL1=0TO62:POKE704+L1,A(22,L1+1):NEXT
3870 POKEVI+46,0:POKEVI+14,196:POKEVI+15,191:POKEVI+21,PEEK(VI+21)OR128
3880 POKEVI+23,PEEK(VI+23)AND127:POKEVI+29,PEEK(VI+29)AND127
3890 IFX>0ANDX<3ANDY=11THENPRINT"[158][145][145][145][145]  ":GOTO3910
3900 PRINT"[158][145][145][145]  "
3910 RETURN
3920 POKE2040,14:FORL1=0TO62:POKE896+L1,A(21,L1+1):NEXT
3930 POKEVI+39,2:POKEVI,157:POKEVI+1,161:POKEVI+21,PEEK(VI+21)OR1
3940 POKEVI+29,PEEK(VI+29)OR1:POKEVI+23,PEEK(VI+23)AND254:RETURN
3950 POKE2046,11:FORL1=0TO62:POKE704+L1,A(18,L1+1):NEXT
3960 POKEVI+45,0:POKEVI+12,180:POKEVI+13,180:POKEVI+21,PEEK(VI+21)OR64:RETURN
3970 POKE2047,11:FORL1=0TO62:POKE704+L1,A(20,L1+1):NEXT
3980 POKEVI+46,7:POKEVI+14,200:POKEVI+15,180:POKEVI+21,PEEK(VI+21)OR128:RETURN
3990 POKE 2047,11:FORL1=0TO62:POKE704+L1,A(8,L1+1):NEXT
4000 IF PEEK(VI+21)>127THEN 4020
4010 POKEVI+21,PEEK(VI+21)+128
4020 POKE VI+46,0:POKE VI+14,174:POKEVI+15,167
4030 RETURN
4040 FORL1=0TO62:POKE704+L1,A(13,L1+1):NEXT
4050 POKE2046,11:POKEVI+12,160:POKEVI+13,170:POKEVI+45,0
4060 POKEVI+21,PEEK(VI+21)OR64:POKEVI+23,PEEK(VI+23)AND191
4070 POKEVI+29,PEEK(VI+29)AND191:RETURN
4080 FORL1=0TO62:POKE704+L1,A(14,L1+1):NEXT
4090 POKE2047,11:POKEVI+14,165:POKEVI+15,155:POKEVI+46,15
4100 POKEVI+21,PEEK(VI+21)OR128:RETURN
4110 POKE2046,11:FORL1=0TO62:POKE704+L1,A(16,L1+1):NEXT
4120 POKEVI+45,11:POKEVI+12,123:POKEVI+13,197
4130 POKEVI+21,PEEK(VI+21)OR64:RETURN
4140 POKE2047,13:FORL1=0TO62:POKE832+L1,A(17,L1+1):NEXT
4150 POKEVI+46,11:POKEVI+14,138:POKEVI+15,180:POKEVI+21,PEEK(VI+21)OR128:RETURN
4160 TI$="000000":TU=0
4170 :
4180 :
4190 :
4200 SYS49152+256:INPUTB$
4210 IFVAL(TI$)<45 THEN 4230
4220 PRINT"PLOETZLICH KOMMEN ARME AUS DEM SEE":PRINT"UND REISSEN DICH HINEIN":GOTO4400
4230 IFLEFT$(B$,4)<>"SAGE"THEN 4270
4240 IFRIGHT$(B$,6)<>"FREUND"ANDRIGHT$(B$,7)<>"FREUND'"THEN 4260
4250 PRINT"DAS TOR IST OFFEN!":PRINT"MOEGLICHE RICHTUNGEN: W-O":TU=1:GOTO 4180
4260 PRINTRIGHT$(B$,LEN(B$)-5):GOTO4180
4270 IFLEFT$(B$,6)<>"BRINGE"ORRIGHT$(B$,2)<>"UM"THEN 4320
4280 IFMID$(B$,8,7)<>"DANGALF"THEN PRINT"NICHT MOEGLICH!":GOTO 4180
4290 PRINT"DANGALF HAT DICH MIT EINEM BLITZ ZU"
4300 PRINT"BODEN GEWORFEN PLOETZLICH KOMMEN ARME"
4310 PRINT"AUS DEM SEE UND ZIEHEN DICH HINEIN.":GOTO4400
4320 IF B$<>"W"THEN 4340
4330 PRINT"WARGE HABEN DICH GEFRESSEN.":GOTO4400
4340 IF B$="OEFFNE TOR"THEN PRINT"SO EINFACH GEHT DAS NICHT!":GOTO 4180
4350 IF B$="HILF"THEN PRINT"ES HANDELT SICH WOHL UM EIN TOR, DAS"
4360 IF B$="HILF"THEN PRINT"MIT ZAUBERWORTEN VERSCHLUESSELT IST.":GOTO 4180
4370 IF B$="O"AND TU=1THEN X=X+1:GOTO 1540
4380 IFB$="SPEICHERE"ORB$="LADE"THENPRINT"NOCH UNMOEGLICH!":GOTO4180
4390 PRINT"WIE BITTE???":GOTO4180
4400 PRINT"DU BIST TOT."
4410 PRINT"WILLST DU EIN NEUES SPIEL?"
4420 POKE198,0:WAIT198,1:POKEVI+21,0
4430 GETA$:IFA$="J"THEN4460
4440 IFA$<>"N"THEN4430
4450 SYS64738
4460 IFM7>4THENRUN
4470 RI$="":GE$="":GD$="":TU=0:X=-2:Y=3:M1=0:M2=0:M3=0:M4=0:M5=0:M6=0:FG$=""
4480 D(6,4)=8:D(0,6)=6:D(3,6)=8:D(0,11)=22:C$="":FORLV=1TO3:GS$(LV)="":NEXT
4490 FORLV=0TO6:FORL1=0TO12:C(LV,L1)=0:E(LV,L1)=0:NEXT
4500 M7=M7+1:GOTO150
4510 POKE53280,15:POKE53281,15:PRINTCHR$(14)
4520 PRINT"[147]":PRINT"[211]IE  STEHEN  VOR  DEM  [212]OR VON  [205]ARIO,"
4530 PRINT"EINER  ALTEN  [218]WERGENMINE  UND STELLEN"
4540 PRINT"[196]ORFO, DEN  >[200]OBBIT<  DAR. [205]EHR  UEBER"
4550 PRINT">[200]OBBITS< ERFAHREN SIE IN:"
4560 PRINT"[144][202].[210].[210]. [212]OLKIENS  ";CHR$(34)"DER [200]ERR DER [210]INGE"CHR$(34);"."
4570 PRINT"[201]N  [201]HRER   [194]EGLEITUNG  BEFINDET  SICH"
4580 PRINT">[196]ANGALF<,  EIN SEHR ALTER UND  WEISER"
4590 PRINT"[218]AUBERER."
4600 PRINT"[201]HRE  [193]UFGABE  IST ES,  DIE [205]INE  OHNE"
4610 PRINT"[211]CHADEN ZU DURCHQUEREN. [196]IE [210]ICHTUNGEN"
4620 PRINT"SIND ETWAS UNGEWOEHNLICH:":PRINT"                  [144][207][211][157][157][215][145][157][157][206]"
4630 PRINT"[198]OLGENDE [194]EFEHLE HELFEN [201]HNEN:"
4640 PRINT"[207][197][198][198][206][197],   [200][201][204][198] (BEI [208]ROBLEMEN),   [206][201][205][205]"
4650 PRINT"[204][201][211][212] (GIBT [204]ISTE DER [199]EGENSTAENDE AUS)"
4660 PRINT"[200][197][194][197],  [197][206][212][204][197][197][210][197], [211][208][197][201][195][200][197][210][197], [204][193][196][197], [204][201][197][211]"
4670 PRINT"[211][193][199][197] (OHNE [199]AENSEFUESS),  [206], [211], [207],  [215],"
4680 PRINT"[210] (RUNTER), [200] (HOCH)."
4690 RETURN
4700 HV=C(X,Y):FORLV=10TO0STEP-1
4710 IFHV<2^LVTHEN 4740
4720 ON LV+1GOSUB4110,3790,3970,3990,3950,3860,4140,3920,3830,4040,4080
4730 GE$=GE$+A$(LV):GE$=GE$+" ":HV=HV-2^LV
4740 NEXT:RETURN
4750 HV=D(X,Y):FORLV=6TO1STEP-1
4760 IFHV>=2^LVTHENB(LV)=1:HV=HV-2^LV
4770 NEXT:RETURN
4780 GE$="":RI$="":FG$=""
4790 IF Y=11 AND X=1THEN 2680
4800 IF X=-1THEN 1540
4810 IF Y=11 AND X=2THEN 2810
4820 IF X=-2THEN 1290
4830 IFY=11ANDX=3THEN 3330
4840 IF Y>8THEN 2250
4850 GOTO1710
4860 HW=0:HV=0:FORLV=0TO5
4870 IF E(X,Y)<>2^LVTHEN 4890
4880 HW=LV:LV=5:HV=1
4890 NEXT:IFHV<1THENRETURN
4900 IF HW<3THEN GOSUB3720:FG$="ORKS"
4910 IF HW=5THEN GOSUB3680:FG$="RIESENSPINNE"
4920 IFX=3ANDY=6ANDD(X,Y)<32THENGOSUB8180:FG$="UNBEWEGLICHE PLATTE"
4930 IFX=6ANDY=4ANDD(X,Y)<32THENGOSUB8180:FG$="UNBEWEGLICHE PLATTE"
4940 IFHW=4THENGOSUB8210:FG$="RALBOG"
4950 RETURN
4960 IFGD$<>"SEIL"THEN4990
4970 IFX=6ANDY=4THEN8040
4980 IFX=3ANDY=6THEN8080
4990 IFX<0THENPRINT"NICHT MOEGLICH!":GOTO5840
5000 HV=C(X,Y):HW=0:FORLV=10TO0STEP-1
5010 IFGD$<>A$(LV)THEN 5030
5020 IF HV>=2^LVTHENLV=0:HW=1:GOTO5040
5030 IF HV>=2^LVTHEN HV=HV-2^LV
5040 NEXT
5050 IFHW=1THEN5090
5060 IFGD$="PLATTE"ANDX=6ANDY=4THENPRINT"SIE IST NICHT BEWEGLICH!":GOTO5840
5070 IFGD$="PLATTE"ANDX=3ANDY=6THENPRINT"SIE IST NICHT BEWEGLICH!":GOTO5840
5080 PRINT"DAS IST HIER NICHT ZU SEHEN":RETURN
5090 IF GS$(1)=""THEN GS$(1)=GD$:GOTO5130
5100 IF GS$(2)=""THEN GS$(2)=GD$:GOTO5130
5110 IF GS$(3)=""THEN GS$(3)=GD$:GOTO5130
5120 PRINT"DU TRAEGST ZU VIEL":FORLV=1TO1500:NEXT:RETURN
5130 FORLV=0TO10:IFA$(LV)=GD$THEN C(X,Y)=C(X,Y)-2^LV
5140 NEXT
5150 IFM6=1THENM6=0:C(X,Y)=C(X,Y)+1024
5160 IFM5=1ANDGD$="PLATTE"THENM5=0
5170 RETURN
5180 IF GS$(1)=GD$THEN 5220
5190 IF GS$(2)=GD$THEN 5230
5200 IF GS$(3)=GD$THEN5240
5210 PRINT"ICH TRAGE DAS NICHT":RETURN
5220 GS$(1)="":GOTO 5250
5230 GS$(2)="":GOTO 5250
5240 GS$(3)=""
5250 IFX>-1THEN5290
5260 PRINT"EIN ARM HAT DIE TUER AUFGERISSEN,DEN"
5270 PRINT"GEGENSTAND GENOMMEN UND SIE WIEDER"
5280 PRINT"ZUGEWORFEN.":FORLV=1TO3500:NEXT:RETURN
5290 FORLV=0TO10:IFA$(LV)=GD$THEN C(X,Y)=C(X,Y)+2^LV
5300 NEXT
5310 IFGD$="LATERNE"THENM1=0
5320 IFGD$="PLATTE"ANDX=2ANDY=11ANDM5=0THENM5=1
5330 RETURN
5340 IFX=2ANDY=2THEN 5390
5350 IFX=2ANDY=3THEN 5390
5360 IFX=2ANDY=7THEN 5390
5370 IFX=2ANDY=10THEN 5390
5380 GOTO5430
5390 HW=0:FORLV=1TO3:IFGS$(LV)="SCHWERT"THEN HW=1
5400 NEXT:IFHW=1THENRETURN
5410 IFE(X,Y)=0THENRETURN
5420 PRINT"ORKS HABEN DICH GEFANGENGENOMMEN":GOTO4400
5430 IFX=0ANDY=1THEN 5460
5440 IFX=6ANDY=2THEN 5460
5450 GOTO5540
5460 HW=0:FORLV=1TO3:IFGS$(LV)="PANZERHEMD"THEN HW=1
5470 NEXT:IFHW=1THEN5500
5480 IFE(X,Y)=0THENRETURN
5490 PRINT"ORKS MIT PFEIL UND BOGEN HABEN DICH":PRINT"BESCHOSSEN":GOTO4400
5500 HW=0:FORLV=1TO3:IF GS$(LV)="SCHWERT"THEN HW=1
5510 NEXT:IFHW=1THENRETURN
5520 IFE(X,Y)=0THENRETURN
5530 PRINT"ORKS HABEN DICH GEFANGENGENOMMEN":GOTO 4400
5540 IFX=6ANDY=0THEN 5590
5550 IFX=1ANDY=7THEN 5590
5560 IFX=0ANDY=10THEN 5590
5570 IFX=0ANDY=12THEN 5590
5580 GOTO5600
5590 PRINT"ZUVIELE ORKS STUERMTEN EUCH ENTGEGEN.":GOTO4400
5600 IF X<>3ORY<>11THEN 5650
5610 HW=0:FORLV=1TO3:IFGS$(LV)="PLATTE"THEN HW=1
5620 NEXT:IFHW=1THENRETURN
5630 IF E(X,Y)=0THEN RETURN
5640 PRINT"DAS DUNKLE FEUER DES RALBOGS HAT DICH VERNICHTET.":GOTO4400
5650 IFX<0THENRETURN
5660 IFE(X,Y)=32THEN 5680
5670 GOTO5760
5680 HW=0:FORLV=1TO3
5690 IF GS$(LV)="LATERNE"ANDM1=1THEN HW=1
5700 NEXT:IFHW=0THEN5750
5710 PRINT"DIE LATERNE HAT EINE MAGISCHE WIRKUNG"
5720 PRINT"AUF DIE AUGEN DER SPINNE. DIESPINNE"
5730 PRINT"IST GEBLENDET UND FLUECHTET"
5740 POKEVI+21,PEEK(VI+21)AND247:GOSUB8120:RETURN
5750 PRINT"DIE RIESENSPINNE HAT DICH GEFRESSEN":GOTO4400
5760 IF M2>5THEN PRINT"DU BIST VOR ERSCHOEPFUNG UMGEFALLEN":GOTO4400
5770 IF X=4ANDY=2THEN 5800
5780 IF X=1ANDY=6THEN 5800
5790 GOTO5820
5800 POKEVI+21,0
5810 PRINT"[147]DU BIST IN EINE FALLGRUBE GELAUFEN.":GOTO4400
5820 RETURN
5830 REM
5840 SYS49152+256:INPUTB$
5850 IFB$<>"O"THEN 6040
5860 HW=0:FORLV=1TO8:IF MID$(RI$,LV,1)="O"THENHW=1:LV=8
5870 NEXT:IFHW=1THEN5890
5880 PRINT"NICHT MOEGLICH":GOTO5840
5890 IFX<0THEN5980
5900 IFE(X,Y)=1ORE(X,Y)=2ORE(X,Y)=4THEN5880
5910 IFM5=2ANDX=2ANDY=11THEN6020
5920 IFX=4ANDY=11THEN6030
5930 IF X<>3ORY<>11THEN 5980
5940 IFE(X,Y)<>0THENPRINT"DER RALBOG HAT DICH VERNICHTET.":GOTO4400
5950 HW=0:FORLV=1TO3:IF GS$(LV)<>""THENHW=1
5960 NEXT:IFHW=1THENPRINT"DIE BRUECKE IST GEBROCHEN!":GOTO4400
5970 X=X+1:PRINT"[144]DU STEHST AUF DER BRUECKE!":GOTO5840
5980 IFX<>2ORY<>11THEN6020
5990 IFM5=0THENPRINT"DU BIST IN DEN ABGRUND GESTUERZT!":GOTO4400
6000 PRINT"DU BIST IM HINTERGRUND DES RAUMES":FORLV=1TO2500:NEXT
6010 M5=2:GOTO4780
6020 X=X+1:RI$="":GOTO4780
6030 IF TU=2ANDX=4ANDY=11THEN 8710
6040 IFB$<>"W"THEN 6150
6050 HW=0:FORLV=1TO8:IF MID$(RI$,LV,1)="W"THENHW=1
6060 NEXT:IFHW=1THEN6080
6070 PRINT"NICHT MOEGLICH":GOTO5840
6080 IFE(X,Y)=1ORE(X,Y)=2ORE(X,Y)=4THEN6070
6090 IFX<>2ORY<>11THEN6140
6100 IFM5<2THEN6140
6110 IF(C(X,Y)AND128)=0THEN6130
6120 PRINT"DU STEHST VOR DEM FEUER":FORLV=1TO2000:NEXT:M5=1:GOTO4780
6130 PRINT"DU BIST IN DEN ABGRUND GEFALLEN!":GOTO4400
6140 X=X-1:RI$="":GOTO4780
6150 IFB$<>"N"THEN 6220
6160 HW=0:FORLV=1TO8:IF MID$(RI$,LV,1)="N"THENHW=1
6170 NEXT:IFHW=1THEN6190
6180 PRINT"NICHT MOEGLICH":GOTO5840
6190 IFE(X,Y)=1ORE(X,Y)=2ORE(X,Y)=4THEN6180
6200 IFX=1ANDY=11THEN PRINT"DU BIST IN EINEN ABGRUND GESTUERZT":GOTO4400
6210 Y=Y-1:RI$="":GOTO4780
6220 IFB$<>"S"THEN 6290
6230 HW=0:FORLV=1TO8:IF MID$(RI$,LV,1)="S"THENHW=1
6240 NEXT:IFHW=1THEN6260
6250 PRINT"NICHT MOEGLICH":GOTO5840
6260 IFE(X,Y)=1ORE(X,Y)=2ORE(X,Y)=4THEN6250
6270 IFX=1ANDY=11THEN PRINT"DU BIST IN EINEN ABGRUND GESTUERZT":GOTO4400
6280 Y=Y+1:RI$="":GOTO4780
6290 IF LEFT$(B$,4)<>"NIMM"THEN 6370
6300 IFLEN(B$)<5THEN5840
6310 B$=RIGHT$(B$,LEN(B$)-5)
6320 HW=0:FORLV=0TO10
6330 IFB$=A$(LV)THENGD$=B$:HW=1
6340 NEXT:IFHW=1THEN6360
6350 PRINT"ICH SEHE DAS HIER NICHT":GOTO5840
6360 GOSUB4960:GOTO4780
6370 IFLEFT$(B$,8)<>"VERLIERE"THEN 6450
6380 IFLEN(B$)<9THEN5840
6390 B$=RIGHT$(B$,LEN(B$)-9)
6400 HW=0:FORLV=0TO10
6410 IFB$=A$(LV)THENGD$=B$:HW=1
6420 NEXT:IFHW=1THEN6440
6430 PRINT"ICH SEHE DAS HIER NICHT!":GOTO5840
6440 GOSUB5180:GOTO4780
6450 IFLEFT$(B$,6)<>"OEFFNE"THEN 6510
6460 IF RIGHT$(B$,4)="TUER"THEN 6480
6470 PRINT"GEHT NICHT":GOTO5840
6480 IFX=4ANDY=11THENPRINT"DIE TUER IST OFFEN! RICHTUNGEN:W-O":RI$="W-O"
6490 IFX=4ANDY=11THENTU=2:GOTO5840
6500 IF X=3ANDY=11THEN PRINT"DIE BRUECKE IST DAZWISCHEN!":GOTO5840
6510 IF B$<>"LIST"THEN 6550
6520 PRINT"DU TRAEGST:"
6530 PRINTGS$(1):PRINTGS$(2):PRINTGS$(3)
6540 GOTO5840
6550 IF B$<>"R"THEN6710
6560 IF X=5ANDY=1THEN 6610
6570 IF X=5ANDY=3THEN 6610
6580 IF X=6ANDY=4THEN 6630
6590 IF X=3ANDY=6THEN 6630
6600 PRINT"NICHT MOEGLICH":GOTO5840
6610 PRINT"[147]DU BIST IN DIE KELLER DER ORKS GERATEN  UND BIST ENTDECKT WORDEN."
6620 GOTO4400
6630 HW=0:FORLV=1TO10:IFMID$(RI$,LV,1)="R"THENHW=1
6640 NEXT:IFHW=1THEN6660
6650 PRINT"NICHT MOEGLICH":GOTO5840
6660 IF X=6THEN X=0:Y=6:GOTO6680
6670 X=0:Y=11
6680 PRINT"DU BIST GEKLETTERT,PLOETZLICH IST DIE"
6690 PRINT"LEITER ZUSAMMENGEKRACHT. DU BIST"
6700 PRINT"AUFGEKOMMEN.":FORLV=1TO5000:NEXT:GOTO4780
6710 IF LEFT$(B$,4)<>"SAGE"THEN6840
6720 IFLEN(B$)<5THEN5840
6730 PRINTRIGHT$(B$,LEN(B$)-5)
6740 IF X=6ANDY=4THEN6770
6750 IF X=3ANDY=6THEN6770
6760 PRINT"ES IST NICHTS GESCHEHEN.":GOTO5840
6770 IF RIGHT$(B$,6)<>"FREUND"ANDRIGHT$(B$,7)<>"FREUND'"THEN6760
6780 HW=0:FORLV=1TO3:IFGS$(LV)="SCHLUESSEL"THENHW=1
6790 NEXT:IFHW=1THEN6810
6800 PRINT"ICH KANN EIN SCHLOSS ERKENNEN!":GOTO5840
6810 PRINT"DIE PLATTE LOEST SICH AUF!"
6820 FORLW=1TO1500:NEXT
6830 D(X,Y)=D(X,Y)OR32:GOTO4780
6840 IF LEFT$(B$,6)<>"BRINGE"ORRIGHT$(B$,2)<>"UM"THEN6950
6850 IFX=-1THENPRINT"HIER IST NOCH FRIEDENSZONE":GOTO5840
6860 IFMID$(B$,8,4)="ORKS"ANDE(X,Y)=0THEN5840
6870 IFMID$(B$,8,4)="ORKS"THEN PRINT"SIE SIND TOT!":M2=M2+1:E(X,Y)=0:GOTO4780
6880 IFMID$(B$,8,7)="DANGALF"THENPRINT"DANGALF HAT DICH ERSCHLAGEN":GOTO4400
6890 IFMID$(B$,8,6)<>"RALBOG"ORE(X,Y)<>16THEN6930
6900 PRINT"DER RALBOG HAT SICH ERST HALB"
6910 PRINT"TOTGELACHT DANN HAT ER DICH MIT EINEM"
6920 PRINT"SCHLAG IN DEN ABGRUND BEFOERDERT.":GOTO4400
6930 IFMID$(B$,8,5)="DOFRO"ORMID$(B$,8,4)="DICH"THENPRINT"SELBSTMORD":GOTO4400
6940 PRINT"WAS SOLL ICH TOETEN?":GOTO5840
6950 IFLEFT$(B$,4)<>"HEBE"THEN7040
6960 IFLEN(B$)<5THEN5840
6970 B$=RIGHT$(B$,LEN(B$)-5)
6980 HW=0:FORLV=1TO3:IFGS$(LV)=B$THENHW=1
6990 NEXT:IFHW=1THEN7010
7000 PRINT"ICH TRAGE DAS NICHT!":GOTO5840
7010 IFB$="PLATTE"THEN PRINT"ZUM HEBEN IST SIE ZU SCHWER!":GOTO5840
7020 IF B$="LATERNE"THEN M1=1:PRINT"DAS LATERNENLICHT WIRD HELLER":GOTO5840
7030 PRINT"OK.":GOTO5840
7040 IFLEFT$(B$,8)<>"ENTLEERE"THEN7180
7050 IF RIGHT$(B$,5)="EIMER"ORRIGHT$(B$,11)="WASSEREIMER"THEN7070
7060 PRINT"WIE SOLL DAS GEHEN?":GOTO5840
7070 HW=0:FORLV=1TO3:IFGS$(LV)="EIMER"THENHW=1
7080 NEXT:IFHW=1THEN7100
7090 GOTO7060
7100 IFM4=1THENPRINT"ER IST SCHON LEER!":GOTO5840
7110 PRINT"[144][146]WOHIN":SYS49152+256:INPUTB$
7120 IFB$="RALBOG"ORB$="UEBER RALBOG"THENM4=1:GOTO7150
7130 IFX<>3ORY<>11THENPRINT"DAS HAT NICHTS VERAENDERT.":M4=1:GOTO5840
7140 PRINT"DER RALBOG HAT DICH ANGEGRIFFEN.":GOTO4400
7150 IFX<>3ORY<>11THEN PRINT"DU SPASSVOGEL!":GOTO5840
7160 PRINT"DER RALBOG TAUMELT UND FAELLT":PRINT"IN DEN ABGRUND!":E(X,Y)=0
7170 FORLV=1TO2500:NEXT:GOTO4780
7180 IFB$<>"HILF"THEN7380
7190 IFX<0THEN PRINT"DU BIST AUF DEM RICHTIGEN WEG.":GOTO5840
7200 IFX=0ANDY=0THENPRINT"LIES DOCH MAL":GOTO5840
7210 IFX=0ANDY=11THENPRINT"LIES DOCH MAL":GOTO5840
7220 IFX=5ANDY=1THENPRINT"SCHAU MAL UNTEN NACH.":GOTO5840
7230 IFX=5ANDY=3THENPRINT"SCHAU MAL UNTEN NACH.":GOTO5840
7240 IFX=6ANDY=4THENPRINT"VIELLEICHT HILFT EIN ZAUBERWORT":GOTO5840
7250 IFX=2ANDY=6THENPRINT"SPINNEN SIND NUETZLICHE TIERE!":GOTO5840
7260 IF X=3ANDY=6THENPRINT"VIELLEICHT HILFT EIN ZAUBERWORT":GOTO5840
7270 IFX=1ANDY=11THENPRINT"DER WEG NACH NORDEN SCHEINT RICHTIG":GOTO5840
7280 IFX=3ANDY=11THENPRINT"FEUERWESEN HABEN AUCH SCHWACHSTELLEN.":GOTO5840
7290 IFX=0ANDY=1ANDE(X,Y)>0THEN7360
7300 IFX=2ANDY=2ANDE(X,Y)>0THEN7360
7310 IFX=2ANDY=3ANDE(X,Y)>0THEN7360
7320 IFX=6ANDY=2ANDE(X,Y)>0THEN7360
7330 IFX=2ANDY=7ANDE(X,Y)>0THEN7360
7340 IFX=2ANDY=10ANDE(X,Y)>0THEN7360
7350 GOTO7370
7360 PRINT"DIE ORKS HABEN DICH UMZINGELT UND":PRINT"SPERREN DEN AUSGANG.":GOTO5840
7370 PRINT"DU MACHST DEINE SACHE GUT.":GOTO5840
7380 IFB$<>"SPEICHERE"THEN7510
7390 PRINT"UNTER WELCHEM NAMEN":SYS49152+256:INPUTC$
7400 PRINT"LEGE EINE DISKETTE EIN DANN <TASTE>":POKE198,0:WAIT198,1
7410 OPEN1,8,1,C$
7420 FORL1=0TO6:FORLW=0TO12:PRINT#1,C(L1,LW):NEXT:NEXT
7430 FORL1=0TO6:FORLW=0TO12:PRINT#1,E(L1,LW):NEXT:NEXT
7440 FORL1=1TO3
7450 IFGS$(L1)=""THENPRINT#1,"A":GOTO7470
7460 PRINT#1,GS$(L1)
7470 NEXT
7480 PRINT#1,M1:PRINT#1,M2:PRINT#1,M3:PRINT#1,M4:PRINT#1,M5:PRINT#1,M6
7490 PRINT#1,TU:PRINT#1,X:PRINT#1,Y:PRINT#1,D(6,4):PRINT#1,D(0,6)
7500 PRINT#1,D(3,6):PRINT#1,D(0,11):CLOSE1:GOTO4780
7510 IFB$<>"LADE"THEN7640
7520 PRINT"UNTER WELCHEM NAMEN":SYS49152+256:INPUTC$
7530 PRINT"BITTE DISKETTE EINLEGEN DANN <TASTE>":POKE198,0:WAIT198,1
7540 OPEN1,8,0,C$
7550 FORL1=0TO6:FORLW=0TO12:INPUT#1,C(L1,LW):NEXT:NEXT
7560 FORL1=0TO6:FORLW=0TO12:INPUT#1,E(L1,LW):NEXT:NEXT
7570 FORL1=1TO3:INPUT#1,GS$(L1)
7580 IFGS$(L1)="A"THENGS$(L1)=""
7590 NEXT
7600 INPUT#1,M1:INPUT#1,M2:INPUT#1,M3:INPUT#1,M4:INPUT#1,M5:INPUT#1,M6
7610 INPUT#1,TU:INPUT#1,X:INPUT#1,Y:INPUT#1,D(6,4):INPUT#1,D(0,6)
7620 INPUT#1,D(3,6):INPUT#1,D(0,11):CLOSE1
7630 GOTO4780
7640 IFLEFT$(B$,4)<>"WIRF"THEN7810
7650 IFLEN(B$)<5THEN5840
7660 B$=RIGHT$(B$,LEN(B$)-5):HV=0
7670 FORLV=1TO3:IFGS$(LV)=B$THENHV=1
7680 NEXT:IFHV=1THEN7700
7690 PRINT"ICH SEHE DAS NICHT":GOTO5840
7700 IFB$="SEIL"THEN7720
7710 GD$=B$:GOSUB5180:GOTO4780
7720 IFX=0ANDY=6THEN7750
7730 IFX=0ANDY=11THEN7750
7740 GD$=B$:GOSUB5180:GOTO4780
7750 PRINT"DAS SEIL HAT SICH OBEN VERHAKT!":D(X,Y)=D(X,Y)OR64
7760 IFGS$(1)="SEIL"THENGS$(1)=""
7770 IFGS$(2)="SEIL"THENGS$(2)=""
7780 IFGS$(3)="SEIL"THENGS$(3)=""
7790 FORLV=1TO2500:NEXT
7800 GOTO4780
7810 IFB$<>"H"THEN7870
7820 HV=0:FORLV=1TO10:IFMID$(RI$,LV,1)="H"THENHV=1
7830 NEXT:IFHV=1THEN7850
7840 PRINT"NICHT MOEGLICH!":GOTO5840
7850 IFX=0ANDY=11THENX=3:Y=6:GOTO4780
7860 IFX=0ANDY=6THENX=6:Y=4:GOTO4780
7870 IFLEFT$(B$,4)<>"LIES"THEN8030
7880 IFRIGHT$(B$,4)="BUCH"THEN7980
7890 IFRIGHT$(B$,12)<>"SCHRIFTROLLE"THENPRINT"NICHT MOEGLICH!":GOTO5840
7900 HW=0:FORLV=1TO3:IFGS$(LV)="SCHRIFTROLLE"THENHW=1
7910 NEXT
7920 IF HW=1THEN7940
7930 PRINT"ICH TRAGE DAS NICHT!":GOTO5840
7940 HW=0:FORLV=1TO3:IFGS$(LV)="FACKEL"ORGS$(LV)="LATERNE"THENHW=1
7950 NEXT
7960 IFHW=1THEN8360
7970 PRINT"ES IST ZU DUNKEL,ICH KANN NICHTS SEHEN":GOTO5840
7980 HW=0:FORLV=1TO3:IFGS$(LV)="BUCH"THENHW=1
7990 NEXT
8000 IF HW=1THEN8020
8010 GOTO7930
8020 GOTO8570
8030 PRINT"WIE BITTE???":GOTO5840
8040 IF(C(X,Y)AND1024)=1024THEN4990
8050 IFD(0,6)<64THENGOTO5840
8060 IFGS$(1)>""ANDGS$(2)>""ANDGS$(3)>""THEN5840
8070 D(0,6)=D(0,6)-64:M6=1:GOTO5090
8080 IF(C(X,Y)AND1024)=1024THEN4990
8090 IFD(0,11)<64THEN5840
8100 IFGS$(1)>""ANDGS$(2)>""ANDGS$(3)>""THEN5840
8110 D(0,11)=D(0,11)-64:M6=1:GOTO5090
8120 E(X,Y)=0
8130 M=INT(RND(1)*4)
8140 N=INT(RND(1)*4)+5
8150 IFE(M,N)>0THEN8130
8160 E(M,N)=32
8170 RETURN
8180 PRINT""SPC(17)"[152][169]    [223][157][157][157][157][157][157][157][169]      [223][157][157][157][157][157][157][157][157]";
8190 PRINT"[144]        "
8200 RETURN
8210 POKE2040,11:POKE2041,13:POKE2042,14:POKE2043,14
8220 FORL1=0TO62:POKE704+L1,A(0,L1+1):POKE832+L1,A(23,L1+1)
8230 POKE896+L1,A(11,L1+1):NEXT
8240 POKEVI+39,2:POKEVI+40,2:POKEVI,160:POKEVI+2,160:POKEVI+1,121:POKEVI+3,163
8250 POKEVI+41,7:POKEVI+42,7:POKEVI+4,153:POKEVI+6,193:POKEVI+5,179
8260 POKEVI+7,179
8270 POKEVI+23,(PEEK(VI+23)AND243)OR3:POKEVI+29,(PEEK(VI+29)AND243)OR3
8280 POKEVI+21,PEEK(VI+21)OR15
8290 PRINT"[144][164][164][175][175][185][185][162][162][184][184][183][183][163][163]  [163][163][183][183][184][184][146][162][162][185][185][175][175][164][164]"
8300 PRINT"[169]                              [223]"
8310 FORLV=1TO4:PRINT"                                ":NEXT
8320 FORLV=1TO4:PRINTSPC(3+LV)"[146][223]";:FORL1=1TO32-2*LV:PRINT" ";:NEXT
8330 PRINT"[146][169]":NEXT
8340 FORLV=1TO7:PRINT"[144]                        ":NEXT:PRINT""
8350 RETURN
8360 POKE53280,0:POKE53281,4:POKEVI+21,0
8370 PRINT"[147]"CHR$(14)
8380 PRINT"[205]EIN [198]REUND [212]HRAIN,"
8390 PRINT"ICH SCHREIBE [196]IR VON [205]ARIO, DER [218]WERGEN-";
8400 PRINT"MINE, DIE VON [194]ALIN, DEM [218]WERGENFUEHRER,";
8410 PRINT"REGIERT WIRD. [196]IESE [205]INE IST VON VIELEN"
8420 PRINT"[213]NGEHEUERN BEVOELKERT, UND WIR HABEN ES"
8430 PRINT"SCHWER, UNS GEGEN SIE ZUR [215]EHR ZU"
8440 PRINT"SETZEN. [197]INE [210]IESENSPINNE LAUERT UNS"
8450 PRINT"IMMER WIEDER AUF, HEIMTUECKISCHE [207]RKS"
8460 PRINT"STELLEN UNS NACH, ABER DAS [211]CHLIMMSTE"
8470 PRINT"IST EIN [198]EUERWESEN, GEGEN DAS WIR ALLE"
8480 PRINT"MACHTLOS SIND. [197]S HEISST, DASS DIE [211]PIN-";
8490 PRINT"NE SEHR LICHTEMPFINDLICH IST, ABER"
8500 PRINT"UNSERE HERKOEMMLICHEN [198]ACKELN SCHADEN"
8510 PRINT"IHR NICHT. [196]A DIE [204]UFT DORT SEHR STICKIG";
8520 PRINT"IST,BLEIBT DAS [204]ICHT UNSERER [198]ACKELN"
8530 PRINT"DORT OHNEHIN NUR DANN EINIGERMASSEN HELLWENN WIR SIE HOCHHEBEN."
8540 PRINT"[201]CH HOERE JEMAND KOMMEN-NEIN, DAS WERDENDOCH NICHT ETWA"
8550 POKE198,0:WAIT 198,1
8560 PRINTCHR$(142):GOTO4780
8570 POKE53281,1:POKE53280,9:POKEVI+21,0
8580 PRINT"[147]"CHR$(14)
8590 PRINT"[212][193][199][197][194][213][195][200] [196][197][211] [218][215][197][210][199][197][206][200][197][210][210][211][195][200][197][210][211][160][194][193][204][201][206],"
8600 PRINT"         [200][197][210][210] [214][207][206] [205][193][210][201][207]"
8610 PRINT"[215]IR KOENNEN NICHT HINAUS.[215]IR KOENNEN"
8620 PRINT"NICHT HINAUS.[211]IE HABEN DIE [194]RUECKE UND"
8630 PRINT"DIE ZWEITE [200]ALLE GENOMMEN.[198]RAR UND [204]ONI"
8640 PRINT"UND [206]ALI FIELEN DORT.[196]ER [211]EE REICHT BIS"
8650 PRINT"ZUR [215]AND AM [215]ESTTOR.[196]ER [215]AECHTER IM"
8660 PRINT"[215]ASSER HAT [207]IN GEPACKT.[215]IR KOENNEN NICHT";
8670 PRINT"HINAUS.[196]AS [197]NDE KOMMT.[212]ROMMELN.[212]ROMMELN"
8680 PRINT"IN DER [212]IEFE."
8690 PRINT"   [211] IE KO M ME N."
8700 GOTO8550
8710 POKEVI+21,0:POKE53281,14:POKE53280,0
8720 PRINT"[147]DU BIST AUS DER [205]INE ENTKOMMEN!"
8730 PRINT"DU HAST DAS [218]IEL ERREICHT UND EINE"
8740 PRINT"[197]TAPPE DEINES [215]EGES ZURUECKGELEGT. WIE"
8750 PRINT"ES WEITERGEHT, KANNST DU IN DEM BUCH"
8760 PRINT"       'DER HERR DER RINGE'"
8770 PRINT"WEITERLESEN, WENN ES DIR GEFALLEN HAT.":POKE198,0:WAIT198,1:SYS64738