

10 CLR:GOTO120
20 GETA1$:IFA1$=""THENGOTO20
30 A=ASC(A1$):IFA=13ANDA$=""THENGOTO20
40 IFA=13THENGOTO1240
50 IFA=20ANDA$=""THENGOTO20
60 IFA=20ANDLEN(A$)=1THENA$="":GOTO100
70 IFA=20THENA$=LEFT$(A$,LEN(A$)-1):X=X-1:GOTO100
80 IFA>64ANDA<91ORA=32THENX=X+1:A$=A$+A1$:GOTO100
90 GOTO20
100 PRINTA1$;:IFX=20THENGOTO1240
110 GOTO20
120 POKE56,157:POKE52,157:POKE644,157
130 IFPEEK(2)=0THENPOKE2,1:LOAD"NEU/LOADER.RUN",8,1:POKE56,157:POKE52,157
140 POKE50267,131:POKE50269,159:CLR:PRINT""";:GOTO7040
150 MO=1:OK=0:UN=0:NL=0:O1=0
160 IFO$="LADE"ORO$="L"THENGOTO210
170 IFSS=1THENZS=0:GOTO240
180 IFPEEK(AU+1)*100+PEEK(AU+2)<>BITHENGOTO210
190 MO=2:W1=PEEK(AU+3):W2=UB:GOSUB640:POKEAU+3,W
200 GOTO220
210 UB=0:ZS=0
220 IFBI=3ANDPEEK(BG+9)=0THENUB=1
230 GOSUB440:IFUN=1THENGOSUB470:IFOK=0THENGOSUB500
240 IFMO=1THENPOKE50180,0:POKE50181,0:SYS50555
250 IFBI>99THENTT$=RIGHT$(STR$(BI),LEN(STR$(BI))-1)
260 IFBI<100ANDBI>9THENTT$="0"+RIGHT$(STR$(BI),LEN(STR$(BI))-1)
270 IFBI<10THENTT$="00"+RIGHT$(STR$(BI),LEN(STR$(BI))-1)
280 TT$=TT$+RIGHT$(STR$(UB),LEN(STR$(UB))-1)
290 DV$=HA$+TT$+ET$:GOSUB600:GOSUB430:BN=PEEK(AU)
300 IFSS=1THENGOTO390
310 GOSUB530:W1=PEEK(PU+3):W2=ZS:GOSUB640:ZS=W
320 IFPEEK(AU+3)<>ZSTHENGOSUB800:MO=2:GOTO250
330 IFNL=0ANDUB<>0THENGOSUB560
340 IFUB=0ANDBI=233ANDPEEK(BG+26)=1THENUB=4:GOTO150
350 IFUB=0THENIFBI=235ANDPEEK(BG+25)=1THENUB=1:GOTO150
360 IFUB=0THENIFBI=325ANDPEEK(BG+25)=1THENUB=1:GOTO150
370 IFUB=0THENIFBI=323ANDPEEK(BG+26)=1THENUB=1:GOTO150
380 IFBI>299ANDBI<400ANDPEEK(BG+24)=0THENGOTO400
390 SYS50555
400 GOSUB610:IFBI=999THENGOTO5790
410 IFBI=509THENGOTO6120
420 SS=0:GOSUB650:GOTO960
430 FORI=40835TO40854:POKEI-20,PEEK(I):NEXTI:RETURN
440 FORI=PU+3TOPU+14:IFPEEK(I)<>PEEK(I-20)THENUN=1
450 NEXTI:RETURN
460 FORI=40342TO40854:POKEI,0:NEXTI:RETURN
470 FORI=40342TO40766STEP8
480 IFPEEK(I)=BNANDOK=0THENOK=1:FORJ=0TO7:POKEI+J,PEEK(AU+J):NEXTJ
490 NEXTI:RETURN
500 FORI=40342TO40766STEP8
510 IFPEEK(I)=0ANDOK=0THENOK=1:FORJ=0TO7:POKEI+J,PEEK(AU+J):NEXTJ
520 NEXTI:RETURN
530 FORI=40342TO40766STEP8:IFPEEK(I)<>BNORO1=1THENGOTO550
540 O1=1:FORJ=0TO7:POKEAU+J,PEEK(I+J):NEXTJ
550 NEXTI:O1=0:RETURN
560 FORI=40342TO40766STEP8:IFPEEK(I)<>BNORO1=1THENGOTO590
570 O1=1:FORJ=0TO3:POKEAU+J,PEEK(I+J):W1=PEEK(I+4+J)
580 W2=PEEK(PU+4+J):GOSUB640:POKEAU+4+J,W:NEXTJ
590 NEXTI:RETURN
600 OPENMO,8,0,DV$:SYS50239:CLOSEMO:RETURN
610 PRINT"   ";:FORI=40855TO40886:PRINTCHR$(PEEK(I));:NEXTI
620 PRINTCHR$(13);"  ";:FORI=40887TO40917:PRINTCHR$(PEEK(I));
630 NEXTI:RETURN
640 W=W1ORW2:RETURN
650 GOSUB5480:IFBI<299ORBI>400THENGOTO680
660 IFPEEK(BG+24)=0THENA$="ES IST ZU FINSTER ZUM SEHEN!":P=2:GOSUB5460
670 IFPEEK(BG+24)=0THENGOTO960
680 IFPEEK(AU+4)<>0ORPEEK(AU+5)<>0THENGOTO700
690 IFPEEK(AU+6)=0ANDPEEK(AU+7)=0THENRETURN
700 PRINT"     ZU SEHEN: ";:Z2=1:Y=0
710 D$="ZU SEHEN: ":GOTO1680
720 Z=200:Z1=207:P=2:X2=12:DZ=104:GOSUB860
730 B0=0:A$="":FO=0:FORY=4TO7:HE=BD(Y):GOSUB1920
740 GOSUB2020:X=0
750 READA$:READBO:IFBU(X)<>BOTHENGOTO780
760 X3=Z:Z=X2:GOTO5350
770 X2=Z:Z=X3
780 X=X+1:IFX<8THENGOTO750
790 X=0:Z1=Z1+8:NEXTY:Z2=0:RETURN
800 IFNL=1THENGOTO820
810 HE=PEEK(AU+3):GOSUB1920
820 IFBU(7)=1THENUB=1:BU(7)=0:NL=1:RETURN
830 IFBU(6)=1THENUB=2:BU(6)=0:NL=1:RETURN
840 IFBU(5)=1THENUB=4:BU(5)=0:NL=1:RETURN
850 IFBU(4)=1THENUB=8:BU(4)=0:NL=1:RETURN
860 RESTORE:FORI=1TODZ:READA$:READQ:NEXTI:RETURN
870 IFBT=7THENWW=1:GOTO950
880 IFBT=6THENWW=2:GOTO950
890 IFBT=5THENWW=4:GOTO950
900 IFBT=4THENWW=8:GOTO950
910 IFBT=3THENWW=16:GOTO950
920 IFBT=2THENWW=32:GOTO950
930 IFBT=1THENWW=64:GOTO950
940 IFBT=0THENWW=128:GOTO950
950 RETURN
960 IFBI<>224THENGOTO1000
970 IFUB=0THENGOSUB5480:A$="RUMS.... EIN FELSBROCKEN":GOSUB5460
980 IFUB=0THENA$="FAELLT VOR DEN EINGANG":P=5:GOSUB5460:UB=1:GOTO150
990 I=FRE(0):I=0
1000 IFBI<>313THENGOTO1030
1010 IFPEEK(BG+27)=0THENA$="RUMS... DIE TUER KNALLT ZU!":GOSUB5460
1020 IFPEEK(BG+27)=0THENPOKEBG+27,1
1030 A$="":IFFR=1THENGOTO1200
1040 R=0:X=0:BF=0:BA=0:V=0:BO=0:POKEBG,PEEK(BG)+1
1050 IFBI=105THENPOKEBG+1,PEEK(BG)
1060 IFPEEK(BG)=255THENA$="DEINE LEBENSUHR IST ABGELAUFEN!":GOSUB5460
1070 IFPEEK(BG)=255THENGOTO5780
1080 IFBI<99ORBI>205THENGOTO1160
1090 IFPEEK(BG)-PEEK(BG+1)<23THENGOTO1160
1100 IFPEEK(BG)-PEEK(BG+1)=28THENGOTO1140
1110 A$="LUFT REICHT NICHT MEHR LANGE"
1120 POKEBG+7,0:P=7:GOSUB5460:GOSUB5530:P=7:GOSUB5480
1130 GOTO1160
1140 A$="ATEMGERAET IST LEER!!! ":P=7:GOSUB5460
1150 GOTO5780
1160 IFPEEK(BG+2)<>8THENGOTO1190
1170 A$="DU STIRBST AN DEN ENTZUENDUNGEN"
1180 P=7:GOSUB5460:GOTO5780
1190 IFPEEK(BG+2)<>0THENPOKEBG+2,PEEK(BG+2)+1
1200 V$="":O$="":O1$="":V=O:IFFR=1THENGOTO1230
1210 P=7:GOSUB5480:A$="WAS NUN? ":P=7:GOSUB5460
1220 A$="":X=0
1230 GOTO20
1240 X=1:Y1=LEN(A$)
1250 IFRIGHT$(A$,1)=" "THENA$=LEFT$(A$,Y1-1):Y1=Y1-1
1260 FORY=1TOY1
1270 IFMID$(A$,Y,1)=" "ANDX=1THENV$=LEFT$(A$,Y-1):V=LEN(V$)+1:X=X+1
1280 NEXTY:IFX=1THENGOTO1350
1290 FORY=Y1TO1STEP-1
1300 IFMID$(A$,Y,1)=" "ANDX=2THENO$=RIGHT$(A$,LEN(A$)-Y):X=X+1
1310 NEXTY:IFLEN(O$)+V=Y1THENGOTO1330
1320 O1$=MID$(A$,LEN(V$)+2,LEN(A$)-LEN(O$)-LEN(V$)-2)
1330 IFRIGHT$(V$,1)="E"THENV$=LEFT$(V$,LEN(V$)-1)
1340 IFO1$="UEBER"THENO$=O1$
1350 IFLEN(O$)=0THENO$=A$
1360 IFO$="INVENTUR"ORO$="I"THENGOSUB5480:GOTO5260
1370 IFO$="SIEH"ORO$="SCHAU"THENGOSUB650:GOTO960
1380 IFV$="STOSS"ANDO$="AUF"THENO$=O1$:GOTO1490
1390 IFV$="ZIEH"THENA$=O$:O$=O1$:O1$=A$
1400 IFV$="LEG"ANDO$="HIN"THENO$=O1$:GOTO1490
1410 IFO$="HILFE"ORO$="H"THENGOSUB5480:GOTO5690
1420 IFO$="LADE"ORO$="L"THENGOTO5940
1430 IFO$="SPEICHER"ORO$="SP"THENGOTO5860
1440 IFLEN(V$)<>0THENGOTO1490
1450 DZ=40:GOSUB860:X=0
1460 READA$:READR:X=X+1:IFA$=O$THENGOTO1670
1470 IFX<18THENGOTO1460
1480 GOTO1650
1490 IFFR<>0THENV=V1:GOTO1670
1500 X=0:A$="":RESTORE
1510 READA$:READV:X=X+1:IFA$=V$THENGOTO1670
1520 IFX<40THENGOTO1510
1530 V=0:GOTO1650
1540 DZ=104:GOSUB860:X=0:A$="":BO=0
1550 READA$:READBO:X=X+1:IFA$=O$ORA$=O1$THENGOTO1740
1560 IFZO=BOTHENGOTO5290
1570 IFX<35THENGOTO1550
1580 IFZ1=1THENGOTO5390
1590 BO=0
1600 DZ=59:GOSUB860:X=0:A$="":FO=0
1610 READA$:READFO:X=X+1:IFA$=O$THENGOTO1820
1620 IFX<46THENGOTO1610
1630 IFBF=0ANDBA=0THENGOTO1450
1640 GOTO2100
1650 GOSUB6180:GOTO960
1660 GOSUB7000:GOTO1550
1670 Y=0:GOSUB5480
1680 FORX=AUTOAU+19:BD(Y)=PEEK(X):Y=Y+1:NEXTX:Y=0
1690 IFZ2=1THENGOTO720
1700 IFR=0THENGOTO1540
1710 Z=50:Z1=57:X1=R:HE=BD(14):GOSUB1920:GOSUB2020
1720 IFBU(X)=RTHENGOTO6290
1730 GOTO1650
1740 IFV=8THENGOTO1790
1750 Y=4:Z=200:Z1=207:X1=BO
1760 HE=BD(Y):GOSUB1920:GOSUB2020:IFBU(X)=BOTHENGOTO2100
1770 Y=Y+1:IFY>7THENGOTO1790
1780 Z1=Z1+8:GOTO1760
1790 IFV<>7THENGOSUB6250:IFZ=1THENZ=0:GOTO2100
1800 IFV=13ANDO1$="AUS"THENGOTO2100
1810 GOTO1650
1820 Y=8:Z=60:Z1=67:X1=FO
1830 HE=BD(Y):GOSUB1920:GOSUB2020
1840 IFBU(X)=FOANDBF=0THENBF=FO:A$=""
1850 IFBU(X)=FOANDBF=FOANDO1$<>""THENO$=O1$:X=0:FO=0:GOTO1600
1860 IFBF<>0ANDO1$=""THENGOTO2100
1870 IFBU(X)=FOANDBF<>0THENBA=FO:FO=0:GOTO2100
1880 Y=Y+1:IFY>13THENGOTO1900
1890 Z1=Z1+8:GOTO1830
1900 IFBF=0ANDBA=0THENGOTO1450
1910 GOTO2100
1920 FORX=0TO7:BU(X)=0:NEXTX:X=0
1930 IFHE>=128THENBU(X)=1:HE=HE-128
1940 X=X+1:IFHE>=64THENBU(X)=1:HE=HE-64
1950 X=X+1:IFHE>=32THENBU(X)=1:HE=HE-32
1960 X=X+1:IFHE>=16THENBU(X)=1:HE=HE-16
1970 X=X+1:IFHE>=8THENBU(X)=1:HE=HE-8
1980 X=X+1:IFHE>=4THENBU(X)=1:HE=HE-4
1990 X=X+1:IFHE>=2THENBU(X)=1:HE=HE-2
2000 X=X+1:IFHE=1THENBU(X)=1
2010 RETURN
2020 X=0
2030 GOTO2080
2040 IFBU(X)=X1ANDZ2<>1THENRETURN
2050 Z=Z+1:IFZ>Z1THENRETURN
2060 X=X+1:IFX>7THENRETURN
2070 GOTO2030
2080 IFBU(X)=1THENBU(X)=Z:GOTO2040
2090 GOTO2050
2100 IFBF<>69THENGOTO2150
2110 A$="DIE NIXE HUELLT DICH IN SANFTE"
2120 GOSUB5460
2130 A$="TRAEUME UND TRAEGT DICH DAVON":P=5
2140 GOSUB5460:GOSUB5530:BI=121:GOTO150
2150 ONVGOTO2180,2280,2490,2680,2700,2720,2770,3170,3520,3620
2160 ONV-10GOTO3690,3750,3800,3850,4020,4110,4150,4240,4350,4440
2170 ONV-20GOTO4480,4580,4630,4670,4770,4800,4840,4880
2180 IFBF=76THENBI=BI+400:GOTO150
2190 IFBI>600ANDBI<700THENBI=BI-400:GOTO150
2200 IFBI<>116ORBF<>70THENGOTO2230
2210 IFPEEK(BG+5)<>1THENA$="DIE PFLANZE HAT DICH GEFRESSEN!":GOSUB5460
2220 IFPEEK(BG+5)<>1THENGOTO5780
2230 IFBF<>85ORPEEK(BG+23)<>0ORBI<>244THENGOTO2260
2240 POKEBG+23,1:W1=PEEK(AU+6):W2=32:GOSUB640:POKEAU+6,W
2250 GOSUB650:GOTO960
2260 A$="ICH SEHE NICHTS BESONDERES":GOSUB5460
2270 GOTO960
2280 IFBF=70THENGOTO2200
2290 IFBI=113ANDUB=0ANDBO=215THENGOTO2830
2300 IFBF<>67ORPEEK(BG+9)=1THENGOTO2340
2310 A$="DEIN BOOT IST ABGETRIEBEN":GOSUB5460
2320 A$="DU BIST RETTUNGSLOS VERLOREN":P=5
2330 GOSUB5460:GOTO5780
2340 IFBF=67ANDPEEK(BG+9)=1THENBI=0:GOTO150
2350 IFBF=62ANDUB=1THENBI=2:GOTO150
2360 IFBF=63THENBI=4:GOTO150
2370 IFBF=60THENBI=0:GOTO150
2380 IFBI=123ANDPEEK(BG+4)=1THENBI=204:GOTO150
2390 IFBI<>123THENGOTO2430
2400 A$="DER TINTENFISCH HAT ALLES":GOSUB5460
2410 A$="RINGSUM SCHWARZ GEFAERBT":P=5
2420 GOSUB5460:BI=121:GOTO150
2430 IFBF=71ORBF=78THENBI=121:GOTO150
2440 IFBF=83ANDBI=436THENGOTO4020
2450 IFBF=83ANDPEEK(AU+6)=0THENBI=436:GOTO150
2460 IFBF=95ORBF>99ANDBF<104THENGOSUB5610:GOTO150
2470 IFBA>99ANDBA<104THENGOSUB5610:GOTO150
2480 GOTO1650
2490 IFFR<>0ANDBO<>0THENGOSUB6250:IFZ<>1THENGOTO2670
2500 IFBO=217ANDBI=127ANDUB=0THENUB=1:GOTO150
2510 IFBI<>323THENGOTO2530
2520 IFBF=82ORBF=61THENA$="DIE TUERE KLEMMT!":GOSUB5460:GOTO960
2530 IFBI=233ANDBF=82THENPOKEBG+26,1:GOTO2650
2540 IFBI=507ANDBO=227THENGOSUB5770:POKEBG-2,1:GOTO960
2550 IFBF=80ANDFR=0THENY=5:GOSUB5400:GOTO960
2560 IFBO<>224THENGOTO2590
2570 IFPEEK(BG-3)=0THENW1=PEEK(AU+6):W2=4:GOSUB640:POKEAU+6,W
2580 IFPEEK(BG-3)=0THENPOKEBG-3,1:GOSUB650:GOTO960
2590 IFBO=228ANDBI=323THENUB=1:FR=0:POKEBG+26,1:GOTO150
2600 IFBO=231ANDBI=232THENFR=0:UB=4:GOTO150
2610 IFBF<>104THENGOTO2650
2620 POKEBG+13,1
2630 A$="DAS BECKEN LAEUFT VOLL WASSER"
2640 GOSUB5460
2650 IFBF=61ORBF=104ORBF=90THENUB=1:GOTO150
2660 IFBF=82THENUB=4:GOTO150
2670 GOTO1650
2680 IFBF=64THENBI=3:GOTO150
2690 IFBF=83THENGOTO4120
2700 V=23:GOTO4630
2710 GOTO1650
2720 IFBF<>76ORBI<>242THENGOTO2750
2730 IFPEEK(BG-4)=0THENA$="DU HAST EINEN DIAMANTEN GEFUNDEN":GOSUB5460
2740 IFPEEK(BG-4)=0THENGOSUB5530:BO=221:GOTO2900
2750 IFBF=76THENA$="DIE VASE IST LEER!":GOSUB5460:GOTO960
2760 GOTO1650
2770 IFBI=236ORBI=324ANDPEEK(BG+6)<2THENGOTO5020
2780 IFBO<>219ORPEEK(BG+11)<>0THENGOTO2830
2790 A$="DIE BIENEN HABEN ZUGESTOCHEN"
2800 GOSUB5460
2810 A$="VOR SCHRECK GING DER TOPF KAPUUTT"
2820 P=5:GOSUB5460:GOSUB5170:UB=1:GOTO150
2830 IFBI=236ANDPEEK(BG+14)=0THENGOTO2860
2840 IFUB<>0THENGOTO2880
2850 IFBO<>215ANDBO<>223THENGOTO2880
2860 A$="DER ":A1$="NBISS WAR TOETLICH!"
2870 A$=A$+O$+A1$:GOSUB5460:GOTO5780
2880 IFBF=84THENGOTO4550
2890 IFBO=200ANDPEEK(BG+3)=1THENGOTO1650
2900 X=40775:IFBO=0THENGOTO1650
2910 IFPEEK(BG+15)=0THENGOTO2930
2920 IFBO=221THENPOKEBG+15,PEEK(BG+15)+1:GOSUB5170:GOTO3050
2930 IFPEEK(BG+16)=0THENGOTO2950
2940 IFBO=218THENPOKEBG+16,PEEK(BG+16)+1:GOSUB5170:GOTO3050
2950 IFBI<>232ORPEEK(BG+12)<>0THENGOTO2980
2960 A$="BIST DU BLIND??":P=3:GOSUB5460:BO=223
2970 O$="SCHLANGE":GOTO2830
2980 IFBO=204ANDPEEK(BG+7)=2THENPOKEBG+7,1
2990 IFX>40780THENA$="DAS KANNST DU NICHT MEHR TRAGEN!":GOSUB5460:GOTO960
3000 IFPEEK(X)<>0THENGOTO3030
3010 IFPEEK(X)=0THENPOKEX,BO
3020 IFPEEK(BG+3)=1ANDBO=200THENPOKEBG+3,0:GOSUB5710:GOTO960
3030 IFPEEK(X)=BOTHENGOSUB5170:GOTO3050
3040 X=X+1:GOTO2990
3050 IFBO=215ANDBI=113ORBO=217ANDBI=127THENUB=2:GOTO150
3060 IFBO=214ANDBI=4ORBO=226ANDBI=315THENUB=2:GOTO150
3070 IFUB=1ANDBO=228THENGOTO3160
3080 IFBO=206ANDBI=333ANDPEEK(BG+8)=1THENPOKEBG+8,0
3090 IFBO=200ANDBI=2ORBO=216ANDBI=117THENUB=1:GOTO150
3100 IFBO=219ANDBI=223ORBO=224ANDBI=304THENUB=1:GOTO150
3110 IFBO=225ANDBI=315ORBO=228ANDBI=335THENUB=1:GOTO150
3120 IFBO=220THENGOTO3750
3130 IFPEEK(BG+15)=0ANDBO=221THENPOKEBG+15,1
3140 IFPEEK(BG+16)=0ANDBO=218THENPOKEBG+16,1
3150 IFV=6THENPOKEBG-4,1
3160 GOSUB650:GOTO960
3170 IFBI=3THENGOSUB5750:IFBO=204THENPOKEBG+1,2
3180 IFBI=236THENGOTO1650
3190 IFBI=234ORBI=508THENGOTO5540
3200 IFBI<>324ORBO<>219THENGOTO3240
3210 A$="HURRA...LECKERER HONIG! AMEISEN"
3220 GOSUB5460:A$="NASCHEN UND VERSCHWINDEN!"
3230 P=5:GOSUB5460:POKEBG+6,2:GOSUB5530
3240 Y=0:X=40775:IFBO=0THENGOTO1650
3250 IFBI=234ANDBO=221ORBI=509ANDBO=218THENGOTO3320
3260 IFBO<>221THENGOTO3290
3270 POKEBG+15,PEEK(BG+15)-1:GOSUB5750
3280 IFPEEK(BG+15)<>0THENGOTO960
3290 IFBO<>218THENGOTO3320
3300 POKEBG+16,PEEK(BG+16)-1:GOSUB5750
3310 IFPEEK(BG+16)<>0THENGOTO960
3320 IFPEEK(X)<>BOTHENGOTO3340
3330 POKEX,0:Y=1:IFPEEK(BG+3)=1ANDBO=200ORBI=3THENGOTO960
3340 IFY<>1THENGOTO3420
3350 IFBI=234ANDBO=221ORBI=509ANDBO=218THENGOTO150
3360 IFBO<>202ORPEEK(BG+24)<>1THENGOTO3400
3370 IFBI<300ORBI>400ANDBI<>713THENGOTO3400
3380 A$="KRACH-DIE LAMPE ZERSPRINGT":GOSUB5460
3390 V=0:POKEBG+24,0:POKE50180,0:POKE50181,0:SYS50555
3400 IFV=8ANDBO<>221ANDBO<>218THENGOSUB5170:GOTO3470
3410 GOTO960
3420 X=X+1:IFX>40780THENGOTO1650
3430 GOTO3320
3440 IFBO=219ANDV=25THENUB=1:GOTO150
3450 IFBO=214THENUB=2:GOTO150
3460 IFV<>8THENGOTO960
3470 IFBI<100ORBI>205ORBO<>204THENGOTO3500
3480 A$="DU IDIOT!!! UCKS... ROECHEL....."
3490 GOSUB5460:GOTO5780
3500 IFBO=204ANDPEEK(BG+7)=1THENPOKEBG+7,2
3510 GOSUB650:GOTO960
3520 IFBF<>88THENGOTO3560
3530 A$="DIDILI DIDELA....":GOSUB5460
3540 A$="DER WEIN IST GUUUT":P=5:GOSUB5460
3550 POKEBG,PEEK(BG)+5:GOTO960
3560 GOSUB6250:IFZ<>1THENGOTO3610
3570 IFBI<99ORBI>200THENGOTO3600
3580 A$="WIE WILLST DU HIER TRINKEN?":GOSUB5460
3590 GOTO960
3600 IFBO=213THENA$="HMM! DAS TUT GUT":GOSUB5460:POKEBG+2,0:GOTO960
3610 GOTO1650
3620 IFBI<>232THENGOTO1650
3630 IFBO=223THENY=5:GOSUB5400:GOTO960
3640 IFFR<>0THENGOSUB6250:IFZ<>1THENGOTO1650
3650 IFBO<>216THENGOTO3680
3660 FR=0:UB=1:POKEBG+12,1:BO=223:V=7:GOSUB5170
3670 GOTO150
3680 GOTO1650
3690 IFFR=0THENGOSUB6250:IFZ<>1THENGOTO3740
3700 IFBO<>204ORBI<>2THENGOTO3720
3710 IFPEEK(BG+7)=0THENGOSUB5770:POKEBG+7,1:GOTO960
3720 IFBO=226ANDBI=234THENY=5:GOSUB5400:GOTO960
3730 IFBF=64THENPOKEBG+10,1:GOSUB5770:FR=0:GOTO960
3740 GOTO1650
3750 IFBI=232ANDPEEK(BG+12)=0THENGOTO2950
3760 IFBO=220ANDBI=232THENUB=2:GOTO150
3770 IFBF=81THENUB=2:GOTO150
3780 IFBF=86THENUB=1:GOTO150
3790 GOTO1650
3800 IFPEEK(BG+3)=0ANDBO=200THENGOSUB6250:IFZ<>1THENGOTO3840
3810 IFZ<>1ORO1$<>"AN"THENGOTO3830
3820 IFPEEK(BG+3)=0THENGOSUB5710:POKEBG+3,1:Z=0:GOTO3240
3830 IFBO=200ANDO1$="AUS"ANDPEEK(BG+3)=1THENGOTO2900
3840 GOTO1650
3850 IFBI=507ORPEEK(BG+10)=0THENGOTO1650
3860 IFFR=0ANDBF=64THENY=1:BF=0:GOSUB5400:GOTO960
3870 IFFR=0ANDBO=226THENY=1:BF=0:GOSUB5400:GOTO960
3880 IFBF<>94ORBA<>0THENGOTO3910
3890 A$="RECHTE ODER LINKE?":GOSUB5460:FR=0
3900 BF=64:GOTO3860
3910 IFBF=94ANDBA=98ORBF=98THENPOKEBG+17,PEEK(BG+17)+1:FU=17
3920 IFBF=94ANDBA=98ORBF=98THENGOSUB5730
3930 IFBF=94ANDBA=99ORBF=99THENPOKEBG+18,PEEK(BG+18)+1:FU=18
3940 IFBF=94ANDBA=99ORBF=99THENGOSUB5730
3950 IFPEEK(BG+18)=2ANDPEEK(BG+17)=2THENUB=2:FR=0:GOTO150
3960 IFPEEK(BG+17)+PEEK(BG+18)<4THENGOTO4000
3970 A$="DAS WAR NICHT GERECHT!DIE RACHE"
3980 GOSUB5460:A$="DER GOETTER IST BRUTAL":P=5
3990 GOSUB5460:GOTO5780
4000 IFFR=1THENFR=0:GOTO960
4010 GOTO1650
4020 IFBF=67THENGOTO2300
4030 IFBO=206ANDUB=1ANDBI=333THENBI=334:GOTO150
4040 IFBF=77THENBI=BI+200:GOTO150
4050 IFBI<>436ORBF<>83THENGOTO4070
4060 IFPEEK(BG+13)<>1THENA$="DIE SPINNE FRISST DICH AUF":GOSUB5460:GOTO5780
4070 IFBI<>333THENGOTO4100
4080 A$="DU FAELLST IN DIE SCHLANGENGRUBE"
4090 GOSUB5460:GOTO5780
4100 GOTO1650
4110 IFBI>99ANDBI<205THENGOTO2280
4120 IFBF=83ANDPEEK(BG+13)=1ANDBI=436THENBI=736:GOTO150
4130 IFBF=83ANDBI=436THENGOTO4050
4140 GOTO1650
4150 IFBI<503ORBI>506THENGOTO1650
4160 IFFR=0ANDBF=95THENY=2:GOSUB5400:GOTO960
4170 IFBI=503THENPOKEBG+19,0:IFR=51THENPOKEBG+19,1
4180 IFBI=504THENPOKEBG+20,0:IFR=52THENPOKEBG+20,1
4190 IFBI=505THENPOKEBG+21,0:IFR=50THENPOKEBG+21,1
4200 IFBI=506THENPOKEBG+22,0:IFR=53THENPOKEBG+22,1
4210 FR=0:IFPEEK(BG+19)<>1ORPEEK(BG+20)<>1THENGOTO4230
4220 IFPEEK(BG+21)=1ANDPEEK(BG+22)=1THENBI=507:GOTO150
4230 BI=501:GOTO150
4240 IFBF=68THENPOKEBG+9,1:UB=1:GOTO150
4250 IFBO<>206ORBI<>333THENGOTO4280
4260 IFPEEK(BG+8)=0THENA$="PLUMBS...DAS SEIL IST WEG":GOSUB5460
4270 IFPEEK(BG+8)=0THENGOSUB5530:GOTO3240
4280 IFBO=204THENV=8
4290 IFBO=206ANDBI=333THENV=7:GOSUB5170:UB=1:GOTO150
4300 IFBO=0THENGOTO4340
4310 GOSUB6250:IFZ<>1THENGOTO4340
4320 A$=" WURDE GEWORFEN - ":P=3:A$=O$+A$
4330 GOSUB5460:GOSUB5750:GOTO3240
4340 GOTO1650
4350 IFPEEK(BG+12)<>1ORBO<>216ORBI<>236THENGOTO4400
4360 POKEBG+14,1:POKEBG+12,2
4370 A$="DAS WAR EINE GUTE IDEE!":GOSUB5460
4380 A$="DIE SCHLANGE FRISST DIE RATTE":P=5
4390 GOSUB5460:UB=1:GOTO150
4400 IFPEEK(BG-2)<>1THENGOTO4430
4410 IFFR=0ANDBO=227THENY=1:GOSUB5400:GOTO960
4420 IFBI=507ANDBF=94THENGOSUB5770:POKEBG-1,1:Z=0:FR=0:GOTO960
4430 GOTO1650
4440 IFFR<>0THENGOSUB6250:IFZ<>1THENGOTO4470
4450 IFBO=228THENUB=1:FR=0:POKEBG+26,1:GOTO150
4460 IFBF=61ORBF=82ANDBI=323THENY=5:GOSUB5400:GOTO960
4470 GOTO1650
4480 IFBF<>84THENGOTO4570
4490 A$="GIB DEN BLINDEN WAECHTERN DAS":P=3
4500 GOSUB5460
4510 A$="LICHT DES EWIGEN LEBENS ZURUECK"
4520 GOSUB5460
4530 A$="UND VERTEILE IHREN DANK GERECHT"
4540 P=5:GOSUB5460:GOSUB5530:GOSUB5530:GOSUB5480
4550 A$="DIE ROLLE VERFAELLT ZU STAUB"
4560 GOSUB5460:UB=1:GOTO150
4570 GOTO1650
4580 IFBO=215THENY=5:GOSUB5400:GOTO960
4590 IFFR<>1ORBO<>201THENGOTO4610
4600 GOSUB6250:IFZ=1THENUB=1:FR=0:GOTO150
4610 IFBO=223THENA$="DIE SCHLANGE IST SCHNELLER":P=3:GOSUB5460:GOTO2830
4620 GOTO1650
4630 IFFR=1THENGOTO4650
4640 IFBO=206THENGOSUB6250:IFZ=1THENY=3:GOSUB5400:GOTO960
4650 IFBF=77THENPOKEBG+8,1:FR=0:GOSUB5770:V=8:BO=206:GOTO3240
4660 GOTO1650
4670 IFFR=1THENGOSUB6250:GOTO4690
4680 IFBF=74ORBF=70THENY=5:GOSUB5400:GOTO960
4690 IFBI<>123ORZ<>1ORBO<>217THENGOTO4730
4700 POKEBG+4,1:FR=0:Z1=0
4710 A$="DER TINTENFISCH FREUT SICH":GOSUB5460
4720 GOTO3240
4730 IFBI<>116ORZ<>1ORBO<>215THENGOTO4760
4740 POKEBG+5,1:FR=0:Z1=0
4750 A$="DIE PFLANZE IST SATT":GOSUB5460:GOTO3240
4760 GOTO1650
4770 GOSUB6250:IFZ<>1THENGOTO4790
4780 IFBO=219THENA$="HMMM!! - DER WAR GUT":GOSUB5460:GOTO3240
4790 GOTO1650
4800 IFFR<>0THENGOTO4820
4810 IFBF=75THENY=5:GOSUB5400:GOTO960
4820 GOSUB6250:IFZ=1THENZ=0:FR=0:UB=1:GOTO150
4830 GOTO1650
4840 IFBF=75ANDUB=1ANDBI=133THENBI=214:A=2:GOTO7080
4850 IFBF=75ANDBI=214THENBI=133:A=1:GOTO7080
4860 IFBF=87THENBI=713:GOTO150
4870 GOTO1650
4880 IFFR=1THENGOTO4900
4890 IFBF=79ORBF=97THENY=5:GOSUB5400:GOTO960
4900 GOSUB6250:IFZ<>1THENGOTO4960
4910 IFBO=202THENPOKEBG+24,1:Z=0:SYS50558:GOTO960
4920 IFBI<>223THENGOTO4950
4930 A$="DIE BIENEN WERDEN AUSGERAEUCHERT"
4940 GOSUB5460:POKEBG+11,1:FR=0:Z=0:GOTO960
4950 IFBI=507ANDPEEK(BG-1)=1THENFR=0:Z=0:BI=508:GOTO150
4960 GOTO1650
4970 IFBI>400ANDBI<500THENBI=BI-200
4980 IFBI>600ANDBI<800THENBI=BI-400
4990 IFBI>502ANDBI<507THENRETURN
5000 IFBI>500THENBI=234
5010 RETURN
5020 IFPEEK(BG+14)<>1ANDBO=218THENO$="RATTE":GOTO2830
5030 IFPEEK(BG+14)=1ANDPEEK(BG+13)=1ANDBO=218THENGOTO2900
5040 IFPEEK(BG+14)<>1ORBO<>218THENGOTO5090
5050 A$="DIE PERLE IST DIR AUS DER HAND"
5060 GOSUB5460
5070 A$="GEGLITTEN.SIE KULLERT INS BECKEN"
5080 P=5:GOSUB5460:GOSUB5170:GOTO960
5090 IFBI=324ANDPEEK(BG+6)=1THENGOTO1650
5100 IFBI<>324ORBO<>221THENGOTO5160
5110 A$="HUCH! DER DIAMANT FAELLT HIN":P=3
5120 GOSUB5460:POKEBG+6,1
5130 A$="PASS AUF! AMEISEN VERSCHLEPPEN"
5140 GOSUB5460:A$="DEN DIAMANTEN":P=5:GOSUB5460
5150 GOTO960
5160 GOTO1650
5170 AS=AU+4:BT=0
5180 IFBO<208ANDBO>199THENBY=0:BT=BO-200
5190 IFBO<216ANDBO>207THENBY=1:BT=BO-208
5200 IFBO<224ANDBO>215THENBY=2:BT=BO-216
5210 IFBO<232ANDBO>223THENBY=3:BT=BO-224
5220 IFV=7THENGOTO5250
5230 IFV<>8THENRETURN
5240 GOSUB870:POKEAS+BY,PEEK(AS+BY)+WW:RETURN
5250 GOSUB870:POKEAS+BY,PEEK(AS+BY)-WW:RETURN
5260 PRINT"     DU HAST: ";:D$="DU HAST: "
5270 FORY=40775TO40780:DZ=104:GOSUB860:X=0:A$=""
5280 BO=0:Z1=1:GOSUB7000:GOTO1550
5290 IFZO=216ANDPEEK(BG+12)=1THENA$="NETZ MIT SCHLANGE"
5300 IFZO=221ANDPEEK(BG+15)=1THENGOTO5350
5310 IFZO=218ANDPEEK(BG+16)=1THENGOTO5350
5320 IFZO=218THENO$=STR$(PEEK(BG+16)):O1$="N"
5330 IFZO=221THENO$=STR$(PEEK(BG+15)):O1$="EN"
5340 IFZO=218ORZO=221THENA$=O$+A$+O1$
5350 DL=LEN(D$):D$=D$+A$+" "
5360 IFLEN(D$)>32THEND$="":D$=A$+" ":PRINTSPC(40-DL);
5370 PRINTA$;" ";:ZO=0:IFZ2=1THENGOTO770
5380 NEXTY
5390 Z1=0:GOTO960
5400 P=7:GOSUB5480:P=7:IFY=1THENA$="WOHIN? ":GOSUB5460
5410 IFY=2THENA$="IN WELCHE RICHTUNG? ":GOSUB5460
5420 IFY=3THENA$="WORUM? ":GOSUB5460
5430 IFY=4THENA$="ZU WELCHEM? ":GOSUB5460
5440 IFY=5THENA$="WOMIT? ":GOSUB5460
5450 FR=1:V1=V:RETURN
5460 PRINTCHR$(19);:FORI=1TOP:PRINTCHR$(17);:NEXTI:PRINT"  ";A$;:P=4
5470 RETURN
5480 PRINT"     ";:IFP=7THENPE=7:PRINT"     ";:GOTO5500
5490 P=2:PE=6
5500 FORI=PTOPE
5510 PRINT"                                        ";
5520 NEXTI:P=4:X=0:RETURN
5530 FORX=1TO5000:NEXTX:RETURN
5540 IFV=8ANDBO=221THENY=1:GOSUB5400:GOTO960
5550 IFFR<>1ORBF<>93THENGOTO5580
5560 IFPEEK(BG+15)<>4THENA$="WIR HABEN JEDER ZWEI AUGEN":GOSUB5460:FR=0:GOTO960
5570 IFPEEK(BG+15)=4THENFR=0:POKEBG+15,0:BO=221:UB=1:GOTO3240
5580 IFBO<>218ORBI<>508THENGOTO5610
5590 IFPEEK(BG+16)<7THENA$="DAS SIND NICHT GENUG PERLEN":GOSUB5460:GOTO960
5600 BI=509:POKEBG+16,0:GOTO3240
5610 IFFR=0ANDBF=95ANDBA=0THENY=4:BF=0:GOSUB5400:GOTO960
5620 IFFR=1ANDBA=0THENBA=BF
5630 IFBA=100THENBI=504:FR=0:RETURN
5640 IFBA=101THENBI=506:FR=0:RETURN
5650 IFBA=102THENBI=503:FR=0:RETURN
5660 IFBA=103THENBI=505:FR=0:RETURN
5670 IFBI=234ANDBO=218THENGOTO1650
5680 RETURN
5690 A$="":FORX=40918TO40949:A$=A$+CHR$(PEEK(X)):NEXTX
5700 P=7:GOSUB5460:GOSUB5530:GOTO960
5710 A$="DER ANZUG IST ":A1$="GEZOGEN"
5720 A$=A$+O1$+A1$:GOSUB5460:RETURN
5730 A$="DIE "+O$+" SCHALE WURDE"+STR$(PEEK(BG+FU))+" MAL           GEFUELLT"
5740 GOSUB5460:RETURN
5750 A$="OHJEE... DAS IST FUER IMMER WEG!"
5760 P=5:GOSUB5460:RETURN
5770 A$="OK!":GOSUB5460:RETURN
5780 BI=999:UB=0:GOTO150
5790 P=7:GOSUB5480
5800 A$="MOECHTEST DU NOCHMAL? <RETURN> "
5810 P=7:GOSUB5460
5820 GETX$:IFX$=""THENGOTO5820
5830 X=ASC(X$)
5840 IFX=13THENSS=1:GOSUB460:BI=0:A=1:GOTO7080
5850 GOTO5790
5860 BN=PEEK(40815):GOSUB470:IFOK=0THENGOSUB500
5870 P=5:GOSUB5480
5880 A$="SPEICHERDISK EINLEGEN <RETURN> "
5890 P=7:GOSUB5460
5900 GETX$:IFX$=""THENGOTO5900
5910 X=ASC(X$):IFX<>13THENGOTO5870
5920 OPEN6,8,2,"@0:PROGDISK.TST,S,W"
5930 FORI=40342TO40854:X=PEEK(I):PRINT#6,X:NEXTI:CLOSE6:GOTO6020
5940 A$="SPEICHERDISK EINLEGEN <RETURN>":P=7
5950 GOSUB5460
5960 GETX$:IFX$=""THENGOTO5960
5970 X=ASC(X$):IFX<>13THENGOTO5940
5980 OPEN6,8,2,"0:PROGDISK.TST,S,R":OPEN15,8,15
5990 INPUT#15,F
6000 IFF<>0THENPRINT"        FALSCHE DISK           ":CLOSE6:CLOSE15:GOTO5940
6010 FORI=40342TO40854:INPUT#6,X:POKEI,X:NEXTI:CLOSE6:CLOSE15
6020 BI=PEEK(PU+1)*100+PEEK(PU+2):UB=0:P=6:GOSUB5480
6030 IFBI<200THENA=1:GOTO7080
6040 IFBI>300ANDBI<400THENA=1:GOTO7080
6050 IFBI>500ANDBI<600ORBI=234THENA=1:GOTO7080
6060 A=2:GOTO7080
6070 OPEN5,8,2,"0:BILDDISK.TST,S,R":OPEN15,8,15
6080 INPUT#15,F:IFF<>0THENN=0:CLOSE5:CLOSE15:RETURN
6090 INPUT#5,Y:N=Y:CLOSE5:CLOSE15:RETURN
6100 X=INT(PEEK(54299)/65)+1:RETURN
6110 X=INT(PEEK(54299)/28):RETURN
6120 GOSUB5530:P=0:PE=7:GOSUB5500
6130 OPEN6,8,2,"0:TEXTENDE.TXT,P,R"
6140 PRINTCHR$(147);" ";:A=-2:FORX=1TO226:GET#6,A$:PRINTA$;
6150 A=A+1:IFA=32THENPRINTCHR$(13);"  ";:A=0
6160 NEXTX:CLOSE6:PRINT"       ***  SPIELENDE  ***"
6170 GOTO6170
6180 FR=0:GOSUB5480:GOSUB6110
6190 ONXGOTO6200,6210,6220,6230
6200 A$="DAS IST NICHT MOEGLICH":GOTO6240
6210 A$="PROBIER WAS ANDERES":GOTO6240
6220 A$="SO GEHT ES NICHT":GOTO6240
6230 A$="DENK NOCH MAL NACH":GOTO6240
6240 GOSUB5460:RETURN
6250 X=40775:Z=0
6260 IFPEEK(X)=BOTHENZ=1:RETURN
6270 X=X+1:IFX>40780THENRETURN
6280 GOTO6260
6290 IFBI>400ANDBI<>736THENGOSUB4970
6300 IFBI<299ORBI>400ORPEEK(BG+24)<>0THENGOTO6330
6310 A$="LAUFEN IM DUNKLEN IST TOETLICH!"
6320 GOSUB5460:GOTO5780
6330 IFBI=234ANDUB<>2ANDR<>51ORBI>500ANDBI<>736THENGOTO4150
6340 IFPEEK(BG+2)<>0ORBI<>103ORPEEK(BG+3)<>0THENGOTO6390
6350 A$="DU HAST KEINEN ANZUG! QUALLEN"
6360 GOSUB5460
6370 A$="ENTZUENDEN DEINE NACKTE HAUT!":P=5
6380 GOSUB5460:POKEBG+2,1:GOTO960
6390 IFBI<>121ORR=54THENGOTO6420
6400 A$="DU TREIBST IN EINER ENDLOSEN"
6410 GOSUB5460:A$="STROEMUNG!":P=5:GOSUB5460:GOTO960
6420 IFBI=123ANDPEEK(BG+4)<>1THENGOTO2390
6430 IFBI=122THENBO=215:GOSUB6250:IFZ<>1THENGOTO6490
6440 IFBI<>122THENGOTO6490
6450 A$="DAS BLUT DER MORAENE ZIEHT DIE"
6460 GOSUB5460
6470 A$="HAIE AN. DU HAST KEINE CHANCE":P=5
6480 GOSUB5460:GOTO5780
6490 IFBI<>124THENGOTO6530
6500 X=5:GOSUB6990
6510 IFX1>5THENA$="DU VERSINKST IM MORAST!"
6520 IFX1>5THENGOSUB5460:GOTO5780
6530 IFBI<>125ORR=56THENGOTO6580
6540 A$="DU BIST AN DEN PFLANZEN HAENGEN-"
6550 GOSUB5460
6560 A$="GEBLIEBEN. DU WIRST VERENDEN":P=5
6570 GOSUB5460:GOTO5780
6580 IFBI=116ANDPEEK(BG+5)=0THENBF=70:GOTO2200
6590 IFBI<>118THENGOTO6630
6600 GOSUB6100
6610 IFX=2THENA$="GEROELLSTEINE BEGRABEN DICH!"
6620 IFX=2THENGOSUB5460:GOTO5780
6630 IFR=50ANDBI=244THENA=1:BI=234:GOTO7080
6640 IFR=50ANDBI=234THENBI=501:GOTO150
6650 IFR=50ANDBI=204THENBI=123:GOTO150
6660 IFR=50THENBI=BI-10:GOTO150
6670 IFR=51ANDBI=234THENA=2:BI=244:GOTO7080
6680 IFR=51THENBI=BI+10:GOTO150
6690 IFR=52ANDBI=213ORR=52ANDBI=222THENBI=BI+9:GOTO150
6700 IFR=52ANDBI=231THENBI=BI+11:GOTO150
6710 IFR=52ANDBI=242ORR=52ANDBI=253THENBI=BI+11:GOTO150
6720 IFR=52THENBI=BI-1:GOTO150
6730 IFR=53ANDBI=215THENBI=BI+11:GOTO150
6740 IFR=53ANDBI=226THENBI=BI+11:GOTO150
6750 IFR<>53ORPEEK(BG+2)<>0ORBI<>107THENGOTO6780
6760 A$="KORALLEN HABEN DICH VERGIFTET!"
6770 GOSUB5460:POKEBG+2,1:GOTO960
6780 IFR=53ANDBI=246ORR=53ANDBI=255THENBI=BI+9:GOTO150
6790 IFR=53ANDBI=237THENBI=BI+9:GOTO150
6800 IFR=53ANDBI=333ORR=57ANDBI=333THENBO=206:GOTO4020
6810 IFR=53THENBI=BI+1:GOTO150
6820 IFR=54ANDBI>100ANDBI<110ORBI=121THENBI=3:GOTO150
6830 IFR<>54ORBI<>325THENGOTO6850
6840 IFPEEK(BG+25)<>1THENBI=BI-90:A=2:GOTO7080
6850 IFR=54ANDBI=323ANDUB=1THENBI=BI-90:A=2:GOTO7080
6860 IFR=54ANDBI=736THENBI=436:GOTO150
6870 IFR=54THENGOTO1650
6880 IFR<>55ORBI<>3THENGOTO6900
6890 IFPEEK(BG+7)<>1THENA$="OHNE LUFT?":GOSUB5460:GOTO960
6900 IFR=55ANDBI=3THENBI=105:GOTO150
6910 IFR<>55ORBI<>235THENGOTO6950
6920 BI=325:POKEBG+25,1
6930 A$="KNACKS-DIE TREPPE WAR ZU MORSCH"
6940 GOSUB5460:A=1:GOTO7080
6950 IFR=55ANDBI=233ANDPEEK(BG+26)=1THENBI=323:A=1:GOTO7080
6960 IFR=55THENGOTO150
6970 IFR=56THENBI=BI+1:GOTO150
6980 IFR=57THENBI=314:GOTO150
6990 Y=40775:X1=0:Z1=0
7000 IFPEEK(Y)<>0THENX1=X1+1:ZO=PEEK(Y):IFZ1=1THENRETURN
7010 IFX1>XANDZ1=0THENRETURN
7020 Y=Y+1:IFY<40781THENGOTO7000
7030 RETURN
7040 GOSUB460:ET$=".*":HA$="BILD":PU=40835
7050 AU=40815:BG=40785:DIMBD(20):POKE54286,3
7060 POKE54287,100:POKE54290,129:BI=0:UB=0:SS=1
7070 A=1:SYS50647
7080 P=7:GOSUB5480
7090 PRINT"          BITTE DISKETTE WENDEN    <RETURN>"
7100 GETX$:IFX$=""THENGOTO7100
7110 IFASC(X$)<>13THENGOTO7100
7120 GOSUB6070:IFN<>ATHENGOTO7150
7130 IFO$="SPEICHER"ORO$="SP"THENGOTO960
7140 GOTO150
7150 P=7:GOSUB5480:PRINT"       FALSCHE SEITE!"
7160 GOTO7080
7170 END
50000 DATA SEH,1,SIEH,1,BETRACHT,1,LAUF
50010 DATA 2,GEH,2,OEFFN,3,SPRING,4
50020 DATA BIND,5,GREIF,6,NIMM,7,NEHM,7
50030 DATA LEG,8,TRINK,9,FANG,10,FUELL
50040 DATA 11,SCHIEB,12,ZIEH,13,GIESS
50050 DATA 14,STEIG,15,KLETTER,15,TAUCH
50060 DATA 16,SCHWIMM,16,DREH,17,WERF
50070 DATA 18,LEER,19,DRUECK,20,STOSS
50080 DATA 20,LES,21,TOET,22,SCHLING,23
50090 DATA FUETTER,24,ISS,25,SCHLAG,26
50100 DATA HACK,26,KRIECH,27,ZUEND,28
50110 DATA WIRF,18,LIES,21,SCHAU,1
50120 DATA VERSCHIEB,12,N,50,S,51,W,52
50130 DATA O,53,RAUF,54,RUNTER,55
50140 DATA NORDEN,50,SUEDEN,51,WESTEN
50150 DATA 52,OSTEN,53,UEBER,56,RAUS,57
50160 DATA HERAUS,57,DARUEBER,56
50170 DATA DRUEBER,56,HERAUF,54
50180 DATA HERUNTER,55,AUF,54,KABINE,60
50190 DATA TUER,61,LADERAUM,62,BUG,63
50200 DATA WASSER,64,DECK,60,BOOT,67
50210 DATA ANKER,68,NIXE,69,PFLANZE,70
50220 DATA STADT,71,SCHLINGPFLANZE,73
50230 DATA TINTENFISCH,74,FISCH,74,LOCH
50240 DATA 75,VASE,76,SAEULE,77,FEUER
50250 DATA 79,ATLANTIS,78,BETT,86
50260 DATA SCHRANK,80,TEPPICH,81
50270 DATA FALLTUER,82,BECKEN,83,ROLLE
50280 DATA 84,PAPYRUSROLLE,84,TEMPEL,85
50290 DATA PRITSCHE,86,LAGER,86,TUNNEL
50300 DATA 87,WEIN,88,FASS,89,SARG,90
50310 DATA AUGEN,93,SCHALE,94,WAECHTER
50320 DATA 95,AN,97,LINKE,98,RECHTE,99
50330 DATA ROTEN,100,GELBEN,101,BLAUEN
50340 DATA 102,GRUENEN,103,HAHN,104
50350 DATA SCHIEBER,104,ALKOHOL,106
50360 DATA ANZUG,200,MESSER,201,LAMPE
50370 DATA 202,ZANGE,203,ATEMGERAET,204
50380 DATA PISTOLE,205,SEIL,206,AXT,207
50390 DATA HAMMER,208,NAEGEL,209,BOHRER
50400 DATA 210,SAEGE,211,FERNGLAS,212
50410 DATA MEDIZIN,213,EIMER,214
50420 DATA MORAENE,215,NETZ,216,MUSCHEL
50430 DATA 217,PERLE,218,HONIG,219,BILD
50440 DATA 220,DIAMANT,221,PERLEN,218
50450 DATA SCHLANGE,223,BEUTEL,224,BROT
50460 DATA 225,KRUG,226,FLASCHE,227
50470 DATA SCHWERT,228,RING,229
50480 DATA FEUERZEUG,230,SCHLUESSEL,231
50490 DATA TAUCHERANZUG,200,HONIGTOPF
50500 DATA 219,DIAMANTEN,221

READY.


