10  POKE 53265,11:
       GOSUB 11000:
       GOSUB 5000:
       IF K GOTO 5200
   20 Y = 10:
      X = 5:
       DIM M(2):
       FOR I = 0 TO 2:
      M(I) = 100:
       NEXT :
       POKE 53264,0:
       GOTO 5300
  100 Z = 0:
       SYS 5440:
       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
" GOTO 210
  122  IF U$ = "
#11
" GOTO 212
  124  IF U$ = "
#9D
" GOTO 214
  126  IF U$ = "
#1D
" GOTO 216
  128  IF U$ = "
A
" GOTO 300
  130  IF U$ = "
 
" GOTO 200
  136  IF U$ = "
W
" THEN 
           GOSUB 3000:
       GOTO 2000
  140  IF U$ = "
Z
" THEN 
           GOSUB 4000:
       GOTO 2000
  199  PRINT "
WIE BITTE..?#13
":
       GOTO 2000
  200  PRINT "
WARTEN...#13
":
       GOTO 2000
  210  PRINT "
NORDEN#13
":
       IF Y = 9 GOTO 220
  211 Y = 9:
       PRINT  LEFT$ (D$,20) SPC( 1 + X + X)"
#05#12YZ#11#9D#9DÄÖ#11#9D#9D
";:
       GOTO 218
  212  PRINT "
SÜDEN#13
":
       IF Y > 9 OR X = 2 OR X = 7 GOTO 222
  213 Y = 10:
       PRINT  LEFT$ (D$,22) SPC( 1 + X + X)"
#05#12YZ#11#9D#9DÄÖ#91#91#91#9D#9D
";:
       GOTO 218
  214  PRINT "
WESTEN#13
":
       IF X < Y - 6 GOTO 220
  215 X = X - 1:
       PRINT  LEFT$ (D$,2 + Y + Y) SPC( 1 + X + X)"
#05#12YZ#11#9D#9DÄÖ#91
";:
       GOTO 218
  216  PRINT "
OSTEN#13
":
       IF X > 15 - Y GOTO 220
  217 X = X + 1:
       PRINT  LEFT$ (D$,2 + Y + Y) SPC( 1 + X + X)"
#05#12YZ#11#9D#9DÄÖ#91#9D#9D#9D#9D
";
  218  PRINT "
#92#98#D2#D3#11#9D#9D#D4#D5#13
":
       GOSUB 30010:
       GOTO 2000
  220  SYS 5681:
       PRINT "
#96BLOCKIERT!#13
":
       SYS 5681:
       GOTO 100
  222  IF Y > 9 GOTO 1800
  223  GOTO 220
  300  PRINT "
ATTACKE#13
":
       SYS 5681:
       IF WA = 18 GOTO 310
  301  PRINT "
#96MIT DIESER WAFFE#13
":
       SYS 5681:
       PRINT "
KANNST DU DEN#13
"
  302  SYS 5681:
       PRINT "
RIESENLINDWURM#13
":
       SYS 5681:
       PRINT "
NICHT VERLETZEN!#13
":
       GOTO 100
  310 H = 985 + Y * 80 + X + X:
      Z =  PEEK (H + S):
      I =  PEEK (H):
      J =  PEEK (H + 1):
      K =  PEEK (H + 40):
      L =  PEEK (H + 41)
  312  PRINT  LEFT$ (D$,Y + Y) SPC( 1 + X + X)"
#05#12IJ#11#9D#9DKL#91#9D#9D#92
";
  314  GOSUB 30050:
      ZZ =  FN R(20):
       IF ZZ <  = AT GOTO 320
  315  SYS 5681:
       PRINT "
#91#9EVERFEHLT!#13
":
       GOTO 318
  316  SYS 5681:
       PRINT "
#91#9EDANEBEN!#13
"
  318  POKE H + S,Z:
       POKE H + S + 1,Z:
       POKE H + S + 40,Z:
       POKE H + S + 41,Z:
       POKE H,I:
       POKE H + 1,J
  319  POKE H + 40,K:
       POKE H + 41,L:
       GOTO 2000
  320  IF Y > 9 OR (X <  > 2 AND X <  > 4 AND X <  > 6) GOTO 316
  322 K = X / 2 - 1:
       IF M(K) = . THEN 
           SYS 5681:
       PRINT "
#91#9EDANEBEN
"D$ SPC( X + X + 1)"
#91#91#91#91#91#91#98#D5#1C#D9#91#9D#9D#D6#D7
":
       GOTO 2000
  324  IF ZZ < 3 OR  FN R(20) > 10 GOTO 330
  326  PRINT "
#9C#B0#AE#11#9D#9D#AD#BD#91#9D#9D
";:
       SYS 5681:
       PRINT "
#91DRACHE PARIERT#13
":
       GOSUB 30052
  328  PRINT  LEFT$ (D$,18) SPC( 1 + X + X)"
#1E#12EF#11#9D#9DGH
":
       GOTO 2000
  330  PRINT "
#96#12UV#11#9D#9DWX
":
       GOSUB 30054:
       SYS 5681:
       IF ZZ > 2 THEN 
           PRINT "
#99#91GETROFFEN!
"
  331  IF ZZ = 2 THEN 
           PRINT "
#9F#91GUTER TREFFER!
"
  332  IF ZZ = 1 THEN 
           PRINT "
#9F#91GLÜCKSTREFFER!
"
  334 Z =  FN R(7) + 9:
       IF ZZ > 1 THEN 
          Z = Z - 7
  336 M(K) = M(K) - Z:
       SYS 5681:
       PRINT "
#99DRACHENKOPF IST#13
"
  337  PRINT  LEFT$ (D$,18) SPC( 1 + X + X);:
       IF M(K) < 1 GOTO 350
  340  PRINT "
#1E#12EF#11#9D#9DGH#99
":
       SYS 5681:
       IF M(K) > 80 THEN 
           PRINT "
KAUM ANGEKRATZT.#13
":
       GOTO 2000
  341  IF M(K) > 60 THEN 
           PRINT "
LEICHT VERLETZT.#13
":
       GOTO 2000
  342  IF M(K) > 40 THEN 
           PRINT "
VERWUNDET.#13
":
       GOTO 2000
  343  IF M(K) > 20 THEN 
           PRINT "
SCHWER VERLETZT.#13
":
       GOTO 2000
  344  PRINT "
