

10 CLR:IFPEEK(2)=0THENE=1:N=0:GOTO150
20 IFPEEK(2)=1THENE=1:N=0:GOTO170
30 IFPEEK(2)=3THENGOTO610
40 GETA1$:IFA1$=""THENGOTO40
50 A=ASC(A1$):IFA=13ANDA$=""THENGOTO40
60 IFA=13THENGOTO1670
70 IFA=20ANDA$=""THENGOTO40
80 IFA=20ANDLEN(A$)=1THENA$="":GOTO130
90 IFA=20THENA$=LEFT$(A$,LEN(A$)-1):X=X-1:GOTO130
100 IFA=45THENX=X+1:A$=A$+A1$:GOTO130
110 IFA>64ANDA<91ORA=32THENX=X+1:A$=A$+A1$:GOTO130
120 GOTO40
130 PRINTA1$;:IFX=31THENGOTO1670
140 GOTO40
150 POKE56,157:POKE52,157:POKE644,157
160 IFPEEK(2)=0THENPOKE2,1:LOAD"NEU/LOADER.RUN",8,1:POKE56,157
180 POKE644,157:POKE50267,131:POKE50269,159:CLR:PRINT"";
190 GOTO7370
200 GOSUB6790:RETURN
210 GOSUB1100:GOTO1470
220 GOSUB6020:GOTO1470
230 GOSUB6120:GOTO6350
240 GOSUB6120:IFTE<>1THENGOSUB6170
250 GOTO1470
260 GOSUB5930:GOTO1470
270 GOSUB6120:RETURN
280 GOSUB2940:GOSUB3040:RETURN
290 GOSUB6120:IFTE=1THENRETURN
300 GOSUB6170:RETURN
310 GOSUB6120:UB=E:GOTO340
320 GOSUB6120:GOTO6350
330 GOSUB6180:GOTO1470
340 MO=1:OK=N:UN=N:NL=N:O1=N:TE=0
350 IFV$="LAD"ORV$="L"THENGOTO400
360 IFSS=1THENZS=0:GOTO420
370 IFPEEK(AU+1)*100+PEEK(AU+2)<>BITHENGOTO400
380 MO=2:W1=PEEK(AU+3):W2=UB:GOSUB1090:POKEAU+3,W
390 GOTO410
400 UB=0:ZS=0
410 GOSUB840:IFUN=1THENGOSUB900:IFOK=0THENGOSUB930
420 IFMO=1THENPOKE50180,0:POKE50181,0:SYS50555
430 TT$=RIGHT$(STR$(BI),LEN(STR$(BI))-1)
440 TT$=TT$+RIGHT$(STR$(UB),LEN(STR$(UB))-1)
450 DV$=HB$+TT$+ET$:OPEN1,8,0,DV$:GET#1,A$,B$
460 FORI=0TO124:GET#1,A$:IFA$=""THENA$=CHR$(0)
470 POKE40835+I,ASC(A$):NEXTI:CLOSE1
480 PF=PEEK(40953)*100+PEEK(40954)*10+PEEK(40955)
490 IFBI>800ANDBI<900THENGOTO860
500 TT$=RIGHT$(STR$(PF),LEN(STR$(PF))-1)
510 TT$=TT$+RIGHT$(STR$(UB),LEN(STR$(UB))-1)
520 DV$=HP$+TT$+ET$:FORI=40835TO40960
530 POKE10877+I,PEEK(I):NEXTI:GOSUB1050:FORI=40835TO40960
540 POKEI,PEEK(I+10877):NEXTI
550 BQ=PEEK(40950)*100+PEEK(40951)*10+PEEK(40952)
560 TT$=RIGHT$(STR$(BQ),LEN(STR$(BQ))-1):DV$=HT$+TT$+ET$
570 OPEN1,8,0,DV$:GET#1,A$,B$:FORI=0TO1240
580 IFST=64THENI=1240
590 GET#1,A$:IFA$=""THENA$=CHR$(0)
600 POKE51968+I,ASC(A$):NEXTI:CLOSE1
610 POKE52,157:POKE56,157:FORI=52224TO52420
620 POKEI-512,PEEK(I):NEXTI:GOSUB1430:GOSUB830:BN=PEEK(AU)
630 IFSS=1THENGOTO700
640 GOSUB960:W1=PEEK(PU+3):W2=ZS:GOSUB1090:ZS=W
650 IFPEEK(AU+3)<>ZSTHENGOSUB1270:MO=2:GOTO430
660 IFNL=0ANDUB<>0THENGOSUB1000
670 IFBI<400ORBI>500THENGOTO700
680 IFPEEK(BG+14)=0THENA$="ES IST TOTAL FINSTER":P=7:GOSUB6040:P=7:GOSUB6020
690 IFPEEK(BG+14)=0THENGOSUB6090:GOTO710
700 SYS50555
710 IFBI=432ANDUB=NTHENV=64:GOSUB6120
720 GOSUB1060:IFBI=411ANDUB=0ORBI=423THENV=64:GOSUB6120
730 IFBI>500ANDBI<>517ANDBI<>553ANDBI<>555THENV=64:GOSUB6120
740 IFBI=430ANDUB<>NANDUB<>4THENGOTO210
750 IFBI=999ORBI=900THENGOTO6360
760 IFBI=424ANDUB=ETHENGOSUB2440
770 IFBI=430ANDUB<>NANDUB<>4THENGOTO210
780 IFBI<>517THENGOTO800
790 IFPEEK(BG+5)=EORPEEK(BG+5)>3THENV=64:GOSUB6120
800 IFPEEK(BG+24)=NANDBI=555ORPEEK(BG+24)=NANDBI=553THENV=64:GOSUB6120
810 IFBI>500ANDBI<600ANDTE=ETHENGOTO6350
820 SS=0:GOSUB1100:M=0:GOTO1470
830 FORI=40835TO40854:POKEI-20,PEEK(I):NEXTI:RETURN
840 FORI=PU+3TOPU+14:IFPEEK(I)<>PEEK(I-20)THENUN=1
850 NEXTI:RETURN
860 IFPEEK(BG+3)=1THENPF=PF+1:GOTO500
870 BO=216:V=7:GOSUB6790:IFZ=1THENPF=PF+2:GOTO500
880 GOTO500
890 FORI=40342TO40854:POKEI,0:NEXTI:RETURN
900 FORI=40342+128TO40766STEP8
910 IFPEEK(I)=BNANDOK=0THENOK=1:FORJ=0TO7:POKEI+J,PEEK(AU+J):NEXTJ
920 NEXTI:RETURN
930 FORI=40342+128TO40766STEP8
940 IFPEEK(I)=0ANDOK=0THENOK=1:FORJ=0TO7:POKEI+J,PEEK(AU+J):NEXTJ
950 NEXTI:RETURN
960 FORI=40342+128TO40766STEP8
970 IFPEEK(I)<>BNORO1=1THENGOTO990
980 O1=1:FORJ=0TO7:POKEAU+J,PEEK(I+J):NEXTJ
990 NEXTI:O1=0:RETURN
1000 FORI=40342+128TO40766STEP8
1010 IFPEEK(I)<>BNORO1=1THENGOTO1040
1020 O1=1:FORJ=0TO3:POKEAU+J,PEEK(I+J):W1=PEEK(I+4+J)
1030 W2=PEEK(PU+4+J):GOSUB1090:POKEAU+4+J,W:NEXTJ
1040 NEXTI:RETURN
1050 OPENMO,8,0,DV$:SYS50239:CLOSEMO:RETURN
1060 PRINT"";:FORI=40855TO40886:PRINTCHR$(PEEK(I));:NEXTI
1070 PRINTCHR$(13);"";:FORI=40887TO40917:PRINTCHR$(PEEK(I));
1080 NEXTI:RETURN
1090 W=W1ORW2:RETURN
1100 E=1:N=0:GOSUB6040:IFBI=331THENRETURN
1110 IFPEEK(AU+4)<>0ORPEEK(AU+5)<>0THENGOTO1130
1120 IFPEEK(AU+6)=0ANDPEEK(AU+7)=0THENRETURN
1130 PRINT"ZU SEHEN: ";:Z2=1:Y=0
1140 D$="ZU SEHEN: ":GOSUB2610
1150 Z=200:Z1=207:P=2:X2=12:DZ=73:GOSUB1330
1160 BO=0:A$="":FO=0:FORY=4TO7:A=BD(Y):GOSUB2940
1170 GOSUB3040:X=0
1180 READA$:READBO:READX$:IFBN(X)<>BOTHENGOTO1250
1190 IFBO=229THENA$="STEINE"
1200 IFBO=224ANDBI=330THENA$="BUECHER"
1210 IFZ2=2ANDI=BOTHENRETURN
1220 IFZ2=2THENGOTO1250
1230 J=Z:Z=X2:GOTO5830
1240 X2=Z:Z=J
1250 X=X+E:IFX<8THENGOTO1180
1260 X=N:Z1=Z1+8:NEXTY:Z2=N:BO=I:RETURN
1270 IFNL=1THENGOTO1290
1280 A=PEEK(AU+3):GOSUB2940
1290 IFBN(7)=1THENUB=1:BN(7)=0:NL=1:RETURN
1300 IFBN(6)=1THENUB=2:BN(6)=0:NL=1:RETURN
1310 IFBN(5)=1THENUB=4:BN(5)=0:NL=1:RETURN
1320 IFBN(4)=1THENUB=8:BN(4)=0:NL=1:RETURN
1330 RESTORE:FORK=1TODZ:READA$:READQ:READX$:NEXTK:RETURN
1340 IFBT=7THENWW=1:GOTO1420
1350 IFBT=6THENWW=2:GOTO1420
1360 IFBT=5THENWW=4:GOTO1420
1370 IFBT=4THENWW=8:GOTO1420
1380 IFBT=3THENWW=16:GOTO1420
1390 IFBT=2THENWW=32:GOTO1420
1400 IFBT=1THENWW=64:GOTO1420
1410 IFBT=0THENWW=128:GOTO1420
1420 RETURN
1430 AD=51968:FORI=0TO10:TE(I,0)=PEEK(AD+I*5)
1440 TE(I,1)=PEEK(AD+I*5+1)*256+PEEK(AD+I*5+2)
1450 TE(I,2)=PEEK(AD+I*5+3)*256+PEEK(AD+I*5+4):NEXTI
1460 RETURN
1470 SYS46374:N=0:E=1:PU=40835:AU=40815
1480 BG=40785:IFBI<>430ORM=UBORUB>ETHENGOTO1500
1490 UB=UB+E:GOTO340
1500 IFPEEK(BG)=3THENBI=900:GOSUB6090:GOTO340
1510 A$="":TE=N:IFFR<>NTHENGOTO1660
1520 F=0:R=N:X=N:BF=N:BA=N:V=N:BO=N:FO=N
1530 V2=N:IFPEEK(BG+9)=1ANDBI=320THENGOTO1570
1540 IFBI=320ORBI=323ORBI=424ANDUB=EORBI=430ORBI=432THENM=M+E
1550 IFBI=432ANDUB=1THENGOTO1570
1560 IFM=4THENV=35:GOSUB6090:GOTO230
1570 IFBI>500ANDPEEK(BG+24)=NTHENV=128:GOSUB6120
1580 IFBI<>300ANDBI<>302ANDBI<>311THENGOTO1600
1590 IFPEEK(BG+7)=NTHENV=36:GOTO230
1600 IFBI>117ORBI=102ORBI=104THENGOTO1640
1610 IFBI>111ANDBI<116THENGOTO1640
1620 IFPEEK(BG+E)=NTHENV=70:GOTO230
1630 GOSUB6760:IFX=5THENGOSUB6770:X=0:POKEBG+E,N
1640 V$="":O$="":O1$="":V=N:O2$="":O4$=""
1650 P=7:GOSUB6040:P=7:A$=">":GOSUB6020:A$="":X=0
1660 GOTO40
1670 X=1:Y1=LEN(A$):IFFR=NTHENGOTO1690
1680 A$=V$+" "+A$:Y1=LEN(A$)
1690 IFRIGHT$(A$,1)=" "THENA$=LEFT$(A$,Y1-1):Y1=Y1-1
1700 IFY1<5THENGOTO1730
1710 IFRIGHT$(A$,4)=" HIN"THENA$=LEFT$(A$,Y1-4):Y1=Y1-4
1720 IFRIGHT$(A$,3)=" AB"THENA$=LEFT$(A$,Y1-3):Y1=Y1-3
1730 FORY=1TOY1
1740 IFMID$(A$,Y,1)=" "ANDX=1THENV$=LEFT$(A$,Y-1):V=LEN(V$)+1:X=X+1
1750 NEXTY:IFX=1THENGOTO1800
1760 FORY=Y1TO1STEP-1
1770 IFMID$(A$,Y,1)=" "ANDX=2THENO$=RIGHT$(A$,LEN(A$)-Y):X=X+1
1780 NEXTY:IFLEN(O$)+V=Y1THENGOTO1800
1790 O1$=MID$(A$,LEN(V$)+2,LEN(A$)-LEN(O$)-LEN(V$)-2)
1800 IFLEN(O$)=0THENV$=A$
1810 IFRIGHT$(V$,1)="E"THENV$=LEFT$(V$,LEN(V$)-1):F=1
1820 IFV$="INVENTUR"ORV$="I"THENGOSUB6040:GOTO5730
1830 IFV$="SCHAU"THENGOTO210
1840 IFV$="HILF"ORV$="H"THENGOSUB6040:GOTO6100
1850 IFV$="LAD"ORV$="L"THENGOTO6610
1860 IFBI=430ANDUB<>0THENGOTO1880
1870 IFV$="SPEICHER"ORV$="SP"THENGOTO6440
1880 IFLEN(O1$)<5THENGOTO2050
1890 IFLEFT$(O1$,E)="D"ANDMID$(O1$,4,E)=" "THENO1$=RIGHT$(O1$,LEN(O1$)-4)
1900 IFLEFT$(O1$,3)<>"EIN"THENGOTO1940
1910 Z1=LEN(O1$)-2:Y=E
1920 IFMID$(O1$,Y,1)=" "THENO1$=RIGHT$(O1$,LEN(O1$)-Y):GOTO1940
1930 Y=Y+E:IFY<Z1THENGOTO1920
1940 IFLEN(O1$)<5THENGOTO2050
1950 Y=LEN(O1$)
1960 IFMID$(O1$,Y-3,2)=" D"THENO1$=LEFT$(O1$,Y-4)
1970 IFLEN(O1$)<5THENGOTO2050
1980 Y=LEN(O1$)
1990 IFMID$(O1$,Y-2,3)=" UM"THENO1$=LEFT$(O1$,Y-3)
2000 Y=LEN(O1$)
2010 IFMID$(O1$,Y-2,3)=" IN"THENO1$=LEFT$(O1$,Y-3)
2020 IFLEN(O1$)<5THENGOTO2050
2030 Y=LEN(O1$)
2040 IFRIGHT$(O1$,4)=" MIT"THENO1$=LEFT$(O1$,Y-4)
2050 RESTORE:X=N:R=N:BO=N:BF=N:R$="":O3$="":V=0
2060 READA$:READA:READX$:X=X+E:IFX$="X"THENX$=R$
2070 IFA$<>V$ANDA$<>O$ANDA$<>O1$THENGOTO2240
2080 IFX$="Y"THENX$="EN"
2090 IFX$="C"THENX$="DAS"
2100 IFX$="B"THENX$="DEN"
2110 IFX$="A"THENX$="DIE"
2120 IFX$="0"THENX$=""
2130 IFA>199THENGOTO2220
2140 IFA>92THENGOTO2210
2150 IFA>59THENGOTO2200
2160 IFA>49THENGOTO2190
2170 V=A:IFX$="EN"THENV$=V$+X$:GOTO2240
2180 V$=X$:GOTO2240
2190 R=A:R$=X$:GOTO2280
2200 BF=A:O2$=X$:GOTO2240
2210 BA=A:O3$=A$:GOTO2240
2220 BO=A:O2$=X$:O4$=X$
2230 IFBO=209THENO$="PULVER":GOTO2280
2240 R$=X$:IFX<167THENGOTO2060
2250 IFBO=216ANDO$="SUPPE"THENBA=98
2260 IFBA>97THENA$=O$:O$=O1$:O1$=A$:O2$=O4$
2270 IFBO=NANDBF=NTHENX$="K":GOTO2280
2280 GOSUB2600:IFR<>NTHENGOTO2620
2290 IFFR<>NTHENV=V2
2300 IFV=NTHENO$=V$:IFF=1THENO$=O$+"E":GOTO2530
2310 IFV=0THENGOTO2530
2320 GOTO2690
2330 IFO$=""THENGOTO2550
2340 IFBO<>NTHENGOTO2740
2350 Z=N:IFBF<>NTHENFO=BF:I=E:GOTO2860
2360 IFBA>94ANDBA<98ANDBO=0THENBO=229:GOTO3120
2370 BF=FO:I=N:IFBA<>NTHENFO=BA:GOTO2860
2380 IFX$<>"K"ORV=EORV=21THENGOTO3120
2390 GOTO2470
2400 Y=PEEK(BG+5):IFY<2THENV=66:GOTO320
2410 IFY=3THENV=164:GOTO320
2420 IFY=5THENV=164:GOTO320
2430 V=36:GOSUB6120:GOTO6910
2440 L=PEEK(50181):FORK=1TO15:POKE50181,K:SYS50555:NEXTK
2450 POKE50181,L:SYS50555:RETURN
2460 POKE50180,0:POKE50181,0:SYS50555:RETURN
2470 FR=N:GOSUB6040:IFX$="K"THENGOTO2530
2480 IFBO<>0THENO2$=O4$
2490 IFV<>13THENA$="DU KANNST "+O2$+" "+O$:GOSUB6020
2500 IFV<>13THENA$="NICHT "+V$:P=5:GOSUB6020:GOTO1470
2510 A$="DU KANNST "+O2$+" "+O$:GOSUB6020
2520 A$="NICHT "+O3$+V$:P=5:GOSUB6020:GOTO1470
2530 A$="ICH KENN DEN AUSDRUCK ":GOSUB6020
2540 A$=O$+" NICHT":P=5:GOSUB6020:GOTO1470
2550 IFV=17ORV=21ORV=6ORV=14THENGOTO3120
2560 IFV=2ORV=16THENY=6:GOTO2590
2570 IFV=22ORV=20ORV=24ORV=29ORV=32ORV=33THENY=7:GOTO2590
2580 Y=8
2590 FR=2:GOTO260
2600 Y=N:GOSUB6040
2610 FORX=AUTOAU+19:BD(Y)=PEEK(X):Y=Y+E:NEXTX:RETURN
2620 Z=50:Z1=57:X1=R:A=BD(14):GOSUB280
2630 IFBN(X)=RTHENGOTO6880
2640 IFBI=422ANDUB=NORBI=424ANDUB=NORBI=424ANDUB=2THENGOTO2670
2650 IFBI=231ANDR<>50THENGOTO2670
2660 V=100:GOSUB270:IFTE=1THENGOTO1470
2670 FR=N:A$="NACH "+R$+" FUEHRT KEIN WEG"
2680 GOSUB6020:GOTO1470
2690 Y=15:Z=E:Z1=8:X1=V:V2=N
2700 A=BD(Y):GOSUB280:IFBN(X)=VTHENGOTO2330
2710 Y=Y+E:IFY>19THENGOTO2730
2720 Z1=Z1+8:GOTO2700
2730 V2=E:GOTO2330
2740 IFV=8THENGOTO2820
2750 IFV=13ANDBA=106ORV=25ANDPEEK(BG+3)=ETHENGOTO2350
2760 IFBI=330ANDBO=223ORBI=422ANDBO=226THENGOTO2350
2770 IFBI=411ANDBO=231ANDUB=ETHENGOTO2350
2780 Y=4:Z=200:Z1=207:X1=BO
2790 A=BD(Y):GOSUB280:IFBN(X)=BOTHENGOTO2350
2800 Y=Y+E:IFY>7THENGOTO2820
2810 Z1=Z1+8:GOTO2790
2820 IFV=31THENGOTO2840
2830 IFV<>7ANDV<>4ANDV<>EANDBO<>NTHENGOSUB200:IFZ=1THENGOTO2350
2840 IFZ=0THENGOTO1470
2850 BO=N:GOTO2350
2860 Y=8:Z=60:Z1=67:X1=FO
2870 A=BD(Y):GOSUB280:IFBN(X)<>FOTHENGOTO2900
2880 IFI=ETHENGOTO2370
2890 BA=FO:GOTO3120
2900 Y=Y+E:IFY>13THENGOTO2920
2910 Z1=Z1+8:GOTO2870
2920 IFI=ETHENBF=N:GOTO2380
2930 BA=N:GOTO3120
2940 FORX=NTO7:BN(X)=N:NEXTX:X=N
2950 IFA>=128THENBN(X)=E:A=A-128
2960 X=X+E:IFA>=64THENBN(X)=E:A=A-64
2970 X=X+E:IFA>=32THENBN(X)=E:A=A-32
2980 X=X+E:IFA>=16THENBN(X)=E:A=A-16
2990 X=X+E:IFA>=8THENBN(X)=E:A=A-8
3000 X=X+E:IFA>=4THENBN(X)=E:A=A-4
3010 X=X+E:IFA>=2THENBN(X)=E:A=A-2
3020 X=X+E:IFA=ETHENBN(X)=E
3030 RETURN
3040 X=N
3050 GOTO3100
3060 IFBN(X)=X1ANDZ2<>ETHENRETURN
3070 Z=Z+E:IFZ>Z1THENRETURN
3080 X=X+E:IFX>7THENRETURN
3090 GOTO3050
3100 IFBN(X)=ETHENBN(X)=Z:GOTO3060
3110 GOTO3070
3120 IFFR=2THENFR=N
3130 IFBI=430ANDUB<4ANDV<>8ANDBO<>229THENV2=V:V=36:GOSUB6120:V=V2
3140 IFPEEK(BG+2)=0ORV=8THENGOTO3170
3150 IFBI=102THENV=35:GOTO230
3160 IFBI=104ORBI=114THENV=35:GOSUB6120:V=8:BO=BX
3170 IFV=27ANDBA=104THENV=3
3180 IFV=5ANDBA=99ORV=5ANDBA=102THENV=30
3190 IFBF=81ANDPEEK(BG+9)=1THENGOSUB6160:GOTO1470
3200 ONVGOTO3240,3320,3390,3580,3610,3640,3670,3970,4220,4260
3210 ONV-10GOTO4310,4340,4370,4590,4610,4630,4660,4680,4730,4750
3220 ONV-20GOTO4790,4860,4920,4960,5040,5150,5200,5280,5310,5330
3230 ONV-30GOTO5360,5400,5430,5450
3240 IFBF=65ORBF=75ORBF=76ORBF=77ORBF=72ORBF=90ORBF=61THENV=65
3250 IFBI=353ANDO$="STEINE"THENV=129
3260 IFBI=223ANDBO=215ORBF=85ORBO=206THENV=65
3270 IFBI=310ANDBO=218ORBF=81ORBF=70ORBF=67THENV=65
3280 IFBF=87THENV=65:GOTO310
3290 GOSUB270:IFV=1ANDTE=1THENGOTO1470
3300 V=E:GOSUB270:IFTE=1THENGOTO1470
3310 A$="ICH SEHE NICHTS BESONDERES":GOTO220
3320 IFV2=ETHENV=100:GOTO3370
3330 IFBF=85ANDBI=353THENV=66:GOSUB6120:BI=363:GOTO340
3340 IFBI=301ANDPEEK(BG+7)<>ETHENBI=231:GOTO340
3350 IFBF=75ORBF=62ORBF=71THENR=50:GOTO6880
3360 IFBI=301ANDPEEK(BG+7)=ETHENA$="DIE TUER IST ZU":GOTO220
3370 GOSUB270:IFTE=1THENGOTO1470
3380 GOTO330
3390 IFBI=231ORBI=541THENGOTO3510
3400 IFV2=ETHENGOTO2470
3410 IFBI=450ANDBF=75THENV=131:GOTO320
3420 IFBF=82ANDPEEK(BG+25)<>0THENPOKEBG+26,E:GOSUB6170:GOTO1470
3430 IFUB=ETHENGOTO3460
3440 IFBF=84ORBF=69ORBF=76THENV=67:GOTO310
3450 IFUB=2THENGOTO3480
3460 IFBF=77THENUB=2:GOTO340
3470 IFBI=301THENPOKEBG+7,N:GOTO240
3480 IFBI=235ORBI=430THENGOTO240
3490 IFBF=82THENV=67:GOTO230
3500 GOTO2470
3510 IFFR<>EANDBF<>75THENGOTO2470
3520 IFFR<>EANDBO=NTHENY=5:GOTO260
3530 FR=N:GOSUB200:IFZ=0THENGOTO1470
3540 IFBO<>214THENGOTO330
3550 IFBI=541ANDPEEK(BG+26)=ETHENBI=551:GOTO340
3560 IFBI=231ANDUB<>ETHENGOTO310
3570 O$="TUER":GOTO2470
3580 IFV2=EORBO=NTHENGOTO2470
3590 GOTO3760
3600 IFBA>94ANDBA<98THENGOTO3120
3610 IFV2=ETHENGOTO2470
3620 IFBO=226THENPOKEBG+15,E:GOTO240
3630 GOTO330
3640 IFBF=64THENPOKEBG+E,E:FR=N:GOTO240
3650 IFFR=NTHENY=6:GOTO260
3660 GOTO2470
3670 IFBI=112ORBO=219ORBO=230ORBO=202THENV=71:GOTO240
3680 IFBO=214ANDBI=554ANDPEEK(BG+26)=0THENV=71:GOTO240
3690 IFBF=82ANDPEEK(BG+26)=NORBI=332ANDBO=226THENV=135:GOTO240
3700 IFBI<>363ANDBI<>310THENGOTO3730
3710 IFBO=206ORBO=218THENV=135:IFBO=218THENGOSUB2440
3720 IFV=135THENGOTO320
3730 IFBO=NORBO=215ORBO=218THENGOTO2470
3740 IFBO=229ANDBA=0THENY=2:GOTO260
3750 GOSUB6790:IFZ=ETHENGOSUB5570:P=4:GOTO3850
3760 X=40775
3770 IFX<40783THENGOTO3800
3780 FR=0:GOSUB6220:IFV<>26THENGOTO1470
3790 IFV=26THENGOTO5180
3800 IFPEEK(X)=0THENPOKEX,BO:IFV=31THENGOTO4470
3810 IFPEEK(X)=BOANDV=13THENGOTO4570
3820 IFV=26ANDPEEK(X)=BOTHENGOTO5180
3830 IFPEEK(X)=BOTHENGOSUB5570:P=4:GOTO3850
3840 X=X+E:GOTO3770
3850 IFBI=330ANDBO=223THENV=71:GOTO310
3860 IFBI=554ANDBO=214THENPOKEBG,PEEK(BG)+E
3870 IFBO=208ANDBI=115THENGOSUB6170:GOTO1470
3880 IFV=26THENGOTO5180
3890 GOSUB6120:IFV=4THENGOTO3950
3900 IFBI=102ORBI=104ORBI=114THENPOKEBG+2,E:BX=BO
3910 IFBO=229THENGOSUB5480
3920 IFBI<>332THENGOTO3950
3930 IFBO=225ANDUB=NTHENUB=E:GOTO340
3940 IFBO=226ANDUB=ETHENUB=2:GOTO340
3950 IFTE<>ETHENGOSUB6170
3960 GOTO1470
3970 IFBO=203THENGOTO4090
3980 IFBO=229ANDBA=0THENY=2:GOTO260
3990 IFBO=NORBO=215THENGOTO2470
4000 IFBO<>229THENGOTO4040
4010 GOSUB5480
4020 IFPEEK(BG+11)=NANDPEEK(BG+12)=NANDPEEK(BG+13)=NTHENGOTO4040
4030 GOTO4090
4040 Y=N:X=40775
4050 IFPEEK(X)<>BOTHENGOTO4110
4060 POKEX,N
4070 IFBO=217THENA$="KRACH - DIE LAMPE ZERSPRINGT":GOSUB6020:GOTO4130
4080 IFBI=112ORBI=114THENGOTO4130
4090 Z2=2:I=BO:GOSUB1150:IFZ2=2THENZ2=N:I=N:GOTO4130
4100 GOSUB5570:P=4:GOTO4130
4110 X=X+E:IFX>40782THENGOSUB6860:GOTO1470
4120 GOTO4050
4130 IFBI<400ORBI>500THENGOTO4150
4140 IFBO=217ANDPEEK(BG+14)=ETHENPOKEBG+14,N:GOSUB2460:GOTO1470
4150 IFPEEK(BG+2)<>ETHENGOTO4170
4160 POKEBG+2,N:IFBI=104ORBI=114ANDTE=1THENGOTO1470
4170 IFBO=230THENV=72:POKEBG+25,E
4180 IFBI=422ANDBO=226ORBI=432ANDBO=231THENGOTO310
4190 IFBI=430ANDUB=4ANDBO=229THENGOSUB6120:GOTO340
4200 IFBO=217THENGOTO1470
4210 GOTO240
4220 IFBF=80THENV=93:GOTO240
4230 IFBO<>228THENGOTO2470
4240 GOSUB200:IFZ=1THENGOTO240
4250 GOTO1470
4260 IFV2=ETHENA$="KEINER WILL ES VON DIR HABEN":GOTO220
4270 IFBO=NTHENY=8:FR=2:GOTO260
4280 GOSUB200
4290 IFBO=203THENBO=208:V=8:GOSUB5570:V=10:GOSUB6120:GOTO210
4300 V=8:GOTO3970
4310 IFV2=EORBO<>225THENGOTO2470
4320 GOSUB200:IFZ=1THENGOTO240
4330 GOTO1470
4340 IFBI=330ANDBO=218THENGOTO320
4350 IFV2=EORBF<>72THENGOTO2470
4360 GOTO240
4370 IFBI=422THENGOTO240
4380 IFBF=61THENV=77:GOTO240
4390 IFBO=NTHENGOTO2470
4400 IFBA=106THENGOTO4500
4410 GOSUB200:IFZ=0THENGOTO1470
4420 A=PEEK(BG+5):IFA=NTHENGOTO4460
4430 IFA=2ANDBO=208ORA=EANDBO=201THENPOKEBG+5,4:GOTO4000
4440 IFA=3ANDBO=208ORA=EANDBO=200THENPOKEBG+5,5:GOTO4000
4450 GOTO2470
4460 IFBO=208THENPOKEBG+5,E:GOTO4000
4470 IFBO=201THENPOKEBG+5,2:GOTO4000
4480 IFBO=200THENPOKEBG+5,3:GOTO4000
4490 GOTO4440
4500 A=PEEK(BG+5):IFA=NTHENGOTO2470
4510 IFBO=208ANDA=EORA=2ANDBO=201THENY=N
4520 IFBO=208ANDA=4THENY=2
4530 IFBO=208ANDA=5THENY=3
4540 IFBO=200ANDA=3THENY=N
4550 IFA=5ANDBO=200ORA=4ANDBO=201THENY=E
4560 GOTO3760
4570 POKEBG+5,Y:IFBI=301ANDBO=208THENV=77
4580 GOTO240
4590 IFV2=ETHENGOTO330
4600 BI=BI-600:GOSUB6120:GOTO340
4610 IFV2=ETHENGOTO330
4620 R=54:GOTO6880
4630 IFV2=ETHENGOTO330
4640 IFBF=66ORBF=63THENBI=BI+600:GOSUB6120:GOTO340
4650 V=80:GOTO240
4660 IFV2=EORBF<>78THENGOTO2470
4670 POKEBG+8,E:GOTO240
4680 IFBI<>422THENGOTO2470
4690 IFFR=NTHENGOSUB200:IFZ=0THENGOTO1470
4700 IFBF=91THENFR=N:BO=226:GOTO4000
4710 IFFR<>ETHENY=3:GOTO260
4720 FR=N:GOTO330
4730 IFV2=ETHENGOTO2470
4740 GOTO240
4750 IFV2=NORBF=63ORBF=72THENGOTO4770
4760 GOTO2470
4770 IFBI=221THENPOKEBG+27,E:GOSUB6120:BI=BI+10:GOTO340
4780 GOSUB6170:GOTO1470
4790 IFV2=ETHENA$="KEINER HOERT DIR ZU":GOTO220
4800 IFBF=73ANDBI=223THENPOKEBG+4,E
4810 IFBF=92ORBF=73THENV=85:GOTO4830
4820 IFBI=424THENV=119
4830 GOSUB290:IFBF=92THENUB=2:GOTO340
4840 IFBI<>313THENGOTO1470
4850 GOTO6350
4860 IFV2=ETHENGOTO2470
4870 IFBF=81THENPOKEBG+9,E
4880 IFBF=81ORBO=206ORBF=89ORBF=83ORBF=70THENV=86
4890 GOSUB6120:IFTE<>ETHENGOTO2470
4900 IFBI<>551THENGOTO1470
4910 GOTO6350
4920 IFBO<>NTHENGOSUB200:IFZ=0THENGOTO1470
4930 IFBO<>212THENGOTO330
4940 IFBI=363THENGOSUB2440
4950 GOTO240
4960 IFV2=ETHENGOTO2470
4970 IFFR<>EANDBO=NTHENY=5:GOTO260
4980 GOSUB200:IFZ=0THENGOTO1470
4990 IFBO=0THENGOTO2470
5000 IFBI=432ANDBO=220ORBI=320ANDBO=227THENV=88
5010 IFBI=432ANDBO=231THENV=152
5020 IFBI=551ANDBO=220THENV=88:POKEBG,PEEK(BG)+E:FR=N:GOTO310
5030 FR=N:GOTO4000
5040 IFBO=215THENGOTO5090
5050 IFBO>219ANDBO<223THENGOTO5070
5060 IFBO<>207ANDBO<>210ANDBO<>227THENGOTO2470
5070 GOSUB200:IFZ=0THENGOTO1470
5080 GOTO240
5090 IFPEEK(BG+3)=NTHENGOTO2470
5100 IFBI>800THENGOTO5120
5110 GOTO240
5120 POKEBG+3,N:IFPEEK(BG+4)=NTHENV=89:GOTO240
5130 V=8:BO=214:GOSUB5570:P=4:V=153:GOSUB6120
5140 GOTO210
5150 IFO1$="SUPPE"ANDBO=216THENGOTO3750
5160 IFV2=EORBO<>215THENV2=E:GOTO4790
5170 BO=216:GOSUB6790:IFZ<>ETHENV=90:GOTO240
5180 IFPEEK(BG+4)<>ETHENV=154
5190 POKEBG+3,E:GOTO240
5200 IFV2=EORPEEK(BG+7)=EANDBF=75THENGOTO2470
5210 IFBI=501ANDBF=69THENGOTO310
5220 IFBF=84THENV=91
5230 IFBI=301ANDBF=75THENPOKEBG+7,E:V=91
5240 IFBF=76THENUB=4:GOTO340
5250 IFBF=77THENUB=8:GOTO340
5260 GOSUB6120:IFTE<>ETHENGOTO2470
5270 GOTO1470
5280 IFBO<>217THENGOTO2470
5290 GOSUB200:IFZ=0THENGOTO1470
5300 POKEBG+14,E:V=80:SYS50558:GOTO240
5310 IFV2=ETHENGOTO2470
5320 GOTO240
5330 IFV2=EORBO<>226THENGOTO2470
5340 IFUB=NTHENGOTO320
5350 V=7:GOTO3760
5360 IFV2=EORBO<>219ANDBO<>230THENGOTO2470
5370 IFBO=230THENGOTO3760
5380 IFBO=230THENV=95
5390 GOTO240
5400 IFV2=ETHENA$="DU FERKEL!!!":GOTO220
5410 IFBF=61THENGOTO230
5420 GOTO240
5430 IFV2=ETHENGOTO2470
5440 GOTO240
5450 IFBO<>209ORV2=ETHENGOTO2470
5460 GOSUB200:IFZ=0THENGOTO1470
5470 POKEBG,PEEK(BG)+E:POKEBG+24,E:GOTO240
5480 FR=N:X=N:IFBI=430ANDV=8THENX=E
5490 Y=N:IFV=7THENY=E
5500 IFBA<95ORBA>97THENRETURN
5510 ONBA-94GOTO5520,5530,5540
5520 POKEBG+18,X:POKEBG+11,Y:GOTO5550
5530 POKEBG+20,X:POKEBG+13,Y:GOTO5550
5540 POKEBG+19,X:POKEBG+12,Y
5550 IFPEEK(BG+18)=EANDPEEK(BG+19)=EANDPEEK(BG+20)=ETHENV=72:UB=4
5560 RETURN
5570 AS=AU+4:BT=0
5580 IFBI=102ANDBO=200ORBI=102ANDBO=201THENRETURN
5590 IFBI=104ANDBO=204ORBI=104ANDBO=205THENRETURN
5600 IFBI=112ANDBO=207ORBI=112ANDBO=210THENRETURN
5610 IFBI=114ANDBO=211ORBI=223ANDBO=216THENRETURN
5620 IFBI=430ANDBO=229ORBI=353ANDBO=229THENRETURN
5630 IFBI=330ANDBO=223ANDUB=0ORBI=411ANDBO=231ANDUB=1THENRETURN
5640 IFBI=330ANDBO=224THENRETURN
5650 IFBO<208ANDBO>199THENBY=0:BT=BO-200
5660 IFBO<216ANDBO>207THENBY=1:BT=BO-208
5670 IFBO<224ANDBO>215THENBY=2:BT=BO-216
5680 IFBO<232ANDBO>223THENBY=3:BT=BO-224
5690 IFV=7ORV=4THENGOTO5720
5700 IFV<>8THENRETURN
5710 GOSUB1340:POKEAS+BY,PEEK(AS+BY)+WW:P=4:RETURN
5720 GOSUB1340:POKEAS+BY,PEEK(AS+BY)-WW:P=4:RETURN
5730 PRINT"DU HAST: ";:D$="DU HAST: "
5740 FORY=40775TO40783:RESTORE:DZ=73:GOSUB1330:X=0:A$=""
5750 BO=0:Z1=1:GOSUB7290
5760 READA$:READBO:READX$:IFI=BOTHENGOTO5790
5770 X=X+E:IFX<33THENGOTO5760
5780 GOTO5880
5790 IFBO=216ANDPEEK(BG+3)=ETHENA$="TELLER MIT SUPPE"
5800 IFBO<>229THENGOTO5830
5810 FORJ=11TO13:IFPEEK(BG+J)=ETHENGOTO5890
5820 GOTO5860
5830 DL=LEN(D$):D$=D$+A$+" "
5840 IFLEN(D$)>32THEND$="":D$=A$+" ":PRINTSPC(40-DL);
5850 PRINTA$;" ";:ZO=0:IFZ2=1THENGOTO1240
5860 IFBO=229THENNEXTJ
5870 I=0:NEXTY
5880 Z1=0:GOTO1470
5890 ONJ-10GOTO5900,5910,5920
5900 A$="OVALEN STEIN":GOTO5830
5910 A$="ECKIGEN STEIN":GOTO5830
5920 A$="RUNDEN STEIN":GOTO5830
5930 P=7:GOSUB6040:P=7
5940 IFY=2THENA$="WELCHEN? ":GOSUB6020
5950 IFY=3THENA$="WORUM? ":GOSUB6020
5960 IFY=5THENA$="WOMIT? ":GOSUB6020
5970 IFY=6THENA$="WOHIN? ":GOSUB6020
5980 IFY=7THENA$="WEN? ":GOSUB6020
5990 IFY=8THENA$="WAS? ":GOSUB6020
6000 IFFR<>2THENFR=E
6010 V2=V:RETURN
6020 PRINTCHR$(19);:FORI=1TOP:PRINTCHR$(17);:NEXTI:PRINT"";A$;:P=4
6030 RETURN
6040 PRINT"";:IFP=7THENPE=7:PRINT"";:GOTO6060
6050 P=2:PE=6
6060 FORI=PTOPE
6070 PRINT"                                        ";
6080 NEXTI:P=4:X=0:RETURN
6090 FORX=1TO5000:NEXTX:RETURN
6100 PRINT"";:FORX=40918TO40949:PRINTCHR$(PEEK(X));
6110 NEXTX:GOSUB6090:GOTO1470
6120 IFPEEK(BG+5)>1ANDPEEK(BG+5)<4ANDBI=517ANDV=64THENRETURN
6130 FORY=0TO10
6140 IFTE(Y,0)=VTHENAN=TE(Y,1):EN=TE(Y,2):TE=1:GOSUB6240
6150 NEXTY:P=4:RETURN
6160 A$="ER IST SCHON TOT":GOSUB6020:RETURN
6170 A$="OK!":GOSUB6020:RETURN
6180 FR=0:A$="DAS VERSTEHE ICH NICHT":GOSUB6020
6190 RETURN
6200 A$="LAUFEN IM DUNKLEN IST TOETLICH"
6210 GOSUB6020:RETURN
6220 A$="DAS KANNST DU NICHT MEHR TRAGEN"
6230 GOSUB6020:RETURN
6240 K=0:IFV=64ANDBI<>432ANDBI<>412THENGOSUB6090
6250 PRINT"";:FORZ=52027+ANTO52027+EN:ZI=Z
6260 IFZ>52223ANDZ<52421THENZI=Z-512
6270 A$=CHR$(PEEK(ZI)):K=K+1:IFA$="*"THENGOSUB6300:GOTO6290
6280 PRINTA$;:IFK=32THENPRINTCHR$(13);"";:K=0
6290 NEXTZ:GOSUB6300:RETURN
6300 P=7:GOSUB6040:A$="WEITER - BITTE RETURN "
6310 P=7:GOSUB6020:K=0
6320 GETK$:IFK$=""THENGOTO6320
6330 A=ASC(K$):IFA<>13THENGOTO6320
6340 PRINT"";:RETURN
6350 BI=999:UB=N:GOTO340
6360 IFBI=900THENGOTO6360
6370 P=7:GOSUB6040
6380 A$="MOECHTEST DU NOCHMAL? <RETURN> "
6390 P=7:GOSUB6020
6400 GETX$:IFX$=""THENGOTO6400
6410 X=ASC(X$):IFX=13THENSS=1:GOSUB890:BI=103:A=1
6420 POKEBG-10,203:POKEBG-9,213:POKEBG+E,E:GOTO7450
6430 GOTO6360
6440 BN=PEEK(40815):GOSUB900:IFOK=0THENGOSUB930
6450 P=5:GOSUB6040
6460 A$="SPEICHERDISK ERSTELLEN         "
6470 P=5:GOSUB6020
6480 A$="NEUE DISK FORMATIEREN <J/N>    "
6490 P=7:GOSUB6020
6500 GETX$:IFX$=""THENGOTO6500
6510 X=ASC(X$):IFX<>74ANDX<>78THENGOTO6500
6520 IFX=74THENOPEN15,8,15:PRINT#15,"N:SP,01":CLOSE15
6530 P=5:GOSUB6040
6540 A$="SPEICHERDISK EINLEGEN <RETURN> "
6550 P=7:GOSUB6020
6560 GETX$:IFX$=""THENGOTO6560
6570 X=ASC(X$):IFX<>13THENGOTO6560
6580 OPEN6,8,2,"@0:PROGDISK.TST,S,W"
6590 FORI=40342+128TO40854:X=PEEK(I):PRINT#6,X:NEXTI:CLOSE6
6600 GOTO6690
6610 A$="SPEICHERDISK EINLEGEN <RETURN>":P=7
6620 GOSUB6020
6630 GETX$:IFX$=""THENGOTO6630
6640 X=ASC(X$):IFX<>13THENGOTO6610
6650 OPEN6,8,2,"0:PROGDISK.TST,S,R":OPEN15,8,15
6660 INPUT#15,F
6670 IFF<>0THENPRINT"FALSCHE DISK           ":CLOSE6:CLOSE15:GOTO6610
6680 FORI=40342+128TO40854:INPUT#6,X:POKEI,X:NEXTI:CLOSE6:CLOSE15
6690 BI=PEEK(PU+1)*100+PEEK(PU+2):UB=0:P=6:GOSUB6040
6700 IFBI<200ORBI>400ANDBI<500THENA=E:GOTO7450
6710 IFBI>500ANDBI<800THENA=3:GOTO7450
6720 A=2:GOTO7450
6730 OPEN5,8,2,"0:BILDDISK.TST,S,R":OPEN15,8,15
6740 INPUT#15,F:IFF<>0THENN=0:CLOSE5:CLOSE15:RETURN
6750 INPUT#5,Y:N=Y:CLOSE5:CLOSE15:RETURN
6760 X=INT(PEEK(54299)/28):RETURN
6770 A$="DER MUEZZIN RUFT ZUM GEBET":P=7
6780 GOSUB6040:P=7:GOSUB6020:GOSUB6090:RETURN
6790 X=40775:Z=N:IFBO=215THENBX=BO:BO=216
6800 IFPEEK(X)=BOTHENZ=E
6810 IFZ1<>NANDBX=215THENBO=BX:BX=N
6820 IFZ=ETHENRETURN
6830 X=X+E:IFX>40782THENGOTO6850
6840 GOTO6800
6850 IFV=7ORV=26THENRETURN
6860 A$="DU HAST "+O2$+" "+O$:GOSUB6020
6870 A$="NICHT BEI DIR":P=5:GOSUB6020:RETURN
6880 FR=N:IFPEEK(BG+2)=NTHENGOTO6900
6890 IFBI=102ORBI=104ORBI=114THENGOTO3140
6900 IFBI=423THENGOTO2400
6910 IFBI<400ORBI>500THENGOTO6940
6920 IFPEEK(BG+14)=NTHENV=35:GOSUB6120:IFTE=ETHENGOTO6350
6930 IFV=35THENGOSUB6200:GOTO6350
6940 IFR<>50THENGOTO7070
6950 IFBI<>113THENGOTO6980
6960 Y=PEEK(BG+5):IFY=EORY>4THENV=35:GOSUB6120:GOTO6980
6970 V=34:GOTO240
6980 IFBI=110ORBI=116ORBI=117THENBI=100:GOTO340
6990 IFPEEK(BG+27)=ETHENGOTO7010
7000 IFBI=221THENGOTO2670
7010 IFBI=231THENBI=301:GOTO340
7020 IFBI=330THENBI=402:A=E:GOTO7450
7030 IFBI=313ANDPEEK(BG+8)=NTHENV=21:GOTO320
7040 IFBI=143THENBI=203:A=2:GOTO7450
7050 IFBI=412THENV=64:GOSUB6120
7060 BI=BI+10:GOTO340
7070 ONR-50GOTO7080,7120,7140,7160,7240
7080 IFBI=100ORBI=106ORBI=107THENBI=100:GOTO340
7090 IFBI=301THENGOTO3340
7100 IFBI=203THENBI=143:A=E:GOTO7450
7110 BI=BI-10:GOTO340
7120 IFBI=107ORBI=117THENBI=100:GOTO340
7130 BI=BI+E:GOTO340
7140 IFBI=100ORBI=110THENBI=100:GOTO340
7150 BI=BI-E:GOTO340
7160 IFBI<>422THENGOTO7200
7170 IFPEEK(BG+15)=EANDUB=ETHENBI=432:GOTO340
7180 IFUB=NTHENV=183:GOTO240
7190 V=119:GOTO240
7200 IFBI=450ANDUB=ETHENBI=501:A=3:GOTO7450
7210 IFPEEK(BG+28)=NANDBI=402THENGOTO330
7220 IFBI=402THENPOKEBG+28,N:BI=330:A=2:GOTO7450
7230 GOTO240
7240 IFPEEK(BG+28)=EANDBI=402THENGOTO330
7250 IFBI=402THENPOKEBG+28,E:BI=412:GOTO340
7260 IFBI=501THENBI=450:A=E:GOTO7450
7270 GOTO240
7280 Y=40775:X1=N:Z1=N
7290 IFPEEK(Y)<>0THENX1=X1+1:I=PEEK(Y):IFZ1=1THENRETURN
7300 IFX1>XANDZ1=NTHENRETURN
7310 Y=Y+E:IFY<40783THENGOTO7290
7320 RETURN
7330 IFBI=102ORBI=423ANDPEEK(BG+5)<2THENV=100
7340 IFBI=423ANDPEEK(BG+5)=3ORBI=423ANDPEEK(BG+5)=5THENV=164
7350 IFBI=432ANDPEEK(BG+23)=NTHENV=164:GOTO240
7360 GOTO320
7370 GOSUB890:ET$=".*":HB$="BILD":HP$="PICT"
7380 HT$="TEXT":PU=40835:AU=40815:BG=40785
7390 POKEBG+1,1:POKEBG-9,213:OPEN15,8,15,"I0"
7400 OPEN5,8,5,"#":PRINT#15,"U1:5,";0,2,5
7410 INPUT#15,A,B$,C,D:IFA=23THENPOKEBG-10,203
7420 CLOSE5:CLOSE15:DIMBD(20),BN(8),TE(10,2):POKE54286,3
7430 POKE54287,100:POKE54290,129:BI=103:UB=0:SS=1
7440 A=1:SYS50647
7450 P=7:GOSUB6040
7460 PRINT"BILDDISK. NR.";A;"EINLEGEN <RETURN>"
7470 GETX$:IFX$=""THENGOTO7470
7480 IFASC(X$)<>13THENGOTO7470
7490 GOSUB6730:IFN<>ATHENGOTO7520
7500 IFV$="SPEICHER"ORV$="SP"THENGOTO1470
7510 PRINT"";:GOTO340
7520 P=7:GOSUB6040:PRINT"FALSCHE DISK!"
7530 GOTO7450
7540 END
50000 DATA SEH,1,Y,SIEH,1,SEHEN
50010 DATA BETRACHT,1,Y,SCHAU,1,Y,GEH,2
50020 DATA Y,LAUF,2,Y,OEFFN,3,Y,KAUF,4
50030 DATA Y,BIND,5,Y,BEFESTIG,5,Y
50040 DATA SCHLING,5,Y,VERBEUG,6,Y,NEIG
50050 DATA 6,Y,NEHM,7,Y,NIMM,7,NEHMEN
50060 DATA LEG,8,Y,TRINK,9,Y,GEB,10,Y
50070 DATA GIB,10,GEBEN,SCHENK,10,Y
50080 DATA FUELL,11,Y,VERSCHIEB,12,Y
50090 DATA SCHIEB,12,Y,ZIEH,13,Y,STEH
50100 DATA 14,Y,KLETTER,15,KLETTERN
50110 DATA STEIG,15,Y,SETZ,16,Y,SCHLAG
50120 DATA 17,Y,WERF,18,Y,WIRF,18
50130 DATA WERFEN,LEER,19,Y,VERSTECK,20
50140 DATA Y,VERBERG,20,Y,SPRECH,21,Y
50150 DATA SPRICH,21,SPRECHEN,SAG,21,Y
50160 DATA RUF,21,Y,TOET,22,Y,ERMORD,22
50170 DATA Y,SPIEL,23,Y,FUETTER,24
50180 DATA FUETTERN,ESS,25,Y,ISS,25
50190 DATA ESSEN,WUENSCH,26,Y,ERBITT,26
50200 DATA Y,SCHLIESS,27,Y,ZUEND,28,Y
50210 DATA STREICHL,29,STREICHELN
50220 DATA STREICHEL,29,X,LOES,30,Y
50230 DATA ENTFERN,30,Y,PFLUECK,31,Y
50240 DATA BUMS,32,Y,FICK,32,Y,KUESS,33
50250 DATA Y,STREU,34,Y,N,50,NORDEN
50260 DATA NORD,50,X,NORDEN,50,X,S,51
50270 DATA SUEDEN,SUED,51,X,SUEDEN,51,X
50280 DATA O,52,OSTEN,OST,52,X,OSTEN,52
50290 DATA X,W,53,WESTEN,WEST,53,X
50300 DATA WESTEN,53,X,RAUF,54,OBEN
50310 DATA HINAUF,54,X,RUNTER,55,UNTEN
50320 DATA HINUNTER,55,X,SANDALEN,200,A
50330 DATA STIEFEL,201,A,SKELETT,202,C
50340 DATA ZECHINEN,203,A,SCHALS,204,A
50350 DATA TUECHER,205,A,SCHLANGE,206,A
50360 DATA PRALINEN,207,A,GEWAND,208,C
50370 DATA PULVER,209,C,PISTAZIEN,210,A
50380 DATA KOERBE,211,A,FLOETE,212,A
50390 DATA DOLCH,213,B,SCHLUESSEL,214,B
50400 DATA SUPPE,215,A,TELLER,216,B
50410 DATA LAMPE,217,A,TEPPICH,218,B
50420 DATA BLUME,219,A,FLEISCH,220,C
50430 DATA KOHL,221,B,BROT,222,C,KORAN
50440 DATA 223,B,BUCH,224,C,EIMER,225,B
50450 DATA SEIL,226,C,ORANGE,227,A,WEIN
50460 DATA 228,B,STEIN,229,B,ORCHIDEE
50470 DATA 230,A,KNOCHEN,231,B,PANTHER
50480 DATA 60,A,KATZE,60,A,SULTANIN,61
50490 DATA A,KUECHE,62,A,DICH,63,A
50500 DATA MEKKA,64,0,WAERTER,65,B
50510 DATA WAECHTER,65,B,BANK,66,A
50520 DATA LEILAH,67,A,TISCH,68,B
50530 DATA FALLTUER,69,A,DOGGE,70,A
50540 DATA HUND,70,B,BESTIE,70,A,KOCH
50550 DATA 71,B,VORHANG,72,B,GARDINE,72
50560 DATA A,ODALISKE,73,0,FENSTER,74,C
50570 DATA TUER,75,A,TUERE,75,A,TRUHE
50580 DATA 76,A,SCHRANK,77,B,GONG,78,B
50590 DATA DECKE,79,A,WASSER,80,C
50600 DATA PAPAGEI,81,B,VOGEL,81,B
50610 DATA KETTE,82,A,GEIST,83,B,SARG
50620 DATA 84,B,WASSERFALL,85,B,ECKE,87
50630 DATA A,BETTLER,88,B,HAENDLER,86,B
50640 DATA SKORPION,89,B,SKORPIONE,89,B
50650 DATA SCHACHT,90,B,WAND,90,A,MAUER
50660 DATA 90,A,MAUERN,90,A,HAKEN,91,B
50670 DATA ALLAH-JAHU-ALLAH-YAHA,92,0
50680 DATA RECHTEN,93,0,LINKEN,94,0
50690 DATA OVALEN,95,0,RUNDEN,96,0
50700 DATA ECKIGEN,97,0,OVALE,95,0
50710 DATA RUNDE,96,0,ECKIGE,97,0,FEST
50720 DATA 98,0,LOS,99,0,EIN,100,0,ZU
50730 DATA 101,0,AB,102,0,WEG,103,0,AUF
50740 DATA 104,0,HIN,105,0,AUS,106,0,AN
50750 DATA 107,0
READY.
