10 REM **********************
20 REM *    MINAS GUNDUR    *
30 REM * PHILIPP KOEHN 1986 *
40 REM **********************
50 :
90 GOTO 60000
100 IF U% THEN X=X+1:GOTO 410
110 POKE 646,F2:PRINT">";:B$=""
120 PRINT"[191][157]";
130 GET A1$:IF A1$="" GOTO 130
131 IF A1$="@" AND LEN(B$)+LEN(BA$)<37 THEN PRINTBA$;:B$=B$+BA$:GOTO120
135 A$=CHR$(ASC(A1$)AND127)
140 IF A$=CHR$(13) AND B$<>"" THEN PRINT" ":BA$=B$:GOTO 200
150 IF A$=CHR$(20) AND B$<>"" THEN B$=LEFT$(B$,LEN(B$)-1):PRINTA$;
160 IF LEN(B$)>36 OR ((A$<"A" OR A$>"Z")AND A$<>" ") GOTO 120
170 PRINTA1$;:B$=B$+A$
180 GOTO 120
190 :
200 FOR I=1 TO 18:W$(I)="":NEXT I
205 A$=MID$(B$,I,1)
208 W=1:FOR I=1 TO LEN(B$)
209 A$=MID$(B$,I,1)
210 IF A$=" " AND W$(W)<>"" THEN W=W+1
220 IF A$<>" " THEN W$(W)=W$(W)+A$
230 NEXT I
240 IF W$(W)="" THEN W=W-1
250 IF W=0 THEN PRINT"[145][145]":GOTO 110
360 :
400 X=1:V=0
410 OM=O:O=0:O1=0:U%=0:ZG=ZG+1
420 FORI=1TOAH:IFH$(I)=W$(X)GOTO510
421 NEXT
424 FORI=1TOAV:IFLEFT$(V$(I),LEN(W$(X)))=W$(X)THENV=I-VAL(RIGHT$(V$(I),1)):GOTO510
425 NEXT
430 FORI=1TOAO:IFO%(I,0)=5THENIFO$(I)=W$(X)THENO1=I:GOTO500
431 IF O%(I,0)=5 GOTO 435
432 IFLEFT$(O$(I),LEN(W$(X)))=W$(X)THENO1=I-VAL(RIGHT$(O$(I),1)):GOTO500
435 NEXT
450 IF W$(X)="ES" OR W$(X)="IHN" OR W$(X)="SIE" THEN O1=OM:GOTO 500
460 IF W$(X)="UND" THEN U%=1:GOTO 530
470 ZG=ZG-1:A$="[201]CH KENNE #"+W$(X)+"$ LEIDER NICHT.":GOSUB 50100:GOTO 100
500 IF O=0 THEN O=O1:O1=0
510 X=X+1
520 IF X<=W GOTO 420
530 FF%=0:GOSUB 1000:IF FF%=0 THEN GOSUB 6000
540 GOTO 100
1000 IF O%(O,0)=5 AND V=0 THEN V=33
1001 IF O=3 AND RR=16 THEN O=29
1002 IF V=51 THEN V=33
1005 POKE 646,F1
1010 IF V=0 AND O=0 THEN PRINT"[196]EIN [211]ATZ SCHEINT MIR NICHTS AUSSAGEND.":RETURN
1020 IF V=0 THEN PRINT"[201]M [211]ATZ FEHLT DER [211]INN!":RETURN
1099 REM ***** RICHTUNGEN
1100 IF V>6 GOTO 1400
1110 IF R%(RR,V)=0 THEN PRINT"[196]AHIN KANNST DU NICHT GELANGEN.":RETURN
1120 RR=R%(RR,V)
1200 PRINT""
1205 IF RR=5 THEN IF O%(9,1)>=0 THEN RR=6
1206 IF RR=11 THEN IF F%(10)=0 AND F%(13)=0 THEN T=8:GOTO 10000
1236 Z$=R$(RR):GOSUB 50000
1237 IF R%(RR,0)=0 THEN R%(RR,0)=1:Q=Q+1
1238 ZP=ZG
1240 GOSUB 40000+RR*100
1250 F=0:FOR I=1 TO AO
1260 IF O%(I,0)<>1 OR O%(I,1)<>RR GOTO 1290
1270 IF F=0 THEN F=1:PRINT"[200]IER LIEGT ";
1271 IF POS(I)+LEN(V$(I))>32 THEN PRINT
1272 PRINT"EIN";
1273 IF O%(I,2)=1 THEN PRINT"E";
1280 PRINT" ";CHR$(ASC(O$(I))+128);MID$(O$(I),2);", ";
1290 NEXT I:IF F THEN PRINT"[157][157]."
1300 F=0:FOR I=1 TO 6
1310 IF R%(RR,I)=0 GOTO 1350
1320 IF F=0 THEN F=1:PRINT"[196]U KANNST NACH ";
1330 IF POS(I)+LEN(V$(I))>37 THEN PRINT
1340 PRINTCHR$(ASC(V$(I))+128);MID$(V$(I),2);", ";
1350 NEXT I
1360 IF F THEN PRINT"[157][157]."
1370 F=0:RETURN
1399 REM ***** NIMM
1400 IF V<>7 GOTO 1500
1410 IF O=0 THEN PRINT"[215]AS SOLL ICH NEHMEN?":RETURN
1420 IF O%(O,1)=-1 THEN PRINT"[196]AS HABE ICH SCHON.":RETURN
1425 IF O%(O,1)<>RR THEN PRINT"[196]AS SEHE ICH HIER NIRGENS.":RETURN
1430 IF O%(O,0)=3 THEN PRINT"[215]AS SOLL DIESER [213]NSINN?":RETURN
1440 IF O%(O,0)<>1 THEN PRINT"[196]AS KANNST DU NICHT NEHMEN.":RETURN    
1450 O%(O,1)=-1:PRINT"[201]N [207]RDNUNG.":RETURN
1499 REM ***** GIB
1500 IF V<>10 GOTO 1600
1510 IF O=0 THEN PRINT"[215]AS SOLL ICH ABLEGEN?":RETURN
1520 IFO%(O,1)<>-1THENPRINT"[196]AS BEFINDET SICH NICHT IN MEINEM [194]E-   SITZ.":RETURN
1525 IF RR=12 AND O=5 GOTO 20000
1530 O%(O,1)=RR:PRINT"[201]N [207]RDNUNG."
1531 IF O=14 AND F%(11)=0 THEN FF%=1:GOTO 6650
1532 IF O=16 THEN FF%=1:GOTO 6650
1590 RETURN
1599 REM ***** UNTERSUCHE
1600 IF V<>14 GOTO 2000
1610 IF O=0 GOTO 1200
1620 IF O%(O,1)<>RR AND O%(O,1)<>-1 THEN PRINT"[196]AS SEHE ICH NIRGENS.":RETURN
1630 IF O=2 THEN PRINT"[196]ER [212]ISCH BESITZT EINE [211]CHUBLADE, DIE"
1631 IF O=2 THEN PRINT"ANSCHEINEND UNVERSCHLOSSEN IST.":RETURN
1633 IF O<>8 OR F%(4)=0 OR O%(1,1) GOTO 1640
1634 PRINT"[197]R TR^GT EIN ST^HLERNES [211]CHWERT UND":Q=Q+2
1636 PRINT"[203]OMPASS BEI SICH.":O%(1,1)=RR:O%(9,1)=RR:RETURN
1640 IF O<>15 GOTO 1660
1641 IF R%(10,6) GOTO 1650
1642 PRINT"[200]INTER EINEM [194]USCH AN DER [198]ELSWAND"
1643 PRINT"ENTDECKST DU EINEN DUNKLEN [199]ANG. [196]AS"
1644 PRINT"MU_ EIN [197]INGANG ZUM SAGENUMWOBENEN"
1645 PRINT"[200]@HLENSYSTEM [205]INAS [199]UNDUR SEIN!":Q=Q+3:R%(10,6)=11:RETURN
1650 PRINT"[200]INTER EINEM [194]USCH F\HRT EIN [199]ANG"
1651 PRINT"HINAB IN DAS [200]@HLENSYSTEM VON [205]INAS"
1652 PRINT"[199]UNDUR.":RETURN
1660 IF O<>30 GOTO 1670
1661 PRINT"[196]ER KREISRUNDE [194]RUNNEN IST FAST BIS"
1662 PRINT"ZUM [210]AND MIT EINER VIOLETTEN [198]L\SSIG-"
1663 PRINT"KEIT GEF\HLT, DIE AUF MERKW\RDIGE [193]RT"
1664 PRINT"[197]NERGIE ABSTRAHLT.":RETURN
1670 IF O=31 AND F%(18)<2 GOTO 20200
1990 PRINT"[201]CH KANN KEINE [194]ESONDERHEITEN ERKENNEN.":RETURN
1999 REM ***** INVENTUR
2000 IF V<>16 GOTO 2100
2010 PRINT"[196]U BESITZT ";:F=0
2020 FOR I=1 TO AO
2030 IF O%(I,1)<>-1 THEN 2070
2040 IF LEN(O$(I))+POS(I)>32 THEN PRINT
2050 PRINT"EIN";:IF O%(I,2) THEN PRINT"E";
2055 IF O%(I,2)=2 THEN PRINT"N";
2060 PRINT" ";CHR$(ASC(O$(I))OR128);MID$(O$(I),2);", ";:F=1
2070 NEXT:IF F=1 THEN PRINT"[157][157]."
2080 IF F=0 THEN PRINT"NOCH NICHTS."
2090 IF O%(21,1)=-2 THEN PRINT"[196]U TR^GST EINE [212]ARNKAPPE."
2095 RETURN
2099 REM ***** HILFE
2100 IF V<>18 GOTO 2200
2110 IF RR=1 THEN PRINT"[211]ESAM, @FFNET EUCH!":RETURN
2111 IF RR=3 THEN PRINT"[194]EACHTE ALLES, WAS DU HAST UND WAS DU   SIEHST!":RETURN
2113 IF RR=8 THEN PRINT"[200]ABE [214]ERTRAUEN IN GUTE [215]ESEN. [197]INEN"
2114 IF RR=8 THEN PRINT"[199]EGENSTAND KANNST DU NUN EIN ZWEITES [205]ALBENUTZEN.":RETURN
2115 IF RR=10 THEN PRINT"[205]ACHE DICH MIT DEINER [213]MGEBUNG VETRAUT,"
2116 IF RR=10 THEN PRINT"NUTZE SCHLECHTE [213]MST^NDE POSITIV"
2120 IF RR=12 THEN PRINT"[196]AS [194]UCH IST DIE [193]USZEICHNUG F\R DEN"
2121 IF RR=12 THEN PRINT"WEISESTEN [218]AUBERER.":RETURN
2125 IF RR=14 THEN PRINT"[206]UR KEINE [193]NGST!":RETURN
2130 IF RR=15 THEN PRINT"[196]U SOLLTEST [199]ESCHENKE MEHR ACHTEN!":RETURN
2135 IF RR=16 THEN PRINT"[215]OZU HAST DU EIN [211]CHWERT?":RETURN
2140 IF RR=17 THEN PRINT"[194]EACHTE DEN [194]RUNNEN, ABER VERGI_ [205]AGDA- LAR NICHT!":RETURN
2145 IF RR=18 THEN PRINT"[210]\CKZUG IST DIE BESTE [214]ERTEIDIGUNG!"
2146 IF RR=18 THEN PRINT"[193]BER NICHT NACH [211]\DEN!":RETURN
2150 IF RR=19 THEN PRINT"[200]AST DU DEN [218]ETTEL VERGESSEN?":RETURN
2195 PRINT"[196]EIN [210]UF VERHALLT UNGEH@RT IM GRENZEN-"
2196 PRINT"LOSEN [211]PEICHER DES [195]OMPUTERS.":RETURN
2199 REM ***** LADEN
2200 IF V<>19 GOTO 2300
2201 PRINT"[206]UMMER DES [211]PIELSTANDES (1-9): [191][157]";
2204 GET A$:IF A$="" GOTO 2204
2205 IF A$<"1" OR A$>"9" THEN PRINT"0":RETURN
2206 PRINT A$:GOSUB 21000
2207 N$="SPIELSTAND NR."+A$
2208 IF G$="D" THEN OPEN 8,8,3,N$+",S,R"
2209 IF G$="C" THEN OPEN 8,1,0,N$
2212 INPUT# 8,RR
2213 INPUT# 8,A
2214 FOR I=1 TO A:INPUT# 8,O%(I,1):NEXT
2215 INPUT# 8,F1,F2,CL,A
2216 POKE 53280,A:POKE 53281,A
2220 INPUT# 8,A
2221 FOR I=1 TO A:FOR J=0 TO 6:INPUT# 8,R%(I,J):NEXT J,I
2223 INPUT# 8,Q,ZG,AF
2224 FOR I=0 TO AF:INPUT# 8,F%(I):NEXT I
2225 CLOSE 8
2234 POKE 646,F1:PRINT"[147]":GOTO 1205
2299 REM ***** SPEICHERN
2300 IF V<>21 GOTO 2400
2301 PRINT"[206]UMMER DES [211]PIELSTANDES (1-9): [191][157]";
2304 GET A$:IF A$="" GOTO 2304
2305 IF A$<"1" OR A$>"9" THEN PRINT"0":RETURN
2306 PRINT A$
2307 N$="SPIELSTAND NR."+A$
2308 GOSUB 21000:IF G$="C" THEN OPEN 8,1,1,N$
2309 IF G$="D" THEN OPEN 1,8,15,"S:"+N$:CLOSE 1:OPEN 8,8,3,N$+",S,W"
2312 PRINT# 8,RR
2313 PRINT# 8,AO
2314 FOR I=1 TO AO:PRINT# 8,O%(I,1):NEXT I
2315 PRINT# 8,F1
2316 PRINT# 8,F2
2317 PRINT# 8,CL
2318 PRINT# 8,PEEK(53280)
2320 PRINT# 8,AR
2321 FOR I=1 TO AR:FOR J=0 TO 6:PRINT# 8,R%(I,J):NEXT J,I
2323 PRINT# 8,Q:PRINT# 8,ZG:PRINT# 8,AF
2324 FOR I=0 TO AF:PRINT# 8,F%(I):NEXT I
2325 CLOSE 8
2340 RETURN
2399 REM ***** FARBEN AENDERN
2400 IF V<>24 GOTO 2500
2410 PRINT"[255]NDERE DIE [198]ARBEN NACH DEINEM [215]UNSCH:"
2420 A$="[200]INTERGRUNDSFARBE":F=PEEK(53280):GOSUB 50200:HF=F
2430 A$="[198]ARBE DES [199]ROSS-[194]UCHSTABENS":F=CL:GOSUB 50200:CL=F
2440 A$="[198]ARBE DES [193]USGABEN":F=F1:GOSUB 50200:X=F
2450 A$="[198]ARBE DER [197]INGABEN":F=F2:GOSUB 50200:F2=F
2460 F1=X:POKE 646,X:POKE 53280,HF:POKE 53281,HF:PRINT"[147]":GOTO 1205
2499 REM ***** PUNKTE
2500 IF V<>25 GOTO 2600
2510 A=INT(1000*Q/PM)/10
2520 PRINT"[196]U HAST";INT(Q);"[208]UNKT";:IF Q<>1 THEN PRINT"E";
2525 PRINT" ERRINGEN K@NNEN"
2530 PRINT"UND DAMIT";A;"[157]% DES [211]PIELES GEL@ST."
2570 RETURN
2599 REM ***** LIES BUCH
2600 IF V<>28 GOTO 2700
2601 IF O<>5 GOTO 2630
2602 IF O%(O,1)<>-1 THEN PRINT"[201]CH HABE KEIN [194]UCH.":RETURN
2604 IF RR<>3 OR F%(5) GOTO 2610
2605 PRINT"#[196]AS MAGISCHE [218]AUBERWORT [166]XYLKS[220] VERMAG":Q=Q+3:F%(5)=1
2606 PRINT"DEM [193]USSPRECHENDEN F\R KURZE [218]EIT DIE"
2607 PRINT"[199]ABE DES [198]LIEGENS ZU VERLEIHEN.$":RETURN
2610 IF RR<>8 OR F%(6) GOTO 2620
2611 PRINT"#[196]EN [218]ORN W\TENDER [212]IERE L@ST DAS [215]ORT"
2612 PRINT"[166]EQUARZ[220], WENN SIE NICHT VOLLKOMMEN"
2613 PRINT"DEM [194]@SEM VERFALLEN SIND.$":Q=Q+1:F%(6)=1:RETURN
2620 PRINT"[211]ELTSAMERWEISE ENTH^LT DAS [194]UCH NUR     LEERE [211]EITEN.":RETURN
2630 IF O<>36 THEN PRINT"[196]AS IST MIR UNM@GLICH ZU LESEN."
2640 IF O%(O,1)<>-1 THEN PRINT"[196]U HAST KEINEN [218]ETTEL!":F%=1:RETURN
2641 PRINT"[193]UF DEM [218]ETTEL STEHEN IN GRO_EN, GUNDU-"
2642 PRINT"RISCHEN [210]UNEN DIE [215]ORTE [166][198]ROTZL[220] UND"
2643 PRINT"[166][208]ATRI[220]. [206]ACHDEM [196]U DEN [218]ETTEL GELESEN"
2644 PRINT"HATTEST, VERBRANNTE ER ZU [193]SCHE.":Q=Q+1:O%(36,1)=0:RETURN
2699 REM ***** SAGE
2700 IF V<>33 GOTO 2800
2701 IF O=0 THEN PRINT"[215]AS WILLST DU SAGEN?":RETURN
2702 IF RR<>3 OR O<>6 GOTO 2705
2703 IF R%(4,0)=0 THEN Q=Q+2
2704 RR=4:GOTO 1200
2705 IF O%(O,0)=3 AND O%(O,0)<>RR GOTO 2800
2710 IF RR<>8 OR O<>13 OR F%(7) GOTO 2720
2711 Q=Q+3:PRINT"[196]AS [213]NGEHEUER WIRD PL@TZLICH ZAHM UND"
2712 PRINT"SCHAUT DICH FREUNDLICH AN.":F%(7)=1:RETURN
2720 IF RR<>14 GOTO 2730
2721 IF O=20 AND F%(14)=0 GOTO 20100
2724 IF (O<>6 AND O<>13) OR F%(15) GOTO 2730
2725 PRINT"[197]R GIBT DIR EINE [212]ARNKAPPE UND SAGT:"
2726 PRINT"[166][205]IT IHRER [200]ILFE SIEHST DU DIE [215]ELT MIT"
2727 PRINT"DEN [193]UGEN DER B@SEN [199]EISTER.[220]"
2729 O%(21,1)=-1:F%(15)=1:Q=Q+5:RETURN
2730 IF O<>31 GOTO 2740
2731 IF F%(18)<2 GOTO 20200
2732 F%(18)=3:Q=Q+2:O%(O,1)=0
2733 PRINT"[197]R ANTWORTET DIR L
GSAM: [166][196]U HAST,"
2734 PRINT"VIEL GELERNT, SEIT ICH DICH VERLASSEN"
2735 PRINT"HABE. [198]\HRE DANN MEINEN [193]UFTRAG ZU"
2736 PRINT"[197]NDE UND T@TE DEN [200]EXENMEISTER, DEN"
2737 PRINT"DUNKLEN [200]ERRSCHER DER [194]@SEN.[220]"
2738 PRINT"[196]ANN L@ST ER SICH IN [204]UFT AUF UND L^_T"
2739 PRINT"EINEN [218]ETTEL ZUR\CK.":O%(36,1)=17:RETURN
2740 IF RR<>19 OR O<>40 OR F%(20)>0 GOTO 2760
2741 Q=Q+4:F%(20)=1
2742 PRINT"[208]L@TZLICH ERSTARREN DIE [218]\GE DES B@SEN"
2743 PRINT"[200]EXENMEISTERS. [197]R SCHEINT NUN WEHR-"
2744 PRINT"LOS...":RETURN
2760 IF O=41 AND F%(20)<2 THEN T=12:GOTO 10000
2761 IF O=41 GOTO 25000
2790 PRINT"[196]EIN [193]USSPRUCH HAT KEINE ERSICHTLICHE   [198]OLGE.":RETURN
2799 REM ***** WARTE
2800 IF V<>35 GOTO 2900
2890 PRINT"[196]IE [218]EIT VERRINNT.":RETURN
2899 REM ***** STIRB/SCHWIMME
2900 IF V=37 THEN T=2:GOTO 10000
2999 REM ***** TOETE
3000 IF V<>39 GOTO 3100
3001 IF O=0 THEN PRINT"[215]EN WILLST DU T@TEN?":FF%=1:RETURN
3002 IF O%(O,0)<>3 THEN PRINT"[196]INGE KANN MAN NICHT T@TEN!":FF%=1:RETURN
3003 IF O1=0 THEN PRINT"[196]OCH NICHT MIT DEN BLO_EN [200]^NDEN?":FF%=1:RETURN
3004 IF O%(O1,1)<>-1 THEN PRINT"[196]IESE [215]AFFE BESITZT DU NICHT!":FF%=1:RETURN
3010 IF O<>8 GOTO 3020
3011 IF O1<>7 THEN T=4:GOTO 10000
3013 IF F%(4) THEN PRINT"[196]ER [205]ANN IST SCHON TOT!":RETURN
3014 F%(4)=1:F%(1)=0:Q=Q+5
3015 PRINT"[205]IT EINEM GEWALTIGEN [211]CHLAG INS [200]ERZ"
3016 PRINT"HAST DU IHN T@DLICH VERWUNDET.":RETURN
3020 IF O=11 THEN T=3:GOTO 10000
3022 IF O=18 THEN T=9:GOTO 10000
3024 IF O=20 THEN PRINT"[215]ARUM WILLST DU SOETWAS TUN?":RETURN
3025 IF O1<>1 THEN PRINT"[196]IESE [215]AFFE IST SINNLOS!":FF%=1:RETURN
3030 IF O<>28 GOTO 3040
3031 IF O%(O,1)<>RR THEN PRINT"[200]IER IST KEIN [199]EIST.":RETURN
3032 O%(O,1)=0:F%(16)=2:O%(21,1)=0:Q=Q+4:R%(RR,1)=16
3033 PRINT"[205]IT EINEM KRAFTVOLLEN [211]CHLAG MIT DEM"
3034 PRINT"[211]CHWERTE HAST DU DEN [199]EIST GET@TET."
3035 PRINT"[196]IE [212]ARNKAPPE UND DIE [169]BERRESTE DES"
3036 PRINT"[199]ESPENSTES ZERFIELEN ZU [211]TAUB."
3037 PRINT"[206]UN IST DER [215]EG FREI NACH [206]ORDEN.":RETURN
3040 IF O<>42 OR F%(20)=2 GOTO 3099
3041 IF F%(20)=0 THEN T=13:GOTO 10000
3042 F%(21)=1:F%(20)=2:Q=Q+2
3043 PRINT"[193]US DEM [204]EICHNAM DES SCHRECKLICHSTEN"
3044 PRINT"[199]ESCH@PF DER [197]RDE STEIGT EIN BESTIALISCH";
3045 PRINT"RIECHENDER [196]AMPF AUF."
3046 PRINT"[196]U H@RST EIN LAUTES [203]RACHEN UND [194]RECHEN:";
3047 PRINT"DIE OBEREN [199]EW@LBE VON [205]INAS [199]UNDUR"
3048 PRINT"ST\RZEN EIN!":RETURN
3099 REM *** ENTZUENDE
3100 IF V<>41 GOTO 3200
3101 IF O%(O,1)<>-1 THEN PRINT"[196]AS HABE ICH NICHT":RETURN
3102 IF O=16 THEN T=17:GOTO 10000
3150 IF RR<>10 OR F%(9)<3 THEN PRINT"[201]CH HABE KEIN [198]EUER!":RETURN
3151 IF O<>14 THEN PRINT"[196]AS HAT KEINEN ALZU GRO_EN [211]INN.":RETURN
3152 IF F%(13) THEN Q=Q-4
3153 Q=Q+4:F%(13)=1:PRINT"[196]ER [193]ST BRENNT LICHTERLOH.":F%(10)=5:RETURN
3200 IF V=44 AND O=14 THEN PRINT"[196]U WIRFST IHN WEG.":O%(O,1)=0
3300 IF V<>46 GOTO 3400
3301 IF O<>21 THEN PRINT"[196]AS KANNST DU ICH NICHT AUFSETZEN!":RETURN
3302 IF O%(O,1)<>-1 THEN PRINT"[196]U HAST KEINE [203]APPE.":RETURN
3310 F%(16)=1:PRINT"[196]U HAST NUN DIE [212]ARNKAPPE AUF."
3311 IF RR=15 THEN PRINT"[196]U ERBLICKT EINEN [199]EIST!"
3312 Q=Q+4:O%(O,1)=-2:RETURN
3400 IF (V=49 OR V=54) AND O1=0 THEN PRINT"[215]OMIT?":RETURN
3410 IF V=49 AND O1<>1 GOTO 3025
3500 :
4990 :
4991 REM ******************************
4992 REM     RAUM-BEFEHLE AUFRUFEN
4993 REM ******************************
5000 F=0:GOSUB 30000+100*RR
5001 IF F THEN PRINT"[196]AS GEHT NICHT.":ZG=ZG-1
5002 FF%=F:RETURN
5990 REM ******************************
5991 REM            ACTION
5992 REM ******************************
6000 IF F%(4) GOTO 6200
6002 IF RR<>4 GOTO 6100
6005 F%(0)=F%(0)+1
6010 IF A=1 OR A=2 THEN PRINT"[214]ON UNTEN H@RST DU [205]ENSCHENSTIMMEN."
6020 IF A=3 THEN PRINT"[197]IN [205]ANN TAUCHT PL@TZLICH AUF. [197]R IST":R%(4,6)=0
6030 IF A=3 THEN PRINT"WAHRSCHEINLICH DER [200]ERR DES [194]AUMHAUSES.":O%(8,1)=4
6040 IF A=4 THEN PRINT"[196]ER [205]ANN GREIFT DICH AN!"
6050 IF A=5 THEN T=1:GOTO 19000
6100 IF RR=3 AND F%(1) THEN T=1:GOTO 19000
6110 IF RR=3 AND F%(0) THEN F%(2)=3:F%(3)=3:O%(8,1)=3
6120 IF RR=3 AND F%(0) THEN PRINT"[197]IN [205]ANN GREIFT DICH AN!":F%(1)=1            
6200 IF F%(1) AND F%(2)<>RR THEN T=F%(3):GOTO 19000
6210 IF RR<>8 AND F%(8)=4 THEN F%(8)=3
6300 IF RR<>8 OR F%(7) GOTO 6400
6310 F%(RR)=F%(RR)+1:A=F%(RR)
6320 IF A=2 THEN PRINT"[197]IN [211]EEUNGEHEUER TAUCHT AUS DEM [211]EE     AUF!":O%(11,1)=8
6330 IF A=3 THEN PRINT"[196]AS [213]NGEHEUER SCHAUT DICH ZORNIG AN."
6340 IF A=4 THEN PRINT"[196]AS [213]NGEHEUER GREIFT DICH AN!"
6350 IF A=5 THEN T=6:GOTO 19000
6400 IF RR<>10 GOTO 6500
6410 F%(9)=F%(9)+1:A=F%(9)
6420 IF A=1 THEN PRINT"[197]IN [213]NWETTER ZIEHT AUF."
6430 IF A=2 OR A=4 THEN PRINT"[197]S REGNET IN [211]TR@MEN."
6440 IF A=3 THEN PRINT"[197]IN [194]LITZ SCHL^GT IN EINEN [194]AUM IN DER"
6441 IF A=3 THEN PRINT"[206]^HE EIN, DER SOFORT ANF^NGT ZU BRENNEN!";
6450 IF A=5 THEN T=7:GOTO 19000
6500 IF F%(10)=0 GOTO 6700
6505 F%(10)=F%(10)-1:A=F%(10)
6510 IF A<2 THEN PRINT"[196]AS [204]ICHT DES [193]STES NIMMT AB."
6520 IF A=0 THEN PRINT"[145]";TAB(28);", UND ER-   LISCHT.":O%(14,1)=0
6530 IF A=0 AND F%(11)=0 GOTO 6700
6700 IF RR=15 AND O%(21,1)=-2 THEN O%(28,1)=15
6800 IF RR<>15 OR F%(16)=2 GOTO 6900
6810 A=F%(17)+1
6820 IF A=2 AND F%(16)=0 THEN PRINT"[196]U F\HLST DICH BEOBACHTET..."
6830 IF A=4 THEN T=10:GOTO 19000
6840 F%(17)=A
6900 IF R%(16,1)=17 THEN R$(16)="B"
6910 IF F%(18)=2 THEN R$(17)="M"
7000 IF RR<>18 THEN F%(19)=0:GOTO 7100
7010 A=F%(19)+1
7020 IF A=1 THEN PRINT"[196]U BEMERKST EIN [199]RUPPE [211]OLDATEN, DIE"
7021 IF A=1 THEN PRINT"AUF DICH AUFMERKSAM WIRD."
7030 IF A=2 THEN PRINT"[196]IE [211]OLDATEN GREIFEN DICH AN!"
7040 IF A=3 THEN T=11:GOTO 19000
7050 F%(19)=A
7100 IF F%(20)=0 GOTO 9990
7110 F%(21)=F%(21)+1
7120 IF F%(21)=3 THEN T=14:GOTO 19000
9990 RETURN
9991 :
9992 REM ******************************
9993 REM        TODESMELDUNGEN
9994 REM ******************************
10000 PRINT"[147]"
10010 GOSUB 10900+T*100
10090 GOSUB 2510
10100 PRINT"[205]@CHTAST DU NOCH EINMAL VON [214]ORNE AN-"
10110 PRINT"FANGEN (J/N)?"
10120 GET A$
10130 IF A$="J" THEN CLR:B=1:GOTO 60000
10140 IF A$<>"N" GOTO 10120
10150 POKE 53280,14:POKE 53281,6:PRINT"[147][142][154]";:END
10160 :
11000 Z$="D":GOSUB 50000
11010 PRINT"ER [205]ANN BETRACHTETE DICH ALS [196]IEB UND"
11020 PRINT"UND T@TETE DICH GRAUSAM.":RETURN
11100 Z$="A":GOSUB 50000
11110 PRINT"US [214]ERZWEIFLUNG \BER DEINE SCHLECHTE"
11120 PRINT"[204]AGE HAST DU [211]ELBSTMORD VER\BT.":RETURN
11200 Z$="L":GOSUB 50000
11210 PRINT"EIDER FOLGTE DIR DER [205]ANN EILIG UND"
11220 PRINT"BRACHTE DICH MIT SEINEM [211]CHWERT UM.":RETURN
11300 Z$="T"
11310 PRINT"[212]ROTZ [199]EGENWEHR KONNTEST DU DAS [213]NHEIL"
11320 PRINT"NICHT MEHR VON DIR ABWENDEN...":RETURN
11400 Z$="K":GOSUB 50000
11410 PRINT"URZ NACHDEM DU DEN [211]EE BETRETEN HAST,"
11420 PRINT"GRIFFEN DICH [208]IRANHAS AN UND NAGTEN"
11430 PRINT"DICH BIS AUF DEN LETZTEN [203]NOCHEN AB.":RETURN
11500 Z$="M":GOSUB 50000
11510 PRINT"IT SEINEM RIESIGEN [203]IEFER BRACH DAS"
11520 PRINT"[211]EEUNGEHEUER DIR DAS [199]ENICK.":RETURN
11600 Z$="K":GOSUB 50000
11610 PRINT"AUM HAST DU DICH VON DEM [211]CHRECK"
11620 PRINT"DES [194]LITZEINSCHLAGES ERHOLT, TRAF"
11630 PRINT"DER N^CHSTE [194]LITZ DICH.":RETURN
11700 Z$="I":GOSUB 50000
11710 PRINT"N DER [196]UNKELHEIT, WAR ES MIR UNM@GLICH";
11720 PRINT"ETWAS ZU SEHEN, STOLPERTE, FIEL HIN UND"
11730 PRINT"TRAF UNGL\CKLICHERWEISE MIT DEM [203]OPF"
11740 PRINT"T@TLICH AUF.":RETURN
11800 Z$="U":GOSUB 50000
11810 PRINT"EBERRASCHT VON DEINEM [193]NGRIFF, SCHLUG"
11820 PRINT"DER [215]^CHTER DIR DEINE [215]AFFE AUS DER"
11830 PRINT"[200]AND UND T@TETE DICH.":RETURN
11900 Z$="A":GOSUB 50000
11910 PRINT"UF EINMAL VERSP\RTEST DU EINEN [211]TICH"
11920 PRINT"IM [200]ERZEN UND STARBST UNTER EINEM"
11930 PRINT"B@SEN [204]ACHEN, DESSEN [213]RHEBER DIR F\R"
11940 PRINT"IMMER UNBEKANNT BLEIBEN WIRD.":RETURN
12000 Z$="D":GOSUB 50000
12010 PRINT"IE [196]ARKI, DIE DUNKLEN [196]IENER [199]ARKORS,"
12020 PRINT"WAREN LEIDER IN DER [169]BERZAHL, NAHMEN"
12030 PRINT"DICH FEST UND FOLTERTEN DICH GRAUSAM"
12040 PRINT"ZU [212]ODE.":RETURN
12100 PRINT"[145][145]":Z$="U":GOSUB 50000
12110 PRINT"RPL@TZLICH WURDEST DU IN DEINE [200]EIMAT-"
12120 PRINT"STADT ZUR\CKGESETZT. [215]EIL DU KURZ VOR"
12130 PRINT"DEM [218]IEL AUFGEGEBEN UND [199]ARKOR NICHT"
12140 PRINT"GET@TET HAST, WURDEST DU VOM [214]OLKE"
12150 PRINT"GELYNCHT. [196]EIN [206]AME WAR LANGE EIN
12160 [153]"SCHLIMMES (null)CHIMPFWORT.":[142]
12200 Z$[178]"F":[141] 50000
12210 [153]"R@HLICH SPRACH DER SCHRECKLICHE"
12220 [153]"LEFT$ERRSCHER EIN (null)ORT DES CHR$RAUENS, DESSEN"
12230 [153]"(null)RAFT AUSREICHTE DICH AM LEBENDIGEN"
12240 [153]"UNTER UNVORSTELLBAREN (null)CHMERZEN ZU"
12250 [153]"VERBRENNEN.":[142]
12300 Z$[178]"U":[141] 50000
12310 [153]"NTER LAUTEM CHR$ET@SE BRACH DIE STR$ECKE"
12320 [153]"\BER DIR EIN. VALS GAB KEINEN ATNUSWEG,
12330 PRINT"WOHIN DU DICH H^TTEST RETTEN K@NNEN.":RETURN
12400 Z$="D":GOSUB 50000
12410 PRINT"ER [215]^CHTER MI_VERSTAND DIE [215]AFFE"
12420 PRINT"ALS [205]ORDDROHUNG.":RETURN
12500 Z$="G":GOSUB 50000
12510 PRINT"RO_ER [211]CHMERZ DURCHZUCKT DEINEN [203]@RPER";
12520 PRINT"UND DU STIRBST AM GIFTIGEN [215]ASSER DES"
12530 PRINT"[194]RUNNENS.":RETURN
12600 Z$="L":GOSUB 50000:PRINT"AUTSTARK ZERBARST DIE UNHEILVOLLE"
12610 PRINT"[204]AMPE UND DU MIT IHR. [215]AHRSCHEINLICH"
12620 PRINT"HAT EIN [196]IENER [199]ARKORS [211]PRENGSTOFF"
12630 PRINT"HINEINGETAN.":RETURN
19000 PRINT"([196]R\CKE EINE [212]ASTE)"
19010 POKE 198,0:WAIT 198,1:GET A$:GOTO 10000
20000 O%(5,1)=.:PRINT"[196]ER [215]^CHTER SCHAUT ES AN UND L^_T DICH"
20010 PRINT"MIT DEM [211]CHWERT NACH [206]ORDEN DEUTEND"
20020 PRINT"GEHEN. [197]R SAGT ER BEH^LT DEIN [194]UCH"
20030 PRINT"BIS ZU DEINER [210]\CKKEHR."
20090 Q=Q+3:R%(12,1)=13:RETURN
20100 PRINT"[196]ER [215]EISE SAGT ZU DIR: [166][193]LS NOCH SO"
20110 PRINT"JUNG WAR WIE DU, K^MPFTE ICH AUCH GEGEN"
20120 PRINT"DAS [194]@SE. [200]EUTE JEDOCH FEHLT MIR DIE"
20130 PRINT"[203]RAFT DAZU. [196]OCH BEWEISE MIR ERST, DAS"
20140 PRINT"DU EIN [218]AUBERLEHRLING BIST, UND ICH DIR"
20150 PRINT"VERTRAUEN KANN.[220]"
20190 Q=Q+2:F%(14)=1:RETURN
20200 PRINT"[196]ER WEISE [218]AUBERMEISTER SCHAUT DICH"
20210 PRINT"ERWARTUNGSVOLL AN. [197]R SCHEINT IRGENTWIE"
20220 PRINT"GEISTIG GEFESSELT.":RETURN
20999 :
21000 PRINT"([196])ISKETTE ODER ([195])ASSETTE [191][157]";
21010 GET G$:IF G$="D" OR G$="C" THEN PRINTG$:RETURN
21020 GOTO 21010
21030 :
25000 Q=Q+10:POKE 53280,0:POKE 53281,0:CL=9
25010 PRINT"[149][147][129]";TAB(15);
25020 FOR I=1 TO 4:Z$=MID$("SIEG",I,1):GOSUB 50000:NEXT
25030 PRINT
25040 PRINT TAB(173);
25050 Z$="M":GOSUB 50000
25060 PRINT"INAS ";
25070 Z$="G":GOSUB 50000
25080 PRINT"UNDUR"
25090 PRINTTAB(95);"IST GEL@ST!"
25100 PRINTTAB(127);
25110 Z$="H":GOSUB 50000
25120 PRINT"ERZLICHEN ";
25130 Z$="G":GOSUB 50000
25140 PRINT"L\CKWUNSCH!"
25200 L$(1)="[205]INAS [199]UNDUR VON [208]HILIPP [203]@HN - [211]IE ERHI"
25210 L$(1)=L$(1)+"ELTEN"+STR$(Q)+" VON"+STR$(PM)+" M@GLICHEN [208]UNKTEN"
25220 L$(2)=" - [214]IELEN [196]ANK F\R [212]ESTEN UND [203]RITISIEREN AN "
25230 L$(3)="[210]ALPH UND [195]HRISTINE [197]GELSEER, [193]NNETTE [203]@HN, [195]HRISTOPH "
25240 L$(3)=L$(3)+"[211]TEINEBRUNNER UND [212]HOMAS [200]OLZMANN - "
25250 L$(4)="[196]ANK AUCH F\R DEN [203]URS IM 64'ER [211]ONDERHEFT AN [205]ICHAEL [206]ICKLES - "
25260 L$(5)="[196]EMN^CHST AUF DIESEM [211]CREEN: [205]INAS [199]UNDUR [221][221] - "
25270 L$(6)="[197]RDACHT UND [208]ROGRAMMIERT IM [202]AHRE DES [200]ER"
25280 L$(7)="RN 1986 IN [197]RLANGEN, [198]RANKEN, [196]EUTSCHLAND"
25290 L$(0)="                                        "
25295 X=0:Y=1
25300 I=1
25301 L$=L$(X)+L$(Y)
25302 IF I>LEN(L$(X)) THEN X=(X+1) AND 7:Y=(Y+1) AND 7:GOTO 25300
25305 FOR J=1 TO 50:NEXT
25310 PRINT" ";MID$(L$,I,37);" "
25320 I=I+1:GOTO 25301
29000 END
30000 :
30010 REM *****************************
30020 REM         RAUM-AKTIONEN
30030 REM *****************************
30100 IF V<>23 GOTO 30700
30101 IF (O<>2 AND O<>4) OR O%(5,1)<>0 GOTO 30110
30102 PRINT"[201]N DER [211]CHUBLADE LIEGT EINZIG EIN ALTES [194]UCH.":O%(5,1)=1:Q=Q+3:RETURN
30110 IF O<>3 GOTO 30700
30120 IF R%(1,1)=2 THEN PRINT"[196]IE [212]\R IST SCHON OFFEN.":RETURN
30130 R%(1,1)=2:PRINT"[211]IE GING MIT EINEM LAUTEM [203]NARREN AUF.":Q=Q+2:RETURN
30200 :
30300 :
30400 :
30500 :
30600 :
30700 F=1:RETURN
30800 IF O<>10 GOTO 30810
30801 IF V=30 OR V=40 THEN T=5:GOTO 10000
30810 IF (V<>30 AND V<>48) OR O<>11 OR F%(7)=. GOTO 30820
30811 PRINT"[196]AS ZAHME [213]RTIER BRACHTE DICH \BER DEN"
30812 PRINT"[211]EE. [193]UF DER ANDEREN [211]EITE SCHAUTE ES"
30813 PRINT"DICH LIEBEVOLL AN.":RR=9:Q=Q+3:GOTO 1200
30820 F=1:RETURN
30900 F=1:RETURN
31000 IF V=30 AND O=26 THEN RR=11:GOTO 1200
31010 F=1:RETURN
31100 F=1:RETURN
31200 IF V<>60 GOTO 31500
31201 IF R%(12,1)<>0 THEN PRINT"[197]R L^_T DICH SCHON DURCH!":RETURN
31202 IF O%(O,1)<>-1 THEN PRINT"[196]AS HAST DU NICHT!":RETURN
31210 IF O=1 OR O=7 THEN T=15:GOTO 10000
31211 IF O<>5 THEN PRINT"[197]R IST NICHT BEEINDRUCKT."
31212 PRINT"[196]U GIBST ES IHM...":GOTO 20000
31300 :
31400 :
31500 F=1:RETURN
31600 IF V<>49 OR O<>29 GOTO 31500
31620 IF O%(1,1)<>-1 THEN PRINT"[196]U HAST KEIN [211]CHWERT."
31630 IF R%(16,1)>0 GOTO 31500
31640 R%(16,1)=17:Q=Q+3:R%(16,1)=17
31650 PRINT"[213]NTER LAUTEM [255]CHTZEN BRICHT DIE [212]\R"
31660 PRINT"ZUSAMMEN.":RETURN
31700 IF V<>55 OR O<>1 OR (O1<>30 AND O1<>34) GOTO 31750
31710 IF O%(O,1)<>-1 GOTO 31620
31720 IF F%(18)=. THEN F%(18)=1:Q=Q+5
31730 PRINT"[202]ETZT LEUCHTET AUCH DAS [211]CHWERT VIO-"
31740 PRINT"LETT UND SCHEINT GEH^RTET.":RETURN
31750 IF V<>49 OR O<>35 OR F%(18)>1 GOTO 31780
31751 IF F%(18)=1 GOTO 31761
31752 PRINT"[196]AS [211]CHWERT VERSPLITERT BEIM [193]UFTREFFEN"
31753 PRINT"AUF DAS SCHWERE [197]ISENGITTER.":O%(1,1)=0:RETURN
31761 PRINT"[196]AS VIOLETTE [211]CHWERT ZERSCHNEIDET DIE"
31762 PRINT"[197]ISENST^BE WIE [194]UTTER. [205]IT DEM [218]ERST@-"
31763 PRINT"REN DER [197]ISENST^BE IST AUCH EIN [194]ANN"
31764 PRINT"AUF [205]AGDALAR DUCHBROCHEN.":Q=Q+4
31765 PRINT"[197]RST JETZT BEMERKST DU, DA_ EIN [211]PALT":F%(18)=2
31766 PRINT"IN DER [206]ORDWAND DES [210]AUMES IST.":R%(17,1)=18:RETURN
31780 IF V=61 AND O=34 THEN T=16:GOTO 10000
31799 F=1:RETURN
31800 IF O<>38 OR R%(18,2)=19 GOTO 31799
31801 IF V=57 THEN Q=Q+1:GOTO 31820
31802 IF V=49 AND O1=1 GOTO 31810
31803 GOTO 31799
31810 IF O%(1,1)<>-1 THEN PRINT"[200]AST DU NICHT.":F%=1:RETURN
31820 PRINT"[200]INTER DEM[160][199]E@FFNETEN [214]ORHANG SIEHST"
31830 PRINT"DU OSTW^RTS DEN [212]HRONSAAL [199]ARKORS.":R%(18,2)=19:Q=Q+4:RETURN
31900 F=1:RETURN
40000 :
40010 REM *****************************
40020 REM     RAUMBESCHREIBUNGEN
40030 REM *****************************
40100 PRINT"U BEFINDEST DICH IM [200]AUSE DEINES"
40110 PRINT"GRO_EN [204]EHRMEISTERS. [196]AS [200]AUS IST"
40120 PRINT"SCHLICHT EINGERICHTET. [201]N EINER [197]CKE"
40130 PRINT"STEHT EIN ETWAS GR@_ERER [212]ISCH, DER"
40140 PRINT"[211]CHREIBTISCH [205]AGADALARS. [193]N DER [206]ORD-"
40150 PRINT"WAND DES [200]AUSES IST EINE [212]\R.":RETURN
40200 PRINT"OR DIR LIEGT DER [199]RO_E [215]ALD [199]UNDURS."
40210 PRINT"[197]IN KLEINER, UNSCHEINBARER [208]FAD F\HRT"
40220 PRINT"NORDW^RTS HINEIN. [201]M [211]\DEN LIEGT DIE"
40230 PRINT"[200]\TTE [205]AGDALARS.":RETURN
40300 PRINT"WISCHEN DEN [194]^UMEN TEILT SICH DER"
40310 PRINT"[208]FAD. [169]BER DIR, HOCH IN DEN [199]E^ST,"
40320 PRINT"BEMERKST DU IN DEN [255]STEN DER [194]^UME"
40330 PRINT"EIN KLEINES [194]AUMHAUS. [196]U KANNST ABER"
40340 PRINT"NICHT HINAUFKLETTERN."
40350 IF F%(4) THEN PRINT"[197]IN TOTER [205]ANN LIEGT AUF DEM [194]ODEN."
40360 RETURN
40400 PRINT"IT [200]ILFE DES [218]AUBERWORTES BIST DU IM"
40410 PRINT"[194]AUMHAUS. [197]S SCHEINT VON [202]^GERN BE-"
40420 PRINT"WOHNT GEWESEN ZU SEIN.":RETURN
40500 PRINT"ANK DES [203]OMPASSES KONNTEST DU DICH GUT";
40510 PRINT"ORIENTIEREN, OBWOHL DER [208]FAD PL@TZLICH"
40520 PRINT"ENDETE.":RETURN
40600 PRINT"L@TZLICH ENDETE DER [208]FAD DURCH DAS"
40610 PRINT"[199]ESTR\PP. [196]U HAST DIE [207]RIENTIERUNG"
40620 PRINT"VERLOREN.":RETURN
40700 PRINT"UF EINEM [200]\GEL STEHEND HAST DU EINEN"
40710 PRINT"[169]BERBLICK \BER DAS [204]AND: IM [206]ORDEN"
40720 PRINT"IST EIN [211]EE, BALD DARAUF IST DER [213]R-"
40730 PRINT"WALD ZUENDE UND DAS [199]RO_E [199]EBIRGE BE-"
40740 PRINT"GINNT.":RETURN
40800 PRINT"IN KLEINER [196]SCHUNGELSEE VERSPERRT IM"
40810 PRINT"[206]ORDEN DEN [215]EG. [201]M [207]STEN UND [215]ESTEN IST"
40820 PRINT"SEHR DICHTES [199]ESTR\PP, DURCH DAS DU"
40830 PRINT"SICHER NICHT GEHEN KANNST."
40840 IF F%(7) THEN PRINT"[197]IN FREUNDLICHES [211]EEWESEN SCHAUT DICH"
40845 IF F%(7) THEN PRINT"LIEBEVOLL AN."
40850 RETURN
40900 PRINT"IER, WO DAS [211]EEWESEN DICH ABGESETZT"
40910 PRINT"HAT, WIRD DER [213]RWALD LANGSAM LICHTER."
40920 PRINT"[197]S LIEGT VIEL TOTES [200]OLZ AUF DEM [194]ODEN"
40930 PRINT"HERUM.":RETURN
41000 PRINT"OR DIR RAGT PL@TZLICH EINE HOHE [198]ELS-"
41010 PRINT"WAND AUF UND HINDERT DICH WEITER ZU"
41020 PRINT"GEHEN. [196]ER [213]RWALD IST ZU ENDE, NUR NOCH"
41030 PRINT"VEREINZELTE [194]\SCHE SIND AM [198]U_E DER"
41040 PRINT"[198]ELSWAND.":RETURN
41100 PRINT"IN DUNKLER [199]ANG F\HRT NOCH [206]ORDEN."
41110 PRINT"[169]BER DIR STR@MT [204]ICHT IN DIE [198]INSTER-"
41120 PRINT"NIS, DAS DURCH [194]\SCHE GED^MPFT WIRD."
41130 PRINT"[200]^TTE ICH KEIN EIGENES [204]ICHT, K@NNTE"
41140 PRINT"ICH NICHTS SEHEN.":RETURN
41200 PRINT"ACKELN BEFINDEN SICH AN DEN [215]^NDEN."
41210 PRINT"[197]IN [215]^CHTER MIT EINEM [211]CHWERT VERSPERRTDIR DEN [215]EG."
41215 IF O%(5,1)=0 GOTO 41230
41220 PRINT"[197]R SAGT DU W\RDEST DIE [200]@HLEN DER [215]EI-"
41221 PRINT"SEN BETRETEN UND VERLANGT EIN [218]EICHEN"
41222 PRINT"DEINES [203]@NNENS.":RETURN
41230 PRINT"[197]R GR\_T FREUNDLICH, VERBEUGT SICH DICH"
41240 PRINT"BEWUNDERND ANSCHAUEND UND L^_T DICH    WEITER GEHEN.":RETURN
41300 PRINT"STW^RTS GEHT EIN [211]EITENGANG AB,"
41310 PRINT"W^HREND IM [206]ORDEN DIE BER\HMTEN [166][210]^UME"
41320 PRINT"[196]ER [215]EISEN[220] LIEGEN.":RETURN
41400 PRINT"UN BIST DU IN EINEM DER [210]^UME, IN"
41410 PRINT"DIE SICH DIE [215]EISEN AUS DER [215]ELT"
41420 PRINT"ZUR\CKZIEHEN. [197]INER DIESER [197]INSIEDLER"
41430 PRINT"SITZT IN EINER [197]CKE UND BETRACHTET"
41440 PRINT"DICH KLUG.":RETURN
41500 PRINT"ALTE [204]UFT STR@MT AUS [206]ORDEN IN DIE"
41510 PRINT"GRO_E [199]ROTTE. [203]LEINE [199]^NGE F\HREN NACH"
41520 PRINT"[206]ORDEN UND [215]ESTEN AB."
41525 IF F%(16) GOTO 41550
41530 PRINT"[197]INE UNSICHTBARE [203]RAFT HINDERT DICH"
41540 PRINT"JEDOCH NACH [206]ORDEN ZU GEHEN."
41550 IF F%(16)=1 THEN PRINT"[197]IN [199]EIST GREIFT DICH AN!"
41560 RETURN
41600 IF R%(16,1)>0 GOTO 41650
41605 PRINT"CHON WIEDER WIRD DEIN [212]ATENDRANG GE-"
41610 PRINT"STOPT. [197]INE KLEINE [200]OLZT\R VERSPERRT"
41620 PRINT"DEN [199]ANG NORDW^RTS.":RETURN
41650 PRINT"RUCHST\CKE EINER [200]OLZT\R LIEGEN AUF"
41660 PRINT"DEM [215]EG NACH [206]ORDEN.":RETURN
41700 IF F%(18)>1 GOTO 41760
41701 PRINT"EL^HMT VOR [211]CHRECK SIEHST DU IN EINER"
41710 PRINT"[206]IESCHE, DIE MIT EINEM [199]ITTER VERRIE-"
41720 PRINT"GELT IST, DEINEN [205]EISTER UND [204]EHRER"
41730 PRINT"[205]AGDALAR. [201]N DER [205]ITTE DES [210]AUMES"
41740 PRINT"IST EIN [194]RUNNEN AUS DEM ETWAS VIOLETT"
41750 PRINT"LEUCHTET.":RETURN
41760 PRINT"ITTEM IN DER KREISRUNDEN [199]ROTTE BE-"
41770 PRINT"FINDET SICH EIN VIOLETTE LEUCHTENDER"
41780 PRINT"[194]RUNNEN.":IF F%(18)=3 THEN RETURN
41790 PRINT"[201]N EINER [206]IESCHE STEHT DEIN [205]EISTER"
41791 PRINT"[205]AGDALAR.":RETURN
41800 PRINT"ETZT STEHST DU IN EINEM [199]ANG VON"
41810 PRINT"[199]ARKORS[160][208]ALAST. [197]S IST SEHR KALT HIER,"
41820 PRINT"UND AN DER @STLICHEN [215]AND H^NGT EIN"
41830 PRINT"SCHMUTZIGER [214]ORHANG.":RETURN
41900 PRINT"UHIG SITZT DER [200]EXENMEISTER [199]ARKOR AUF";
41910 PRINT"SEINEM DUNKLEN [212]HRON. [197]R SCHAUT DICH"
41920 PRINT"HOCHM\TIG UND GERINGSCH^TZIG AN."
41930 IF F%(20)=0 THEN RETURN
41940 PRINT"[206]ACH DEINEM [193]USSPRUCH KONNTE ER SICH"
41950 PRINT"NICHT MEHR BEWEGEN.":RETURN
49000 REM *****************************
49010 REM       UNTERPROGRAMME
49020 REM *****************************
49030 :
50000 A=PEEK(211)+40*PEEK(214)+50136
50002 Y=PEEK(214)
50010 Z=(ASC(Z$)-65)*4+128
50020 POKE A,Z:POKE A+1,Z+1
50030 POKE A+40,Z+2:POKE A+41,Z+3
50040 A=A+5120
50050 POKE A,CL:POKE A+1,CL:POKE A+40,CL:POKE A+41,CL
50060 PRINT"";:RETURN
50070 :
50100 P=40
50110 IF MID$(A$,P,1)<>" " AND MID$(A$,P,1)<>"" THEN P=P-1:GOTO 50110
50120 PRINT LEFT$(A$,P-1)
50130 A$=MID$(A$,P+1)
50140 IF LEN(A$)>39 GOTO 50100
50150 IF A$<>"" THEN PRINT A$
50160 RETURN
50200 A=F1:POKE 646,A:A$=LEFT$(A$+":                         ",35)
50210 PRINTA$;"#";:POKE 646,F:PRINT"[191]";:POKE 646,A:PRINT"$"
50220 GET B$:IF B$="" GOTO 50220
50230 IF B$<>CHR$(13) THEN F=(F+1)AND15:PRINT"[145][145]":GOTO 50210
50240 RETURN
59990 REM *****************************
59991 REM       INITIALISIERUNG
59992 REM *****************************
59993 :
60000 POKE 53280,0:POKE 53281,0:POKE 53265,11
60010 HF=0:F1=7:F2=5:CL=10:PM=102
60160 :
60170 REM *****************************
60180 REM          TITELBILD
60190 REM *****************************
60200 PRINT"[147]        ";
60220 Z$="P":GOSUB 50000
60230 PRINT"[158]HILIPP  ";
60240 Z$="K":GOSUB 50000
60250 PRINT"@HN PRESENTS"
60260 PRINT TAB(173);
60270 Z$="M":GOSUB 50000
60280 PRINT"INAS ";
60290 Z$="G":GOSUB 50000
60300 PRINT"UNDUR"
60310 PRINT"     [159][197]IN DEUTSCHES [198]ANTASYADVENTURE"
60320 PRINT"         & 1986 BY [208]HILIPP [203]@HN"
60330 PRINT"[156]            [194]ITTE WARTEN [211]IE !
60340 [151] 53265,27
60980 :
61000 V[178]62:O[178]44:H[178]25:R[178]19:AF[178]21
61010 [134] V$(V),O$(O),H$(H),R$(R)
61020 [134] O%(O,2),R%(R,6),F%(AF)
61030 [134] W$(18)
61100 [135] A$:[139] A$[178]"*" [137] 61200
61110 AV[178]AV[170]1:V$(AV)[178]A$
61120 [137] 61100
61200 [135] A$:[139] A$[178]"*" [137] 61300
61210 AO[178]AO[170]1:O$(AO)[178]A$:[135] O%(AO,0),O%(AO,1),O%(AO,2)
61220 [137] 61200
61300 [135] A$:[139] A$[178]"*" [137] 61400
61310 AH[178]AH[170]1:H$(AH)[178]A$
61320 [137] 61300
61400 [135] A$:[139] A$[178]"*" [137] 61500
61410 AR[178]AR[170]1:R$(AR)[178]A$
61420 [129] I[178]1 [164] 6
61430 [135] R%(AR,I)
61440 [130] I
61450 [137] 61400
61500 RR[178]1:Q[178][171]1
61600 [153]"ON    STR$R\CKEN (null)IE EINE (null)ASTE ZUM (null)TART"
61610 [151] 198,0:[146] 198,1:[161] A$
61620 [151] 53265,11:[153]"LOAD   ";
61630 Z$[178]"D":[141] 50000
61640 [153]"SYSEIN GRO_ER (null)EHRER, DER (null)AUBERER"
61650 [153]"   (null)AGDALAR, ZOG VOR EINEM MID$AHR ZU"
61660 [153]"   EINER GEHEIMEN (null)EISE, VON DER NUR"
61670 [153]"   DU ETWAS WEI_T, ZU EINEM VERNICH-"
61671 [153]"   TENEN (null)CHLAG GEGEN DEN GRAUSAMEN"
61672 [153]"   LEFT$EXENMEISTER CHR$ARKOR AUS."
61690 [153]"   STR$A DU LANGE NICHTS MEHR VON IHM"
61700 [153]"   GEH@RT HAST UND VOR ALLEM WEIL DU"
61710 [153]"   IHN IM (null)RAUME GEFANGEN SAHST, BIST"
61720 [153]"   DU SCHWER BEUNRUHIGT."
61730 [153]"   STR$U BIST ZUM VALNTSCHLU_ GEKOMMEN IHM"
61740 [153]"   ZU FOLGEN UND ZU HELFEN..."
61800 [151] 53265,27
61910 [151] 198,0:[146] 198,1:[161] A$
61920 [153]"LOAD"
61930 [141] 1205:[137] 100
61940 :
62000 [143] -----------------------------
62001 [131] NORDEN,OSTEN,SUEDEN,WESTEN,OBEN,UNTEN
62002 [131] NIMM,NEHME1,HOLE2,GIB,GEBE1,LEGE2,VERLIERE3
62003 [131] UNTERSUCHE,SCHAUE1
62004 [131] INVENTUR,LISTE1,HILFE,LADE,LOAD1,SPEICHERE,SAVE1
62005 [131] OEFFNE,FARBEN,PUNKTESTAND,ZEIT,SCORE2,LIES,LESE1
62006 [131] GEHE,BETRETE1,BETRITT2,SAGE,SPRICH1,WARTE,PAUSE1,ENDE,STIRB1
62007 [131] TOETE,SCHWIMME,ENTZUENDE,ZUENDE1,ERLEUCHTE2,LOESCHE,ERLOESCHE1
62008 [131] ZIEHE,SETZE1,REITE,ZERSTOERE,VERNICHTE1,FRAGE,BEFRAGE1,UNTERHALTE2
62009 [131] BERUEHRE,TAUCHE,ZERSCHNEIDE7,SCHIEBE,ZERTRUEMMERE9,VERSCHIEBE2,ZEIGE
62010 [131] TRINKE
62099 [131] *
62100 :
62101 [131] SCHWERT,1,,
62102 [131] TISCH,2,1,
62103 [131] TUERE,2,1,
62104 [131] SCHUBLADE,2,1,
62105 [131] BUCH,1,,
62106 [131] XYLKS,5,,
62107 [131] MESSER,1,4,
62108 [131] MANN,3,,
62109 [131] KOMPASS,1,,2
62110 [131] SEE,2,8,
62111 [131] SEEUNGEHEUER,3,8,
62112 [131] UNGEHEUER1,,,
62113 [131] EQUARZ,5,,
62114 [131] AST,1,9,2
62115 [131] BUESCHE,2,10,
62116 [131] LAMPE,1,11,1
62117 [131] BAUM,2,10,
62118 [131] WAECHTER,3,12,
62119 [131] FACKELN,2,12,
62120 [131] WEISEN,4,14,
62121 [131] TARNKAPPE,1,,1
62122 [131] KAPPE1,,,
62123 [131] FELSWAND8,,,
62124 [131] EINSIEDLER4,,,
62125 [131] WEISER5,,,
62126 [131] GANG,2,10,
62127 [131] MINAS1,,,
62128 [131] GEIST,3,,
62129 [131] HOLZTUERE,2,16,
62130 [131] BRUNNEN,2,17,
62131 [131] MAGDALAR,4,17,
62132 [131] ZAUBERMEISTER1,,,
62133 [131] LEHRER2,,,
62134 [131] WASSER,2,17,
62135 [131] GITTERSTAEBE,2,17,
62136 [131] ZETTEL,1,,
62137 [131] FLUESSIGKEIT3,,,
62138 [131] VORHANG,2,18,
62139 [131] SOLDATEN,3,18,
62140 [131] FROTZL,5,,
62141 [131] PATRI,5,,
62142 [131] GARKOR,3,19,
62143 [131] HEXENMEISTER1,,,
62199 [131] *
62200 :
62201 [131] DER,DIE,DAS,DEN,DEM,WEG,NACH,GEN,DURCH,AB,MIT,IN,IM,AUF,AUFS
62202 [131] DURCH,AM,AN,GUNDUR,UM
62299 [131] *
62300 :
62301 [131] D,,,,,,
62302 [131] V,3,,1,,,
62303 [131] Z,7,5,2,,,
62304 [131] M,,,,,,3
62305 [131] D,8,,3,7,,
62306 [131] P,6,6,6,6,,
62307 [131] A,,5,3,,,
62308 [131] E,,,5,,,
62309 [131] H,10,,,,,
62310 [131] V,,,9,,,
62311 [131] E,12,,10,,10,
62312 [131] F,,,11,,,
62313 [131] O,14,15,12,,,
62314 [131] N,,,13,,,
62315 [131] K,,,,13,,
62316 [131] S,,,15,,,
62317 [131] G,,,16,,,
62318 [131] J,,,17,,,
62319 [131] R,,,,18,,
62399 [131] *
63000 [156]
63999 [153](38[172]1024[171][184](I))[173]254