KAUM AM LEBEN.#13
":
       GOTO 2000
  350 M(K) = .:
       PRINT "
#1C#12UV#11#9D#9DWX#91#9D#9D
":
       SYS 5681:
       PRINT "
#96ABGESCHLAGEN!#1C#13
":
       GOSUB 30054
  352  FOR J = 0 TO 200:
       NEXT :
       PRINT  LEFT$ (D$,18) SPC( X + X + 1)"
#92#D6#D7#11#9D#D9#9D#9D#98#D5
":
       GOTO 2000
  899  END 
  900  SYS 5681
  901  POKE 56295,1:
       POKE 2023,71
  902  POKE 198,0:
       WAIT 198,1:
       POKE 198,0:
       POKE 2023,32:
       SYS 5681:
       RETURN 
// -----------------------------

 1800  PRINT D$ SPC( X + X + 1)"
#91#91#98#D4#D5#91#9D#9D#D2#D3#13
"
 1801  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
 1820 I = 0:
       PRINT "
#9EFÜR DEINE#13
":
       SYS 5681:
       PRINT "
FEIGHEIT WERDEN#13
"
 1822  SYS 5681:
       PRINT "
DIR 200 PUNKTE#13
":
       SYS 5681:
       PRINT "
ABGEZOGEN!#13
"
 1830  SYS 5681:
      EF = EF - 200:
       IF EF < 1 THEN 
          EF = 0
 1840  GOSUB 13150:
       GOSUB 901:
       POKE 2,0:
       GOTO 6200
 2000  POKE 198,.:
       SYS 5681:
       SYS 5681:
       IF M(0) + M(1) + M(2) = . GOTO 6000
 2005  IF  FN R(20) < 16 GOTO 2020
 2010  SYS 6041:
       POKE S + 5,197:
       PRINT "
#9FDER DRACHE HOLT#13
":
       SYS 5681:
       PRINT "
TIEF LUFT...#13
"
 2012  POKE S + 4,129:
       FOR I = 100 TO 200:
       POKE S + 1,I / 10:
       NEXT :
       GOTO 100
 2020 Z = 0:
       FOR I = 0 TO 2:
       IF M(I) > . THEN 
          Z = Z + 2 ^ I
 2022  NEXT :
       IF Z = . GOTO 6000
 2024  POKE 829,0:
       SYS 6041:
       POKE S + 5,144 + 12:
       POKE S + 12,128 + 11:
       SYS 6336
 2026  PRINT "
#96DER DRACHE SPEIT#13
":
       SYS 5681:
       PRINT "
FEUER!#13
":
       POKE S + 1,7:
       POKE S + 8,4
 2028  POKE S + 4,129:
       POKE S + 11,129:
       POKE V + 21,Z:
       GOSUB 2300:
       POKE V + 23,7:
       POKE V + 33,2:
       POKE V + 32,2
 2030  GOSUB 2300:
       POKE V + 33,10:
       POKE V + 32,10:
      :
       GOSUB 2300:
       POKE V + 33,2:
       POKE V + 32,2:
       GOSUB 2300
 2032  POKE V + 33,0:
       POKE V + 32,.:
       POKE V + 23,.:
       GOSUB 2300:
       POKE V + 21,0:
       FOR J = 0 TO 60:
       NEXT 
 2040 ZZ = 1:
       IF Z = 3 OR Z = 6 OR Z = 5 THEN 
          ZZ = 2
 2042  IF Z = 7 THEN 
          ZZ = 3
 2044 K = 0:
       FOR I = 1 TO ZZ:
      K = K +  FN R(5) + 3:
       NEXT :
       SYS 5681:
       SYS 5681:
       PRINT "
#99DU ERLEIDEST
"K;
 2046  POKE 829,1:
       SYS 5681:
       PRINT "
SCHADENSPUNKTE!#13
":
      HP = HP - K:
       IF HP < 1 THEN 
          HP = 0
 2050  POKE 49231,HP / 256:
       POKE 49230,HP - 256 *  PEEK (49231)
 2052  IF HP = . THEN 
           PRINT  LEFT$ (D$,2 + Y + Y) SPC( 1 + X + X)"
#9B#12Ü^#11#9D#9D_ 
":
       GOSUB 10000:
       GOTO 13000
 2054  GOSUB 10000:
       GOTO 100
 2300  FOR J = 0 TO 60:
       NEXT :
       SYS 6348:
       FOR J = 0 TO 60:
       NEXT :
       SYS 6336
 2310  FOR J = 0 TO 60:
       NEXT :
       SYS 6360:
       FOR J = 0 TO 60:
       NEXT :
       SYS 6336:
       RETURN 
// -----------------------------

 3000  PRINT "
WAFFE BENUTZEN#13
":
       SYS 5681
 3040  IF  PEEK (49265) = . GOTO 3050
 3042  PRINT "
#9EZAUBERSCHWINGE#13
":
       SYS 5681:
       PRINT "
BEREIT!#13
":
       POKE 49246,18:
      WA = 18
 3044 SH = 0:
       POKE 49167,0:
       RETURN 
// -----------------------------

 3050  PRINT "
#96DIE EINZIGE#13
":
       SYS 5681:
       PRINT "
WAFFE, DIE DIR#13
":
       SYS 5681:
       PRINT "
JETZT HELFEN#13
"
 3052  SYS 5681:
       PRINT "
KÖNNTE, HAST DU#13
":
       SYS 5681:
       PRINT "
NOCH NICHT!#13
":
       RETURN 
// -----------------------------

 4000  PRINT "
ZAUBERSPRUCH#13
":
       SYS 5681:
       PRINT "
#96DIE MAGIE DES#13
"
 4010  SYS 5681:
       PRINT "
RIESENLINDWURMS#13
":
       SYS 5681:
       PRINT "
ABSORBIERT JEDEN#13
"
 4020  SYS 5681:
       PRINT "
ZAUBER!#13
":
       RETURN 
// -----------------------------

 5000  PRINT "
#13#11#1D  #9B#12QRQRQRQRQRQRQRQRQR#92
"
 5001  PRINT "
#1D  #9B#12STSTSTSTSTSTSTSTST#92
"
 5002  PRINT "
#91#1D#9B#12QRQR#98MN#1EAB!
" CHR$ (34)"
AB!
" CHR$ (34)"
#98#92#D2#D3#12MN#9BQRQR
"
 5003  PRINT "
