10  GOSUB 11000:
      P = 6551:
      A = .:
      A(.) =  - 20:
      A(1) = 1:
      A(2) = 20:
      A(3) =  - 1
   20 D$ = "
#13#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11
":
       GOSUB 15000:
       GOSUB 300:
       POKE 50840,.
   99  FOR I = 0 TO 6:
       POKE 49279 + I,1:
       NEXT :
       GOSUB 3500
  100  SYS 5440:
      WH =  PEEK (49157):
      KP = .:
       IF  PEEK (49245) THEN 
           IF  FN R(3) = 1 AND U$ = "
@
" THEN 
           GOSUB 3250
  102  GOSUB 3300:
       IF  PEEK (49244) = . THEN 
           GOSUB 3280
  104  IF ( PEEK (49208) AND 31) = . THEN 
           IF  PEEK (49244) THEN 
           POKE 49244, PEEK (49244) - 1:
       GOSUB 10000
  106 Z = 0:
       SYS 5681:
       PRINT "
#05@#C7#9D
";
  110 Z = Z + 1:
       IF Z > 600 GOTO 200
  112  GET U$:
       IF U$ = "
" GOTO 110
  120  IF U$ = "
#91
" AND  PEEK (P) <  > 5 GOTO 210
  121  IF U$ = "
#11
" AND  PEEK (P) = 5 GOTO 5700
  122  IF U$ = "
#11
" THEN 
           PRINT "
UMDREHEN#13
":
      A = A + 2 + 4 * (A > 1):
      T = .:
       GOSUB 300:
       GOTO 240
  124  IF U$ = "
#1D
" AND  PEEK (P) <  > 5 THEN 
           PRINT "
RECHTS DREHEN#13
":
      A = A + 1 + 4 * (A = 3):
      T = .:
       GOSUB 300:
       GOTO 240
  126  IF U$ = "
#9D
" AND  PEEK (P) <  > 5 THEN 
          T = .:
       PRINT "
LINKS DREHEN#13
":
      A = A - 1 - 4 * (A = .):
       GOSUB 300:
       GOTO 240
  130  IF U$ = "
 
" GOTO 200
  136  IF U$ = "
W
" THEN 
           GOSUB 3000:
       GOTO 100
  137  IF U$ = "
E
" GOTO 800
  138  IF U$ = "
R
" THEN 
           GOSUB 3100:
       GOTO 100
  140  IF U$ = "
Z
" THEN 
          H = 0:
       GOSUB 4000:
       GOTO 100
  142  IF U$ = "
I
" THEN 
           GOSUB 14000:
       GOTO 100
  143  IF U$ = "
K
" GOTO 900
  148  IF U$ = "
S
" GOTO 6000
  149  IF U$ = "
_
" THEN 
           GOSUB 31000:
       GOTO 100
  199  PRINT "
WIE BITTE..?#13
":
       GOTO 100
  200  PRINT "
WARTEN...#13
":
       GOTO 100
  210  PRINT "
VORWÄRTS#13
":
      J = P + A(A)
  212  IF  PEEK (J) = 1 OR ( PEEK (J) = 2 AND T = .) THEN 
           SYS 5681:
       PRINT "
#96RUMMS!#13
":
       GOSUB 30053:
       GOTO 100
  214  IF  PEEK (J) = 5 AND T = . THEN 
           SYS 5681:
       PRINT "
#96DIE TÜR LÄSST#13
":
       SYS 5681:
       PRINT "
SICH NICHT#13
"
  216  IF  PEEK (J) = 5 AND T = . THEN 
           SYS 5681:
       PRINT "
ÖFFNEN.#13
":
       GOTO 100
  220 P = J:
       GOSUB 30000:
      T = .:
       IF F = 1 THEN 
           SYS 5681:
       PRINT "
#9ADAS LICHT IST#13
":
       SYS 5681:
       PRINT "
VERBRAUCHT!#13
"
  222 F = F - 1:
       IF F < 1 THEN 
          F = .
  225  IF  PEEK (P) = 5 GOTO 5600
  230  GOSUB 300:
       IF  FN R(7) = 1 GOTO 5200
  240  IF  FN R(5) = 1 THEN 
          M =  FN R(32) - 1:
       IF  INT (M / 11) <  INT ((P - 5922) / 400) GOTO 1000
  250  GOTO 100
  300  IF  PEEK (49354) THEN 
           PRINT D$ SPC( 7)"
#91#9A#B1 #05
" MID$ ("
NORDENOSTEN SÜDEN WESTEN
",1 + 6 * A,6)"
 #9A$#13
"
  301  IF F GOTO 308
  302  POKE 49666,76:
       SYS 49650:
       POKE 49666,32:
       PRINT  LEFT$ (D$,12)"
#1D#1D#1D#1D#1D#97ES IST DUNKEL!
":
       RETURN 
// -----------------------------

  308  FOR I = 1 TO 5:
      J =  PEEK (P + A(A) * I):
       POKE 832 + I,.:
       IF J = 1 OR J = 2 OR J = 5 THEN 
           POKE 832 + I,1
  310 J =  PEEK (P + A(A) * (I - 1) + A(A - 1 - 4 * (A = .))):
       POKE 837 + I,.:
       IF J = 1 OR J = 2 OR J = 5 THEN 
           POKE 837 + I,1
  320 J =  PEEK (P + A(A) * (I - 1) + A(A + 1 + 4 * (A = 3))):
       POKE 842 + I,.:
       IF J = 1 OR J = 2 OR J = 5 THEN 
           POKE 842 + I,1
  330  NEXT :
       SYS 49650
  340  FOR I = 0 TO 5:
      J =  PEEK (P + A(A) * I):
       IF J = . THEN 
           NEXT :
       RETURN 
// -----------------------------

  341  IF (J = 1 OR J = 2 OR J = 5) AND I > . THEN 
           RETURN 
// -----------------------------

  342  IF J = 4 AND I = 5 THEN 
           PRINT  LEFT$ (D$,13) SPC( 11)"
#97#DF#A0
"
  344  IF J = 3 AND I = 5 THEN 
           PRINT  LEFT$ (D$,12) SPC( 11)"
#97#DD#FF
"
  352  IF J = 4 AND I = 4 THEN 
           PRINT  LEFT$ (D$,14) SPC( 11)"
#97#A3#A4
"
  354  IF J = 3 AND I = 4 THEN 
           PRINT  LEFT$ (D$,11) SPC( 11)"
#97#A1#A2
"
  362  IF J = 4 AND I = 3 THEN 
           PRINT  LEFT$ (D$,14) SPC( 11)"
#98#A5#A6#11#9D#9D#A7#A8
"
  364  IF J = 3 AND I = 3 THEN 
           PRINT  LEFT$ (D$,10) SPC( 11)"
#98#A9#AA#11#9D#9D#AF#AC
"
  366  IF J = 4 AND I = 2 THEN 
           PRINT  LEFT$ (D$,15) SPC( 11)"
#98#B3#B4#11#9D#9D#B5#B6#11#9D#9D#9D#B7#B8#B9#BA
"
  368  IF J = 3 AND I = 2 THEN 
           PRINT  LEFT$ (D$,9) SPC( 10)"
#98#12@ABC#92#11#9D#9D#9D#BB#BC#11#9D#9D#BE#BF
"
  370  IF J = 4 AND I = 1 THEN 
           PRINT  LEFT$ (D$,15) SPC( 10)"
#9B#12E#11#9DKFFM#91#9DH#11#11#9DH#9D#9D#9D#9DE#11#9DKFFM
";
  371  IF J = 4 AND I = 1 THEN 
           PRINT "
#11#9D#9D#9D#9D#9D#9DDKKFFMMI#11#9D#9D#9D#9D#9D#9D#9D#9D#9DDGEKFFMHJI#11#9D#9D#9D#9D#9D#9D#9D#9D#9D#9D
";
  372  IF J = 4 AND I = 1 THEN 
           PRINT "
FFFFFFFFFF
"
  374  IF J = 3 AND I = 1 THEN 
           PRINT  LEFT$ (D$,6) SPC( 6)"
#9B#12J!FKKFFMMFCL#11#9D#9D#9D#9D#9D#9D#9D#9D#9D#9D#9DJIEKFFMHDG
";
  375  IF J = 3 AND I = 1 THEN 
           POKE 1240,162:
       PRINT "
#11#9D#9D#9D#9D#9D#9D#9D#9D#9DJFKFFMFG#11#9D#9D#9D#9D#9D#9DKFFM#11#9D#9D#9D#9DE#11#9DKFFM#91#9DH
"
  380  IF J = 4 AND I = . THEN 
           PRINT  LEFT$ (D$,14) SPC( 9);:
       FOR K = 1 TO 3
  381  IF J = 4 AND I = . THEN 
           PRINT "
#9B#12T#11#9DT#11#9DÜSSSS^#91#9DU#91#9DU#11#11#11#9D#9D#9D#9D#9D#9D
";:
       NEXT 
  382  IF J = 4 AND I = . THEN 
           PRINT "
T#9D#9D#9D#9D#9DDGE#91#9D#9DDKF#1D#1D#1D#1D#1D#11U#91FMI#11#9D#9DHJI#13
"
  385  IF J = 3 AND I = . THEN 
           PRINT "
#13#11#1D#1D#1D#1D#1D#12#9BI#11#9DJI#11#9DJFF#91#91T#11#9DT#11#9DÜSSSS^#91#9DU#91#9DU#11#11FFG#91#9DDG#91#9DD
";
  386  IF J = 3 AND I = . THEN 
           PRINT "
#11#11#9D#9D#9D#9D#9D#9D#9D#9D#9D#9D
";:
       FOR K = 1 TO 3
  387  IF J = 3 AND I = . THEN 
           PRINT "
#12Ü#11#9DT#11#9DT#91#91SSSS^#11#9DU#11#9DU#11#9D#9D#9D#9D#9D#9D#92
";:
       NEXT 
  390  NEXT :
       RETURN 
