Am 'MEER DER EWIGEN TRAEUME' steht die Burg TATUM, in ihr
leben der boese Zauberer AKRAN und seine Kobolde. Der Zauberer
hat vor etwa 99Jahren die Prinzessin LAILA WANDA entfuehrt
und in Tiefschlaf versetzt, und noch niemandem ist es gelungen,
bis zu ihr vorzudringen.
Alle, die es versuchten,mussten sterben, denn ausser dem boesen
Zauberer und seinen Kobolden gibt es auch noch viele Fallen
und Orte, die mit einem Zauber belegt wurden.Aber es gibt auch
gute Geister und das Wunderschwert, und wenn es Dir ge-
lingt, dem guten Geist sein Amulett zurueckzubringen, dann
wird er Dir hilfreich zur Seite stehen.
Uebrigens wird NIEMANDSLAND von den Menschen auch 'REICH DER
PHANTASIE' genannt !!!
Deine Taten im Niemandsland musst Du mit Eingabe von
Handlungen auf die Frage 'WAS NUN?' steuern.
Welche Worte und Saetze wirksam sind, sollst Du selbst
herausfinden.
Einige Beispiele als Hilfe:
ICH GEHE NACH NORDEN
ICH SEHE ZUR WAND
ICH NEHME ...
ICH WILL AUFGEBEN
RICHTUNGEN AUCH ABGEKUERZT:
'N'=NORDEN 'S'=SUEDEN
'W'=WESTEN 'O'=OSTEN
'H'=HOCH 'R'=RUNTER
'I'=INVENTUR
Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)
0!*** NIEMANDSLAND *** ADAPTIONAUS 'HAPPY COMPUTER' A.SCHROETER
1!ORIGINAL FUER COMMODORE C64 VON A. HAGESTEDT BREMERHAVEN
2!UEBERARBEITET FUER Z1013 UND ERWEITERT VON TH.RICHTER,JENA
4 WINDOW:PAPER 1:INK 2:CLS:PRINT AT(0,0);" "
5 PRINT AT(1,0);" "
6 PRINT AT(2,0);" "
7 PRINT AT(3,0);" "
8 PRINT AT(4,0);" "
9 PRINT AT(7,8);" ":PRINT AT(8,8);" "
10 PRINT AT(9,8);" ":PRINT AT(10,8);" "
11 PRINT AT(11,8);" ":INK 7
12 DIM C(5),O(11),S(12),A$(67),M$(34),O$(11),P$(2),V$(64),C$(16):GOSUB 10000
15 PRINT AT(17,2);"PHANTASTISCHES ABENTEUER"
16 PRINT AT(19,7);"IM ZAUBERREICH"
20 PRINT INK 4;AT(23,12);"Weiter mit >ENTER<":BEEP
22 IF INKEY$=""THEN 22
23 R=RND(-1)
25 IF WF=0 THEN GOSUB 12000:GOTO 30
26 N$="":FOR I=-21262 TO-21249:N$=N$+CHR$(PEEK(I)):NEXT
30 R=1:O=11:AA=67:CC=16:V=64:AM=0
45 DATA-1,0,0,0,0,0,0,0,0,0,0
50 RESTORE 45:FOR X=1 TO O:READ O(X):NEXT:X=RND(-ABS(DEEK(30))/3600):GOTO 200
71 ":BEEP:RETURN
100 REM GRUNDRAUM
102 FOR A=0 TO 3:PRINT AT(A,A);"":NEXT:C=20:FOR A=0 TO 3:PRINT AT(C,A);"":C=C-1
103 NEXT
104 C=30:FOR A=0 TO 3:PRINT AT(A,C);"":C=C-1:NEXT:C=17:FOR A=27 TO 30:
105 PRINT AT(C,A);CHR$(145)
106 C=C+1:NEXT:FOR A=4 TO 26:PRINT AT(3,A);"":NEXT:FOR A=4 TO 16:PRINT AT(A,4);""
107 NEXT
108 FOR A=4 TO 16:PRINT AT(A,26);"":NEXT:FOR A=4 TO 26:PRINT AT(17,A);"":NEXT
109 RETURN
110 REM LOCH IN DER DECKE
111 FOR A=12 TO 18:PRINT AT(0,A);"":NEXT:PRINT AT(1,12);"":RETURN
120 REM LOCH IM BODEN
121 FOR A=12 TO 18:PRINT AT(20,A);"":NEXT:PRINT AT(19,12);"":RETURN
130 REM LEITER
131 FOR A=1 TO 19 STEP 2:PRINT AT(A,14);"":NEXT:FOR A=2 TO 18 STEP 2:PRINT AT(A,14);" "
132 NEXT:RETURN
140 REM TUER LINKS
141 PRINT AT(5,0);"":PRINT AT(6,0);" ":PRINT AT(7,0);"":FOR A=8 TO 16:PRINT AT(A,0);" "
142 NEXT:PRINT AT(17,0);"":PRINT AT(18,0);" ":PRINT AT(19,0);" ":RETURN
150 REM TUER RECHTS
151 PRINT AT(5,29);"":PRINT AT(6,28);" ":PRINT AT(7,28);"":FOR A=8 TO 16:PRINT AT(A,28);" "
152 NEXT:PRINT AT(17,28);"":PRINT AT(18,28);" ":PRINT AT(19,29);" ":RETURN
160 REM TUER IM HINTERGRUND
161 FOR A=12 TO 18:PRINT AT(6,A);"":NEXT:PRINT AT(7,11);" ":PRINT AT(8,11);" "
162 FOR A=9 TO 15:PRINT AT(A,11);" ":NEXT:PRINT AT(14,13);""
163 PRINT AT(16,11);" ":FOR A=12 TO 18:PRINT AT(17,A);" ":NEXT:RETURN
200 REM RAUMBESCHREIBUNG
205 IF R<>1 THEN S(1)=0
210 WINDOW:CALL-21248
220 ON R GOSUB 8050,8100,8150,8200,8250,8300,8350,8400,8450,8500,8550,8600
222 IF R>12 THEN ON R-12 GOSUB 8650,8700,8750,8800,8850,8900,8950,9000,9050
224 IF R>21 THEN ON R-21 GOSUB 9100,9150,9200,9250,9300,9350,9400,9450,9500
226 IF R>30 THEN ON R-30 GOSUB 9550,9600,9650,9700
1000 REM BEFEHLSVERARBEITUNG
1010 T=1
1020 GOTO 2000
1100 FOR A=1 TO 5:IF C(A)<>0 THEN C(A)=C(A)-1:NEXT
1120 A$=INKEY$:IF A$<>""THEN 1120
1130 WINDOW 23,23,0,31:CLS:INK 2:AM=AM+1:BEEP:INPUT "Was nun?";Y$:INK 7:BEEP
1150 Y=0
1170 P$(2)="00"
1200 FOR W=1 TO 2
1210 GOSUB 6000
1220 IF Y>=LEN(Y$)THEN 1300
1230 IF P$(W)="00"THEN 1210
1240 NEXT W
1300 IF P$(1)<>"00"THEN 1600
1310 CLS:PRINT AT(23,0);"So geht das nicht !!":FOR KI=0 TO 10:BEEP:NEXT:PAUSE 10
1320 GOTO 1000
1600 REM FESTSTELLEN OB STANDORTS-
1610 Z=1:IF P$(2)<>"00"AND P$(1)>P$(2)THEN NN$=P$(1):P$(1)=P$(2):P$(2)=NN$
1620 T$=MID$(M$(R),Z,2)
1630 IF T$="00"THEN 1900
1640 IF T$<>P$(1)THEN 1700
1650 R=VAL(MID$(M$(R),Z+2,2))
1660 GOTO 200
1700 Z=Z+4
1710 GOTO 1620
1900 T=0
1910 M=0
2000 REM FESTSTELLEN OB BEDIN - GUNGEN ERFUELLT WERDEN MUESSEN
2010 C=0
2100 C=C+1
2110 IF T=0 THEN 2300
2120 E$=C$(C)
2130 GOTO 2600
2300 IF AA>=C THEN 2400
2310 IF M<>0 THEN 1000
2320 CLS:PRINT AT(23,0);"Das wird nichts!!":FOR KI=1 TO 5:BEEP:NEXT:PAUSE 15
2350 GOTO 1000
2400 IF LEFT$(A$(C),2)<>P$(1)THEN 2100
2410 Y$=MID$(A$(C),3,2)
2420 IF Y$<>"00"AND Y$<>P$(2)THEN 2100
2430 E$=MID$(A$(C),5)
2600 REM ABFRAGEN DER BEDINGUNGSTABELLE
2610 E=1
2700 IF MID$(E$,E,1)="."THEN 3000
2710 P=ASC(MID$(E$,E,1))-64
2720 N=VAL(MID$(E$,E+1,2))
2800 ON P GOSUB 2900,2910,2920,2930,2940,2950,2960,2970
2810 IF K=0 THEN 2100
2820 E=E+3
2830 GOTO 2700
2900 K=-(N=R):RETURN
2910 K=-(O(N)=R OR O(N)<0):RETURN
2920 K=-(O(N)<>R AND O(N)>=0):RETURN
2930 K=-(O(N)<0):RETURN
2940 K=S(N):RETURN
2950 K=-(S(N)=0):RETURN
2960 K=-(C(N)=1):RETURN
2970 K=-(INT(RND(1)*100+1<=N)):RETURN
3000 REM DURCHFUEHREN DER AKTIONEN
3010 M=1
3020 E=E+1
3100 IF MID$(E$,E,1)="."THEN 2100
3110 P=ASC(MID$(E$,E,1))-64
3120 IF MID$(E$,E+1,1)<>"."THEN N=VAL(MID$(E$,E+1,2))
3200 B=0
3210 ON P GOSUB 4000,4100,4200,4300,4400,4500,4600,4700,4800,4900,5000,5100
3215 IF P>12 THEN ON P-12 GOSUB 5200,5300,5400,5500,5600
3220 ON B GOTO 200,1000,1100
3230 E=E+3
3240 GOTO 3100
4000 WINDOW:CALL-21248:INK 2:PAPER 1
4010 PRINT " DEINE BESITZTUEMER:"
4020 PRINT:PRINT:INK 3
4030 FOR X=1 TO O
4040 IF O(X)>=0 THEN 4070
4050 PRINT O$(X):PRINT
4070 NEXT X
4075 PRINT AT(26,22);">ENTER<"
4080 G$=INKEY$:IF G$=""THEN 4080
4090 INK 7:B=1:RETURN
4100 REM
4140 IF O(N)=-1 THEN 4180
4150 O(N)=-1
4170 RETURN
4180 CLS:PRINT AT(23,0);"Das hast Du bereits getan !":FOR KI=0 TO 10:BEEP:NEXT:PAUSE 20
4190 B=3:RETURN
4200 RETURN:BEEP
4300 WINDOW 23,26,0,31:CLS:WINDOW 24,26,0,31:CLS
4310 ON N GOSUB 7010,7020,7030,7040,7050,7060,7070,7080,7090,7100,7110,7120
4320 IF N>12 THEN ON N-12 GOSUB 7130,7140,7150,7160,7170,7180,7190,7200,7210,7220
4321 IF N>22 THEN ON N-22 GOSUB 7230,7240,7250,7260,7270,7280,7290,7300,7310,7320
4322 IF N>32 THEN ON N-32 GOSUB 7330,7340,7350,7360,7370,7380,7390,7095,7105,7085
4323 IF N>42 THEN ON N-42 GOSUB 7245,7371,7375,7088,8560,8565,7400,7410,7420,7430
4325 IF INKEY$<>""THEN 4325
4326 IF N=4 OR N=19 OR N=25 OR N=39 THEN WINDOW 23,28,0,31:CLS:RETURN
4330 BEEP:FOR ZU=1 TO 1500:IF INKEY$<>""THEN ZU=2500
4340 NEXT:WINDOW 23,26,0,31:CLS:RETURN
4400 S(N)=1:RETURN
4500 S(N)=0:RETURN
4600 C(N)=VAL(MID$(E$,E+3,2))
4610 E=E+2
4620 RETURN
4700 X=O(N):O(N)=O(N+1):O(N+1)=X:RETURN
4800 O(N)=R:RETURN
4900 O(N)=0:RETURN
5000 R=N:RETURN
5100 WINDOW 23,23,0,31:CLS:PRINT AT(23,0);"OKAY.":BEEP:PAUSE 10:CLS:B=2:RETURN
5200 B=2:RETURN
5300 B=3:RETURN
5400 B=1:RETURN
5500 WINDOW 23,26,0,31:CLS:WINDOW 24,24,25,31:CLS
5510 PRINT AT(24,0);"Du willst aufgeben (J/N)":INPUT W$
5520 IF LEFT$(W$,1)<>"J"THEN 5400
5600 GOTO 9999
6000 REM SCHLUESSELWORT ABTRENNEN
6010 W$=""
6015 P$(W)="00"
6020 GOSUB 6600
6025 IF D=1 THEN RETURN
6030 FOR Q=1 TO 4
6040 W$=W$+MID$(Y$,Y,1)
6050 GOSUB 6500
6060 IF D=1 THEN 6100
6070 NEXT Q
6080 GOSUB 6500
6090 IF D=0 THEN 6080
6100 W$=W$+STRING$(4-LEN(W$)," "):IF W$=" "THEN RETURN
6110 FOR Q=1 TO V
6120 IF W$=MID$(V$(Q),3)THEN 6200
6130 NEXT Q
6140 RETURN
6200 P$(W)=LEFT$(V$(Q),2)
6210 RETURN
6500 Y=Y+1
6510 D=-(Y>LEN(Y$))
6520 IF D=1 THEN RETURN
6530 D=-(MID$(Y$,Y,1)=" ")
6540 RETURN
6600 Y=Y+1
6610 D=-(Y>LEN(Y$))
6620 IF D=1 THEN RETURN
6630 IF MID$(Y$,Y,1)=" "THEN 6600
6640 RETURN
6700 CLS
6710 FOR N=1 TO 50
6720 PRINT N;V$(N)
6730 NEXT N
6740 END
7000 REM AKTIONSMELDUNGEN
7010 PRINT AT(11,13);"":PRINT AT(12,12);" ":PRINT AT(13,12);" "
7011 PRINT AT(14,12);" ":PRINT AT(15,12);"":PRINT AT(16,12);" "
7012 PRINT AT(17,10);" ":PRINT AT(18,10);""
7013 PRINT AT(19,9);"":PRINT AT(20,9);""
7014 PRINT AT(21,8);"":PRINT AT(24,0);"AUF MAGISCHE WEISE HAT SICH"
7015 PRINT AT(25,0);"DIE ZUGBRUECKE GEOEFFNET ! ":RETURN
7020 PRINT AT(24,0);"DORT IST EINE STEILE FELSWAND !":RETURN
7030 PRINT AT(24,0);"DU BIST IN DEN WASSERGRABEN GE-"
7035 PRINT AT(25,0);"FALLEN UND JAEMMERLICH ERSOFFEN!"
7036 GOSUB 13000:RETURN
7040 WINDOW:CLS:INK 4:FOR A=1 TO 8:PRINT AT(A,14);"":NEXT
7041 FOR A=3 TO 4:PRINT AT(A,10);"":NEXT:INK 5:PRINT AT(8,11);""
7042 PRINT AT(8,16);"":B=10:C=19:FOR A=8 TO 17:PRINT AT(A,B);""
7043 PRINT AT(A,C);"":B=B-1:C=C+1:NEXT:FOR A=18 TO 21
7044 PRINT AT(A,1);"":NEXT
7045 PRINT AT(10,10);"HIER LIEGT":PRINT AT(12,7);N$:PRINT AT(14,8);"GESTORBEN NACH"
7046 IF AM>1 THEN PRINT AT(16,8);AM," VERSUCHEN":ELSE PRINT AT(16,9);" 1 VERSUCH"
7047 PRINT AT(25,22);">ENTER<":BEEP
7048 IF INKEY$=""THEN 7048
7049 RETURN
7050 PRINT AT(24,0);"DU BIST IM 'TAL DER ANTWORT'."
7051 PRINT AT(25,0);"PROBIERE DEINE STIMME AUS !!!":RETURN
7060 PRINT AT(23,0);"DU WURDEST IM DICHTEN WALD VON"
7061 PRINT AT(24,0);"KOBOLDEN DES ZAUBERERS ERWARTET"
7062 PRINT AT(25,0);"UND IN EINEN FELS VERWANDELT ! ":GOSUB 13000:RETURN
7070 PRINT AT(23,0);"EIN RIESE HAT DICH GEMOPST UND GEFRESSEN":GOSUB 13000:RETURN
7080 GOSUB 7900:GOSUB 7920:PRINT AT(23,0);"PLOETZLICH TAUCHT EIN GEIST AUF"
7081 PRINT AT(24,0);"UND GIBT DIR EINE ROLLE MIT EINEM SPRUCH. DAFUER BRINGE"
7082 PRINT AT(26,0);"IHM SEIN AMULETT WIEDER !":PAUSE 20:BEEP
7083 PRINT AT(10,12);" ":PRINT AT(9,12);" ":PRINT AT(8,12);" "
7084 PRINT AT(7,11);" ":PRINT AT(6,9);" ":PRINT AT(5,9);" ":PRINT AT(4,10);" ":RETURN
7085 PRINT AT(23,0);"DER GEIST WARTET IMMER NOCH AUF"
7086 PRINT AT(24,0);"SEIN AMULETT, OHNE KANN ER DIR AUCH NICHT HELFEN!":RETURN
7088 PRINT AT(24,0);"NUN SEI ABER NICHT UNDANKBAR,"
7089 PRINT AT(25,0);"DER GEIST HAT SCHLIESSLICH DEN FLUCH AUFGEHOBEN!":RETURN
7090 GOSUB 7900:PAUSE 5:PRINT AT(24,0);"DER GUTE GEIST HAT SCHON AUF "
7091 PRINT AT(25,0);"DICH UND SEIN AMULETT GEWARTET!":RETURN
7095 PRINT AT(24,0);"WAS WILLST DU DENN NUN NOCH VOM"
7096 PRINT AT(25,0);"GEIST,ER WIRD DIR SCHON HELFEN, WENN ES SOWEIT IST !"
7097 RETURN
7100 PRINT AT(24,0);"DER GEIST WIRD DIR NUN BEI DER "
7101 PRINT AT(25,0);"ERFUELLUNG DEINER AUFGABE BE- HILFLICH SEIN !"
7102 PRINT AT(6,12);CHR$(29):PRINT AT(7,12);CHR$(28):BEEP:RETURN
7105 PRINT AT(24,0);"SEI NICHT SO KONFUS,DU HAST IHM"
7106 PRINT AT(25,0);"DAS AMULETT DOCH SCHON GEGEBEN !":RETURN
7110 PRINT AT(24,0);"DER WIND HAT DIE FACKEL AUSGEBLASEN !":RETURN
7120 CALL-21248:GOSUB 110:GOSUB 100:PRINT AT(23,0);"UNTER DIR OEFFNETE SICH EINE
7121 PRINT AT(2,10);" ":PRINT AT(24,0);"FALLTUER,DU BIST IN EINE "
7122 PRINT AT(25,0);"GRUBE GEFALLEN UND VON KROKO- DILEN GEFRESSEN WORDEN !"
7123 PRINT AT(3,11);" ":PRINT AT(18,3);" "
7124 PRINT AT(17,4);CHR$(131)," ":PRINT AT(22,0);" -"
7125 PRINT AT(15,10);CHR$(131)," ":PRINT AT(14,25);""
7126 PRINT AT(19,2);" ":PRINT AT(20,2);" ":PRINT AT(21,0);" "
7127 PRINT AT(16,7);CHR$(131)," ",CHR$(131),""
7128 GOSUB 13000:RETURN
7130 PRINT AT(24,0);"DU HAST KEINE STREICHHOELZER !":RETURN
7140 PRINT AT(24,0);"BIST DU BLIND? DIE FACKEL BRENNTDOCH !":RETURN
7150 PRINT AT(24,0);"WO SIEHST DU HIER EINE FACKEL?":RETURN
7160 PRINT AT(24,0);"IN DEN DUNKLEN KELLER KANNST DU "
7161 PRINT AT(25,0);"NUR MIT LICHT HINUNTERSTEIGEN !":RETURN
7170 PRINT AT(25,0);"IN DER WAND STECKT EINE FACKEL!":RETURN
7180 PRINT AT(24,0);"DAS LOCH IST VIEL ZU HOCH !":RETURN
7190 PRINT AT(14,18);" ":PRINT AT(15,18);" ":RETURN
7200 PRINT AT(24,0);"DORT LIEGT DAS WUNDERSCHWERT, "
7201 PRINT AT(25,0);"NUR EIN WESEN MIT REINEM HERZEN DARF ES TRAGEN.":RETURN
7210 PRINT AT(24,0);"DAS WUNDERSCHWERT KANN NUR MIT "
7211 PRINT AT(25,0);"DEM SIEGELRING AKTIVIERT WERDEN":RETURN
7220 PRINT AT(24,0);"IN DER WAND IST EIN LOCH !":RETURN
7230 PRINT AT(24,0);"IN DEM LOCH LIEGT EIN GOLDNER SCHLUESSEL":RETURN
7240 PRINT AT(24,0);"DIE PRINZESSIN SITZT AUF DEM THRON !":RETURN
7245 PRINT AT(24,0);"DA SITZT SIE DOCH SCHON, DER"
7246 PRINT AT(25,0);"ZAUBERSCHLAF WIRKT ABER IMMER NOCH !":RETURN
7250 GOSUB 14000:PRINT AT(5,0);"DIE PRINZESSIN ERWACHT UND IST"
7251 PRINT AT(7,0);"UEBERGLUECKLICH OB DER RETTUNG "
7252 PRINT AT(9,0);"IHRER SELBST UND IHRES LANDES."
7253 PRINT AT(11,0);"NUN IST NIEMANDSLAND VOM":PRINT AT(13,0);"BOESEN ZAUBERER BEFREIT"
7254 PRINT AT(15,0);"UND KANN IN FRIEDEN LEBEN."
7255 PRINT AT(18,0);"OFFENBAR HAT DIE PRINZESSIN EIN"
7256 PRINT AT(20,0);"AUGE AUF DICH GEWORFEN. NUN"
7257 PRINT AT(22,0);"LIEGT ES AN DIR,IHR DEN HOF ZU "
7258 PRINT AT(24,0);"MACHEN,DENN DAS ABENTEUER IST":PRINT AT(26,0);"HIER ZU ENDE !"
7259 PRINT AT(30,20);">ENTER<":IF INKEY$=""THEN 7259:ELSE RETURN
7260 PRINT AT(24,0);"DIESE TUER FUEHRTE DIREKT INS "
7261 PRINT AT(25,0);"MEER, DU BIST ABGESOFFEN !":GOSUB 13000:RETURN
7270 PRINT AT(24,0);"IM SCHRANK LIEGEN STREICHHOELZER !"
7271 FOR A=0 TO ZU/100:KI=RND(1):NEXT:RETURN
7280 PRINT AT(24,0);"DU HATTEST GAR NICHTS UM SIE ZU"
7281 PRINT AT(25,0);"TOETEN, DAFUER HAT SIE DICH VERSPEIST!!":GOSUB 13000:RETURN
7290 PRINT AT(24,0);"IM NETZ LIEGT DER SIEGELRING !":RETURN
7300 PRINT AT(24,0);"DIE SPINNE IST IM WEGE !":RETURN
7310 PRINT AT(23,0);"DER SIEGELRING VERSETZT DICH "
7311 PRINT AT(24,0);"DURCH SEINE MAGISCHEN KRAEFTE AUF DEN TURM UND AKTIVIERT"
7312 PRINT AT(26,0);"GLEICHZEITIG DAS WUNDERSCHWERT":RETURN
7320 PRINT AT(23,0);"DIE KOBOLDE HABEN DICH UEBER- "
7321 PRINT AT(24,0);"FALLEN UND ABGEMURKST. BEDENKE DAS NAECHSTE MAL, DASS SIE"
7322 PRINT AT(26,0);" KEIN LICHT MOEGEN !":GOSUB 13000:RETURN
7330 PRINT AT(24,0);"DER GEIST HOB DEN FLUCH AUF, "
7331 PRINT AT(25,0);"DEN DER ZAUBERER AUF DAS ZIMMER GELEGT HATTE !":RETURN
7340 PRINT AT(24,0);"AUF DIESEM ZIMMER LIEGT EIN "
7341 PRINT AT(25,0);"FLUCH, DER ERST AUFGELOEST WERDEN MUSS !!":RETURN
7350 PRINT AT(23,0);"DER ZAUBERER IST NUR MIT DEM "
7351 PRINT AT(24,0);"AKTIVIERTEN WUNDERSCHWERT ZU "
7352 PRINT AT(25,0);"TOETEN SO GING ES DIR AN DEN KRAGEN !!":GOSUB 13000:RETURN
7360 IF S(5)=0 AND O(4)=0 THEN PRINT AT(24,0);"AKRAN HAT EIN AMULETT BEI SICH!":RETURN
7361 PRINT AT(24,0);"WAS SUCHST DU DENN NUN NOCH, DAS"
7362 PRINT AT(25,0);"AMULETT HATTEST DU DOCH SCHON !":RETURN
7370 PRINT AT(24,0);"DU SPUERST DIE FORM EINES KOERPERS !":RETURN
7371 PRINT AT(24,0);"SUCHST DU ETWA NOCH EINE PRIN- ZESSIN ??":RETURN
7375 PRINT AT(24,0);"DU HAST DIE IN ZAUBERSCHLAF "
7376 PRINT AT(25,0);"VERSETZTE PRINZESSIN IM ARM !":RETURN
7380 PRINT AT(24,0);"IN EINER FELSSPALTE LIEGT EIN"
7382 PRINT AT(25,0);"ALTER SCHLUESSEL!":RETURN
7390 FOR A=13 TO 14:PRINT AT(A,14);" ":NEXT:PRINT AT(15,14);"":RETURN
7400 PRINT AT(17,9);" ":PRINT AT(16,9);" ":PAUSE 3:PRINT AT(15,8);" ":PAUSE 3
7401 PRINT AT(14,8);" ":PAUSE 3:PRINT AT(13,7);" ":PAUSE 3:PRINT AT(12,6);" "
7402 PAUSE 3:PRINT AT(11,6);" ":PRINT AT(10,6);" ":PRINT AT(9,6);" "
7403 PAUSE 3:PRINT AT(8,6);" ":PAUSE 3:PRINT AT(7,7);"oo":PAUSE 3:PRINT AT(6,8);""
7405 PAUSE 3:PRINT AT(5,8);"":BEEP:PAUSE 5
7406 PRINT AT(23,0);"DU HAST DEN BOESEN ALTEN GEIST "
7407 PRINT AT(24,0);"DES FOLTERKNECHTES GEWECKT UND "
7408 PRINT AT(25,0);"DIESER HAT DIE GUILLOTINE AN"
7409 PRINT AT(26,0);"DIR AUSPROBIERT !!!":GOSUB 13000:RETURN
7410 PRINT AT(23,0);"DU BIST IN DEN SCHLAFRAUM DES "
7411 PRINT AT(24,0);"ZAUBERERS GELANGT,DER ZAUBERER "
7412 PRINT AT(25,0);"IST WACH GEWORDEN UND DA DU "
7413 PRINT AT(26,0);"NICHTS HATTEST,IHN ZU TOETEN, "
7414 PRINT AT(27,0);"GING ES DIR AN DEN KRAGEN !!!":GOSUB 13000:RETURN
7420 GOSUB 120:GOSUB 13000:PRINT AT(24,0);"UNTER DIR TUT SICH EINE FALLTUER"
7421 PRINT AT(25,0);"AUF UND DU STUERTZT IN DEN DUNKLEN KELLER HINAB !"
7422 RETURN
7430 PRINT AT(24,0);"ES IST SO DUNKEL, DASS DU DICH"
7431 PRINT AT(25,0);"OHNE BRENNENDE FACKEL NICHT "
7432 PRINT AT(26,0);"BEWEGEN KANNST !!!":PR=PR+1
7433 IF PR<4 OR(O(6)=-1 AND O(10)=-1)THEN RETURN:ELSE FOR A=0 TO 20:BEEP:NEXT
7434 PRINT AT(24,0);"OHNE FACKEL UND STREICHHOELZER"
7435 PRINT AT(25,0);"KOMMST DU NICHT HIER RAUS UND "
7436 PRINT AT(26,0);"VERHUNGERST !!!":GOSUB 13000:S(4)=1:B=2:RETURN
7900 BEEP:PRINT AT(10,17);"":PAUSE 3:PRINT AT(9,16);" ":PAUSE 3
7902 PRINT AT(8,15);" ":PAUSE 3:PRINT AT(7,12);"- ":PAUSE 3
7904 PRINT AT(6,12);" ":PAUSE 3:PRINT AT(5,13);" ":PAUSE 3
7906 PRINT AT(4,13);"| |":PAUSE 3:PRINT AT(3,13);"||||| |":PAUSE 3
7908 PRINT AT(2,13);" ":PAUSE 3:PRINT AT(1,13);" ":PAUSE 3
7910 PRINT AT(0,14);" -- ":BEEP:RETURN
7920 PRINT AT(10,12);" ":PRINT AT(9,12);" ":PRINT AT(8,11);" "
7922 PRINT AT(7,10);" ":PRINT AT(6,9);" ":PRINT AT(5,9);" "
7924 PRINT AT(4,10);" ":PAUSE 5:RETURN
7999 RETURN
8000 REM STANDORT BESCHREIBUNGEN
8050 PRINT AT(0,0);" "
8052 FOR A=1 TO 17:PRINT AT(A,2);" ":PRINT AT(A,21);" ":NEXT
8053 PRINT AT(7,0);"":PRINT AT(7,10);"":PRINT AT(7,30);""
8055 PRINT AT(18,0);""
8056 PRINT AT(5,5);"":FOR A=6 TO 8:PRINT AT(A,4);"":NEXT:PRINT AT(5,26);"":FOR A=6 TO 8
8057 PRINT AT(A,25);"":NEXT:PRINT AT(10,14);"":PRINT AT(11,13);""
8058 PRINT AT(12,12);"":FOR A=13 TO 17:PRINT AT(A,12);"":NEXT
8059 PRINT AT(19,10);"":PRINT AT(20,0);"~~~~~~~~~~"
8060 PRINT AT(24,0);"ICH SEHE EINE BURG MIT GE-"
8061 PRINT AT(25,0);"SCHLOSSENER ZUGBRUECKE,UND DAVOR EINEN WASSERGRABEN"
8062 FOR A=0 TO 31:PRINT AT(21,A);"~":PRINT AT(22,A);"":NEXT:RETURN
8100 WINDOW:CLS:INK 5:PRINT AT(0,0);" ":PRINT AT(0,19);"":PRINT AT(1,19);""
8101 INK 7:FOR A=4 TO 14 STEP 5:PRINT AT(2,A);"":NEXT:FOR C1=3 TO 4:FOR B=3 TO 13 STEP 5
8102 PRINT AT(C1,B);"":NEXT:NEXT:INK 5:FOR A=2 TO 6:PRINT AT(A,19);"":NEXT
8103 INK 7:FOR A=0 TO 18 STEP 2:PRINT AT(7,A);"":NEXT:PRINT INK 5;AT(7,20);"-"
8104 FOR A=8 TO 17:PRINT AT(A,19);"":NEXT:FOR A=8 TO 10:PRINT AT(A,26);"~~~~~"
8105 NEXT:FOR A=0 TO 19:PRINT AT(0,A);"":NEXT
8106 B=26:FOR C1=11 TO 17:PRINT AT(C1,B);"":B=B-1:NEXT:FOR A=0 TO 19
8107 PRINT AT(18,A);"":NEXT:PRINT AT(11,28);"~~~":PRINT AT(12,27);"~~~~"
8108 PRINT AT(13,26);"~~~~~":PRINT AT(14,25);"~~~~~~"
8109 PRINT AT(15,24);"~~~~~~~":PRINT AT(16,23);"~~~~~~~~"
8110 PRINT AT(17,22);"~~~~~~~~~":PRINT AT(18,21);"~~~~~~~~~~"
8111 PRINT AT(19,20);"~~~~~~~~~~~":FOR A=0 TO 31:PRINT AT(20,A);"~":PRINT AT(21,A);"":NEXT
8112 FOR A=0 TO 19:PRINT AT(19,A);"":NEXT
8113 PRINT AT(24,0);"DAS IST DER RECHTE TEIL DER"
8114 PRINT AT(25,0);"BURG. SIE STEHT DIREKT AM MEER, WIE DU SIEHST":RETURN
8150 WINDOW:CLS:PRINT AT(0,0);" ":PRINT INK 5;AT(0,7);" "
8151 PRINT INK 5;AT(1,6);" ":FOR A=16 TO 26 STEP 5:PRINT AT(2,A);"":NEXT
8152 FOR C=3 TO 4:FOR B=15 TO 25 STEP 5:PRINT AT(C,B);"":NEXT:NEXT
8153 FOR B=2 TO 6:PRINT INK 5;AT(B,6);"":NEXT:FOR A=12 TO 30 STEP 2
8154 PRINT AT(7,A);"":NEXT:PRINT INK 5;AT(7,6);"":FOR A=8 TO 17:PRINT AT(A,12);""
8155 NEXT:FOR A=12 TO 31:PRINT AT(0,A);"":NEXT A:PRINT AT(7,3);"":FOR A=8 TO 10
8156 PRINT AT(A,0);"~~~~":NEXT:FOR A=4 TO 10:PRINT AT(A+7,A);"":NEXT
8157 FOR A=11 TO 31:PRINT AT(18,A);"":NEXT:PRINT AT(11,0);"~~"
8158 PRINT AT(12,0);"~~~":PRINT AT(13,0);"~~~~"
8159 PRINT AT(14,0);"~~~~~":PRINT AT(15,0);"~~~~~~":PRINT AT(16,0);"~~~~~~~"
8160 PRINT AT(17,0);"~~~~~~~~":PRINT AT(18,0);"~~~~~~~~~"
8161 PRINT AT(19,0);"~~~~~~~~~~":FOR A=0 TO 31:PRINT AT(20,A);"~":PRINT AT(21,A);"":NEXT
8162 FOR A=11 TO 31:PRINT AT(19,A);"":NEXT
8163 PRINT AT(24,0);"DAS IST DER LINKE TEIL DER BURG."
8164 PRINT AT(25,0);"SIE STEHT DIREKT AM MEER, WIE DU SIEHST.":RETURN
8200 FOR A=0 TO 14 STEP 14:PRINT AT(5,A);" ":PRINT AT(6,A);" "
8201 PRINT AT(7,A);" ":PRINT AT(8,A);" "
8202 PRINT AT(9,A);" ":PRINT AT(10,A);" "
8203 PRINT AT(11,A);"",CHR$(191)," ",CHR$(142)," "
8204 PRINT AT(12,A);" ",CHR$(191)," "
8205 PRINT AT(13,A);" ",CHR$(191),"",CHR$(142)," "
8206 PRINT AT(14,A);" ":PRINT AT(15,A);" "
8207 PRINT AT(16,A);" ":PRINT AT(17,A);" "
8208 PRINT AT(18,A);" ":NEXT:PRINT AT(18,0);" ":PRINT AT(17,24);""
8209 PRINT AT(24,0);"DU BIST IM 'TAL DER ANTWORT'.":RETURN
8250 FOR A=4 TO 26 STEP 11:PRINT AT(2,A);"":NEXT:FOR A=3 TO 5:FOR B=3 TO 25 STEP 11
8251 PRINT AT(A,B);"":NEXT:NEXT:PRINT AT(9,13);""
8252 PRINT AT(10,12);"":FOR A=11 TO 16:PRINT AT(A,12);"":NEXT
8253 FOR A=10 TO 21:PRINT AT(17,A);"":NEXT:FOR A=9 TO 22:PRINT AT(18,A);"":NEXT
8254 FOR A=0 TO 31:PRINT AT(19,A);"":NEXT:FOR A=8 TO 23:PRINT AT(19,A);"":NEXT
8255 PRINT AT(8,14);"":PRINT AT(24,0);"DU STEHST MITTEN IM BURGHOF.":RETURN
8300 FOR A=17 TO 28 STEP 11:PRINT AT(2,A);"":NEXT:FOR A=3 TO 5:FOR C=16 TO 27 STEP 11
8301 PRINT AT(A,C);"":NEXT:NEXT:FOR A=3 TO 8:PRINT AT(A,4);"":NEXT
8302 FOR A=0 TO 6:PRINT AT(A,3);"":NEXT:PRINT AT(3,2);"":PRINT AT(4,1);""
8303 PRINT AT(5,0);"":PRINT AT(7,3);"":PRINT AT(8,2);"":PRINT AT(9,1);""
8304 PRINT AT(10,0);"":PRINT AT(11,0);"":PRINT AT(12,0);""
8305 PRINT AT(13,0);"":PRINT AT(14,0);"":A=7:FOR C=11 TO 17:PRINT AT(C,A);CHR$(191),""
8306 A=A+1:NEXT:PRINT AT(18,14);CHR$(191),"":FOR A=12 TO 18:PRINT AT(A,3);"":NEXT
8307 A=2:FOR C=19 TO 21:PRINT AT(C,A);"":A=A-1:NEXT:FOR A=3 TO 31:PRINT AT(19,A);"":NEXT
8308 PRINT AT(19,15);CHR$(191),"":PRINT INK 3;AT(14,5);"":PRINT INK 2;AT(15,4);""
8309 PRINT AT(15,5);"":PRINT INK 2;AT(15,7);"":PRINT INK 2;AT(16,4);" "
8310 PRINT AT(24,0);"LINKER TEIL DES BURGHOFES. "
8311 PRINT AT(25,0);"UNTER DER TREPPE IST EIN HEBEL ANGEBRACHT.":RETURN
8350 GOSUB 100:GOSUB 110:GOSUB 120:GOSUB 130:GOSUB 150
8351 PRINT AT(24,0);"DU BIST IM TURM !":RETURN
8400 FOR A=0 TO 31:PRINT AT(19,A);"":NEXT:C=19:FOR A=28 TO 30:PRINT AT(C,A);"":C=C+1:NEXT
8401 FOR A=0 TO 18:PRINT AT(A,27);"":NEXT:FOR A=1 TO 15 STEP 14:PRINT AT(2,A);"":NEXT
8402 FOR A=3 TO 5:FOR C=0 TO 14 STEP 14:PRINT AT(A,C);"":NEXT:NEXT:PRINT AT(3,28);""
8403 PRINT AT(4,28);"":PRINT AT(5,29);"":PRINT AT(6,30);"":PRINT AT(7,24);"":C=24
8404 FOR A=8 TO 10:PRINT AT(A,C);"":C=C+1:NEXT:PRINT AT(11,27);"":PRINT AT(12,28);""
8405 PRINT AT(13,29);"":PRINT AT(14,30);"":FOR A=11 TO 18:PRINT AT(A,7);"":NEXT
8406 PRINT AT(10,7);"":IF O(5)=-1 OR O(6)=-1 THEN PRINT AT(15,14);"":GOTO 8408
8407 PRINT INK 2;AT(13,14);"":PRINT AT(14,14);"":PRINT AT(15,14);""
8408 PRINT AT(24,0);"RECHTER TEIL DES BURGHOFES !":RETURN
8450 GOSUB 100:GOSUB 110:GOSUB 150
8451 PRINT AT(24,0);"DIES IST DER KELLERRAUM IM TURM!":RETURN
8500 GOSUB 100:GOSUB 140:GOSUB 150:GOSUB 160
8501 PRINT AT(24,0);"DU BIST IM VORDEREN KELLERGANG !":RETURN
8550 GOSUB 100:GOSUB 140:GOSUB 150:GOSUB 160
8551 PRINT AT(5,1);"":PRINT AT(6,1);""
8552 FOR A=7 TO 17:PRINT AT(A,1);"":IF S(11)=1 AND A=8 THEN 8554:ELSE NEXT:PRINT AT(18,1);""
8553 PRINT AT(19,1);CHR$(142)
8554 FOR A=7 TO 16:PRINT AT(A,12);"":IF S(12)=1 AND A=8 THEN A=16
8555 NEXT:PRINT AT(24,0);"DER HINTERE KELLERGANG !"
8556 PRINT AT(25,0);"DIE BEIDEN GITTER KANNST DU NUR "
8557 PRINT AT(26,0);"MIT ZWEI SCHLUESSELN OEFFNEN !":RETURN
8560 PRINT AT(19,1);" ":PAUSE 3:PRINT AT(18,1);" ":PAUSE 3:PRINT AT(17,1);"":PAUSE 3
8562 FOR A=16 TO 9 STEP-1:PRINT AT(A,1);" ":PAUSE 3:NEXT A
8563 PRINT AT(24,0);"DER ALTE SCHLUESSEL PASST NUR AM LINKEN GITTER":RETURN
8565 PRINT AT(16,12);" ":PAUSE 3:PRINT AT(15,12);" ":PAUSE 3
8570 FOR A=14 TO 9 STEP(-1):PRINT AT(A,12);" ":PAUSE 3:NEXT
8580 PRINT AT(24,0);"DER GOLDENE SCHLUESSEL PASST ZUM HINTEREN GITTER":RETURN
8600 GOSUB 100:GOSUB 140:GOSUB 160
8601 PRINT AT(13,16);"":PRINT AT(14,15);" "
8602 PRINT AT(15,15);" ":PRINT AT(16,15);" "
8603 PRINT AT(17,15);" ":PRINT AT(18,17);""
8604 IF O(7)=-1 THEN RETURN
8605 PRINT INK 5;AT(14,18);"":PRINT INK 2;AT(14,24);""
8606 PRINT INK 5;AT(15,18);" ":PRINT INK 2;AT(15,24);"":RETURN
8607 PRINT AT(24,0);"DORT LIEGT DAS WUNDERSCHWERT, "
8608 PRINT AT(25,0);"NUR EIN WESEN MIT REINEM HERZEN DARF ES TRAGEN.":RETURN
8650 GOSUB 100:GOSUB 150
8651 PRINT AT(6,13);"":PRINT AT(7,13);"":PRINT AT(8,13);""
8652 PRINT AT(9,13);CHR$(142),"",CHR$(191):PRINT AT(10,13);""
8653 PRINT AT(15,18);"":PRINT AT(16,7);" "
8654 PRINT AT(17,7);" ":PRINT AT(18,7);""
8655 PRINT AT(19,7);"":PRINT AT(8,6);""
8656 PRINT AT(24,0);"DAS VERLIES !":RETURN
8700 GOSUB 100:GOSUB 140
8701 PRINT INK 6;AT(6,15);"",CHR$(142),"":PRINT INK 6;AT(7,15);""
8702 FOR A=8 TO 18:PRINT INK 2;AT(A,16);" ":NEXT:PRINT INK 5;AT(8,17);"",CHR$(142)
8703 PRINT INK 5;AT(9,17);"",CHR$(142):PRINT INK 5;AT(10,17);"",CHR$(142)
8704 PRINT INK 5;AT(11,17);CHR$(142):PRINT INK 6;AT(16,17);" "
8705 PRINT INK 6;AT(17,17);"":PRINT INK 6;AT(18,17);""
8706 PRINT INK 6;AT(18,15);"":PRINT INK 6;AT(17,23);"":PRINT INK 2;AT(18,22);CHR$(142)
8707 PRINT INK 6;AT(18,23);"":PRINT INK 6;AT(19,14);""
8708 PRINT AT(24,0);"IN DIESER FOLTERKAMMER STEHT "
8709 PRINT AT(25,0);"EINE GUILLOTINE !!":RETURN
8750 GOSUB 100:GOSUB 150:GOSUB 110:GOSUB 120:GOSUB 130
8751 PRINT AT(24,0);"DIESER RAUM BEFINDET SICH IM "
8752 PRINT AT(25,0);"ERSTEN STOCKWERK DES TURMES !":RETURN
8800 PRINT AT(5,6);"",CHR$(142),"",CHR$(191),"",CHR$(142)
8801 PRINT AT(5,17);CHR$(142),"",CHR$(191),""
8802 PRINT AT(6,5);"",CHR$(142)," ",CHR$(191),""
8803 PRINT AT(7,4);"",CHR$(142)," ",CHR$(191),""
8804 PRINT AT(8,4);" ":FOR A=9 TO 13:FOR C=7 TO 23
8805 PRINT AT(A,C);"":NEXT:NEXT:PRINT AT(9,4);"":PRINT AT(9,26);""
8806 PRINT AT(10,1);"",CHR$(142),"":PRINT AT(10,26);"",CHR$(191),""
8807 PRINT AT(11,0);"",CHR$(142),"":PRINT AT(11,27);"",CHR$(191),""
8808 PRINT AT(12,0);"":PRINT AT(12,30);"":PRINT AT(13,0);"":PRINT AT(13,30);"
8809 PRINT AT(14,0);"":PRINT AT(14,30);"":B=6:C=24:FOR A=14 TO 20:PRINT AT(A,B);""
8810 PRINT AT(A,C);"":B=B-1:C=C+1:NEXT:GOSUB 120
8811 PRINT AT(24,0);"DU BIST GANZ OBEN AUF DEM TURM!":RETURN
8850 GOSUB 100:GOSUB 140:GOSUB 150:GOSUB 160
8851 PRINT AT(16,9);"":PRINT AT(17,8);""
8852 FOR A=8 TO 22:PRINT AT(18,A);"":NEXT:PRINT AT(19,9);"":PRINT AT(19,20);""
8853 PRINT AT(20,9);"":PRINT AT(20,21);""
8854 PRINT AT(24,0);"DER WARTESAAL !":RETURN
8900 GOSUB 100:GOSUB 140
8901 PRINT INK 2;AT(7,11);" ":PRINT INK 2;AT(8,11);""
8902 PRINT INK 2;AT(9,11);CHR$(191),"",CHR$(142):PRINT INK 2;AT(10,12);""
8903 PRINT INK 2;AT(11,12);"":PRINT INK 2;AT(12,10);""
8904 PRINT INK 4;AT(13,10);"":PRINT INK 2;AT(13,11);"":PRINT INK 4;AT(13,20);""
8905 PRINT INK 2;AT(14,11);"":PRINT INK 2;AT(15,11);""
8906 PRINT INK 3;AT(16,10);"":PRINT INK 3;AT(17,9);""
8907 PRINT INK 3;AT(18,8);""
8908 PRINT INK 3;AT(19,8);""
8909 PRINT AT(24,0);"DIES IST DER THRONSAAL !":RETURN
8950 GOSUB 100:GOSUB 140:GOSUB 150:GOSUB 160
8951 PRINT AT(14,1);"":PRINT AT(15,1);CHR$(142),"":PRINT AT(16,1);"",CHR$(142),""
8952 PRINT AT(17,1);CHR$(142),"",CHR$(142),"":PRINT AT(18,1);"",CHR$(142),""
8953 PRINT AT(19,1);"":PRINT AT(24,0);"VORDERER FLUR IM ERDGESCHOSS !":RETURN
9000 GOSUB 100:GOSUB 120:GOSUB 140:GOSUB 150:GOSUB 160
9001 PRINT AT(24,0);"DIES IST EIN DURCHGANGSZIMMER !":RETURN
9050 GOSUB 100:GOSUB 140:GOSUB 150
9051 PRINT AT(24,0);"HINTERER FLUR IM ERDGESCHOSS !":RETURN
9100 GOSUB 100:GOSUB 150
9101 INK 3:PRINT AT(10,1);"",CHR$(142),"":PRINT AT(11,0);"",CHR$(142),""
9102 PRINT AT(12,0);"":PRINT AT(13,0);"":PRINT AT(14,0);"":PRINT AT(15,0);""
9103 PRINT AT(16,0);"":PRINT AT(17,0);" ":PRINT AT(18,0);"":PRINT AT(19,0);" "
9104 PRINT AT(20,0);"":INK 2:FOR A=4 TO 23:PRINT AT(14,A);"":NEXT:FOR A=4 TO 24
9105 PRINT AT(15,A);"":NEXT:PRINT AT(14,24);"":PRINT AT(15,25);"":FOR A=4 TO 25
9106 PRINT AT(16,A);"":NEXT:PRINT AT(17,7);"":PRINT AT(17,21);"":PRINT AT(18,7);""
9107 PRINT AT(18,21);"":PRINT AT(17,8);"":PRINT AT(17,20);"":INK 7
9108 PRINT AT(24,0);"DIES IST DIE KUECHE !":RETURN
9150 GOSUB 100:GOSUB 110:GOSUB 130
9151 PRINT AT(24,0);"DIE LEITER FUEHRT IN DAS ERDGESCHOSS !":RETURN
9200 GOSUB 100:GOSUB 140:GOSUB 120
9201 PRINT AT(24,0);"DAS LOCH FUEHRT IN DEN KELLER !":RETURN
9250 GOSUB 100:GOSUB 110
9251 C=30:FOR A=0 TO 20:PRINT AT(A,C);"":C=C-1:NEXT:C=30:FOR A=4 TO 20:PRINT AT(A,C);""
9252 C=C-1:NEXT:C=30:FOR A=8 TO 20:PRINT AT(A,C);"":C=C-1:NEXT:C=30:FOR A=12 TO 20
9253 PRINT AT(A,C);"":C=C-1:NEXT:C=30:FOR A=16 TO 20:PRINT AT(A,C);"":C=C-1:NEXT
9254 PRINT AT(20,30);"":C=20:FOR A=11 TO 20:PRINT AT(A,C);"":C=C+1:NEXT
9255 IF S(7)THEN RETURN
9256 FOR A=0 TO 5:PRINT AT(A,11);"":NEXT:PRINT AT(5,2);"":PRINT AT(5,18);""
9257 PRINT AT(6,1);" ":PRINT AT(7,0);" "
9258 PRINT AT(8,2);" ":PRINT AT(9,1);" "
9259 PRINT AT(10,3);" ",CHR$(191),"",CHR$(142)," "
9260 PRINT AT(11,2);" ",CHR$(191),"",CHR$(142)," "
9261 PRINT AT(12,8);"":PRINT AT(13,8);CHR$(191),"",CHR$(142)
9262 PRINT AT(14,9);"",CHR$(142),CHR$(191),"":PRINT AT(15,9);" "
9263 PRINT AT(24,0);"DU BIST INS NETZ EINER RIESIGEN"
9264 PRINT AT(25,0);"SPINNE GEFALLEN !!!":RETURN
9300 GOSUB 100:GOSUB 140:GOSUB 150:GOSUB 160
9301 PRINT AT(24,0);"DER VORDERE FLUR IM ERSTEN STOCK":RETURN
9350 GOSUB 100:GOSUB 140
9351 PRINT INK 3;AT(10,7);" ":PRINT INK 2;AT(10,22);""
9352 PRINT INK 3;AT(11,6);" ":PRINT INK 2;AT(11,22);""
9353 PRINT INK 2;AT(12,5);"":PRINT INK 3;AT(12,6);" "
9354 PRINT INK 2;AT(12,19);" ":PRINT INK 2;AT(13,5);" "
9355 PRINT INK 3;AT(13,25);"":PRINT INK 2;AT(14,5);" "
9356 PRINT INK 3;AT(14,26);"":PRINT INK 2;AT(15,5);" "
9357 PRINT INK 3;AT(15,27);"":PRINT INK 2;AT(16,5);""
9358 PRINT INK 3;AT(16,7);" ":PRINT INK 2;AT(16,19);" "
9359 PRINT INK 2;AT(16,28);"":PRINT INK 2;AT(17,5);"":PRINT INK 3;AT(17,6);""
9360 PRINT INK 2;AT(17,19);"":PRINT INK 3;AT(17,20);"":PRINT INK 2;AT(17,28);""
9361 PRINT INK 2;AT(18,5);"":PRINT INK 3;AT(18,6);"":PRINT INK 2;AT(18,19);""
9362 PRINT INK 3;AT(18,24);" ":PRINT INK 2;AT(18,28);""
9363 PRINT INK 2;AT(19,7);"":PRINT INK 2;AT(19,17);"":PRINT INK 3;AT(19,25);" "
9364 PRINT INK 2;AT(19,28);"":PRINT INK 3;AT(20,26);" ":PRINT INK 2;AT(20,28);""
9365 PRINT INK 3;AT(21,27);""
9366 PRINT AT(24,0);"DAS IST DER SCHLAFRAUM DER KOBOLDE !":RETURN
9400 GOSUB 100:GOSUB 150:GOSUB 160
9401 PRINT AT(24,0);"DIES IST DER MITTLERE FLUR !":RETURN
9450 GOSUB 100:GOSUB 140:GOSUB 150
9451 PRINT AT(24,0);"DU BIST IM HINTEREN FLUR !":RETURN
9500 GOSUB 100:GOSUB 140
9501 PRINT INK 2;AT(9,7);"":PRINT INK 2;AT(10,6);""
9502 PRINT INK 2;AT(11,5);"":PRINT INK 2;AT(12,5);""
9503 PRINT INK 2;AT(13,5);" ":PRINT INK 2;AT(14,5);" "
9504 PRINT INK 2;AT(15,5);" ":PRINT INK 3;AT(15,9);""
9505 PRINT INK 2;AT(16,5);" ":PRINT INK 3;AT(16,9);""
9506 PRINT INK 2;AT(17,5);" ":PRINT INK 3;AT(17,8);""
9507 PRINT INK 2;AT(18,5);" ":PRINT INK 3;AT(18,7);""
9508 PRINT INK 2;AT(19,5);" ":PRINT INK 3;AT(19,6);""
9509 PRINT INK 2;AT(20,5);" ":IF S(9)THEN 9515
9510 PRINT AT(7,23);"":PRINT AT(8,26);"":PRINT INK 2;AT(9,22);"":PRINT AT(9,27);""
9511 PRINT AT(10,22);" ":PRINT AT(11,23);" ":PRINT AT(12,21);""
9512 PRINT AT(13,20);" ":PRINT AT(14,20);" ":PRINT AT(15,21);""
9513 PRINT AT(16,21);" ":PRINT AT(17,21);" ":PRINT AT(18,21);" "
9514 PRINT AT(19,20);" "
9515 PRINT AT(24,0);"DER SCHLAFRAUM DES ZAUBERERS, "
9516 IF S(9)THEN PRINT AT(25,0);"AUF DEM BODEN LIEGT DER TOTE ZAUBERER !":RETURN
9517 PRINT AT(25,0);"DER ZAUBERER IST AUCH HIER, HAT"
9518 PRINT AT(26,0);"DICH ABER NOCH NICHT BEMERKT !":RETURN
9550 GOSUB 100:GOSUB 150
9551 PRINT AT(9,19);CHR$(159)," ",CHR$(144),CHR$(192)
9552 PRINT AT(6,19);"":PRINT AT(7,19);" ":PRINT AT(8,19);" "
9554 PRINT AT(10,19);"":PRINT AT(11,20);"":PRINT AT(12,6);""
9556 PRINT AT(13,6);"":PRINT AT(13,18);"":PRINT AT(14,6);CHR$(191)
9557 PRINT AT(14,10);CHR$(142)
9558 PRINT AT(14,18);"":PRINT AT(15,6);"":PRINT AT(15,18);""
9560 PRINT AT(16,6);"":PRINT AT(17,6);""
9562 PRINT AT(24,0);"DAS WC !":RETURN
9600 GOSUB 100:GOSUB 160
9601 PRINT AT(16,10);"":PRINT AT(17,9);""
9602 PRINT AT(18,8);" ":PRINT AT(19,8);""
9603 PRINT AT(20,8);""
9604 PRINT AT(24,0);"DU BIST IM BADERAUM !":RETURN
9650 GOSUB 100:GOSUB 140
9651 INK 2:PRINT AT(9,15);"":PRINT AT(10,14);""
9652 PRINT AT(11,13);"":PRINT AT(12,13);""
9653 PRINT AT(13,13);" ":PRINT AT(14,13);" "
9654 FOR A=15 TO 19:PRINT AT(A,13);"":PRINT AT(A,26);"":NEXT
9655 INK 3:PRINT AT(15,17);"":PRINT AT(16,17);"":PRINT AT(17,16);"
9656 PRINT AT(18,15);"":PRINT AT(19,14);""
9657 PRINT INK 2;AT(20,13);" ":INK 7
9658 PRINT AT(24,0);"DER SCHLAFRAUM DER PRINZESSIN !"
9659 IF O(11)=-1 OR S(2)THEN RETURN
9660 PRINT AT(25,0);"SELTSAM-SIE IST NICHT ZU SEHEN !":RETURN
9700 CALL-21248:GOSUB 110:PRINT AT(2,10);" ":PRINT AT(3,11);"
9701 PAUSE 10:BEEP:CALL-21248:PRINT AT(24,0);"DIE FALLTUER IST ZUGEKLAPPT !!!"
9900 RETURN
9999 FOR I=-21262 TO-21249:POKE I,ASC(MID$(N$,I+21263,1)):NEXT:CLEAR:WF=1:GOTO 1
10000 PAPER 1:INK 7
10010 RESTORE 10020
10020 DATA "DEIN LEBEN"
10030 DATA "EIN GOLDENER SCHLUESSEL"
10040 DATA "EINE MAGISCHE SPRUCHROLLE"
10050 DATA "EIN AMULETT"
10060 DATA "EINE BRENNENDE FACKEL"
10070 DATA "EINE FACKEL"
10080 DATA "EIN WUNDERSCHWERT"
10090 DATA "EIN SIEGELRING"
10100 DATA "EIN ALTER SCHLUESSEL"
10110 DATA "STREICHHOELZER"
10120 DATA "DIE SCHLAFENDE PRINZESSIN"
10130 DATA "01N ","01NORD","02O ","02OSTE","03S ","03SUED"
10140 DATA "04W ","04WEST","05H ","05HOCH","06R ","06RUNT"
10150 DATA "13LESE","13RUFE","13SAGE","14SEHE","14SCHA","14BLIC","14BETR"
10160 DATA "15NEHM","16GEBE","17BEWE","17DREH","17REIB","18GEHE","18STEI"
10170 DATA "19BREN","19ZUEN","20SETZ","21TOET","21ERSC","22TAST"
10180 DATA "22FUEH","23I ","23INVE","28OEFF","24LIST","25LUST","25AUFG"
10190 DATA "25AUFH","26SPRU","27FELS","27WAND","28SCHL","29AMUL","30HEBE"
10191 DATA "31TREP","32FACK","33SCHW","33WUND","34LOCH","35PRIN","36SIEG"
10192 DATA "36RING","37SCHR","38STRE","38HOEL","39SPIN","40NETZ","41ZAUB"
10193 DATA "42BETT","43KOER","44GITT","44TUER"
10200 DATA "0202040300"
10202 DATA "040100"
10204 DATA "0201040400"
10206 DATA "020300"
10208 DATA "03010406020800"
10210 DATA "0205050700"
10212 DATA "03060515021700"
10214 DATA "040500"
10216 DATA "021000"
10218 DATA "04090111021200"
10220 DATA "0214031000"
10222 DATA "0410011400"
10224 DATA "021100"
10226 DATA "0312041100"
10228 DATA "06070516022600"
10230 DATA "061500"
10232 DATA "040702180119030500"
10234 DATA "0417030800"
10236 DATA "031702200121042900"
10238 DATA "04190124062500"
10240 DATA "03190422022400"
10242 DATA "022100"
10244 DATA "052400"
10246 DATA "03200623042100"
10248 DATA "00"
10249 DATA "04150227012800"
10250 DATA "042600"
10251 DATA "03260129023000"
10252 DATA "0328043100"
10253 DATA "042800"
10254 DATA "0229033200"
10255 DATA "013100"
10256 DATA "042900"
10268 DATA "00"
10390 DATA "A01E01.D01N."
10400 DATA "E04.D04Q."
10410 DATA "A04C03.D05N."
10420 DATA "A06D05.H05D11N."
10430 DATA "A12D07.D19N."
10440 DATA "A12C07.D20N."
10450 DATA "A16D05.H05D11N."
10455 DATA "A14H50.D49E04M."
10460 DATA "E06.D25Q."
10462 DATA "A19H45.D51K34O."
10470 DATA "A27D05.D32E04M."
10480 DATA "A29E05F03.E03D33N."
10485 DATA "A30H50F08.D50E04M."
10486 DATA "A34C05.D52N."
10488 DATA "A34D05.K11O."
10490 DATA ".N."
10500 DATA "0300A01.D02N."
10510 DATA "0100A01F01.D03E04M."
10520 DATA "2300.AN."
10530 DATA "1326A01D03.E01M."
10540 DATA "0100A01E01.K05O."
10550 DATA "0100A02.D03E04M."
10560 DATA "0300A02.D02N."
10570 DATA "0200A02.D02N."
10580 DATA "1427A02C09.D38N."
10585 DATA "1528A02.B09L."
10590 DATA "0100A03.D03E04M."
10600 DATA "0300A03.D02N."
10610 DATA "0300A04.D02N."
10620 DATA "0100A04.D06E04M."
10630 DATA "0400A04.D07E04M."
10640 DATA "1300A04C03.D08I03B03N."
10645 DATA "1300A04E03.D46N."
10650 DATA "1300A04D04.D09N."
10655 DATA "1300A04E05.D40N."
10657 DATA "1300A04D03.D42N."
10660 DATA "1629A04D04.J04D10E05N."
10665 DATA "1629A04E05.D41N."
10670 DATA "1730A06.D12E04M."
10680 DATA "1831A06.K07O."
10690 DATA "1932D06D10.H05L."
10700 DATA "1932D06C10.D13N."
10710 DATA "1932D05.D14N."
10720 DATA "1932C06.D15N."
10730 DATA "0600A07D05.K09O."
10740 DATA "0600A07.D16N."
10750 DATA "1427A08C05C06.D17N."
10760 DATA "1532A08C05.B06D39L."
10762 DATA "1532A08C06.B05D39L."
10764 DATA "1532.D15N."
10770 DATA "0500A09.D18N."
10775 DATA "2844A11D02.E12D48N."
10780 DATA "0100A11E12.K23O."
10782 DATA "2844A11D09.E11D47N."
10785 DATA "0400A11E11.K13O."
10790 DATA "1533A12.D19B07D21N."
10800 DATA "1427A13.D22N."
10810 DATA "1434A13C02.D23N."
10820 DATA "1528A13.B02L."
10830 DATA "2035A18D11.J11D24E02N."
10835 DATA "2035A18E02.D43N."
10840 DATA "1736A18D08E02.E06M."
10850 DATA "0200A20.D26E04M."
10860 DATA "1437A22C10.D27N."
10870 DATA "1538A22.B10L."
10880 DATA "0300A23D02.K11O."
10890 DATA "2139A25C07.D28E04M."
10900 DATA "2139A25D07.E07O."
10910 DATA "1440A25C08.D29N."
10920 DATA "1536A25F07.D30N."
10930 DATA "1536A25.B08L."
10940 DATA "1736A25D08.E08D31K16O."
10945 DATA "0500A25.D18N."
10950 DATA "0200A29F03.D34N."
10960 DATA "0200A29.K33O."
10962 DATA "2141A30D07E08.E09O."
10964 DATA "2141A30.D35E04M."
10966 DATA "1441A30E09.D36N."
10968 DATA "1529A30E09F05.B04L."
10970 DATA "2242A33C11F02.D37E10N."
10971 DATA "2242A33.D44N."
10972 DATA "1543A33E10F02.B11D45N."
10974 DATA "2500.P."
11000 FOR N=1 TO 11:READ O$(N):NEXT N
11010 FOR N=1 TO 64:READ V$(N):NEXT N
11020 FOR N=1 TO 34:READ M$(N):NEXT N
11030 FOR N=1 TO 16:READ C$(N):NEXT N
11040 FOR N=1 TO 67:READ A$(N):NEXT N
11050 DATA 62,32,33,0,236,119,17,1,236,1,255,3,237,176,201
11060 RESTORE 11050:FOR I=-21248 TO-21234:READ A:POKE I,A:NEXT:RETURN
12000 CLS:INK 3
12010 PRINT "Am 'MEER DER EWIGEN TRAEUME' steht die Burg TATUM, in ihr"
12020 PRINT "leben der boese Zauberer AKRAN"
12030 PRINT "und seine Kobolde. Der Zauberer"
12040 PRINT "hat vor etwa 99Jahren die Prin-"
12050 PRINT "zessin LAILA WANDA entfuehrt und in Tiefschlaf versetzt, und"
12060 PRINT "noch niemandem ist es gelungen,"
12070 PRINT "bis zu ihr vorzudringen."
12080 PRINT "Alle, die es versuchten,mussten sterben, denn ausser dem boesen"
12090 PRINT "Zauberer und seinen Kobolden"
12100 PRINT "gibt es auch noch viele Fallen"
12110 PRINT "und Orte, die mit einem Zauber"
12120 PRINT "belegt wurden.Aber es gibt auch gute Geister und das Wunder-"
12130 PRINT "schwert, und wenn es Dir ge- lingt, dem guten Geist sein"
12140 PRINT "Amulett zurueckzubringen, dann"
12150 PRINT "wird er Dir hilfreich zur Seite"
12160 PRINT "stehen."
12170 PRINT:PRINT "Uebrigens wird NIEMANDSLAND von"
12180 PRINT "den Menschen auch 'REICH DER "
12190 PRINT "PHANTASIE' genannt !!!"
12200 PRINT:PRINT:PRINT:PRINT TAB(12);"Weiter mit >ENTER<";:PRINT AT(31,30);" "
12205 BEEP
12210 IF INKEY$=""THEN 12210
12230 CLS:PRINT " Deine Taten im Niemandsland"
12240 PRINT "musst Du mit Eingabe von Hand-"
12250 PRINT "lungen auf die Frage 'WAS NUN?' steuern.Welche Worte und Saetze"
12260 PRINT "wirksam sind, sollst Du selbst"
12270 PRINT "herausfinden."
12280 PRINT:PRINT "Einige Beispiele als Hilfe:":PRINT:PRINT "ICH GEHE NACH NORDEN"
12290 PRINT "ICH SEHE ZUR WAND"
12300 PRINT "ICH NEHME ..."
12305 PRINT "ICH WILL AUFGEBEN"
12310 PRINT:PRINT "RICHTUNGEN AUCH ABGEKUERZT:"
12320 PRINT:PRINT "'N'=NORDEN 'S'=SUEDEN 'W'=WESTEN 'O'=OSTEN"
12330 PRINT "'H'=HOCH 'R'=RUNTER"
12332 PRINT:PRINT "'I'=INVENTUR
12335 PAUSE 10:BEEP
12340 PRINT:PRINT:PRINT "Wie heisst Du, mutiger Recke ?":PRINT
12342 PRINT TAB(10);:INPUT " ";N$:IF N$=""THEN N$="UNBEKANNTER"
12350 IF LEN(N$)>12 THEN N$=LEFT$(N$,11)+"."
12355 IF LEN(N$)=1 THEN N$="'"+N$+"'"
12357 PRINT:PRINT "Glueck auf den Weg,";N$;"!"
12360 X=LEN(N$)/2:N$=MID$(" "+N$+" ",X,14)
12380 PRINT:PRINT TAB(10);"weiter mit >ENTER<";:PRINT AT(31,30);" ":BEEP
12390 IF INKEY$=""THEN 12390
12500 CLS:RETURN
12999 RETURN
13000 FOR A=0 TO 20:PAUSE 2:FOR KI=0 TO 5:BEEP:NEXT:NEXT
13001 RETURN
14000 PRINT AT(3,15);CHR$(202)
14010 DATA 4,10,12,131,154,131,0
14020 DATA 5,9,13,174,132,130,133,173,0
14030 DATA 6,9,13,159,138,32,138,192,0
14040 DATA 7,8,14,32,159,159,214,192,192,32,0
14050 DATA 8,8,14,172,133,145,130,144,132,171,0
14060 DATA 9,8,14,32,131,143,130,190,131,32,0
14070 DATA 10,8,14,174,32,158,154,158,32,173,0
14080 DATA 11,7,15,144,32,32,130,32,130,32,32,145,0
14090 DATA 12,6,16,144,144,130,130,159,32,192,130,130,145,145,0
14100 DATA 13,6,16,145,145,32,146,160,203,160,149,32,144,144,0
14110 DATA 14,7,15,145,145,32,153,138,155, 32,144,144,0
14120 DATA 15,7,15,144,140,32,152,32,156,32,140,145,0
14130 DATA 16,6,16,153,32,32,144,138,32,138,145,32,32,155,0
14140 DATA 17,6,16,152,32,153,32,32,32,32,32,155,32,156,0
14150 DATA 18,6,16,159,32,152,138,32,138,32,138,156,32,192,0
14160 DATA 19,6,16,159,32,159,32,32,32,32,32,192,32,192,0
14170 DATA 20,6,16,159,192,138,32,138,32,138,32,138,159,192,1
14175 RESTORE 14000
14180 READ Z,SA,SE
14190 FOR I=SA TO SE
14200 READ B:PRINT AT(Z,I+4);CHR$(B):NEXT:READ C
14210 IF C=0 THEN 14180
14220 PRINT AT(21,10);STRING$(11,CHR$(175))
14230 FOR I=1 TO 10:PRINT AT(6,16);CHR$(201):BEEP
14240 PAUSE 5:PRINT AT(6,16);CHR$(138):BEEP:PAUSE 5:NEXT:CLS:RETURN