#1D#9B#12STST#98OP#1ECD#$CD#$#92#98#D4#D5#12OP#9BSTST
"
 5004  PRINT "
#91#1D#9B#12QR#98MN#1E%&/0)*/034#92#98#D2#D3#D2#D3#12MN#9BQR
"
 5005  PRINT "
#1D#12#9BST#98OP#1E'(12+(1256#92#98#D4#D5#D4#D5#12OP#9BST
"
 5006  PRINT "
#91#1D#9B#12QR#92#98#D2#D3#12#1E78#CC#C9>?#CC#CD#D0#D1#D4#D5#D9#92#98#D3#D2#D3#9B#12QR
"
 5007  PRINT "
#1D#9B#12ST#98#92#D4#D5#12#1E9:#CA#CB#C0#C1#CE#CF#D2#D3#92;;#12#DB#DC#92#98#D4#D5#12#9BST
"
 5008  PRINT "
#91#1D#12#9BQR#92#98#D2#12#1E#A0#A3#A4#A7#A8#AB#92;#12#AF#92;#12#B5#B6#B9#92;;#12#BD#D6#98#92#D3#12#9BQR
"
 5009  PRINT "
#1D#12#9BST#1E#A1#A2#A5#A6#A9#92;#12#AD#AE#B1#B2#B7#B8#BB#BC#BE#BF#D7#D8#9BST
"
 5010  PRINT "
#91#1D#9B#12QR#1E-.#92;#12#AA#DF#B3#92;#12#C6#DD@#92#98#D2#D3#9F#A7#A8#98#D2#D3#1E#BE#BF#9B#12QR
"
 5011  PRINT "
#1D#12#9BST#1E;<#AC#B0#B4#BA#C7#C8,#92#98#D5#D4#D5#9F#A9#AA#98#D4#D5#1E#BB#BC#12#9BST
"
 5012  PRINT "
#91#1D#12#9BQR#92#98#D2#12#1E#C2#92#BA#12=#92#B9#B4&#A2#98#D2#D3#D2#D3#D2#D3#D2#D3#1E#FF#DF#12#9BQR
"
 5013  PRINT "
#1D#12#9BST#92#98#D4#12#1E#C4#C5#92#98#D5#1E#B8#B7#B3#A3#A5#A6#98#D4#D5#D4#D5#D4#D5#1E#A0#A1#9B#12ST
"
 5014  PRINT "
#91#1D#12#9BQR#92#98#D2#12#1E=#C3#92#98#D3#D2#1E#B5$#A4#AC#AF#12#D6#92#98#D3#D2#D3#D2#D3#1E#DA#DB#12#9BQR
"
 5015  PRINT "
#12#9B#1DST#92#98#D4#D5#12#1E#DA#DD#92#98#D4#D5#12#1E#DA#DD#92#98#D4#D5#12#1E#DA#DD#92#98#D4#D5#D4#D5#D4#D5#12#9BST
"
 5016  PRINT "
#91#1D#12#9BQR#92#98#D2#D3#1E#12EF#92#98#D2#D3#12#1EEF#92#98#D2#D3#12#1EEF#92#98#D2#D3#12MNMN#9BQR
"
 5017  PRINT "
#1D#12#9BST#92#98#D4#D5#1E#12GH#92#98#D4#D5#12#1EGH#92#98#D4#D5#12#1EGH#92#98#D4#D5#12OPOP#9BST
"
 5018  PRINT "
#91#1D#12#9BQR#98MN#92#D2#D3#D2#D3#D2#D3#D2#D3#D2#D3#D2#D3#12MN#9BQRQR
"
 5019  PRINT "
#1D#12#9BST#98OP#92#D4#D5#D4#D5#D4#D5#D4#D5#D4#D5#D4#D5#12OP#9BSTST
"
 5020  PRINT "
#91#1D#12#9BQRQR#98MN#92#D2#D3#D2#D3#05#12YZ#92#98#D2#D3#12#9BQRQRQR
"
 5021  PRINT "
#1D#12#9BSTST#98OP#92#D4#D5#D4#D5#12#05ÄÖ#92#98#D4#D5#12#9BSTSTST#13
"
 5030 K =  PEEK (49358):
       IF K = . GOTO 5090
 5040  PRINT  LEFT$ (D$,18)"
#1D#1D#1D
";:
       FOR I = 1 TO 3:
       PRINT "
#1D#1D#1C#D6#D7#11#9D#9D#98#D5#1C#D9#91
";:
       NEXT 
 5050  PRINT "
#91#91#91#91#91#9F#DC#DD#91#9D#9D#DC#DD
"
 5090  POKE 53265,27:
       RETURN 
// -----------------------------

 5100  POKE 2,0:
       SYS 5681:
       PRINT "
#9EDU VERLÄSST DIE#13
":
       SYS 5681:
       PRINT "
DRACHENHÖHLE.#13
"
 5102  FOR I = 0 TO 2E3:
       NEXT :
       PRINT "
#90#93#11#11#11L#CF
" CHR$ (34)"
DDD.KONJ
" CHR$ (34)"
,8:
"
 5104  FOR I = 0 TO 9:
       PRINT "
R#D5:
":
       NEXT :
       PRINT "
#13
":
       POKE 631,13:
       POKE 632,13:
       POKE 198,2:
       NEW 
 5200 X = 5:
       SYS 5681:
       PRINT "
#99HIER GIBT ES FÜR#13
":
       SYS 5681:
       PRINT "
DICH NICHTS MEHR#13
"
 5210  SYS 5681:
       PRINT "
ZU TUN. AUSSER-#13
":
       SYS 5681:
       PRINT "
DEM STINKT DER#13
"
 5220  SYS 5681:
       PRINT "
KADAVER DES#13
":
       SYS 5681:
       PRINT "
RIESENLINDWURMS#13
"
 5221  SYS 5681:
       PRINT "
ENTSETZLICH.#13
":
       SYS 5681:
       PRINT "
EILIG GEHST DU#13
"
 5222  SYS 5681:
       PRINT "
WIEDER HINAUS.#13
"
 5224  GOSUB 900:
       PRINT D$ SPC( 1 + X + X)"