// -----------------------------

  800  PRINT "
ENTZÜNDE 
";:
       IF  PEEK (49355) THEN 
           PRINT "
LAMPE#13
":
      F = 1E38:
       GOTO 810
  801  PRINT "
FACKEL#13
":
       IF F THEN 
           SYS 5681:
       PRINT "
#96WOZU?#13
":
       GOTO 100
  802  IF  PEEK (49356) = . THEN 
           SYS 5681:
       PRINT "
#96KEINE VORHANDEN!#13
":
       GOTO 100
  804  POKE 49356, PEEK (49356) - 1:
      F = 100
  810  SYS 5681:
       PRINT "
#9EBRENNT!#13
":
       SYS 6041:
       POKE S + 5,10:
       POKE S + 4,129
  812  FOR I = 30 TO 99:
       POKE S + 1,I:
       NEXT :
       GOSUB 300:
       GOTO 100
  900  PRINT "
KLETTERN#13
":
       SYS 5681:
       IF  PEEK (P) <  > 3 AND  PEEK (P) <  > 4 THEN 
           PRINT "
#96NICHT HIER!#13
":
       GOTO 100
  910  PRINT "
#9EDU KLETTERST DIE#13
"
  920  SYS 5681:
       PRINT "
LEITER HINAB
";:
      P = P - 400:
       IF  PEEK (P + 400) = 3 THEN 
          P = P + 800:
       PRINT "
#9DUF#13
"
  930  SYS 5681:
      J =  INT ((P - 5922) / 400):
       PRINT "
NACH GEWÖLBE
"J"
#9D.#13#05
" SPC( 15)J
  940  IF J THEN 
           GOSUB 300:
       GOTO 100
  950  SYS 5681:
       PRINT "
#91#9ENACH DRAUSSEN. #13
":
       POKE 833,1:
       POKE 838,1:
       POKE 843,1:
       SYS 49650
  960  GOSUB 6100:
       PRINT "
#9F
":
       FOR I = 1 TO 9:
       PRINT  LEFT$ (D$,9 + I) SPC( 10)"
#C9#C9#C9#C9
":
       IF I = 7 THEN 
           PRINT "
#95
"
  970  NEXT :
       FOR I = 0 TO 4E3:
       NEXT :
       POKE 2,0
  975  PRINT "
#90#93L#CF
" CHR$ (34)"
DDD.KONJ
" CHR$ (34)"
,8
"
  980  PRINT "
#11#11#11#11R#D5
":
       POKE 631,19:
       POKE 632,13:
       POKE 633,13:
       POKE 198,3:
       NEW 
 1000  POKE 830, PEEK (50420 + M):
       POKE 831, PEEK (50452 + M):
       SYS 50976
 1010  SYS 5681:
       PRINT "
#9E
"M$(M);:
       SYS 5681:
       PRINT "
GREIFT AN!#13
":
       SYS 5681:
       SYS 6041
 1012  POKE S + 6,250:
       POKE S + 13,250:
       POKE S + 4,33:
       POKE S + 11,33
 1016  FOR I = 5 TO 80:
       POKE S + 1,I:
       POKE S + 8,90 - I:
       NEXT :
       POKE S + 4,32:
       POKE S + 11,32:
       POKE 198,0
 1070 LD = 2:
       SYS 5681:
       PRINT "
#05--- KONFLIKT ---#13
":
       SYS 5681:
       SYS 5681:
       PRINT "
#9EDU BENUTZT#13
"
 1072  SYS 5681:
      WA =  PEEK (49246):
       PRINT W$(WA)"
,#13
":
       SYS 5681:
      RS =  PEEK (49247)
 1074 SH =  PEEK (49167):
       PRINT W$(RS + 19);
 1075  IF SH THEN 
           PRINT "