#91#91#98#D4#D5#91#9D#9D#D2#D3
":
       GOSUB 30010:
       POKE 2,0:
       GOTO 6200
 5240  POKE S + 5,11:
       POKE S + 6,6:
       POKE S + 12,9
 5242  POKE S + 4,33:
       POKE S + 11,33:
       FOR J = 0 TO I:
       NEXT :
       RETURN 
// -----------------------------

 5300  SYS 5681:
       PRINT "
#99DU BETRITTST DIE#13
":
       SYS 5681:
       PRINT "
HÖHLE DES FÜRCH-#13
"
 5302 WA =  PEEK (49246):
       SYS 5681:
       PRINT "
TERLICHEN RIE-#13
":
       SYS 5681:
       PRINT "
SENLINDWURMS.#13
"
 5310  SYS 5681:
      I = 400:
       SYS 6041:
       POKE S + 1,8:
       POKE S,180:
       POKE S + 8,11:
       POKE S + 7,158:
       GOSUB 5240
 5311 I = 200:
       SYS 6041:
       POKE S + 1,9:
       POKE S,196:
       POKE S + 8,13:
       POKE S + 7,10:
       GOSUB 5240
 5312  SYS 6041:
       POKE S + 1,8:
       POKE S,180:
       POKE S + 8,11:
       POKE S + 7,158:
       GOSUB 5240
 5313 I = 400:
       SYS 6041:
       POKE S + 1,8:
       POKE S,55:
       POKE S + 8,10:
       POKE S + 7,247:
       GOSUB 5240
 5314 I = 200:
       SYS 6041:
       POKE S + 1,7:
       POKE S,81:
       POKE S + 8,9:
       POKE S + 7,196:
       GOSUB 5240
 5315  SYS 6041:
       POKE S + 1,8:
       POKE S,55:
       POKE S + 8,10:
       POKE S + 7,247:
       GOSUB 5240
 5316 I = 400:
       SYS 6041:
       POKE S + 1,8:
       POKE S,180:
       POKE S + 8,11:
       POKE S + 7,158:
       GOSUB 5240
 5317 I = 200:
       SYS 6041:
       POKE S + 1,9:
       POKE S,196:
       POKE S + 8,13:
       POKE S + 7,10:
       GOSUB 5240
 5318  SYS 6041:
       POKE S + 1,8:
       POKE S,180:
       POKE S + 8,11:
       POKE S + 7,158:
       GOSUB 5240
 5319 I = 400:
       SYS 6041:
       POKE S + 1,8:
       POKE S,55:
       POKE S + 8,10:
       POKE S + 7,247:
       GOSUB 5240:
       GOSUB 901
 5320  SYS 5681:
       PRINT "
DAS SCHRECKLICHE#13
":
       SYS 5681:
       PRINT "
UNGEHEUER BE-#13
"
 5321  SYS 5681:
       PRINT "
WACHT DIE PRIN-#13
":
       SYS 5681:
       PRINT "
ZESSIN, DIE#13
"
 5322  SYS 5681:
       PRINT "
ZWISCHEN ZWEI#13
":
       SYS 5681:
       PRINT "
PFOSTEN ANGEKET-#13
"
 5323  SYS 5681:
       PRINT "
TET IST.#13
":
       GOSUB 900:
       SYS 5681:
       PRINT "
SIE BLICKT DIR#13
"
 5324  SYS 5681:
       PRINT "
ENTGEGEN, RÜT-#13
":
       SYS 5681:
       PRINT "
TELT AN IHREN#13
"
 5325  SYS 5681:
       PRINT "
KETTEN UND RUFT#13
":
       SYS 5681:
       PRINT "
FLEHEND:#13
"
 5326  SYS 5681:
       PRINT "
%BITTE HILF MIR.#13
":
       SYS 5681:
       PRINT "
TÖTE DEN DRACHEN#13
"
 5327  SYS 5681:
       PRINT "
UND RETTE MICH!%#13
":
       GOSUB 900:
       SYS 5681:
       PRINT "
DER RIESENLIND-#13
"
 5328  SYS 5681:
       PRINT "
WURM HEBT SEINE#13
":
       SYS 5681:
       PRINT "
DREI KÖPFE UND#13
"
 5329  SYS 5681:
       PRINT "
FAUCHT DICH BÖSE#13
":
       SYS 5681:
       PRINT "
AN...#13
"
 5330  GOSUB 900:
       IF RS = 6 GOTO 5340
 5331  SYS 5681:
       PRINT "
MIT DEM FEUER-#13
":
       SYS 5681:
       PRINT "
ATEM DES DRACHEN#13
"
 5332  SYS 5681:
       PRINT "
SCHLÄGT DIR EINE#13
":
       SYS 5681:
       PRINT "
UNGEHEURE HITZE#13
"
 5333  SYS 5681:
       PRINT "
ENTGEGEN, DIE#13
":
       SYS 5681:
       PRINT "
DIR DEINE KLEI-#13
"
 5334  SYS 5681:
       PRINT "
DUNG, DEINE HAUT#13
":
       SYS 5681:
       PRINT "
UND DEINE HAARE#13
"
 5335  SYS 5681:
       PRINT "
VERSENGT.#13
":
       GOSUB 900:
       SYS 5681:
       PRINT "
DIE RÜSTUNG, DIE#13
"
 5336  SYS 5681:
       PRINT "
DU TRÄGST, KANN#13
":
       SYS 5681:
       PRINT "
DICH NICHT DAGE-#13
"
 5337  SYS 5681:
       PRINT "
GEN SCHÜTZEN. DU#13
":
       SYS 5681:
       PRINT "
WIRST WIEDER#13
"
 5338  SYS 5681:
       PRINT "
ZURÜCKGETRIEBEN.#13
":
      X = 5:
       GOTO 5224
 5340  SYS 5681:
       PRINT "
DER DRACHE BE-#13
":
       SYS 5681:
       PRINT "
NUTZT IM KAMPF#13
"
 5341  SYS 5681:
       PRINT "
NUR SEINE FLAM-#13
":
       SYS 5681:
       PRINT "
MEN. DEINE MAGI-#13
"
 5342  SYS 5681:
       PRINT "
SCHE RÜSTUNG#13
":
       SYS 5681:
       PRINT "
SCHÜTZT DICH NUR#13
"
 5347  SYS 5681:
       PRINT "