,#13
":
       SYS 5681:
       PRINT  MID$ ("
KLEINERGROSSER
",SH * 7 - 6,7)"
 SCHILD
";
 1076  PRINT "
.#13
":
       SYS 5681:
      ML =  INT (1.5 *  PEEK (50628 + M)):
      MG = .
 1100 KP = 1:
       GOSUB 3500:
       SYS 5681
 1108  IF  PEEK (49279) THEN 
           PRINT "
#9CDU BIST BETÄUBT.#13
":
       GOTO 2000
 1109  PRINT "
#05@#C7#9D
";:
      Z = .
 1110 Z = Z + 1:
       IF Z > 600 THEN 
           PRINT "
WARTEN...#13
":
       GOTO 2000
 1120  GET U$:
       IF U$ = "
" GOTO 1110
 1130  IF U$ = "
#91
" OR U$ = "
#9D
" OR U$ = "
#1D
" GOTO 1200
 1132  IF U$ = "
#11
" GOTO 1800
 1134  IF U$ = "
 
" THEN 
          Z = 666:
       GOTO 1110
 1135  IF U$ = "
A
" GOTO 1300
 1136  IF U$ = "
W
" THEN 
           GOSUB 3000:
       GOTO 2000
 1137  IF U$ = "
Z
" THEN 
          H = 1:
      ZZ = 0:
       GOSUB 4000:
       GOTO 1210
 1138  IF U$ = "
_
" THEN 
           GOSUB 31000:
       GOTO 2000
 1140  IF U$ = "
I
" THEN 
           GOSUB 14000:
       GOTO 2000
 1190  PRINT "
WIE BITTE..?#13
":
       GOTO 2000
 1200  PRINT "
BEWEGEN...?#13
":
       SYS 5681:
       PRINT "
#9EERST KÄMPFEN!#13
":
       GOTO 2000
 1210  IF ZZ GOTO 1310
 1220  GOTO 2000
 1300  IF (WA > 10 AND WA < 16) OR WA = 17 THEN 
           IF LD < 2 GOTO 1900
 1301 ZZ = .:
       PRINT "
ATTACKE MIT#13
":
       SYS 5681:
       PRINT W$(WA);
 1310 LD = 0:
      Z = 0:
       IF WA > 10 AND WA < 18 THEN 
          Z = 1
 1315  IF ZZ THEN 
          Z = 1:
      LD = 2
 1316  IF ZZ > 2 THEN 
           IF ZZ = 5 THEN 
          Z = 0
 1510  SYS 5681:
       PRINT "
#96
"M$(M);:
       SYS 5681:
      J =  FN R(20):
       IF ZZ THEN 
          J = 3
 1511  IF J <  = AT GOTO 1520
 1512  PRINT "
VERFEHLT!#13
";:
       GOSUB 30050:
       GOTO 2000
 1520  IF J < 3 THEN 
           PRINT "
IST DURCH EINEN#13
":
       SYS 5681:
       POKE 53281,6:
       GOSUB 30054
 1521  IF J = 2 THEN 
           PRINT "
GUTEN TREFFER#13
":
       GOTO 1602
 1522  IF J = 1 THEN 
           PRINT "
GLÜCKSTREFFER#13
":
       GOTO 1602
 1530  IF  PEEK (50756 + M) <  FN R(20) OR ZZ > . GOTO 1600
 1540  GOSUB 30052:
       PRINT "
HAT PARIERT.#13
":
       GOTO 2000
 1600  PRINT "
IST 
";:
       POKE 53281,5:
       GOSUB 30054
 1602 K =  PEEK (50512 + WA):
      L =  INT (K / 3 + .8):
      K = L +  FN R(K - L):
       IF SR > 11 THEN 
          K = K +  INT ((SR - 10) / 2)
 1603  IF ZZ THEN 
          K = 13:
       IF ZZ > 1 THEN 
          K = .:
       IF ZZ > 2 THEN 
          K = 21:
       IF ZZ > 3 THEN 
          K = 13:
       IF ZZ = 5 THEN 
          K = 36
 1604 L =  PEEK (50692 + M):
       IF J = 1 THEN 
          L = .
 1606 K = K - L:
       IF K < 1 THEN 
          K = 1
 1610 ML = ML - K:
       POKE 53281,0:
       IF ML < . THEN 
          ML = .:
      Z2 = 1:
       GOTO 1700
 1620  SYS 5681:
      L = ML /  PEEK (50628 + M):
       IF L > .8 THEN 
           PRINT "
KAUM#13
":
       SYS 5681:
       PRINT "
ANGEKRATZT.#13
":
       GOTO 1632
 1622  IF L > .6 THEN 
           PRINT "
LEICHT#13
":
       SYS 5681:
       PRINT "
VERLETZT.#13
":
       GOTO 1632
 1624  IF L > .4 THEN 
           PRINT "
VERWUNDET.#13
":
       GOTO 1632
 1626  IF L > .2 THEN 
           PRINT "
SCHWER#13
":
       SYS 5681:
       PRINT "
VERLETZT.#13
":
       GOTO 1632
 1628  PRINT "
AUF DER#13
":
       SYS 5681:
       PRINT "
FLUCHT.#13
"
 1632  IF (ZZ > . AND ZZ <  > 2) OR (ZZ = . AND WA <  > 13) GOTO 2000
 1640 MG = MG + 1 - (ZZ = 2):
       IF MG > 9 THEN 
          MG = 9
 1650  SYS 5681:
       PRINT "
#99
"M$(M);:
       SYS 5681:
       PRINT "
IST MIT FAKTOR
"MG;
 1660  SYS 5681:
       PRINT "
VERGIFTET.#13
":
       GOTO 2000
 1700  GOSUB 13100
 1710 G =  FN R( INT ((P - 6178) / 144) * 4) + 1:
       GOTO 3200
 1800  PRINT "
RÜCKZUG#13
":
       SYS 6041:
       POKE S + 5,10:
       POKE S + 4,33:
       FOR I = 5 TO 50:
       POKE S + 1,I:
       NEXT 
 1802  SYS 5681:
       SYS 5681:
       PRINT "
-- DU FLIEHST --#13
":
       SYS 5681:
       SYS 5681
 1810 L =  PEEK (50596 + M)
 1820 I = 0:
       PRINT "
#9EFÜR DEINE#13
":
       SYS 5681:
       PRINT "
FEIGHEIT WERDEN#13
"
 1822  SYS 5681:
       PRINT "
DIR 
"L"
PUNKTE#13
":
       SYS 5681:
       PRINT "
ABGEZOGEN!#13
"
 1830 L =  - L:
       SYS 5681:
      J = 99:
       GOSUB 13130:
      A = A + 2 + 4 * (A > 1):
      T = .:
       GOSUB 300:
       GOTO 99
 1900 LD = 1:
       PRINT W$(WA);:
       SYS 5681:
       PRINT "
LADEN...#13
"
 2000 LD = LD + 1:
       POKE 198,0
 2002  IF  PEEK (49283) GOTO 1100
 2004 J =  PEEK (49282):
       IF J THEN 
           IF J / 2 >  INT (J / 2) GOTO 1100
 2005  IF  FN R(7) = 7 AND AS < AM THEN 
           GOSUB 3302
 2012  IF MG = . GOTO 2020
 2013 ML = ML -  FN R(MG):
       IF ML GOTO 2020
 2015  SYS 5681:
       PRINT "
#96
"M$(M);:
       SYS 5681:
       PRINT "
WURDE DURCH GIFT#13
"
 2016 Z2 = 2:
       GOTO 1700
 2020 Z1 = 1:
       IF ML /  PEEK (50628 + M) < .21 AND 1 =  FN R(3) GOTO 2800
 2030  IF M = 11 OR M = 23 OR M = 29 GOTO 2910
 2040  IF M = 19 AND  FN R(3) = 1 GOTO 2940
 2050  IF  FN R(20) >  PEEK (50724 + M) THEN 
           GOSUB 30050:
       GOTO 1100
 2320  IF  FN R(20) > PA OR  PEEK (49279) > . GOTO 2340
 2330  GOSUB 30052:
       SYS 5681:
       PRINT "
#9CDU PARIERST.#13
":
       GOTO 1100
 2340  POKE 53281,2:
       GOSUB 30054:
      K =  PEEK (50660 + M) / 2 + 2
 2341 ZZ = RS:
       IF  PEEK (49284) THEN 
          ZZ = ZZ + ZZ
 2342 L =  INT (K / 3 + .8):
      K = L +  FN R(K - L) - ZZ + SH * ( PEEK (49279) = 0):
       IF K < 1 THEN 
          K = 1
 2344  SYS 5681:
       PRINT "
#99
"M$(M);:
       SYS 5681:
       PRINT "
HAT DICH#13
":
       SYS 5681
 2345  IF K = 1 OR K > 12 THEN 
           PRINT "
SEHR 
";
 2346  IF K < 4 THEN 
           PRINT "
SCHWACH#13
":
       GOTO 2350
 2347  IF K < 7 THEN 
           PRINT "
LEICHT#13
":
       GOTO 2350
 2348  IF K < 10 GOTO 2350
 2349  PRINT "
SCHWER#13
"
 2350  SYS 5681:
       PRINT "
GETROFFEN!#9D
";:
       POKE 53281,0:
      HP = HP - K:
       IF HP < 1 THEN 
          HP = .:
      K = 3:
       GOTO 13000
 2351  POKE 49231,HP / 256:
       POKE 49230,HP - 256 *  PEEK (49231)
 2360 J =  PEEK (50788 + M):
       IF J = . OR  FN R(20) <  = GE GOTO 2490
 2400  PRINT "
 #13
":
       SYS 5681:
       PRINT "
UND 
";:
       IF J = 1 GOTO 2420
 2410  PRINT "
BETÄUBT!#13
":
       POKE 49279, FN R(6) + 1:
       SYS 5681:
       POKE 55723,4:
       POKE 1451,2:
       GOTO 2490
 2420  PRINT "
VERGIFTET!#13
":
      J =  PEEK (49245) + 1:
       IF J > 9 THEN 
          J = 9
 2430  POKE 49245,J:
       POKE 1449,J + 48:
       POKE 55720,13
 2490  PRINT "
#13#11#11
" SPC( 31)"
#99
" RIGHT$ ("
00
" +  MID$ ( STR$ (HP),2),3):
       GOTO 1100
 2800  GOSUB 30052:
       SYS 5681:
       PRINT "
#99
"M$(M);
 2810  SYS 5681:
       PRINT "
IST GEFLOHEN.#13
":
       GOSUB 300:
      L = 1:
       GOTO 1710
 2910  IF  RND (TI) > .2 GOTO 2050
 2920  POKE 53281,1:
       SYS 5681:
       GOSUB 30052:
       IF  FN R(20) <  = KG THEN 
           POKE 53281,0:
       GOTO 1100
 2922  IF  PEEK (49285) THEN 
           POKE 53281,10:
       POKE 53280,10:
       GOSUB 30052:
       POKE 53281,0:
       POKE 53280,0
 2924  IF  PEEK (49285) THEN 
           SYS 5681:
       PRINT "
#9AZAUBERBANN#13
":
       SYS 5681:
       PRINT "
ABGEWEHRT!#13
":
       GOTO 1100
 2925  PRINT "
#9CDIE MAGIE DES#13
":
       SYS 5681:
       PRINT M$(M)"
S#13
":
       SYS 5681:
       PRINT "
HAT DICH#13
"
 2930  SYS 5681:
       POKE 53281,0:
       GOSUB 30054:
       GOTO 2410
 2940  POKE 53281,8:
       SYS 5681:
       GOSUB 30052
 2942  PRINT "
#81KOBOLD STIEHLT#13
":
       SYS 5681:
       PRINT "
DIR NAHRUNG!#13
"
 2944  POKE 53281,0:
      NA = NA -  FN R(NA / 4) - 4:
       IF NA < 1 THEN 
          NA = .
 2946  POKE 49244,NA:
       GOSUB 10000:
       GOTO 1100
 3000  PRINT "
WAFFE BENUTZEN#13
":
       SYS 5681:
       PRINT "
#9E-WELCHE? (A-S) #05#C7#9D
";:
      Z = 0
 3010 Z = Z + 1:
       GET U$:
       IF Z < 600 AND U$ = "
" GOTO 3010
 3020  IF U$ < "
A
" OR U$ > "
S
" THEN 
          U$ =  CHR$ ( PEEK (49246) + 65)
 3030  PRINT U$;:
       SYS 5681:
      J =  ASC (U$) - 65:
       PRINT "
#96
"W$(J);:
       SYS 5681
 3040  IF J THEN 
           IF  PEEK (49247 + J) = . THEN 
           PRINT "
HAST DU NICHT!#13
":
       SYS 5681:
       RETURN 
// -----------------------------

 3042  IF GE <  PEEK (50540 + J) THEN 
           PRINT "
DU BIST NICHT#13
":
       SYS 5681:
       PRINT "
GESCHICKT GENUG,#13
"
 3044  IF GE <  PEEK (50540 + J) THEN 
           SYS 5681:
       PRINT "
EINE SOLCHE#13
":
       SYS 5681:
       PRINT "
WAFFE ZU FÜHREN.#13
":
       RETURN 
// -----------------------------

 3050 WA = J:
       POKE 49246,J:
       PRINT "
BEREIT.#13
":
       SYS 5681:
      SH = 0:
       POKE 49167,0:
       IF J > 6 AND J < 18 THEN 
           RETURN 
// -----------------------------

 3060 I = 49274:
       IF J < 18 THEN 
           SYS 5681:
       GOTO 3080
 3070  PRINT "
#9E-SCHILD? (J/N) #05#C7#9D
";
 3072  GET U$:
       IF U$ = "
N
" THEN 
           PRINT "
N#13
":
       RETURN 
// -----------------------------

 3074  IF U$ = "
J
" THEN 
           PRINT "
J#13
":
       SYS 5681:
       GOTO 3080
 3076  GOTO 3072
 3080  IF  PEEK (I) THEN 
          SH = 2:
       POKE 49167,2:
       PRINT "
#96DU BENUTZT DEN#13
":
       SYS 5681:
       PRINT "
GROSSEN SCHILD.#13
":
       RETURN 
// -----------------------------

 3082  IF  PEEK (49273) THEN 
          SH = 1:
       POKE 49167,1:
       PRINT "
#96DU BENUTZT DEN#13
":
       SYS 5681:
       PRINT "
KLEINEN SCHILD.#13
"
 3084  RETURN 
// -----------------------------

 3100  PRINT "
RÜSTUNG ANLEGEN#13
":
       SYS 5681:
       PRINT "
#9E-WELCHE? (A-G) #05#C7#9D
";:
      Z = 0
 3110 Z = Z + 1:
       GET U$:
       IF Z < 600 AND U$ = "
" GOTO 3110
 3120  IF U$ < "
A
" OR U$ > "
G
" THEN 
          U$ =  CHR$ ( PEEK (49247) + 65)
 3130  PRINT U$;:
       SYS 5681:
      J =  ASC (U$) - 65:
       PRINT "
#96
"W$(J + 19);:
       SYS 5681
 3140  IF J THEN 
           IF  PEEK (49266 + J) = . THEN 
           PRINT "
HAST DU NICHT!#13
":
       SYS 5681:
       RETURN 
// -----------------------------

 3142  IF SR <  PEEK (50559 + J) THEN 
           PRINT "
DU BIST ZU#13
":
       SYS 5681:
       PRINT "
SCHWACH, UM EINE#13
":
       SYS 5681
 3144  IF SR <  PEEK (50559 + J) THEN 
           PRINT "
SO SCHWERE RÜS-#13
":
       SYS 5681:
       PRINT "
TUNG ZU TRAGEN.#13
":
       RETURN 
// -----------------------------

 3150 RS = J:
       POKE 49247,J:
       PRINT "
ANGELEGT.#13
":
       SYS 5681:
       RETURN 
// -----------------------------

 3200  SYS 5681:
       PRINT "
#05----- SIEG -----#13
":
       SYS 5681:
       IF L < 1 OR  PEEK (50820 + M) = . GOTO 99
 3210  SYS 5681:
       PRINT "
#9EDU ERBEUTEST#13
":
       SYS 5681:
       PRINT  MID$ ( STR$ (G),2)"
 GOLDSTÜCKE!#13
"
 3220  SYS 5681:
      GP = GP + G:
       IF GP > 5E4 THEN 
          GP = 5E4
 3230  POKE 49243,GP / 256:
       POKE 49242,GP - 256 *  PEEK (49243):
       GOSUB 10000:
       GOTO 99
 3250  GOSUB 30054:
       SYS 5681
 3252  PRINT "
#99DAS GIFT WIRKT!
":
      HP = HP -  FN R( PEEK (49245)):
      K = 1
 3260  IF HP < 1 THEN 
          HP = .:
       GOTO 13000
 3262  POKE 49231,HP / 256:
       POKE 49230,HP - 256 *  PEEK (49231):
       GOTO 10000
 3280  GOSUB 30054:
       SYS 5681
 3282  PRINT "
#9FDU HUNGERST!
":
      HP = HP - 1:
      K = 2:
       GOTO 3260
 3296  POKE 49245,J:
       POKE 1449,J + 48:
       POKE 55720,13:
       RETURN 
// -----------------------------

 3300  IF  FN R(2) > 1 OR AS =  > AM THEN 
           RETURN 
// -----------------------------

 3302 AS = AS + 1:
       POKE 49235,AS / 256:
       POKE 49234,AS - 256 *  PEEK (49235)
 3304  PRINT "
#13#11#11#11#9F
" SPC( 31) RIGHT$ ("
00
" +  MID$ ( STR$ (AS),2),3):
       RETURN 
// -----------------------------

 3404  PRINT "
#99VERGIFTET!#13
":
       SYS 5681:
      J =  PEEK (49245) + 1:
       IF J > 9 THEN 
          J = 9
 3405  GOTO 3296
 3500 J =  PEEK (49282):
       IF J THEN 
           POKE 49282,J - 1:
       IF J = 1 THEN 
           POKE 1456,32
 3502 J =  PEEK (49283):
       IF J THEN 
           POKE 49283,J - 1:
       IF J = 1 THEN 
           POKE 1458,32
 3504 J =  PEEK (49284):
       IF J THEN 
           POKE 49284,J - 1:
       IF J = 1 THEN 
           POKE 1454,32
 3505 J =  PEEK (49285):
       IF J THEN 
           POKE 49285,J - 1:
       IF J = 1 THEN 
           POKE 1454,32
 3506 J =  PEEK (49279):
       IF J THEN 
           POKE 49279,J - 1:
       IF J = 1 THEN 
           POKE 1451,32
 3590  RETURN 
// -----------------------------

 4000  PRINT "
ZAUBERSPRUCH#13
":
       SYS 5681:
       PRINT "
#9E-WELCHER? #05#C7#9D
";:
      Z = 0
 4010 Z = Z + 1:
       GET U$:
       IF Z < 600 AND U$ = "
" GOTO 4010
 4020  IF U$ =  > "
A
" AND U$ <  = "
P
" GOTO 4040
 4030  PRINT "
#9EKEINER#13
":
       RETURN 
// -----------------------------

 4040  PRINT U$;:
       SYS 5681:
      J =  ASC (U$) - 64:
       PRINT Z$(J - 1);:
       SYS 5681
 4041  IF J = 5 OR J = 12 OR J = 13 OR J = 8 OR J = 16 GOTO 4060
 4042  IF  PEEK (49303 + J) = 0 THEN 
           PRINT "
#96KANNST DU NICHT!#13
":
       SYS 5681:
       RETURN 
// -----------------------------

 4044 Z =  PEEK (50495 + J):
       FOR I = 0 TO 7:
       IF (2 ^ I AND Z) = . GOTO 4046
 4045  IF  PEEK (49336 + I) = . THEN 
           PRINT "
#96ZU WENIG#13
":
       SYS 5681:
       PRINT "
INGREDENZIEN!#13
":
       SYS 5681:
       RETURN 
// -----------------------------

 4046  NEXT :
       PRINT "
#81DU KONZENTRIERST#13
":
       SYS 5681:
       PRINT "
DICH...#13
":
       SYS 5681
 4047  FOR I = 0 TO 7:
       IF (2 ^ I AND Z) THEN 
           POKE 49336 + I, PEEK (49336 + I) - 1
 4048  NEXT 
 4050  IF J < 9 THEN 
           ON J GOTO 4120,4150,4250,4200,4060,4350,4400,4060
 4052  ON J - 8 GOTO 4500,4550,4600,4060,4050,4750,4800,4060
 4060  SYS 5681:
       PRINT "
#96WOZU JETZT?#13
":
       SYS 5681:
       RETURN 
// -----------------------------

 4085  SYS 5681:
       PRINT "
#96NICHT GENUG#13
":
       SYS 5681:
       PRINT "
ASTRALENERGIE!#13
":
       RETURN 
// -----------------------------

 4090  SYS 5681:
       SYS 6041:
       PRINT "
#96GELINGT NICHT!#13
"
 4091  SYS 5681:
       POKE S + 5,10:
       POKE S + 4,33:
       FOR I = 0 TO 45:
       POKE S + 1,46 - I:
       NEXT :
       GOTO 3304
 4100 AS = AS - Z:
       POKE 49235,AS / 256:
       POKE 49234,AS - 256 *  PEEK (49235):
       GOTO 10000
 4110  SYS 5681:
       PRINT "
#9FES GELINGT!#13
":
       RETURN 
// -----------------------------

 4120 Z = 2:
       IF AS < Z GOTO 4085
 4121  IF H = 1 GOTO 4060
 4124  GOSUB 4100:
       IF  FN R(20) > CH GOTO 4090
 4126  GOSUB 4110:
       GOSUB 3304:
       POKE 53281,7:
       FOR I = 1 TO 9:
       GOSUB 30050:
       NEXT :
       POKE 53281,0:
      F = 100
 4128  GOTO 300
 4150 Z = 5:
       IF AS < Z GOTO 4085
 4154  GOSUB 4100:
       IF  FN R(20) > CH GOTO 4090
 4160  GOSUB 4110:
       GOSUB 3304:
       SYS 6041:
       POKE S + 5,10:
       POKE 53281,13:
       POKE 53281,13:
       POKE S + 4,17
 4162  FOR I = 1 TO 66:
       POKE S + 1,I:
       NEXT :
       POKE 53281,0:
       POKE 53280,0
 4170  IF  PEEK (49245) = 0 OR AS < 2 THEN 
           RETURN 
// -----------------------------

 4172  POKE 49245, PEEK (49245) - 1:
      AS = AS - 3:
       GOSUB 3302:
       GOSUB 10008:
       GOTO 4170
 4200  IF AS < 10 GOTO 4085
 4201 Z = 10:
       GOSUB 4100:
       IF  FN R(20) > CH GOTO 4090
 4202  GOSUB 4110:
       SYS 5681:
       PRINT "
#9E-WIEVIEL? 
";
 4204  PRINT "
#1F000#9D#9D#9D
";:
      J = 0:
       FOR I = 0 TO 2
 4206  GET U$:
       IF U$ =  CHR$ (20) THEN 
           PRINT  LEFT$ ("
#9D#9D
",I);:
       GOTO 4204
 4208  IF U$ < "
0
" OR U$ > "
9
" GOTO 4206
 4210  PRINT "
#05
"U$;:
      J = J + ( ASC (U$) - 48) * 10 ^ (2 - I):
       NEXT :
       IF J > AS THEN 
          J = AS
 4214  GOSUB 3304:
       SYS 6041:
       POKE S + 5,10:
       POKE 53281,5:
       POKE 53281,5:
       POKE S + 4,17
 4216  FOR I = 1 TO 55:
       POKE S + 1,I:
       NEXT :
       FOR I = 1 TO 55:
       POKE S + 1,56 - I:
       NEXT :
       POKE 53281,0:
       POKE 53280,0
 4218  IF J > HM - HP THEN 
          J = HM - HP
 4220 AS = AS - J - 1:
      HP = HP + J:
       GOSUB 3302:
       POKE 49231,HP / 256:
       POKE 49230,HP - 256 *  PEEK (49231):
       GOTO 10000
 4250 Z = 10:
       IF AS < Z GOTO 4085
 4251  IF KP = . GOTO 4060
 4252  IF  PEEK (49285) GOTO 4090
 4253  GOSUB 4100:
       IF  FN R(20) > CH GOTO 4090
 4254  GOSUB 4110:
       GOSUB 3304:
       SYS 6041:
       POKE S + 5,10:
       POKE 53281,2:
       POKE 53281,2:
       POKE S + 4,33
 4262  FOR I = 0 TO 150 STEP 3:
       POKE S + 1,153 - I:
       NEXT :
       POKE 53281,0:
       POKE 53280,0
 4264  POKE 49284,13:
       POKE 55726,7:
       POKE 1454,19:
       RETURN 
// -----------------------------

 4350 Z = 15:
       IF AS < Z GOTO 4085
 4351  IF KP = . GOTO 4060
 4352  IF  PEEK (49284) GOTO 4090
 4353  GOSUB 4100:
       IF  FN R(20) > CH GOTO 4090
 4354  GOSUB 4110:
       GOSUB 3304:
       SYS 6041:
       POKE S + 5,10:
       POKE 53281,10:
       POKE 53281,10:
       POKE S + 4,33
 4362  FOR I = 3 TO 193 STEP 2:
       POKE S + 1,I:
       NEXT :
       POKE 53281,0:
       POKE 53280,0
 4364  POKE 49285,13:
       POKE 55726,7:
       POKE 1454,12:
       RETURN 
// -----------------------------

 4400 Z = 20:
       IF AS < Z GOTO 4085
 4401  IF KP = . GOTO 4060
 4403  GOSUB 4100:
       IF  FN R(20) > CH GOTO 4090
 4404  GOSUB 4110:
       GOSUB 3304:
       SYS 6041:
       POKE S + 5,11:
       POKE S + 4,17:
       FOR I = 3 TO 150 STEP 3
 4406  POKE S + 1,I:
       POKE 53281,3:
       POKE 53280,3:
       POKE S + 1,153 - I:
       POKE 53281,0:
       POKE 53280,0:
       NEXT 
 4408  POKE 49282,23:
       POKE 55728,3:
       POKE 1456,7:
       RETURN 
// -----------------------------

 4500 Z = 5:
       IF AS < Z GOTO 4085
 4501  IF KP = . GOTO 4060
 4503  GOSUB 4100:
       IF  FN R(20) > CH GOTO 4090
 4504  GOSUB 4110:
       GOSUB 3304:
       SYS 6041:
       POKE S + 5,10:
       POKE S + 4,33:
       POKE 53281,14:
       POKE 53280,14
 4506  FOR I = 153 TO 3 STEP  - 3:
       POKE S + 1,I:
       NEXT :
       POKE 53281,0:
       POKE 53280,0:
      ZZ = 1:
       RETURN 
// -----------------------------

 4550 Z = 7:
       IF AS < Z GOTO 4085
 4551  IF KP = . GOTO 4060
 4552  GOSUB 4100:
       IF  FN R(20) > CH GOTO 4090
 4554  GOSUB 4110:
       GOSUB 3304:
       SYS 6041:
       POKE S + 5,10:
       POKE S + 4,129:
       POKE 53281,13:
       POKE 53280,13
 4556  FOR I = 123 TO 3 STEP  - 3:
       POKE S + 1,I:
       NEXT :
       POKE 53281,0:
       POKE 53280,0:
      ZZ = 2:
       RETURN 
// -----------------------------

 4600 Z = 10:
       IF AS < Z GOTO 4085
 4601  IF KP = . GOTO 4060
 4602  GOSUB 4100:
       IF  FN R(20) > CH GOTO 4090
 4604  GOSUB 4110:
       GOSUB 3304:
       SYS 6041:
       POKE S + 5,10:
       POKE S + 4,129:
       POKE 53281,10:
       POKE 53280,10
 4606  FOR I = 3 TO 123 STEP 3:
       POKE S + 1,I:
       NEXT :
       POKE 53281,0:
       POKE 53280,0:
      ZZ = 3:
       RETURN 
// -----------------------------

 4750 Z = 25:
       IF AS < Z GOTO 4085
 4751  IF KP = . GOTO 4060
 4752  GOSUB 4100:
       IF  FN R(20) > CH GOTO 4090
 4754  GOSUB 4110:
       GOSUB 3304:
       SYS 6041:
       POKE S + 5,11:
       POKE S + 4,17:
       POKE 53281,15:
       POKE 53280,15
 4756  FOR I = 1 TO 7:
       FOR J = 3 TO 99 STEP 3:
       POKE S + 1,J:
       NEXT J,I:
       POKE 53281,0:
       POKE 53280,0
 4758  POKE 49283,13:
       POKE 55730,15:
       POKE 1458,26:
       RETURN 
// -----------------------------

 4800 Z = 20:
       IF AS < Z GOTO 4085
 4801  IF KP = . GOTO 4060
 4802  GOSUB 4100:
       IF  FN R(20) > CH GOTO 4090
 4804  GOSUB 4110:
       GOSUB 3304:
       SYS 6041:
       POKE S + 5,11:
       POKE S + 4,129:
       POKE 53281,6:
       POKE 53280,6
 4806  FOR I = 10 TO 80 STEP 10:
       FOR J = I TO I + 30:
       POKE S + 1,J:
       NEXT J,I:
       POKE 53281,0:
       POKE 53280,0
 4808 ZZ = 5:
       RETURN 
// -----------------------------

 4990  SYS 6041:
       POKE S + 5,11:
       POKE S + 1,3:
       POKE S + 4,129
 4992  POKE 53281,Z:
       POKE 53280,Z:
       FOR J = 0 TO 99:
       NEXT :
       RETURN 
// -----------------------------

 5200 K =  INT ((P - 5922) / 400):
      H =  FN R(9) - 1:
       IF H / 2.5 > K GOTO 240
 5202  IF H = . THEN 
          G =  FN R(K * 4) + 1:
       SYS 5681:
       PRINT "
#9EDU FINDEST#13
":
       SYS 5681:
       PRINT "
EINE
";
 5204  IF H = . THEN 
           PRINT  MID$ ("
N BEUTEL TRUHE
", FN R(1) * 8 + 1,8)"
 MIT#13
"
 5206  IF H = . THEN 
           SYS 5681:
       PRINT  MID$ ( STR$ (G),2)"
 GOLDSTÜCKEN!#13
":
       FOR I = 1 TO G * 1.5:
       GOSUB 30052:
       NEXT 
 5208  IF H = . GOTO 3220
 5210  SYS 5681:
       PRINT "
#9EIN EINE FALLE#13
":
       SYS 5681:
       PRINT "
GELAUFEN:#13
":
       SYS 5681
 5212  IF GE >  FN R(22) THEN 
           GOSUB 30052:
       PRINT "
#9BGERADE NOCH#13
":
       SYS 5681:
       PRINT "
AUSGEWICHEN.#13
":
       GOTO 100
 5220  IF H > 1 GOTO 5230
 5221  POKE 53281,4:
       GOSUB 30054:
       PRINT "
#9BSTEINSCHLAG!#13
":
      J =  FN R(6) + 1
 5222  POKE 53281,0:
       SYS 5681:
       PRINT "
#96
" MID$ ( STR$ (J),2)"
 SCHADENSPKT.#13
"
 5223 HP = HP - J:
       IF HP < 1 THEN 
          HP = .
 5224  POKE 49231,HP / 256:
       POKE 49230,HP - 256 *  PEEK (49231):
       GOSUB 10000:
       IF HP GOTO 100
 5225 K = 4:
       GOTO 13000
 5230  IF H > 2 GOTO 5240
 5231  IF F = . GOTO 100
 5232  PRINT "
#9AMAGISCHER WIND#13
":
       SYS 5681:
       PRINT "
BLÄST LICHT AUS!#13
"
 5233 F = .:
       GOSUB 30050:
       GOSUB 300:
       GOTO 100
 5240  IF H > 3 GOTO 5250
 5241  POKE 53281,3:
       PRINT "
#9BSÄURE TROPFT#13
":
       SYS 5681:
       PRINT "
HERAB!#13
":
       FOR I = 0 TO 9:
       GOSUB 30000:
       NEXT 
 5242 J =  FN R(11) + 1:
       GOTO 5222
 5250  IF H > 4 GOTO 5260
 5251  POKE 53281,13:
       GOSUB 30050:
       PRINT "
#99GAS STRÖMT AUS;#13
":
       SYS 5681:
       PRINT "
DU BIST#13
"
 5252  SYS 5681:
       POKE 53281,0:
       GOSUB 3404:
       GOTO 100
 5260  IF H > 5 GOTO 5270
 5261 J =  FN R(19) + 1:
       PRINT "
#9CMAGISCHES FELD#13
":
       SYS 5681:
       PRINT "
ENTZIEHT DIR
"J;:
       SYS 5681
 5262  PRINT "
ASTRALPUNKTE!#13
":
       FOR I = 0 TO 9:
       POKE 53281,3:
       GOSUB 30050:
       POKE 53281,4:
       GOSUB 30054:
       NEXT 
 5263  POKE 53281,.:
      AS = AS - J:
       IF AS < 1 THEN 
          AS = .
 5264  POKE 49235,AS / 256:
       POKE 49234,AS - 256 *  PEEK (49235):
       GOSUB 10000:
       GOTO 100
 5270  IF H > 6 GOTO 5280
 5271  POKE 53281,14:
       PRINT "
#9BEIN PFEIL AUS#13
":
       SYS 5681:
       PRINT "
DEM DUNKEL!#13
":
       GOSUB 30050
 5272 J =  FN R(17) + 1:
       GOTO 5222
 5280  IF H > 7 GOTO 5290
 5281  POKE 53281,5:
       GOSUB 30054:
       PRINT "
#99DURCH EINE#13
":
       SYS 5681:
       PRINT "
NADELFALLE#13
"
 5282  POKE 49245, PEEK (49245) + 1:
       SYS 5681:
       PRINT "
UM ZWEI STUFEN#13
":
       GOTO 5252
 5290  POKE 53281,7:
       PRINT "
#81EXPLOSION!#13
":
       SYS 6041:
       POKE S + 5,12:
       POKE S + 1,3:
       POKE S + 4,129
 5292 J =  FN R(26) + 1:
       GOTO 5222
 5300  PRINT "
BENUTZE#13
":
       SYS 5681:
       PRINT "
#9E-WAS? #05
";:
      N$ = "
":
      J = 0
 5310  PRINT "
#C7#9D
";
 5320  GET U$:
       IF U$ < "
A
" OR U$ > "
Z
" GOTO 5320
 5330  PRINT U$;:
      N$ = N$ + U$:
      J = J + 1:
       IF J < 4 GOTO 5310
 5340  IF N$ = "
DOLC
" OR N$ = "
EICH
" GOTO 5370
 5360  SYS 5681:
       PRINT "
#96NICHT JETZT#13
":
       GOTO 5631
 5370  IF  PEEK (49349) = . THEN 
           SYS 5681:
       PRINT "
#96HAST DU NICHT!#13
":
       GOTO 5631
 5380  SYS 5681:
       SYS 5681:
       PRINT "
#9EDU STÖSST DEM#13
":
       SYS 5681:
       PRINT "
GRAFEN KROLOC#13
"
 5381  SYS 5681:
       PRINT "
DEN EICHENDOLCH#13
":
       SYS 5681:
       PRINT "
GENAU IN SEIN#13
"
 5382  SYS 5681:
       PRINT "
UNTOTES HERZ!#13
":
       SYS 5681:
       PRINT  SPC( 15)"
#05#C7#9D
";:
       POKE 198,0:
       WAIT 198,1
 5383  PRINT "
 #13
":
       FOR I = 0 TO 48:
       POKE 831, FN R(15):
       GOSUB 30054:
       SYS 50976:
       NEXT :
       SYS 49650
 5384  SYS 5681:
       PRINT "
#9FGRAF KROLOC#13
":
       SYS 5681:
       PRINT "
IST TOT!
":
       SYS 5681
 5385  POKE 49359,1:
       POKE 198,0:
       GOTO 100
 5600  POKE 833,0:
       POKE 834,1:
       POKE 838,1:
       POKE 843,1:
       POKE 839,1:
       POKE 844,1:
       SYS 49650
 5610  SYS 5681:
       PRINT "
#9FDU BETRITTST#13
":
       SYS 5681:
       PRINT "
EINEN GRÖSSEREN#13
":
       SYS 5681:
       PRINT "
RAUM - DIE#13
"
 5611  SYS 5681:
       PRINT "
GRUFT DES GRAFEN#13
":
       SYS 5681:
       PRINT "
KROLOC!#13
"
 5612  IF  PEEK (49359) GOTO 100
 5614  SYS 5681:
       PRINT  SPC( 15)"
#05#C7#9D
";:
       POKE 198,0:
       WAIT 198,1:
       POKE 198,0:
       PRINT "
 #13
":
       SYS 5681
 5615  POKE 830,24:
       POKE 831,1:
       SYS 50976
 5616  SYS 5681:
       PRINT "
#9FDER GRAF GREIFT#13
":
       SYS 5681:
       PRINT "
DICH SOFORT AN!#13
"
 5617  SYS 6041:
       POKE S + 6,250:
       POKE S + 13,250:
       POKE S + 4,33:
       POKE S + 11,33
 5618  FOR I = 5 TO 120:
       POKE S + 1,I:
       POKE S + 8,130 - I:
       NEXT :
       POKE S + 4,32:
       POKE S + 11,32:
       POKE 198,0
 5620  SYS 5681:
       PRINT "
#05@#C7#9D
";:
      Z = .
 5621 Z = Z + 1:
       IF Z > 100 THEN 
           PRINT "
WARTEN...#13
":
       GOTO 5631
 5622  GET U$:
       IF U$ = "
 
" THEN 
          Z = 666:
      U$ = "
"
 5623  IF U$ = "
A
" GOTO 5640
 5624  IF U$ = "
B
" GOTO 5300
 5625  IF U$ = "
#11
" GOTO 5700
 5626  IF U$ = "
Z
" GOTO 5644
 5627  IF U$ = "
W
" THEN 
           GOSUB 3000:
       GOTO 5631
 5628  IF U$ = "
I
" THEN 
           GOSUB 14000:
       GOTO 5631
 5629  IF U$ = "
" GOTO 5621
 5630  PRINT "
WIE BITTE...?#13
"
 5631  SYS 5681:
       PRINT "
#9FDER GRAF GREIFT#13
":
       SYS 5681:
       PRINT "
DICH AN!#13
":
       SYS 5681:
       SYS 5681
 5632  IF  FN R(20) < 6 THEN 
           PRINT "
#96ER VERFEHLT.#13
":
       GOSUB 30050:
       GOTO 5620
 5633  IF  FN R(20) <  = PA THEN 
           PRINT "
#9CDU PARIERST.#13
":
       GOSUB 30052:
       GOTO 5620
 5634  PRINT "
#96ER TRIFFT DICH!#13
":
       POKE 53281,2:
       GOSUB 30054:
       POKE 53281,0
 5635 HP = HP - 30 + RS + SH:
       IF HP < 1 THEN 
          HP = .
 5636  POKE 49231,HP / 256:
       POKE 49230,HP - 256 *  PEEK (49231):
       GOSUB 10000:
       IF HP = . THEN 
          K = 9:
       GOTO 13000
 5637  GOTO 5620
 5640  PRINT "
ATTACKIERE#13
":
       SYS 5681:
       PRINT "
GRAF KROLOC#13
":
       SYS 5681:
       SYS 5681
 5641  IF  FN R(20) > AT THEN 
           PRINT "
#96DU VERFEHLST.#13
":
       GOSUB 30050:
       GOTO 5631
 5642  PRINT "
#9CDER VAMPIRGRAF#13
":
       SYS 5681:
       PRINT "
PARIERT.#13
":
       GOSUB 30052:
       GOTO 5631
 5644  PRINT "
ZAUBERSPRUCH#13
";:
       SYS 5681:
       SYS 5681:
       PRINT "
#9ADER VAMPIRGRAF#13
"
 5645  SYS 5681:
       PRINT "
ABSORBIERT ALLE#13
";:
       SYS 5681:
       PRINT "
MAGIE...#13
":
       GOSUB 30052:
       GOTO 5631
 5700  PRINT "
DU VERLÄSST#13
":
       SYS 5681:
       PRINT "
DIE GRUFT.#13
":
      P = P - A(A):
       GOSUB 300:
       GOTO 100
 6000  PRINT "
SUCHEN
";:
       FOR I = 0 TO 4:
       PRINT "
.
";:
       FOR J = 0 TO 200:
       NEXT J,I:
       SYS 5681:
       PRINT "
#9EDU FINDEST
";
 6010 H = .:
       IF  PEEK (P + A(A)) = 2 THEN 
          H = 1
 6012  IF  PEEK (P + A(A)) = 5 AND F > . THEN 
          H = 2
 6020  IF H = 1 THEN 
           PRINT "
 EINEN#13
":
       SYS 5681:
       PRINT "
GEHEIMGANG!#13
"
 6022  IF H = 1 THEN 
           GOSUB 30050:
      T = 1:
       IF F THEN 
           GOSUB 6100
 6030  IF H = 2 THEN 
           PRINT "
 EINE#13
":
       SYS 5681:
       PRINT "
SCHWERE HOLZTÜR!#13
":
       GOTO 6200
 6090  IF H = . THEN 
           SYS 5681:
       PRINT "
NICHTS.#13
"
 6099  GOTO 100
 6100  PRINT  LEFT$ (D$,9) SPC( 8)"
#97#D9#DA#C9#C9#C9#C9#DB#DC
"
 6102  FOR I = 1 TO 9:
       PRINT  LEFT$ (D$,9 + I) SPC( 8)"
#C9#C9    #C9#C9
":
       NEXT 
 6104  PRINT  SPC( 8)"
#C9#CC    #CD#C9#11#9D#9D#9D#9D#9D#9D#9D#9D#CC      #CD
":
       RETURN 
// -----------------------------

 6200  PRINT  LEFT$ (D$,9)"
#1D#1D#1D#1D#1D#1D#97#D9#DA#C9#C9#C9#C9#C9#C9#C9#C9#DB#DC
"
 6202  FOR I = 1 TO 9:
       PRINT  LEFT$ (D$,9 + I)"
#1D#1D#1D#1D#1D#1D#C9#C9#95#C9#C9#C9#C9#C9#C9#C9#C9#97#C9#C9
":
       NEXT 
 6204 T = 1:
       PRINT "
#1D#1D#1D#1D#1D#1D#C9#CC        #CD#C9
":
       PRINT "
#91#1D#1D#1D#1D#1D#1D#CC          #CD
"
 6206  POKE 1432,165:
       POKE 1672,165:
       POKE 1558,164:
       FOR I = 1 TO 9:
       GOSUB 30052:
       NEXT :
       IF RS < 6 GOTO 100
 6207  SYS 5681:
       SYS 5681:
       PRINT "
#9FOB SIE WOHL VER-#13
"
 6208  SYS 5681:
       PRINT "
SCHLOSSEN IST?#13
":
       GOSUB 6230
 6210  GOSUB 30050:
       FOR I = 1 TO 9:
       PRINT  LEFT$ (D$,9 + I) SPC( 8)"
        
":
       NEXT :
      T = 1
 6211  SYS 5681:
       PRINT "
#9FNEIN, EIN DRUCK#13
":
       SYS 5681:
       PRINT "
AUF DIE KLINKE,#13
"
 6212  SYS 5681:
       PRINT "
#9FUND DIE TÜR#13
":
       SYS 5681:
       PRINT "
SCHWINGT AUF...#13
":
       GOTO 100
 6230  SYS 5681:
       PRINT  SPC( 15)"
#05#C7
";:
       POKE 198,0:
       WAIT 198,1:
       POKE 198,0:
       PRINT "
#9D #13
":
       SYS 5681:
       RETURN 
// -----------------------------

10000 HP =  PEEK (49230) + 256 *  PEEK (49231):
      U$ = "
00
" +  MID$ ( STR$ (HP),2)
10001  PRINT "
#13#11#11
" SPC( 31)"
#99
" RIGHT$ (U$,3);
10002 HM =  PEEK (49232) + 256 *  PEEK (49233):
      U$ = "
00
" +  MID$ ( STR$ (HM),2):
       PRINT "
#1D
" RIGHT$ (U$,3)
10004 AS =  PEEK (49234) + 256 *  PEEK (49235):
      U$ = "
00
" +  MID$ ( STR$ (AS),2)
10005  PRINT  SPC( 31)"
#91#9F
" RIGHT$ (U$,3);
10006 AM =  PEEK (49236) + 256 *  PEEK (49237):
      U$ = "
00
" +  MID$ ( STR$ (AM),2):
       PRINT "
#1D
" RIGHT$ (U$,3)
10008 AT =  PEEK (49228):
      U$ = "
0
" +  MID$ ( STR$ (AT),2):
       PRINT "
#96
" SPC( 29) RIGHT$ (U$,2);
10009 PA =  PEEK (49229):
      U$ = "
0
" +  MID$ ( STR$ (PA),2):
       PRINT "
#1E
" SPC( 6) RIGHT$ (U$,2)
10010 SR =  PEEK (49224):
      U$ = "
0
" +  MID$ ( STR$ (SR),2):
       PRINT "
#9C#91
" SPC( 29) RIGHT$ (U$,2);
10011 GE =  PEEK (49225):
      U$ = "
0
" +  MID$ ( STR$ (GE),2):
       PRINT "
#9E
" SPC( 6) RIGHT$ (U$,2)
10012 KG =  PEEK (49226):
      U$ = "
0
" +  MID$ ( STR$ (KG),2):
       PRINT "
#9B
" SPC( 29) RIGHT$ (U$,2);
10013 CH =  PEEK (49227):
      U$ = "
0
" +  MID$ ( STR$ (CH),2):
       PRINT "
#9A
" SPC( 6) RIGHT$ (U$,2)
10014 EF =  PEEK (49238) + 256 *  PEEK (49239) + 65536 *  PEEK (49240):
      U$ = "
00000
" +  MID$ ( STR$ (EF),2)
10015  PRINT "
#91#99
" SPC( 29) RIGHT$ (U$,6);
10016 SU =  PEEK (49241):
      U$ = "
0
" +  MID$ ( STR$ (SU),2):
       PRINT "
#1D
" RIGHT$ (U$,2)
10017 GP =  PEEK (49242) + 256 *  PEEK (49243):
      U$ = "
0000
" +  MID$ ( STR$ (GP),2):
       PRINT "
#9E
" SPC( 34) RIGHT$ (U$,5)
10018 NA =  PEEK (49244):
      U$ = "
00
" +  MID$ ( STR$ (NA),2):
       PRINT "
#91#81
" SPC( 36) RIGHT$ (U$,3)
10019  PRINT  SPC( 24)"
#99G 
";:
      PO =  PEEK (49245):
       POKE 1449,32 - 16 * (PO > 0) + PO:
       IF PO = . THEN 
           PRINT "
#9D#9D#05G
"
10020 WF =  PEEK (49246):
      RS =  PEEK (49247):
      SH =  PEEK (49248):
       RETURN 
// -----------------------------

11000  POKE 53281,0:
       POKE 53280,0:
       POKE 53272,18:
       SYS 5454:
       SYS 4812:
      S = 54272:
       POKE 650,255
11001  PRINT "
#13#1D#1D#1D#1D#1D#9A#B1 #05
";:
      J =  PEEK (49246):
       IF J THEN 
           IF  PEEK (49247 + J) = 0 THEN 
           POKE 49246,0
11002  DIM M$(31),W$(27):
       FOR I = 0 TO 31:
       READ M$(I):
       NEXT :
       FOR I = 0 TO 27:
       READ W$(I):
       NEXT 
11003  PRINT "
GEWÖLBE  1 #9A$
":
      J =  PEEK (49247):
       IF J THEN 
           IF  PEEK (49266 + J) = . THEN 
           POKE 49247,.
11004  DEF  FN R(X) =  INT (X *  RND (TI) + 1):
       FOR I = 0 TO 2:
       POKE 55723 + I,4:
       NEXT 
11005 J =  PEEK (49167):
       IF J THEN 
           IF  PEEK (49272 + J) = 0 THEN 
           POKE 49167,0
11006  DIM Z$(15),G$(7):
       FOR I = 0 TO 15:
       READ Z$(I):
       NEXT :
       FOR I = 0 TO 7:
       READ G$(I):
       NEXT 
11110  PRINT "
#13#11#11
" SPC( 24)"
#99VITAL.:   (   )
":
       PRINT  SPC( 24)"
#91#9FASTRAL:   (   )
"
11111  PRINT  SPC( 24)"
#96ANG.:   #1EVER.:
":
       PRINT  SPC( 24)"
#91#9CSTR.:   #9EGES.:
"
11112  PRINT  SPC( 24)"
#9BKLG.:   #9ACHA.:
":
       PRINT  SPC( 24)"
#91#99ERF.:      (  )
"
11113  PRINT  SPC( 24)"
#9EGOLDSTCK.:
":
       PRINT  SPC( 24)"
#91#81NAHR.VORRAT:
":
       GOTO 10000
12900  SYS 5681:
       PRINT "
#05****************#13
":
       RETURN 
// -----------------------------

12910  SYS 5681:
       PRINT "
#05*              *
";:
       RETURN 
// -----------------------------

12920  PRINT  PEEK (49208) + 256 *  PEEK (49209) + 65536 *  PEEK (49210);:
       RETURN 
// -----------------------------

13000  POKE 49230,0:
       GOSUB 10000
13002  SYS 5681:
       GOSUB 12900:
       GOSUB 12910:
       GOSUB 12910:
       PRINT "
#9D#9D#9D#9D#9D#9D#9D#9D#9D#9D#9D#9D#9D#9DDU BIST TOT!#13
"
13010  GOSUB 12910:
       GOSUB 12900:
       SYS 5681:
       SYS 5681:
       PRINT "
#9EDU HAST
";:
       GOSUB 12920
13020  SYS 5681:
       PRINT "
ZÜGE GESPIELT.#13
":
       SYS 5681:
       SYS 5681:
       PRINT "
#05TODESURSACHE:#13
"
13022  SYS 5681:
       IF K = 1 THEN 
           PRINT "
#99GIFT#13
"
13024  IF K = 2 THEN 
           PRINT "
#9FVERHUNGERT#13
"
13026  IF K = 3 THEN 
           PRINT "
#96
"M$(M)"
 HAT#13
":
       SYS 5681:
       PRINT "
DICH GETÖTET.#13
"
13028  IF K = 4 THEN 
           PRINT "
#9FIN EINE FALLE#13
":
       SYS 5681:
       PRINT "
GELAUFEN#13
"
13029  IF K = 9 THEN 
           PRINT "
#9FGRAF KROLOC HAT#13
":
       SYS 5681:
       PRINT "
DICH GETÖTET.#13
"
13030  POKE 56295,1:
       POKE 2023,71:
       POKE 198,0:
       WAIT 198,1:
       POKE 2,17:
       GOTO 975
13100  SYS 5681:
       PRINT "
GETÖTET!#13
":
       GOSUB 300:
       SYS 5681:
       SYS 5681:
       PRINT "
#96DU ERHÄLST#13
"
13101  IF  PEEK (50820 + M) = . THEN 
           SYS 5681:
       PRINT "
KEINE PUNKTE,#13
":
       SYS 5681:
       PRINT "
DA ES EIN TIER#13
"
13102  IF  PEEK (50820 + M) = . THEN 
           SYS 5681:
       PRINT "
WAR.
":
      L = 0:
       GOTO 13130
13110 L =  INT (( PEEK (50596 + M) + .5) / Z2):
       SYS 5681:
       PRINT  MID$ ( STR$ (L),2)"
 PUNKTE.
";
13115  IF L = 1 THEN 
           PRINT "
#9D#9D. 
";
13130  SYS 5681:
      EF = EF + L:
       IF EF < . THEN 
          EF = .
13140  IF EF > 999999 THEN 
          EF = 999999
13150 K = EF:
      Z =  INT (K / 65536):
       POKE 49240,Z:
      K = K - 65536 * Z:
      Z =  INT (K / 256):
       POKE 49239,Z
13160  POKE 49238,K - 256 * Z:
       GOTO 10000
14000  PRINT "
INVENTUR#13
":
       GOSUB 14920:
      I = 2:
       GOSUB 14910:
       PRINT "
#05EINHANDWAFFEN:
"
14010 I = 3:
       FOR J = 0 TO 6:
       IF  PEEK (49247 + J) OR J = 0 THEN 
          I = I + 1:
       GOSUB 14910:
       PRINT  CHR$ (J + 65)"
 
"W$(J)
14020  NEXT :
       POKE 198,0:
       WAIT 198,1:
       GOSUB 14900:
      I = 2:
       GOSUB 14910:
       PRINT "
#05ZWEIHANDWAFFEN:
"
14030 I = 3:
       FOR J = 7 TO 10:
       IF  PEEK (49247 + J) THEN 
          I = I + 1:
       GOSUB 14910:
       PRINT  CHR$ (J + 65)"
 
"W$(J)
14040  NEXT :
       POKE 198,0:
       WAIT 198,1:
       GOSUB 14900:
      I = 2:
       GOSUB 14910:
       PRINT "
#05FERNWAFFEN:
"
14050 I = 3:
       FOR J = 11 TO 15:
       IF  PEEK (49247 + J) THEN 
          I = I + 1:
       GOSUB 14910:
       PRINT  CHR$ (J + 65)"
 
"W$(J)
14060  NEXT :
       POKE 198,0:
       WAIT 198,1:
       GOSUB 14900:
      I = 2:
       GOSUB 14910:
       PRINT "
#05MAGISCHE WAFFEN
"
14070 I = 3:
       FOR J = 16 TO 18:
       IF  PEEK (49247 + J) THEN 
          I = I + 1:
       GOSUB 14910:
       PRINT  CHR$ (J + 65)"
 
"W$(J)
14072  NEXT :
       POKE 198,0:
       WAIT 198,1:
       GOSUB 14900:
      I = 2:
       GOSUB 14910:
       PRINT "
#05RÜSTUNGEN:
"
14074 I = 3:
       FOR J = 19 TO 25:
       IF  PEEK (49247 + J) OR J = 19 THEN 
          I = I + 1:
       GOSUB 14910:
       PRINT  CHR$ (J + 46)"
 
"W$(J)
14076  NEXT :
       POKE 198,0:
       WAIT 198,1:
       GOSUB 14900:
      I = 2:
       GOSUB 14910:
       PRINT "
#05SCHILDE:
"
14078 I = 3:
       FOR J = 26 TO 27:
       IF  PEEK (49247 + J) THEN 
          I = I + 1:
       GOSUB 14910:
       PRINT W$(J)
14080  NEXT :
       POKE 198,0:
       WAIT 198,1:
       GOSUB 14900:
      I = 2:
       GOSUB 14910:
       PRINT "
#05WEISSE MAGIE:
"
14090 I = 3:
       FOR J = 0 TO 7:
       IF  PEEK (49304 + J) THEN 
          I = I + 1:
      :
       GOSUB 14910:
       PRINT  CHR$ (J + 65)"
 
"Z$(J)
14100  NEXT :
       POKE 198,0:
       WAIT 198,1:
       GOSUB 14900:
      I = 2:
       GOSUB 14910:
       PRINT "
#05SCHWARZE MAGIE:
"
14110 I = 3:
       FOR J = 8 TO 15:
       IF  PEEK (49304 + J) THEN 
          I = I + 1:
      :
       GOSUB 14910:
       PRINT  CHR$ (J + 65)"
 
"Z$(J)
14120  NEXT :
       POKE 198,0:
       WAIT 198,1:
       GOSUB 14900:
      I = 2:
       GOSUB 14910:
       PRINT "
#05INGREDENZIEN:
"
14130 I = 3:
       FOR J = 0 TO 7:
      I = I + 1:
       GOSUB 14910:
       PRINT  RIGHT$ ("
0
" +  MID$ ( STR$ ( PEEK (49336 + J)),2),2);
14132  PRINT "
 
"G$(J)
14140  NEXT :
       POKE 198,0:
       WAIT 198,1:
       GOSUB 14900:
      I = 2:
       GOSUB 14910:
       PRINT "
#05SONSTIGES:
"
14150 I = 3:
       IF  PEEK (49351) = . GOTO 14153
14152 I = I + 1:
       GOSUB 14910:
       PRINT "
SPLITTER
":
       GOTO 14155
14153  IF  PEEK (49358) = . GOTO 14155
14154 I = I + 1:
       GOSUB 14910:
       PRINT "
DRACHENKRALLE
"
14155  IF  PEEK (49350) = . GOTO 14158
14156 I = I + 1:
       GOSUB 14910:
       PRINT "
GLASFLÖTE
"
14158  IF  PEEK (49348) = . GOTO 14162
14160 I = I + 1:
       GOSUB 14910:
       PRINT "
FEUERRING
"
14162  IF  PEEK (49349) = . GOTO 14166
14164 I = I + 1:
       GOSUB 14910:
       PRINT "
EICHENDOLCH
"
14166  IF  PEEK (49354) = . GOTO 14170
14168 I = I + 1:
       GOSUB 14910:
       PRINT "
KOMPASS
"
14170  IF  PEEK (49347) = . GOTO 14174
14172 I = I + 1:
       GOSUB 14910:
       PRINT "
SEXTANT
"
14174  IF  PEEK (49355) = . GOTO 14178
14176 I = I + 1:
       GOSUB 14910:
       PRINT "
LAMPE
"
14178  IF  PEEK (49356) = . GOTO 14182
14180 I = I + 1:
       GOSUB 14910:
       PRINT  MID$ ( STR$ ( PEEK (49356)),2)"
 FACKELN
"
14182  POKE 198,0:
       WAIT 198,1:
       POKE 198,0:
       GOSUB 14900:
       SYS 5558:
       GOTO 11110
14900  FOR I = 2 TO 11:
       GOSUB 14910:
       PRINT "
               
":
       NEXT :
       RETURN 
// -----------------------------

14910  PRINT  LEFT$ ("
#13#11#11#11#11#11#11#11#11#11#11
",I) SPC( 24);:
       RETURN 
// -----------------------------

14920  GOSUB 14900:
      I = 2:
       GOSUB 14910:
       PRINT "
DU TRÄGST DEINE
"
14922  PRINT  SPC( 24)"
KLEIDUNG
";:
      J =  PEEK (49247):
       IF J = 0 GOTO 14928
14924  PRINT "
 UND
":
       PRINT  SPC( 24)"
#91DARÜBER EIN
";:
       IF J = 4 OR J = 1 THEN 
           PRINT "
EN
"
14925  IF J = 2 OR J > 4 THEN 
           PRINT "
E
"
14926  IF J = 3 THEN 
           PRINT 
14927  PRINT  SPC( 24)W$(19 + J);
14928  PRINT "
.
":
       PRINT  SPC( 24)"
#91ALS WAFFE HÄLST
"
14930  PRINT  SPC( 24)"
DU JETZT DEIN
";:
      J =  PEEK (49246)
14932  IF J = 1 OR J = 3 OR J = 4 OR J = 5 OR J = 8 OR J = 13 THEN 
           PRINT :
       GOTO 14940
14934  PRINT "
E
";:
       IF J = 2 OR J = 6 OR J = 7 OR J = 10 OR J = 12 OR J = 14 OR J = 17 THEN 
           PRINT "
N
":
       GOTO 14940
14936  PRINT 
14940  PRINT  SPC( 24)"
#91
"W$(J):
       PRINT  SPC( 24)"
BEREIT.
":
      J =  PEEK (49167)
14950  PRINT  SPC( 24)"
#91DU BENUTZT 
";:
       IF J = 0 THEN 
           PRINT "
ABER
":
       PRINT  SPC( 24)"
KEIN
";
14952  IF J = 1 THEN 
           PRINT "
DEN
":
       PRINT  SPC( 24)"
KLEIN
";
14954  IF J = 2 THEN 
           PRINT "
DEN
":
       PRINT  SPC( 24)"
GROSS
";
14956  PRINT "
EN SCHILD.
":
       POKE 198,0:
       WAIT 198,1:
       GOTO 14900
15000  SYS 5681:
       PRINT "
#9EDU BIST IN DEN#13
":
       SYS 5681:
       PRINT "
DUNKLEN, FEUCH-#13
"
15001  SYS 5681:
       PRINT "
TEN GÄNGEN DER#13
":
       SYS 5681:
       PRINT "
BURG.#13
":
       SYS 5681:
       RETURN 
// -----------------------------

30000  SYS 6041:
       POKE S + 5,16:
       POKE S + 1,12:
       POKE S + 4,129:
       RETURN 
// -----------------------------

30050  SYS 6041:
       POKE S + 5,86:
       POKE S + 1,99:
       POKE S + 4,129:
       RETURN 
// -----------------------------

30052  SYS 6041:
       POKE S + 5,8:
       POKE S + 1,40 +  FN R(50):
       POKE S + 4,21:
       RETURN 
// -----------------------------

30053  POKE 53281,2:
       SYS 6041:
       POKE S + 5,64:
       POKE S + 1,1 +  FN R(4):
       POKE S + 4,33:
      J = 9 ^ 40:
       POKE 53281,.
30054  SYS 6041:
       POKE S + 5,41:
       POKE S + 1,20 +  FN R(20):
       POKE S + 4,129:
       RETURN 
// -----------------------------

31000  GOSUB 30052:
       FOR I = 1 TO 7:
       SYS 5681:
       NEXT :
       PRINT "
#1D#1D#1D#1D#90P A U S E#13
":
       FOR I = 1 TO 5:
       SYS 5681:
       NEXT 
31002  FOR I = 0 TO 4:
       POKE 56044 + I + I, FN R(15):
       NEXT :
       GET U$:
       IF U$ = "
" GOTO 31002
31004  FOR I = 1 TO 7:
       SYS 5681:
       NEXT :
       RETURN 
// -----------------------------

60000  DATA FLEDERMAUS,GOBLIN,ZOMBIE,SCHLEIM,SANDVIPER,ORK,R[UBER,H\HLENSCHRAT
60001  DATA RIESENRATTE,TORSO,SKELETT,ZAUBERER,RIESENPYTHON,OGER,GHOUL,GOLEM
60002  DATA H\HLENSPINNE,H\HLENTROLL,VAMPIR,KOBOLD,SPEIKOBRA,ZWEIHAUPT,WERWOLF
60003  DATA D[MON,ZYKLOP,MUMIE,POLYPENPFLANZE,KRIECHENDES AUGE,MINOTAURUS,BALROG
60004  DATA LEBENDE STATUE,PHANTOM
60100  DATA H[NDE,MESSER,DOLCH,KURZSCHWERT,HANDBEIL,SCHWERT,MORGENSTERN,KAMPFSTAB
60101  DATA BASTARDSCHW.,STREITAXT,ZWEIH[NDER,SCHLEUDER,KURZBOGEN,BLASROHR
60102  DATA LANGBOGEN,ARMBRUST,MAGISCHE AXT,ELBENBOGEN,ZAUBERSCHWIN.,KLEIDUNG
60103  DATA WAFFENROCK,LEDERR]STUNG,KETTENHEMD,SCHUPPENPANZ.,RITTERR]STUNG
60104  DATA MAG. R]STUNG,KLEINER SCHILD,GROSSER SCHILD
60200  DATA MAG. LICHT,GIFT NEUTRAL.,SCHUTZSCHILD,WUNDERHEILUNG,BANNBRECHER
60201  DATA LICHTSCHILD,GEWANDTHEIT,TOTENBANN,DONNERKEIL,GIFT U. GALLE,FEUERBALL
60202  DATA FLAMMENSPUR,FURCHTFLUCH,ZEIT GEFRIER.,TODESBLITZ,MAG. BOMBE
60300  DATA SCHWEFEL,KNOBLAUCH,GINSENG,BLUTFLECHTE,ZIRBELKRAUT,TOTENBLUME
60301  DATA G. D. NACHT,ALRAUNE
    0