LEIDLICH.
";:
       IF WA < 18 THEN 
           GOSUB 900:
       GOTO 100
 5348  PRINT "
 DU UM-#13
":
       SYS 5681:
       PRINT "
FASST DEN GRIFF#13
"
 5349  SYS 5681:
       PRINT "
DEINER SCHWINGE#13
":
       SYS 5681:
       PRINT "
FEST MIT BEIDEN#13
"
 5350  SYS 5681:
       PRINT "
HÄNDEN...#13
":
       GOSUB 900:
       GOTO 100
 6000  PRINT "
#05 --- SIEG! ---#13
":
       SYS 5681:
       SYS 5681:
       PRINT "
#9EDER DRACHE IST#13
"
 6001  SYS 5681:
       PRINT "
GETÖTET!#13
"
 6002 I = 400:
       SYS 6041:
       POKE S + 1,17:
       POKE S,103:
       POKE S + 8,21:
       POKE S + 7,237:
       GOSUB 5240
 6003 I = 200:
       SYS 6041:
       POKE S + 1,19:
       POKE S,137:
       POKE S + 8,23:
       POKE S + 7,59:
       GOSUB 5240
 6004 I = 400:
       SYS 6041:
       POKE S + 1,17:
       POKE S,103:
       POKE S + 8,21:
       POKE S + 7,237:
       GOSUB 5240
 6005 I = 600:
       SYS 6041:
       POKE S + 1,21:
       POKE S,237:
       POKE S + 8,26:
       POKE S + 7,20:
       GOSUB 5240
 6006 I = 400:
       SYS 6041:
       POKE S + 1,17:
       POKE S,103:
       POKE S + 8,21:
       POKE S + 7,237:
       GOSUB 5240
 6007 I = 200:
       SYS 6041:
       POKE S + 1,19:
       POKE S,137:
       POKE S + 8,23:
       POKE S + 7,59:
       GOSUB 5240
 6008  SYS 6041:
       POKE S + 1,17:
       POKE S,103:
       POKE S + 8,21:
       POKE S + 7,237:
       GOSUB 5240
 6009 I = 400:
       SYS 6041:
       POKE S + 1,23:
       POKE S,59:
       POKE S + 8,29:
       POKE S + 7,69:
       GOSUB 5240
 6010 I = 200:
       SYS 6041:
       POKE S + 1,21:
       POKE S,237:
       POKE S + 8,26:
       POKE S + 7,20:
       GOSUB 5240
 6011  SYS 6041:
       POKE S + 1,19:
       POKE S,137:
       POKE S + 8,23:
       POKE S + 7,59:
       GOSUB 5240
 6012 I = 400:
       SYS 6041:
       POKE S + 1,16:
       POKE S,109:
       POKE S + 8,19:
       POKE S + 7,137:
       GOSUB 5240
 6013 I = 200:
       SYS 6041:
       POKE S + 1,17:
       POKE S,103:
       POKE S + 8,21:
       POKE S + 7,237:
       GOSUB 5240
 6014 I = 600:
       SYS 6041:
       POKE S + 1,16:
       POKE S,109:
       POKE S + 8,19:
       POKE S + 7,137:
       GOSUB 5240
 6015  SYS 6041:
       POKE S + 1,19:
       POKE S,137:
       POKE S + 8,23:
       POKE S + 7,59:
       GOSUB 5240
 6016 I = 200:
       SYS 6041:
       POKE S + 1,21:
       POKE S,237:
       POKE S + 8,26:
       POKE S + 7,20:
       GOSUB 5240
 6017  SYS 6041:
       POKE S + 1,16:
       POKE S,109:
       POKE S + 8,19:
       POKE S + 7,137:
       GOSUB 5240
 6018 I = 600:
       SYS 6041:
       POKE S + 1,17:
       POKE S,103:
       POKE S + 8,21:
       POKE S + 7,237:
       GOSUB 5240
 6020  GOSUB 13100:
       FOR I = 0 TO 2E3:
       NEXT :
       SYS 5681:
       SYS 5681:
       PRINT "
#99DU KANNST JETZT
"
 6021  SYS 5681:
       PRINT "
DIE PRINZESSIN#13
":
       SYS 5681:
       PRINT "
BEFREIEN!#13
"
 6022  PRINT  LEFT$ (D$,20) SPC( 1 + X + X);
 6024  IF X < 7 THEN 
           PRINT "
#92#98#D2#D3#11#9D#9D#D4#D5#05#12ÄÖ#91#9D#9DYZ#9D#9D
";:
       GOSUB 30010:
      X = X + 1:
       FOR J = 0 TO 300:
       NEXT :
       GOTO 6024
 6026  FOR I = 0 TO 2:
       PRINT "
#98#92#11#D4#D5#91#9D#9D#D2#D3#91#9D#9D#05#12ÄÖ#91#9D#9DYZ#9D#9D
";:
       GOSUB 30010:
       FOR J = 0 TO 300:
       NEXT J,I
 6028  PRINT "
#9D#9DYZ#11#9D#9DÄÖ#98#92#D4#D5#91#9D#9D#D2#D3#9D#9D#9D#9D
";:
       GOSUB 30010:
       FOR J = 0 TO 300:
       NEXT 
 6030  PRINT "
#98#92#11#D4#D5#91#9D#9D#D2#D3#91#9D#9D#05#12ÄÖ#91#9D#9DYZ
";:
       GOSUB 30010:
       FOR J = 0 TO 800:
       NEXT 
 6032  PRINT "
#92#9F#CA#11#9D#CC#9D#9D#9D#91
";:
       GOSUB 30052:
       FOR J = 0 TO 500:
       NEXT 
 6034  PRINT "
#92#98#D2#D3#11#9D#9D#D4#D5#11#9D#9D#12#05YZ#9D#9D#11ÄÖ#9D#9D#91
";:
       GOSUB 30010:
       FOR J = 0 TO 300:
       NEXT 
 6036  FOR I = 0 TO 1:
       PRINT "
#92#98#D2#D3#11#9D#9D#D4#D5#05#12ÄÖ#91#9D#9DYZ#9D#9D
";:
       GOSUB 30010:
       FOR J = 0 TO 300:
       NEXT J,I
 6038  PRINT "
#98#92#11#D4#D5#91#9D#9D#D2#D3#91#9D#9D#05#12ÄÖ#91#9D#9DYZ#9D#9D#9D
";:
       GOSUB 30010:
       FOR J = 0 TO 800:
       NEXT 
 6040  PRINT "
#92#9F#CB#11#9D#CD#91
";:
       GOSUB 30052:
       FOR J = 0 TO 500:
       NEXT 
 6042  PRINT "
#92#98#D2#D3#11#9D#9D#D4#D5#11#9D#9D#12#05YZ#9D#9D#11ÄÖ#9D#9D#91
";:
       GOSUB 30010:
       FOR J = 0 TO 600:
       NEXT 
 6044  PRINT "
#9D#9D#91#91#9F#92#DC#DD#11#9D#9D#DC#DD#11#9D#9D<=#11#9D#9D>#C9
":
       GOSUB 30010:
       FOR I = 0 TO 500:
       NEXT 
 6050  SYS 5681:
       SYS 5681:
       PRINT "
#99DIE PRINZESSIN#13
":
       SYS 5681:
       PRINT "
FÄLLT DIR FREU-#13
"
 6051  SYS 5681:
       PRINT "
DESTRAHLEND UM#13
":
       SYS 5681:
       PRINT "
DEN HALS UND#13
"
 6052  SYS 5681:
       PRINT "
SAGT: %ICH DANKE#13
":
       SYS 5681:
       PRINT "
DIR! DU HAST#13
"
 6053  SYS 5681:
       PRINT "
MICH ERRETTET.#13
":
       GOSUB 900:
       PRINT "
WIE KOMMT ES#13
"
 6054  SYS 5681:
       PRINT "
NUR, DASS ES DIR#13
":
       SYS 5681:
       PRINT "
GELUNGEN IST,#13
"
 6055  SYS 5681:
       PRINT "
DEN SCHRECKLI-#13
":
       SYS 5681:
       PRINT "
CHEN DRACHEN ZU#13
"
 6056  SYS 5681:
       PRINT "
TÖTEN? DIE#13
":
       SYS 5681:
       PRINT "
BESTEN SOLDATEN#13
"
 6057  SYS 5681:
       PRINT "
MEINES VATERS#13
":
       SYS 5681:
       PRINT "
HABEN VERSAGT.%#13
"
 6058  GOSUB 900:
       PRINT "
DU ERZÄHLST IHR#13
":
       SYS 5681:
       PRINT "
DEINE GESCHICHTE#13
"
 6059  SYS 5681:
       PRINT "
UND DAS, WAS DU#13
":
       SYS 5681:
       PRINT "
BISHER WEISST#13
"
 6060  SYS 5681:
       PRINT "
UND WAS DU VOR-#13
":
       SYS 5681:
       PRINT "
HAST. SIE BLICKT#13
"
 6061  SYS 5681:
       PRINT "
DICH STAUNEND AN#13
":
       SYS 5681:
       PRINT "
UND SAGT DANN:#13
"
 6062  GOSUB 900:
       PRINT "
%VIELLEICHT KANN#13
":
       SYS 5681:
       PRINT "
ICH DIR HELFEN.#13
"
 6063  SYS 5681:
       PRINT "
DER LINDWURM#13
":
       SYS 5681:
       PRINT "
SPRACH OFT DURCH#13
"
 6064  SYS 5681:
       PRINT "
SEINE GEDANKEN#13
":
       SYS 5681:
       PRINT "
ZU MIR, TEILS UM#13
"
 6065  SYS 5681:
       PRINT "
SICH AN MEINER#13
":
       SYS 5681:
       PRINT "
ANGST ZU WEIDEN,#13
"
 6066  SYS 5681:
       PRINT "
TEILS AUS REINER#13
":
       SYS 5681:
       PRINT "
LANGEWEILE.#13
"
 6067  GOSUB 900:
       PRINT "
EINMAL ERZÄHLTE#13
":
       SYS 5681:
       PRINT "
ER MIR, DASS ER#13
"
 6068  SYS 5681:
       PRINT "
EINEN WUNDERBAR#13
":
       SYS 5681:
       PRINT "
FUNKELNDEN KRIS-#13
"
 6069  SYS 5681:
       PRINT "
TALLSPLITTER GE-#13
":
       SYS 5681:
       PRINT "
FUNDEN HABE, DER#13
"
 6070  SYS 5681:
       PRINT "
IM GRAS LAG.#13
":
       GOSUB 900:
       PRINT "
DA DRACHEN ALLES#13
"
 6071  SYS 5681:
       PRINT "
SAMMELN, WAS#13
":
       SYS 5681:
       PRINT "
GLÄNZT UND FUN-#13
"
 6072  SYS 5681:
       PRINT "
KELT, HAT ER#13
":
       SYS 5681:
       PRINT "
IHN MITGENOMMEN.#13
"
 6073  GOSUB 900:
       PRINT "
ER HAT IHN IN#13
":
       SYS 5681:
       PRINT "
SEINE SCHATZ-#13
"
 6074  SYS 5681:
       PRINT "
HÖHLE GEBRACHT.#13
":
       SYS 5681:
       PRINT "
ER BEWAHRT SEI-#13
"
 6075  SYS 5681:
       PRINT "
NE SCHÄTZE NÄM-#13
":
       SYS 5681:
       PRINT "
LICH NICHT HIER#13
"
 6076  SYS 5681:
       PRINT "
AUF, SONDERN ER#13
":
       SYS 5681:
       PRINT "
VERSTECKT SIE IN#13
"
 6077  SYS 5681:
       PRINT "
EINER HÖHLE.#13
":
       GOSUB 900:
       PRINT "
DIE HÖHLE LIEGT#13
"
 6078  SYS 5681:
       PRINT "
IN EINER TIEFEN#13
":
       SYS 5681:
       PRINT "
SCHLUCHT AM SÜD-#13
"
 6079  SYS 5681:
       PRINT "
ZIPFEL DES KON-#13
":
       SYS 5681:
       PRINT "
TINENTES. ES#13
"
 6080  SYS 5681:
       PRINT "
SOLL EIN TIEFES#13
":
       SYS 5681:
       PRINT "
LABYRINTH SEIN,#13
"
 6081  SYS 5681:
       PRINT "
DAS VON MONSTERN#13
":
       SYS 5681:
       PRINT "
BEVÖLKERT IST.#13
"
 6082  GOSUB 900:
       PRINT "
AN SEINER TIEF-#13
":
       SYS 5681:
       PRINT "
STEN STELLE IST#13
"
 6083  SYS 5681:
       PRINT "
EINE GEHEIMTÜR#13
":
       SYS 5681:
       PRINT "
VERSTECKT. DIESE#13
"
 6084  SYS 5681:
       PRINT "
TÜR HAT MAGISCHE#13
":
       SYS 5681:
       PRINT "
EIGENSCHAFTEN.#13
"
 6085  GOSUB 900:
       PRINT "
NUR DER DRACHE#13
":
       SYS 5681:
       PRINT "
KONNTE SIE ÖFF-#13
"
 6086  SYS 5681:
       PRINT "
NEN. KAM ER IN#13
":
       SYS 5681:
       PRINT "
IHRE NÄHE, ER-#13
"
 6087  SYS 5681:
       PRINT "
SCHIEN EIN#13
":
       SYS 5681:
       PRINT "
SCHLÜSSELLOCH.#13
"
 6088  GOSUB 900:
       PRINT "
VIELLEICHT RE-#13
":
       SYS 5681:
       PRINT "
AGIERT SIE JA#13
"
 6089  SYS 5681:
       PRINT "
AUCH AUF DEINE#13
":
       SYS 5681:
       PRINT "
MAGISCHE RÜSTUNG#13
"
 6090  SYS 5681:
       PRINT "
AUS DRACHEN-#13
":
       SYS 5681:
       PRINT "
SCHUPPEN.#13
"
 6091  GOSUB 900:
       PRINT "
JEDENFALLS ÖFF-#13
":
       SYS 5681:
       PRINT "
NETE SICH DIE#13
"
 6092  SYS 5681:
       PRINT "
TÜR SOBALD DAS#13
":
       SYS 5681:
       PRINT "
UNTIER EINE SEI-#13
"
 6093  SYS 5681:
       PRINT "
NER KRALLEN IN#13
":
       SYS 5681:
       PRINT "
DAS SCHLÜSSEL-#13
"
 6094  SYS 5681:
       PRINT "
LOCH SCHOB.#13
":
       GOSUB 900:
       PRINT "
WARTE MAL EINEN#13
"
 6095  SYS 5681:
       PRINT "
MOMENT, MIR#13
":
       SYS 5681:
       PRINT "
KOMMT DA EINE#13
"
 6096  SYS 5681:
       PRINT "
IDEE...%#13
":
       GOSUB 900:
       FOR I = 0 TO 800:
       NEXT 
 6100  PRINT  LEFT$ (D$,14) SPC( 13)"
#9F<=#11#9D#9D>#C9#98#D4#D5#91#9D#9D#D2#D3
";:
       GOSUB 30010:
       FOR I = 0 TO 300:
       NEXT 
 6101  PRINT "
#11#9D#9D#9D#9D#D4#D5#91#9D#9D#9F>#C9#91#9D#9D<=
";:
       GOSUB 30010:
       FOR I = 0 TO 300:
       NEXT 
 6102  PRINT "
#9D#9D#9D<=#11#9D#9D>#C9#98#D5#91#9D#D3
":
       GOSUB 30010:
       FOR I = 0 TO 500:
       NEXT 
 6103  SYS 5681:
       PRINT "
#99DIE PRINZESSIN#13
":
       SYS 5681:
       PRINT "
MACHT SICH AN#13
"
 6104  SYS 5681:
       PRINT "
DER PRANKE DES#13
":
       SYS 5681:
       PRINT "
DRACHEN ZU#13
"
 6105  SYS 5681:
       PRINT "
SCHAFFEN UND#13
":
       SYS 5681:
       PRINT "
TRENNT EINE#13
"
 6106  SYS 5681:
       PRINT "
SEINER KRALLEN#13
":
       SYS 5681:
       PRINT "
AB...
":
       GOSUB 900:
       FOR I = 1 TO 500:
       NEXT 
 6107  PRINT  LEFT$ (D$,13) SPC( 12)"
#98#D5#11#9D#D3#9F>#C9#91#9D#9D<=
";:
       GOSUB 30010:
       FOR I = 0 TO 300:
       NEXT 
 6108  PRINT "
#9D#9D#98#D4#D5#11#9D#9D#9F<=#11#9D#9D>#C9
";:
       GOSUB 30010:
       FOR I = 0 TO 300:
       NEXT 
 6109  PRINT "
#9D#9D#98#D4#D5#91#9D#9D#D2#D3#9F<=#11#9D#9D>#C9
";:
       GOSUB 30010:
       FOR I = 0 TO 300:
       NEXT 
 6110  SYS 5681:
       PRINT "
#99DIE PRINZESSIN#13
":
       SYS 5681:
       PRINT "
REICHT DIR DIE#13
"
 6111  SYS 5681:
       PRINT "
DRACHENKRALLE#13
":
       SYS 5681:
       PRINT "
UND SAGT:#13
"
 6112  SYS 5681:
       PRINT "
%HIER, BENUTZE#13
":
       SYS 5681:
       PRINT "
DAS ALS SCHLÜS-#13
"
 6113  SYS 5681:
       PRINT "
SEL FÜR DIE#13
":
       SYS 5681:
       PRINT "
MAGISCHE TÜR.#13
"
 6114  GOSUB 900:
       PRINT "
ICH KEHRE NUN#13
":
       SYS 5681:
       PRINT "
ZURÜCK INS#13
"
 6115  SYS 5681:
       PRINT "
SCHLOSS. ICH#13
":
       SYS 5681:
       PRINT "
LEIHE MIR DAZU#13
"
 6116  SYS 5681:
       PRINT "
DIE FEUERECHSE#13
":
       SYS 5681:
       PRINT "
AUS. KEINE#13
"
 6117  SYS 5681:
       PRINT "
ANGST, ICH#13
":
       SYS 5681:
       PRINT "
SCHICKE SIE WIE-#13
"
 6118  SYS 5681:
       PRINT "
DER HIERHER#13
":
       SYS 5681:
       PRINT "
ZURÜCK.#13
"
 6119  GOSUB 900:
       PRINT "
KOMM DOCH AUCH#13
":
       SYS 5681:
       PRINT "
MAL ZUM SCHLOSS.#13
"
 6120  SYS 5681:
       PRINT "
MEIN VATER, DER#13
":
       SYS 5681:
       PRINT "
KÖNIG, WIRD DICH#13
"
 6121  SYS 5681:
       PRINT "
FÜR MEINE RET-#13
":
       SYS 5681:
       PRINT "
TUNG SICHER#13
"
 6122  SYS 5681:
       PRINT "
REICH BELOHNEN.#13
":
       GOSUB 900:
       PRINT "
UND DANN GEHE#13
"
 6123  SYS 5681:
       PRINT "
DEN SPLITTER#13
":
       SYS 5681:
       PRINT "
HOLEN UND RETTE#13
"
 6124  SYS 5681:
       PRINT "
UNSERE WELT.#13
":
       SYS 5681:
       PRINT "
VIEL GLÜCK!%#13
"
 6126  GOSUB 900:
       PRINT  LEFT$ (D$,14) SPC( 15);:
       FOR I = 0 TO 500:
       NEXT 
 6130  FOR I = 1 TO 3:
       PRINT "
#98#D2#D3#11#9D#9D#D4#D5#11#9D#9D#9F<=#11#9D#9D>#C9#9D#9D#91
";:
       GOSUB 30010:
       FOR J = 0 TO 300:
       NEXT J,I
 6132  PRINT "
#9D#9D<=#11#9D#9D>#C9#98#D4#D5#91#9D#9D#D2#D3
";:
       GOSUB 30010:
       FOR J = 0 TO 300:
       NEXT 
 6133  PRINT "
#9D#9D#9D#9D#D2#D3#11#9D#9D#D4#D5#11#9D#9D#9F<=#11#9D#9D>#C9
";:
       GOSUB 30010:
       FOR J = 0 TO 300:
       NEXT 
 6134  PRINT "
#98#9D#9D#D4#D5#91#9D#9D#D2#D3
":
       GOSUB 30010:
       FOR J = 0 TO 300:
       NEXT :
       SYS 5681:
       PRINT "
#99DIE PRINZESSIN#13
"
 6135  SYS 5681:
       PRINT "
IST FORT. DAS#13
":
       SYS 5681:
       PRINT "
FLÜGELSCHLAGEN#13
"
 6136  SYS 5681:
       PRINT "
DER FEUERECHSE#13
":
       SYS 5681:
       PRINT "
ENTFERNT SICH...#13
"
 6137  GOSUB 900:
       PRINT "
MINUTEN SPÄTER#13
":
       SYS 5681:
       PRINT "
IST DAS TIER#13
"
 6138  SYS 5681:
       PRINT "
WIEDER ZURÜCK#13
":
       SYS 5681:
       PRINT "
UND WARTET AUF#13
":
       SYS 5681:
       PRINT "
DICH...#13
"
 6140  GOSUB 900:
       PRINT  LEFT$ (D$,14) SPC( 15)"
#05#12YZ#11#9D#9DÄÖ#98#92#D4#D5#91#9D#9D#D2#D3#9D#9D#9D#9D
";:
       GOSUB 30010:
       FOR J = 0 TO 300:
       NEXT 
 6141  FOR I = 1 TO 3:
       PRINT "
#92#98#D2#D3#11#9D#9D#D4#D5#11#9D#9D#05#12YZ#11#9D#9DÄÖ#9D#9D#91
";:
       GOSUB 30010:
       FOR J = 0 TO 300:
       NEXT J,I
 6142  PRINT "
#9D#9DYZ#11#9D#9DÄÖ#98#92#D4#D5#91#9D#9D#D2#D3
";:
       GOSUB 30010:
       FOR J = 0 TO 300:
       NEXT 
 6143  PRINT "
#9D#9D#9D#9D#D2#D3#11#9D#9D#D4#D5#11#9D#9D#12#05YZ#11#9D#9DÄÖ
";:
       GOSUB 30010:
       FOR J = 0 TO 300:
       NEXT 
 6144  PRINT "
#92#98#9D#9D#D4#D5#91#9D#9D#D2#D3
":
       GOSUB 30010:
       FOR J = 0 TO 300:
       NEXT :
       POKE 49358,1:
       POKE 2,0
 6200  FOR I = 1 TO 3E3:
       NEXT :
       PRINT "
#93#90L#CF
" CHR$ (34)"
DDD.KONJ
" CHR$ (34)"
,8
"
 6210  PRINT "
#11#11#11#11R#D5
":
       POKE 631,19:
       POKE 632,13:
       POKE 633,13:
       POKE 198,3:
       NEW 
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:
      S = 54272:
       POKE 650,255:
      V = 53248
11001  POKE 51211,8:
      J =  PEEK (49246):
       IF J THEN 
           IF  PEEK (49247 + J) = 0 THEN 
           POKE 49246,0
11002  DIM W$(27):
       FOR I = 0 TO 27:
       READ W$(I):
       NEXT 
11003 J =  PEEK (49247):
       IF J THEN 
           IF  PEEK (49266 + J) = 0 THEN 
           POKE 49247,0
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 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
"
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:
"
11120  FOR I = 0 TO 2:
       POKE V + 1 + I + I,203:
       POKE V + I + I,60 + 32 * I:
       POKE V + 39 + I,7:
       POKE 2040 + I,11
11121  NEXT :
       POKE V + 23,.:
       POKE V + 28,.:
       POKE V + 27,.:
       POKE V + 29,.:
       POKE V + 21,.:
       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  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:
       PRINT "
#96DRACHENFEUER#13
"
13030  POKE 56295,1:
       POKE 2023,71:
       POKE 198,0:
       WAIT 198,1:
       POKE 2,17:
       GOTO 6200
13100  SYS 5681:
       SYS 5681:
       PRINT "
DU ERHÄLST#13
"
13110  SYS 5681:
       PRINT "
300 PUNKTE.#13
"
13140 EF = EF + 300:
       IF EF > 999999 THEN 
          EF = 999999
13150 K = EF:
      L =  INT (K / 65536):
       POKE 49240,L:
      K = K - 65536 * L:
      L =  INT (K / 256):
       POKE 49239,L
13160  POKE 49238,K - 256 * L:
       GOTO 10000
30010  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 
// -----------------------------

30054  SYS 6041:
       POKE S + 5,41:
       POKE S + 1,20 +  FN R(20):
       POKE S + 4,129:
       RETURN 
// -----------------------------

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
    0