1  POKE 53281,0:
       POKE 53280,0:
       POKE 53272,18:
      I =  RND ( - TI):
      S = 54272:
       SYS 5454:
      V = 53248
    2  POKE 51209,15:
       POKE 51200,1:
       POKE 51201,11:
       POKE 51211,12:
       POKE 51224,3:
       POKE 51225,3
    3  POKE 51217,3:
       POKE 51221,3:
       POKE 51204,2:
       POKE 51208,2:
       POKE 650,255:
       POKE 51313,1
    4  FOR I = 0 TO 7:
       READ Z$(I),KG(I),KP(I),KS(I):
       NEXT :
       POKE 51226,11:
      X =  RND ( - TI)
    6  DIM A(3),P(3):
       FOR I = 0 TO 3:
       READ A(I),P(I):
       NEXT :
       DEF  FN R(X) =  INT (X *  RND (TI) + 1)
    7  FOR I = 0 TO 7:
       POKE 4032 + I * 3, PEEK (2840 + I):
       POKE 4033 + I * 3, PEEK (2848 + I):
       POKE 4034 + I * 3,.
    8  POKE 4056 + I * 3, PEEK (2856 + I):
       POKE 4057 + I * 3, PEEK (2864 + I):
       POKE 4058 + I * 3,.
    9  POKE 960 + I * 3, PEEK (2872 + I):
       POKE 961 + I * 3, PEEK (2880 + I):
       POKE 962 + I * 3,.
   10  POKE 984 + I * 3, PEEK (2888 + I):
       POKE 985 + I * 3, PEEK (2896 + I):
       POKE 986 + I * 3,.:
       NEXT 
   11  FOR I = 48 TO 62:
       POKE 960 + I,.:
       POKE 4032 + I,.:
       NEXT :
       POKE V + 39,7:
       POKE V + 40,7:
       POKE V + 21,0
   12  POKE V + 23,0:
       POKE V + 29,0:
       POKE V + 28,0:
       POKE V + 27,0:
       POKE 2040,15:
       POKE 2041,63
   13  POKE 51298,12
   20  PRINT "
#13#11#11
" SPC( 24)"
#99VITAL.:   (   )
":
       PRINT  SPC( 24)"
#91#9FASTRAL:   (   )
"
   21  PRINT  SPC( 24)"
#96ANG.:   #1EVER.:
":
       PRINT  SPC( 24)"
#91#9CSTR.:   #9EGES.:
"
   22  PRINT  SPC( 24)"
#9BKLG.:   #9ACHA.:
":
       PRINT  SPC( 24)"
#91#99ERF.:      (  )
"
   23  PRINT  SPC( 24)"
#9EGOLDSTCK.:
":
       PRINT  SPC( 24)"
#91#81NAHR.VORRAT:
"
   25 X = 17:
      Y = 36:
       GOSUB 10000:
       FOR I = 0 TO 31:
       POKE 49920 + I, PEEK (3928 + I):
       NEXT 
  100  POKE 2,X:
       POKE 182,Y:
       SYS 6052:
       SYS 4482:
      Q0 =  PEEK (892):
       SYS 4537:
       SYS 4361:
       SYS 5440
  101  IF Y < 9 AND Q0 = 10 GOTO 300
  102  IF Q0 = 11 AND  FN R(21) = 7 GOTO 400
  105  SYS 5681:
       PRINT "
#05@#C7#9D
";:
      Z = 0:
       IF Y = 37 GOTO 3300
  110 Z = Z + 1:
       IF Z > 499 GOTO 200
  120  GET U$:
       IF U$ = "
" GOTO 110
  122  IF U$ = "
 
" GOTO 200
  124  IF U$ = "
#91
" GOTO 210
  125  IF U$ = "
#11
" GOTO 220
  126  IF U$ = "
#9D
" GOTO 230
  127  IF U$ = "
#1D
" GOTO 234
  128  IF U$ = "
K
" GOTO 240
  129  IF U$ = "
W
" THEN 
           GOSUB 3500:
       GOTO 100
  130  IF U$ = "
R
" THEN 
           PRINT "
RÜSTUNG#13
":
       GOTO 191
  131  IF U$ = "
I
" THEN 
           PRINT "
INVENTUR#13
":
       GOTO 191
  132  IF U$ = "
Z
" GOTO 3000
  133  IF U$ = "
B
" GOTO 2000
  190  PRINT "
WIE BITTE..?#13
":
       GOTO 100
  191  SYS 5681:
       PRINT "
#9EMACH DAS#13
":
       SYS 5681:
       PRINT "
DRAUSSEN!#13
":
       GOTO 100
  200  PRINT "
WARTEN...#13
":
       GOTO 100
  210  PRINT "
NORDEN#13
":
      J =  PEEK (881):
       IF J > 11 OR J < 10 GOTO 214
  212 Y = Y - 1:
       GOTO 6100
  214  SYS 5681:
       PRINT "
#96BLOCKIERT!#13
":
       SYS 5681:
       GOTO 100
  220  PRINT "
SÜDEN#13
":
      J =  PEEK (903):
       IF J > 11 OR J < 10 GOTO 214
  222 Y = Y + 1:
       GOTO 6100
  230  PRINT "
WESTEN#13
":
      J =  PEEK (891):
       IF J > 11 OR J < 10 OR X = . GOTO 214
  232 X = X - 1:
       GOTO 6100
  234  PRINT "
OSTEN#13
":
      J =  PEEK (893):
       IF J > 11 OR J < 10 OR X = 32 GOTO 214
  236 X = X + 1:
       GOTO 6100
  240  PRINT "
KOMMUNIZIERE
";:
       SYS 5681:
       PRINT "
#96DAS HAT HIER#13
"
  241  SYS 5681:
       PRINT "
KEINEN SINN!#13
":
       GOTO 100
  290  ON  FN R(5) GOTO 291,292,293,294,295
  291 U$ = "
STIRB, NARR
":
       RETURN 
// -----------------------------

  292 U$ = "
SEI DES TODES
":
       RETURN 
// -----------------------------

  293 U$ = "
VERSCHWINDE
":
       RETURN 
// -----------------------------

  294 U$ = "
ICH TÖTE DICH
":
       RETURN 
// -----------------------------

  295 U$ = "
BRENNE, WURM
":
       RETURN 
// -----------------------------

  300  SYS 5681:
       POKE V + 16,.:
       PRINT "
#99DER ERZDÄMON#13
":
       SYS 5681:
       PRINT "
RUFT WÜTEND:#13
"
  301  GOSUB 290:
       SYS 5681:
       PRINT "
%
"U$"
!%#13
":
       POKE 51204,10:
       POKE 51208,10:
       SYS 4361
  302  FOR J = 0 TO 250:
       NEXT :
       POKE 51204,7:
       POKE 51208,7:
       SYS 4361:
       FOR I = 0 TO 200:
       NEXT 
  304  POKE V,352 - X * 16:
       POKE V + 2,400 - X * 16:
       POKE V + 1,170 - 16 * Y:
       POKE V + 3, PEEK (V + 1)
  306  POKE V + 21,3:
       SYS 6041:
       POKE 51204,2:
       POKE 51208,2:
       POKE S + 5,12:
       SYS 4361:
      K = 15
  308  POKE S + 4,33:
       FOR I = 33 TO 0 STEP  - 1:
       POKE S + 1,I:
       NEXT :
       FOR I = 0 TO 1:
      X(I) = 112 -  PEEK (V + I + I)
  310 Y(I) = 138 -  PEEK (V + 1 + I + I):
       NEXT :
       FOR I = 16 TO 0 STEP  - 1
  312  FOR J = 0 TO 1:
       POKE V + J + J,112 - X(J) * I / 16:
       NEXT :
       POKE V + 1,138 - Y(0) * I / 16:
      K = 78 - K
  314  POKE V + 3, PEEK (V + 1):
       POKE 2040,K:
       POKE 2041,K:
       NEXT :
       POKE 892,22:
       POKE 51222,7:
       SYS 4361
  316  POKE V + 33,10:
       POKE V + 21,0:
       SYS 6041
  317  POKE S + 1,3 +  FN R(5):
       POKE S + 5,11:
       POKE S + 4,129:
       FOR J = 0 TO 99:
       NEXT 
  318  POKE V + 33,.:
       POKE 892,27:
      HP = HP - 21 +  FN R(7) - RS + (RS = 6):
       IF HP < 1 THEN 
          HP = 0:
       POKE 892,26
  320  POKE 49231,HP / 256:
       POKE 49230,HP - 256 *  PEEK (49231):
       SYS 4361:
       GOSUB 10000:
       IF HP GOTO 105
  322 K = 3:
       GOTO 13000
  400  SYS 5681:
       PRINT "
#9EDU WIRST#13
":
       SYS 5681:
       PRINT "
ANGEGRIFFEN!#13
"
  401  SYS 6041:
       POKE S + 5,11:
       POKE S + 12,11:
       POKE S + 4,33:
       POKE S + 11,33
  402  FOR I = 0 TO 70:
       POKE S + 1,5 + I:
       POKE S + 8,75 - I:
       NEXT :
       POKE 2,11:
       SYS 5782:
       SYS 4537:
       SYS 4361
  404  GOSUB 999:
       PRINT "
#05--- KONFLIKT ---#13
"
  410  GOSUB 999:
       FOR I = 0 TO 31:
       POKE 3928 + I, PEEK (2800 + I):
       NEXT :
      MA =  FN R(2) - 1
  412  IF MA = . THEN 
           PRINT "
#9EDU BIST VON#13
":
       SYS 5681:
       PRINT "
UNSICHTBAREN#13
"
  413  IF MA = . THEN 
           SYS 5681:
       PRINT "
#9EPHANTOMEN#13
":
       SYS 5681:
       PRINT "
UMSTELLT!#13
":
       GOTO 420
  414  PRINT "
#9EDIE MAGIE DES#13
":
       SYS 5681:
       PRINT "
ERZDÄMONS LÄSST#13
"
  415  SYS 5681:
       PRINT "
STEINERNE GOLEMS#13
":
       SYS 5681:
       PRINT "
AUS DEM BODEN#13
"
  416  SYS 5681:
       PRINT "
WACHSEN!#13
"
  420 MN =  FN R(8) + 2:
       FOR I = 1 TO MN:
      M(I) = 30 + 30 * MA
  422 X(I) =  FN R(9) - 5:
      Y(I) =  FN R(9) - 5:
      J = 892 + X(I) + 11 * Y(I):
       IF  PEEK (J) <  > 11 GOTO 422
  424  POKE J,40:
      MP(I) = J:
       NEXT :
       SYS 4361:
       POKE 198,0:
       IF MA = . GOTO 500
  426  FOR I = 0 TO 16 STEP 16:
       FOR J = 0 TO 7:
       POKE 3928 + I + J, PEEK (3080 + I + J)
  428  POKE 3936 + I + J, PEEK (3088 + I + J):
       FOR K = 0 TO 5:
       NEXT K,J,I
  500  SYS 5681:
       PRINT "
#05@#C7#9D
";:
      Z = 0
  501 Z = Z + 1:
       IF Z > 499 GOTO 519
  502  GET U$:
       IF U$ = "
" GOTO 501
  503  IF U$ = "
 
" GOTO 519
  504  IF U$ = "
#91
" GOTO 530
  505  IF U$ = "
#11
" GOTO 540
  506  IF U$ = "
#9D
" GOTO 550
  507  IF U$ = "
#1D
" GOTO 560
  508  IF U$ = "
W
" THEN 
           GOSUB 3500:
       GOTO 1000
  509  IF U$ = "
A
" GOTO 600
  510  IF U$ = "
Z
" GOTO 521
  518  PRINT "
WIE BITTE..?#13
":
       GOTO 1000
  519  PRINT "
WARTEN...#13
":
       GOTO 1000
  521  PRINT "
ZAUBERSPRUCH#13
":
       SYS 5681:
       PRINT "
#9EDER ERZDÄMON#13
"
  522  SYS 5681:
       PRINT "
ABSORBIERT ALLE#13
":
       SYS 5681:
       PRINT "
MAGIE!#13
":
       GOTO 1000
  530  PRINT "
NORDEN#13
":
       IF  PEEK (881) > 11 GOTO 536
  531  FOR I = 1 TO MN:
       IF M(I) THEN 
           POKE MP(I),11
  532  NEXT :
       FOR I = 0 TO MN:
       IF M(I) THEN 
          Y(I) = Y(I) + 1:
      MP(I) = MP(I) + 11:
       POKE MP(I),40
  534  NEXT 
  535  SYS 4361:
       SYS 6041:
       POKE S + 5,16:
       POKE S + 1,12:
       POKE S + 4,129:
       GOTO 1000
  536  SYS 5681:
       PRINT "
#96BLOCKIERT!#13
":
       SYS 5681:
       GOTO 1000
  540  PRINT "
SÜDEN#13
":
       IF  PEEK (903) > 11 GOTO 536
  541  FOR I = 1 TO MN:
       IF M(I) THEN 
           POKE MP(I),11
  542  NEXT :
       FOR I = 0 TO MN:
       IF M(I) THEN 
          Y(I) = Y(I) - 1:
      MP(I) = MP(I) - 11:
       POKE MP(I),40
  544  NEXT :
       GOTO 535
  550  PRINT "
WESTEN#13
":
       IF  PEEK (891) > 11 GOTO 536
  551  FOR I = 1 TO MN:
       IF M(I) THEN 
           POKE MP(I),11
  552  NEXT :
       FOR I = 0 TO MN:
       IF M(I) THEN 
          X(I) = X(I) + 1:
      MP(I) = MP(I) + 1:
       POKE MP(I),40
  554  NEXT :
       GOTO 535
  560  PRINT "
OSTEN#13
":
       IF  PEEK (893) > 11 GOTO 536
  561  FOR I = 1 TO MN:
       IF M(I) THEN 
           POKE MP(I),11
  562  NEXT :
       FOR I = 0 TO MN:
       IF M(I) THEN 
          X(I) = X(I) - 1:
      MP(I) = MP(I) - 1:
       POKE MP(I),40
  564  NEXT :
       GOTO 535
  570  PRINT "
#96MIT DIESER WAFFE#13
":
       SYS 5681:
       PRINT "
KANNST DU HIER#13
"
  571  SYS 5681:
       PRINT "
KEINEN SCHADEN#13
":
       SYS 5681:
       PRINT "
ANRICHTEN!#13
":
       GOTO 1000
  580  SYS 6041:
      J =  PEEK (H):
       POKE H,87:
       POKE 51287,1:
       SYS 4361:
       POKE S + 5,9:
       POKE S + 4,129
  582  FOR I = 9 TO 35:
       POKE S + 1,I:
       NEXT :
       POKE H,J:
       SYS 4361:
       RETURN 
// -----------------------------

  600  PRINT "
ATTACKE#13
":
       SYS 5681:
       IF  PEEK (49246) < 18 GOTO 570
  601  PRINT "
#9E-RICHTUNG? #05#C7#9D
";:
      Z = .
  602 Z = Z + 1:
       GET U$:
       IF U$ = "
" AND Z < 599 GOTO 602
  603  IF U$ = "
#91
" GOTO 610
  604  IF U$ = "
#11
" GOTO 614
  605  IF U$ = "
#9D
" GOTO 616
  606  IF U$ = "
#1D
" GOTO 618
  607  PRINT "
KEINE#13
":
       GOTO 1000
  610  PRINT "
NORD#13
":
      H = 881:
       GOSUB 580:
       IF J = 40 GOTO 620
  612  SYS 5681:
       PRINT "
#96DANEBEN!#13
":
       GOTO 1000
  614  PRINT "
SÜD#13
":
      H = 903:
       GOSUB 580:
       IF J = 40 GOTO 620
  615  GOTO 612
  616  PRINT "
WEST#13
":
      H = 891:
       GOSUB 580:
       IF J = 40 GOTO 620
  617  GOTO 612
  618  PRINT "
OST#13
":
      H = 893:
       GOSUB 580:
       IF J = 40 GOTO 620
  619  GOTO 612
  620  FOR Z = 1 TO MN:
       IF M(Z) > . AND MP(Z) = H GOTO 622
  621  NEXT :
       GOTO 612
  622 K =  FN R(20):
       IF K < 3 GOTO 630
  623  IF AT < K THEN 
           SYS 5681:
       PRINT "
#96VERFEHLT!#13
":
       GOTO 1000
  624  IF 10 + 4 * MA >  FN R(20) GOTO 630
  626  POKE 51222,4:
       POKE H,22:
       SYS 6041:
       POKE S + 5,9:
       SYS 4361:
       POKE S + 1, FN R(20) + 11
  627  POKE S + 4,17:
       FOR I = 0 TO 30:
       NEXT :
       SYS 5681:
       PRINT "
#9CPARIERT!#13
":
       POKE H,J:
       SYS 4361:
       GOTO 1000
  630  POKE 51222,10:
       POKE H,22:
       SYS 6041:
       POKE S + 5,10:
       POKE S + 1,5 +  FN R(8):
       SYS 4361
  632  POKE S + 4,129:
       POKE H,40:
       SYS 5681:
       IF K = 1 THEN 
           PRINT "
#9FGLÜCKSTREFFER!#13
":
       SYS 5681:
       GOTO 640
  633  IF K = 2 THEN 
           PRINT "
#9FGUTER TREFFER!#13
":
       SYS 5681
  640 J =  FN R(7) + 9:
       IF K > 1 THEN 
          J = J - 2 - 2 * MA
  642 M(Z) = M(Z) - J:
       IF M(Z) < 1 THEN 
          M(Z) = .
  644  SYS 4361:
       PRINT "
#99
" MID$ ("
PHANTOMGOLEM
",7 * MA + 1,7)"
 IST#13
"
  646 J = M(Z) / (1 + MA):
       SYS 5681:
       IF J = 0 THEN 
           PRINT "
GETÖTET!#13
":
       GOTO 660
  650  IF J > 24 THEN 
           PRINT "
KAUM ANGEKRATZT#13
":
       GOTO 1000
  652  IF J > 18 THEN 
           PRINT "
LEICHT VERLETZT#13
":
       GOTO 1000
  653  IF J > 12 THEN 
           PRINT "
VERWUNDET#13
":
       GOTO 1000
  654  IF J > 6 THEN 
           PRINT "
SCHWER VERLETZT#13
":
       GOTO 1000
  655  PRINT "
FAST SCHON TOT#13
":
       GOTO 1000
  660  IF MA = . GOTO 664
  662  POKE H,98:
       SYS 6041:
       POKE S + 5,10:
       POKE S + 1, FN R(9) + 7:
       SYS 4361:
       POKE S + 4,129:
       FOR I = 0 TO 259:
       NEXT 
  664  POKE H,11:
       SYS 4361:
       GOSUB 13100:
       GOTO 1000
  970  PRINT "
 #05#C7#9D
";:
       POKE 198,0
  971  GET U$:
       IF U$ = "
J
" OR U$ = "
N
" THEN 
           PRINT U$"
#99#13
":
       GOTO 999
  972  GOTO 971
  990  POKE 56295,1:
       POKE 2023,71:
       POKE 198,0:
       WAIT 198,1:
       POKE 2023,32:
       POKE 198,0
  999  SYS 5681:
       SYS 5681:
       RETURN 
// -----------------------------

 1000  POKE 198,.:
      ZZ = 1:
       FOR N = 1 TO MN:
       IF M(N) GOTO 1100
 1010  NEXT N:
       IF ZZ THEN 
           GOSUB 999:
       PRINT "
#05---- SIEG! ----#13
":
       SYS 5681:
       POKE 198,0:
       GOTO 100
 1020  GOTO 500
 1100 ZZ = 0:
       IF  ABS (X(N)) < 2 AND  ABS (Y(N)) < 2 GOTO 1200
 1110 J = X(N) -  SGN (X(N)):
      K = Y(N) -  SGN (Y(N))
 1111 H = 892 + J + 11 * K:
       IF  PEEK (H) = 11 THEN 
          X(N) = J:
      Y(N) = K:
       GOTO 1120
 1112 H = 892 + X(N) + 11 * K:
       IF  PEEK (H) = 11 THEN 
          Y(N) = K:
       GOTO 1120
 1114 H = 892 + J + 11 * Y(N):
       IF  PEEK (H) = 11 THEN 
          X(N) = J:
       GOTO 1120
 1116  GOSUB 1300:
       IF J GOTO 1130
 1120  POKE MP(N),11:
      MP(N) = 892 + X(N) + 11 * Y(N):
       POKE MP(N),40
 1122  SYS 4361:
       SYS 6041:
       POKE S + 5,16:
       POKE S + 1,8:
       POKE S + 4,129
 1130  IF  ABS (Y(N)) > 4 OR  ABS (X(N)) > 4 THEN 
           POKE MP(N),11:
      M(N) = .:
       SYS 4361
 1140  GOTO 1010
 1200  POKE 51287,7:
       POKE 892,87:
       SYS 4361:
       SYS 6041:
       POKE S + 5,8:
       POKE S + 4,129
 1202  FOR I = 13 TO 30:
       POKE S + 1,I:
       NEXT :
       IF  FN R(20) < 13 + 4 * MA GOTO 1210
 1204  POKE 892,27:
       SYS 4361:
       GOTO 1010
 1210  IF  FN R(20) > PA GOTO 1220
 1212  POKE 51222,4:
       POKE 892,22:
       SYS 6041:
       POKE S + 5,8:
       SYS 4361:
       POKE S + 1, FN R(20) + 8:
       POKE S + 4,17
 1214  FOR I = 0 TO 25:
       NEXT :
       SYS 5681:
       PRINT "
#9CDU PARIERST!#13
":
       POKE 892,27:
       SYS 4361:
       GOTO 1010
 1220  POKE 51222,10:
       POKE 892,22:
       SYS 6041:
       POKE S + 5,10:
       SYS 4361:
       POKE S + 1, FN R(9) + 3
 1222  POKE S + 4,129:
       FOR I = 0 TO 35:
       NEXT :
       SYS 5681:
       PRINT "
#96
" MID$ ("
PHANTOMGOLEM
",1 + 7 * MA,7);
 1224  PRINT "
 HAT DICH#13
":
       SYS 5681:
      K = MA + 1:
      Z = 22 + MA * 5:
      Z = Z -  FN R(Z / 3.5)
 1226 Z = Z - RS + (RS = 6):
       IF Z < 13 THEN 
           PRINT "
LEICHT#13
":
       GOTO 1230
 1228  PRINT "
SCHWER#13
"
 1230  SYS 5681:
       PRINT "
GETROFFEN!#13
":
       POKE 892,27:
       SYS 4361:
      HP = HP - Z
 1231  IF HP < 1 THEN 
          HP = 0:
       POKE 51226,15:
       POKE 892,26
 1232  POKE 49231,HP / 256:
       POKE 49230,HP - 256 *  PEEK (49231):
       SYS 4361:
       GOSUB 10000
 1234  IF HP = . GOTO 13000
 1236  GOTO 1010
 1300 Z = 0:
      J = 0:
      I =  FN R(4)
 1310 I = I + 1 + 4 * (I = 5):
      Z = Z + 1:
       IF Z = 5 THEN 
          J = 1:
       RETURN 
// -----------------------------

 1312  ON I GOTO 1320,1330,1340,1350
 1320  IF  PEEK (MP(N) - 11) = 11 AND Y(N) >  - 4 THEN 
          Y(N) = Y(N) - 1:
       RETURN 
// -----------------------------

 1325  GOTO 1310
 1330  IF  PEEK (MP(N) + 11) = 11 AND Y(N) < 4 THEN 
          Y(N) = Y(N) + 1:
       RETURN 
// -----------------------------

 1335  GOTO 1310
 1340  IF  PEEK (MP(N) - 1) = 11 AND X(N) >  - 4 THEN 
          X(N) = X(N) - 1:
       RETURN 
// -----------------------------

 1345  GOTO 1310
 1350  IF  PEEK (MP(N) + 1) = 11 AND X(N) < 4 THEN 
          X(N) = X(N) + 1:
       RETURN 
// -----------------------------

 1355  GOTO 1310
 2000  PRINT "
BENUTZE #9E- WAS?#13#05
":
       SYS 5681:
      K = 0:
      A$ = "
"
 2010  PRINT "
#C7#9D
";
 2020  GET U$:
       IF U$ < "
A
" OR U$ > "
Ü
" GOTO 2020
 2030  PRINT U$;:
      A$ = A$ + U$:
      K = K + 1:
       IF K < 4 GOTO 2010
 2040  IF A$ = "
KRIS
" THEN 
           PRINT "
TALLSPLITTER#13
":
       GOTO 2100
 2050  IF A$ = "
SPLI
" THEN 
           PRINT "
TTER#13
":
       GOTO 2100
 2060  SYS 5681:
       PRINT "
#96DAS HAT HIER#13
":
       SYS 5681:
       PRINT "
KEINEN SINN!#13
":
       GOTO 100
 2100  IF  PEEK (49351) GOTO 2110
 2102  SYS 5681:
       PRINT "
#9CDU HAST DEN#13
":
       SYS 5681:
       PRINT "
SPLITTER NICHT!#13
":
       GOTO 100
 2110  IF X > 14 AND X < 19 AND Y < 7 GOTO 2120
 2112  SYS 5681:
       PRINT "
#96DU BIST ZU WEIT#13
":
       SYS 5681:
       PRINT "
VOM KRISTALL#13
"
 2114  SYS 5681:
       PRINT "
ENTFERNT!#13
":
       GOTO 100
 2120  IF X = 18 AND Y = 4 GOTO 2130
 2122  SYS 5681:
       PRINT "
#9ADU STEHST NICHT#13
":
       SYS 5681:
       PRINT "
NEBEN DER#13
"
 2123  SYS 5681:
       PRINT "
SCHARTE IM#13
":
       SYS 5681:
       PRINT "
KRISTALL, WO DER#13
"
 2124  SYS 5681:
       PRINT "
SPLITTER FEHLT!#13
":
       GOTO 100
 2130  SYS 5681:
       PRINT "
#9FDU HEBST DEN#13
":
       SYS 5681:
       PRINT "
SPLITTER HOCH#13
"
 2132  SYS 5681:
       PRINT "
ÜBER DIE NARBE#13
":
       SYS 5681:
       PRINT "
IM KRISTALL. DER#13
"
 2134  SYS 5681:
       PRINT "
SPLITTER GLÜHT#13
":
       SYS 5681:
       PRINT "
AUF. GLEICH WIRD#13
"
 2136  SYS 5681:
       PRINT "
SICH DEIN#13
":
       SYS 5681:
       PRINT "
SCHICKSAL#13
"
 2138  SYS 5681:
       PRINT "
ERFÜLLEN.#13
":
       GOSUB 990:
       PRINT "
WAS RUFST DU,#13
"
 2140  SYS 5681:
       PRINT "
WÄHREND DU DEN#13
":
       SYS 5681:
       PRINT "
KRISTALL HEILST?#13
"
 2200 A$ = "
":
      K = 0:
       SYS 5681:
       SYS 5681:
       PRINT "
#9E@@@#05
";
 2210  PRINT "
#C7#9D
";
 2220  GET U$:
       IF U$ =  CHR$ (13) AND K > . GOTO 2300
 2230  IF U$ =  CHR$ (20) AND K > . GOTO 2260
 2240  IF U$ < "
A
" OR U$ > "
Ü
" OR K = 12 GOTO 2220
 2250 A$ = A$ + U$:
       PRINT U$;:
      K = K + 1:
       GOTO 2210
 2260 K = K - 1:
      A$ =  LEFT$ (A$,K):
       PRINT "
 #9D#9D
";:
       GOTO 2210
 2300  PRINT "
 #13
":
       SYS 5681:
       SYS 5681:
       PRINT "
#9FDER SPLITTER#13
":
       SYS 5681:
       PRINT "
PULSIERT WARM IN#13
"
 2302  SYS 5681:
       PRINT "
DEINER HAND. DER#13
":
       SYS 5681:
       PRINT "
KRISTALL BEGINNT#13
"
 2304  SYS 5681:
       PRINT "
ZU VIBRIEREN UND#13
":
       SYS 5681:
       PRINT "
ZU SUMMEN.#13
"
 2306  GOSUB 990:
       PRINT "
DU BLICKST DEM#13
":
       SYS 5681:
       PRINT "
GRAUENHAFTEN#13
"
 2308  SYS 5681:
       PRINT "
ERZDÄMON FEST#13
":
       SYS 5681:
       PRINT "
IN SEINE UNBE-#13
"
 2310  SYS 5681:
       PRINT "
SCHREIBLICHEN#13
":
       SYS 5681:
       PRINT "
AUGEN UND#13
"
 2312  SYS 5681:
       PRINT "
BRÜLLST AUS#13
":
       SYS 5681:
       PRINT "
LEIBESKRÄFTEN:#13
"
 2314  SYS 5681:
       PRINT "
#9E%
"A$"
!%#13
":
       SYS 5681:
       PRINT "
#9FDANN LÄSST DU#13
"
 2316  SYS 5681:
       PRINT "
DEN SPLITTER#13
":
       SYS 5681:
       PRINT "
HERABSAUSEN...#13
"
 2320  GOSUB 990:
       IF A$ = "
TROFNIH
" GOTO 2400
 2321  IF A$ = "
HINFORT
" GOTO 5000
 2322  PRINT "
#99DER SPLITTER#13
":
       SYS 5681:
       PRINT "
SCHLÄGT MIT#13
"
 2324  SYS 6041:
       POKE S + 5,10:
       POKE S + 1,28:
       POKE S + 4,17:
       SYS 5681:
       PRINT "
EINEM SINGENDEN#13
"
 2326  SYS 5681:
       PRINT "
TON EINEN FUNKEN#13
":
       SYS 5681:
       PRINT "
AUF DER OBER-#13
"
 2328  SYS 5681:
       PRINT "
FLÄCHE DES KRIS-#13
":
       SYS 5681:
       PRINT "
TALLS, ABER#13
"
 2330  SYS 5681:
       PRINT "
SONST PASSIERT#13
":
       SYS 5681:
       PRINT "
NICHTS.#13
"
 2332  GOSUB 990:
       PRINT "
DER SPLITTER#13
":
       SYS 5681:
       PRINT "
VERSCHMILZT#13
"
 2334  SYS 5681:
       PRINT "
NICHT MIT DEM#13
":
       SYS 5681:
       PRINT "
KRISTALL; IM#13
"
 2336  SYS 5681:
       PRINT "
GEGENTEIL, EINE#13
":
       SYS 5681:
       PRINT "
WELLE DES BÖSEN#13
"
 2337  SYS 5681:
       PRINT "
SCHLÄGT DIR ENT-#13
":
       SYS 5681:
       PRINT "
GEGEN UND VER-#13
"
 2338  SYS 5681:
       PRINT "
MISCHT SICH MIT#13
":
       SYS 5681:
       PRINT "
DEM GELÄCHTER#13
"
 2339  SYS 5681:
       PRINT "
DES ERZDÄMONS...#13
":
       GOSUB 990:
       GOTO 100
 2400  POKE 49231,0:
       POKE 49230,0:
      HP = 0
 2401  SYS 6041:
       POKE S + 5,14:
       POKE S + 12,14:
       POKE S + 19,14
 2402  POKE S + 1,3:
       POKE S + 8,4:
       POKE S + 15,5:
       POKE V + 33,1:
       POKE V + 32,1
 2404  POKE S + 4,129:
       POKE S + 11,129:
       POKE S + 18,129:
       FOR I = 0 TO 500:
       NEXT :
       POKE 892,26
 2406  POKE V + 33,7:
       POKE V + 32,7:
       POKE V + 23,3:
       POKE V + 29,3:
       POKE V,80:
       POKE V + 1,138
 2408  POKE V + 2,80:
       POKE V + 3,138:
       SYS 4361:
       FOR I = 0 TO 400:
       NEXT :
       POKE 2040,15:
       POKE 2041,63
 2410  POKE V + 33,10:
       POKE V + 32,10:
       POKE V + 21,3:
       POKE 891,10:
       POKE 890,10:
       POKE 902,10
 2411  POKE 901,10:
       SYS 4361:
       FOR I = 0 TO 400:
       NEXT :
      K = 2
 2420  POKE V + 33,2:
       POKE V + 32,2:
       FOR I = 0 TO 4:
      K = 3 - K:
       POKE V + 21,K:
       FOR J = 0 TO 88:
       NEXT J,I
 2422  POKE V + 33,9:
       POKE V + 32,9:
       FOR I = 0 TO 4:
      K = 3 - K:
       POKE V + 21,K:
       FOR J = 0 TO 88:
       NEXT J,I
 2424  POKE V + 33,11:
       POKE V + 32,11:
       FOR I = 0 TO 4:
      K = 3 - K:
       POKE V + 21,K:
       FOR J = 0 TO 88:
       NEXT J,I
 2426  POKE V + 33,0:
       POKE V + 32,0:
       FOR I = 0 TO 4:
      K = 3 - K:
       POKE V + 21,K:
       FOR J = 0 TO 88:
       NEXT J,I
 2428  POKE V + 21,0:
       PRINT "
#9EWAS HAST DU#13
":
       SYS 5681:
       PRINT "
GETAN?#13
"
 2430  GOSUB 999:
       PRINT "
DER NAME DES#13
":
       SYS 5681:
       PRINT "
BÖSEN HAT DIE#13
"
 2432  SYS 5681:
       PRINT "
GANZE MACHT DES#13
":
       SYS 5681:
       PRINT "
ERZDÄMONS FREI-#13
"
 2434  SYS 5681:
       PRINT "
GESETZT. DER#13
":
       SYS 5681:
       PRINT "
KRISTALL IST#13
"
 2436  SYS 5681:
       PRINT "
REGELRECHT#13
":
       SYS 5681:
       PRINT "
EXPLODIERT.#13
"
 2438  SYS 5681:
       PRINT "
DAMIT IST JEDE#13
":
       SYS 5681:
       PRINT "
HOFFNUNG FÜR#13
"
 2440  SYS 5681:
       PRINT "
DIESE WELT#13
":
       SYS 5681:
       PRINT "
VERLOREN!#13
":
       GOSUB 990:
       PRINT "
ABER DU HAST#13
"
 2442  SYS 5681:
       PRINT "
KEINE GELEGEN-#13
":
       SYS 5681:
       PRINT "
HEIT MEHR,#13
"
 2444  SYS 5681:
       PRINT "
DEINEN FEHLER#13
":
       SYS 5681:
       PRINT "
ZU BEREUEN.#13
"
 2446  GOSUB 990:
       PRINT "
DAS LETZTE, WAS#13
":
       SYS 5681:
       PRINT "
DU SPÜRST, IST,#13
"
 2448  SYS 5681:
       PRINT "
WIE DER NAME DES#13
":
       SYS 5681:
       PRINT "
BÖSEN DIR LEIB#13
"
 2450  SYS 5681:
       PRINT "
UND SEELE VER-#13
":
       SYS 5681:
       PRINT "
BRENNT, WÄHREND#13
"
 2452  SYS 5681:
       PRINT "
DIE SPLITTER DES#13
":
       SYS 5681:
       PRINT "
KRISTALLS DEINEN#13
"
 2453  SYS 5681:
       PRINT "
KÖRPER ZER-#13
":
       SYS 5681:
       PRINT "
FETZEN...#13
":
       GOSUB 990
 2454 K = 3:
       GOTO 13000
 3000  PRINT "
ZAUBERSPRUCH#13
":
       SYS 5681:
       SYS 5681:
       PRINT "
#9FDER EINZIGE#13
"
 3001  SYS 5681:
       PRINT "
ZAUBER, DER HIER#13
":
       SYS 5681:
       PRINT "
AUSGELÖST WERDEN#13
"
 3002  SYS 5681:
       PRINT "
KANN, IST DER#13
":
       SYS 5681:
       PRINT "
BANNBRECHER.#13
"
 3004  SYS 5681:
       SYS 5681:
       PRINT "
#9EMÖCHTEST DU#13
":
       SYS 5681:
       PRINT "
DAS?
";:
       GOSUB 970:
       IF U$ = "
N
" GOTO 100
 3006  IF  PEEK (49308) = . THEN 
           PRINT "
#96DU KANNST DEN#13
":
       SYS 5681:
       PRINT "
SPRUCH NICHT!#13
":
       GOTO 100
 3008  IF AS < 30 THEN 
           PRINT "
#96ZU WENIG#13
":
       SYS 5681:
       PRINT "
ASTRALENERGIE!#13
":
       GOTO 100
 3010  IF  PEEK (49340) = . OR  PEEK (49341) = . OR  PEEK (49343) = . THEN 
           PRINT "
ZU WENIG ZUTATEN#13
":
       GOTO 100
 3012  POKE 49340, PEEK (49340) - 1:
       POKE 49341, PEEK (49341) - 1:
       POKE 49343, PEEK (49343) - 1
 3014 AS = AS - 30:
       POKE 49235,AS / 256:
       POKE 49234,AS - 256 *  PEEK (49235)
 3016  PRINT "
#81DU KONZENTRIERST#13
":
       SYS 5681:
       PRINT "
DICH...#13
"
 3018  SYS 5681:
       IF  RND (TI) * 20 + 1 > CH THEN 
           PRINT "
#96GELINGT NICHT!#13
":
       GOTO 100
 3020  PRINT "
#9FES GELINGT!#13
":
      H = 5934 + 35 * Y + X:
       FOR I = 0 TO 10:
      H = H + 35
 3021  FOR J =  - 5 TO 5:
       IF  PEEK (H + J) = . THEN 
           POKE H + J,11
 3022  NEXT J,I:
       POKE 53281,14:
       SYS 6041:
       POKE S + 5,10:
       POKE S + 4,33
 3024  FOR I = 5 TO 50 STEP 5:
       FOR J = I TO I + 10:
       POKE S + 1,J:
       NEXT J,I:
       POKE 53281,0
 3026  FOR I = 0 TO 500:
       NEXT :
       POKE 51200,15:
       SYS 4361:
       FOR I = 0 TO 500:
       NEXT :
       POKE 51200,12:
       SYS 4361
 3028  FOR I = 0 TO 500:
       NEXT :
       POKE 51200,11:
       SYS 4361:
       FOR I = 0 TO 500:
       NEXT :
       POKE 51200,0:
       SYS 4361
 3030  POKE 51200,1:
       GOTO 100
 3300  PRINT "
#9D  #13
":
       SYS 5681:
       PRINT "
#9EMÖCHTEST DU DIE#13
":
       SYS 5681:
       PRINT "
SCHÄDELFESTE#13
"
 3301  SYS 5681:
       PRINT "
VERLASSEN?
";:
       GOSUB 970:
       IF U$ = "
N
" THEN 
          Y = Y - 1:
       GOTO 100
 3302  GOTO 6000
 3500  PRINT "
WAFFE BENUTZEN#13
":
       SYS 5681
 3540  IF  PEEK (49265) = . GOTO 3550
 3542  PRINT "
#9EZAUBERSCHWINGE#13
":
       SYS 5681:
       PRINT "
BEREIT!#13
":
       POKE 49246,18:
      WA = 18
 3544 SH = 0:
       POKE 49167,0:
       RETURN 
// -----------------------------

 3550  PRINT "
#96DIE EINZIGE#13
":
       SYS 5681:
       PRINT "
WAFFE, DIE DIR#13
":
       SYS 5681:
       PRINT "
JETZT HELFEN#13
"
 3552  SYS 5681:
       PRINT "
KÖNNTE, HAST DU#13
":
       SYS 5681:
       PRINT "
NOCH NICHT!#13
"
 3560  GOSUB 990:
       PRINT "
#9EDU FLIEHST...#13
":
       FOR I = 0 TO 3E3:
       NEXT :
       RUN 
 5000  POKE 891,30:
       POKE 890,23:
       POKE 902,51:
       POKE 901,34:
       POKE 51230,3:
       POKE 51223,3
 5002  POKE 51251,3:
       POKE 51234,3:
       SYS 6041:
       POKE S + 5,12:
       POKE S + 12,12:
       SYS 4361
 5004  POKE S + 4,129:
       POKE S + 11,17:
       FOR I = 33 TO 7 STEP  - 1:
       POKE S + 1,I:
       POKE S + 8,I:
       NEXT 
 5006  POKE 51230,1:
       POKE 51223,1:
       POKE 51251,1:
       POKE 51234,1:
       SYS 4361
 5008  FOR I = 8 TO 120:
       POKE S + 1,I:
       POKE S + 8,I:
       NEXT 
 5010  SYS 5681:
       PRINT "
GESCHAFFT! DER#13
":
       SYS 5681:
       PRINT "
KRISTALL GLÜHT#13
"
 5011  SYS 5681:
       PRINT "
AUF UND VER-#13
":
       SYS 5681:
       PRINT "
SCHMILZT MIT DEM#13
"
 5012  SYS 5681:
       PRINT "
SPLITTER WIEDER#13
":
       SYS 5681:
       PRINT "
ZU EINER EIN-#13
"
 5013  SYS 5681:
       PRINT "
HEIT. GLEICH-#13
":
       SYS 5681:
       PRINT "
ZEITIG SPÜRST#13
"
 5014  SYS 5681:
       PRINT "
DU, WIE SICH IN#13
":
       SYS 5681:
       PRINT "
IHM EINE UNVOR-#13
"
 5015  SYS 5681:
       PRINT "
STELLBAR STARKE#13
":
       SYS 5681:
       PRINT "
MACHT ANSAMMELT.#13
"
 5016  GOSUB 990:
       PRINT "
DER ERZDÄMON#13
":
       SYS 5681:
       PRINT "
BRÜLLT EIN#13
"
 5018  POKE 867,8:
       POKE 870,4:
       SYS 4361:
       SYS 5681:
       PRINT "
VERZWEIFELTES#13
"
 5020  GOSUB 999:
       PRINT "
#9E%#12#DA#92#B2#C0#AE#B0#C0#C0#12#D9#D8#DA#92#B2#C0#AE#12#D8#92%#13
"
 5021  SYS 5681:
       PRINT "
  # ##   # # ###13
":
       SYS 5681:
       PRINT "
  # ##AB#C0#12#D9#92 # # ##12#D7#13
"
 5022  SYS 5681:
       PRINT "
  # ##   # # ##12#D8#13
":
       SYS 5681:
       PRINT "
 #12#DA#92#BD#12#DA#92#BD#AD#C0#C0#12#D9#D7#DA#92#BD#12#DA#92#BD#12#D7#13
"
 5024  GOSUB 999:
       GOSUB 990:
       PRINT "
#9FDANN EXPLODIERT#13
":
       SYS 5681:
       PRINT "
DER KRISTALL#13
"
 5026  SYS 5681:
       PRINT "
FÖRMLICH IN#13
":
       SYS 5681:
       PRINT "
EINEM REINEN#13
"
 5028  SYS 5681:
       PRINT "
WEISSEN LICHT...#13
":
       GOSUB 990
 5030  SYS 6041:
       POKE S + 5,12:
      K = 12:
       POKE V + 33,1:
       POKE V + 32,1:
       POKE S + 4,33
 5032  FOR I = 0 TO 200:
      K = 65 - K:
       POKE S + 1,K:
       NEXT :
       POKE 51204,10:
       POKE 51208,10:
       SYS 4361
 5034  FOR J = 0 TO 200:
       NEXT :
       POKE 51204,7:
       POKE 51208,7:
       SYS 4361
 5035  FOR J = 0 TO 400:
       NEXT :
       POKE 51204,10:
       POKE 51208,10:
       SYS 4361
 5036  FOR J = 0 TO 200:
       NEXT :
       POKE 51204,2:
       POKE 51208,2:
       SYS 4361
 5037  FOR J = 0 TO 200:
       NEXT :
       POKE 51204,9:
       POKE 51208,9:
       SYS 4361
 5038  FOR J = 0 TO 200:
       NEXT :
       POKE 51204,11:
       POKE 51208,11:
       SYS 4361:
       FOR I = 0 TO 200:
       NEXT 
 5040  POKE 867,1:
       POKE 870,1:
       SYS 4361:
       FOR I = 0 TO 300:
       NEXT :
       POKE V + 33,3:
       POKE V + 32,3
 5042  SYS 6041:
       POKE S + 5,76:
       POKE S + 4,129:
       FOR I = 0 TO 4:
       POKE S + 1,30 + I * 20:
      K = 898 - 11 * I
 5044  FOR J = 0 TO 8:
       IF  PEEK (K + J) = 1 THEN 
           POKE K + J,10
 5046  NEXT :
       SYS 4361:
       FOR J = 0 TO 99:
       NEXT J,I:
       POKE V + 33,14:
       POKE V + 32,14:
       POKE 892,10
 5048  SYS 4361:
       FOR I = 0 TO 400:
       NEXT :
       POKE V + 33,6:
       POKE V + 32,6:
       FOR I = 0 TO 400:
       NEXT :
       GOSUB 999
 5050  POKE V + 33,0:
       POKE V + 32,0:
       GOSUB 999:
       PRINT "
DIE MACHT DES#13
":
       SYS 5681:
       PRINT "
KRISTALLS HAT#13
"
 5052  SYS 5681:
       PRINT "
DEN DÄMON WIEDER#13
":
       SYS 5681:
       PRINT "
IN DIE FINSTEREN#13
"
 5054  SYS 5681:
       PRINT "
ABGRÜNDE DER#13
":
       SYS 5681:
       PRINT "
HÖLLE GESCHLEU-#13
"
 5056  SYS 5681:
       PRINT "
DERT, AUS DENEN#13
":
       SYS 5681:
       PRINT "
ER KAM.#13
"
 5058  GOSUB 990:
       PRINT "
MIT DEM DÄMON#13
":
       SYS 5681:
       PRINT "
VERSCHWINDET#13
":
       SYS 5681:
       PRINT "
AUCH ALLES ÜBEL,#13
"
 5060  SYS 5681:
       PRINT "
DAS DAS GLEICH-#13
":
       SYS 5681:
       PRINT "
GEWICHT DER WELT#13
"
 5062  SYS 5681:
       PRINT "
STÖRTE...#13
":
       GOSUB 990:
       POKE 2,20:
       SYS 5782:
       SYS 4361:
       POKE 829,0
 5064  FOR I = 0 TO 15:
       POKE 2600 + I, PEEK (3336 + I):
       NEXT :
       POKE 829,1:
       POKE 2,1:
       SYS 5782
 5066  POKE 51201,14:
       FOR I = 0 TO 31:
       POKE 3928 + I, PEEK (49920 + I):
       NEXT :
       SYS 4361
 5100  PRINT "
#13#11#11#11#11
" SPC( 9)"
#9F#C7#C8#C7#C8#C7#C8
":
       PRINT  SPC( 7)"
#91#C7#C8#C7#81#B4#A2#B4#A2#9F#C8#C7#C8
"
 5102  PRINT  SPC( 6)"
#C8#C7#81#12#AF#92#B6#12#AF#92#B6#12#AF#92#B6#12#AF#92#B6#9F#C8#C7
":
       PRINT "
#91#1D#1D#1D#1D#1D#C7#C8#81#A2#B4#A2#B4#A2#B4#A2#B4#A2#B4#9F#C7#C8
"
 5104  PRINT "
#1D#1D#1D#1D#1D#C7#81#12#AF#92#B6#12#AF#92#B6#96#C7#C8#C7#C8#12#81#AF#92#B6#12#AF#92#B6#9F#C8
":
       PRINT "
#91#1D#1D#1D#1D#9F#C8#C7#81#B4#A2#B4#96#C7#C8#C7#C8#C7#C8#81#A2#B4#A2#9F#C8#C7
"
 5106  PRINT "
#1D#1D#1D#1D#9F#C8#81#B6#12#AF#92#B6#96#C8#C7#C8#C7#C8#C7#C8#C7#12#81#AF#92#B6#12#AF#92#9F#C7
":
       PRINT "
#1D#91#1D#1D#1D#C8#81#A2#B4#A2#96#C8#C7#C8#05#12#A8#A9#92#96#C7#C8#C7#81#B4#A2#B4#9F#C7
"
 5108  PRINT "
#1D#1D#1D#1D#9F#C8#81#B6#12#AF#92#B6#96#C8#C7#C8#12#05#AA#92$#96#C7#C8#C7#12#81#AF#92#B6#12#AF#92#9F#C7
":
       PRINT "
#1D#91#1D#1D#1D#C8#81#A2#B4#A2#96#C8#C7#C8#C7#C8#C7#C8#C7#81#B4#A2#B4#9F#C7
"
 5110  PRINT "
#1D#1D#1D#1D#9F#C8#C7#81#B6#12#AF#92#B6#96#C7#C8#C7#C8#C7#C8#81#B6#12#AF#92#B6#9F#C8#C7
":
       PRINT "
#91#1D#1D#1D#1D#1D#C7#81#A2#B4#A2#B4#96#C7#C8#C7#C8#81#B4#A2#B4#A2#9F#C8
"
 5112  PRINT "
#1D#1D#1D#1D#1D#C7#C8#81#B6#12#AF#92#B6#12#AF#9B#CA#CB#81#92#B6#12#AF#92#B6#12#AF#92#9F#C7#C8
":
       PRINT  SPC( 6)"
#91#C8#C7#81#B4#A2#12#9B#CD#CC#CD#CC#81#92#B4#A2#9F#C8#C7
"
 5114  PRINT  SPC( 7)"
#C7#C8#C7#C8#1D#1D#C7#C8#C7#C8
":
       GOSUB 999:
       PRINT "
#99AUCH DU WIRST#13
"
 5116  SYS 5681:
       PRINT "
VON DER KRAFT#13
":
       SYS 5681:
       PRINT "
DES KRISTALLS#13
"
 5118  SYS 5681:
       PRINT "
ERFASST UND#13
":
       SYS 5681:
       PRINT "
EMPORGESCHLEU-#13
"
 5120  SYS 5681:
       PRINT "
DERT.#13
":
       GOSUB 990:
       PRINT "
AUS GROSSER#13
":
       SYS 5681:
       PRINT "
HÖHE KANNST#13
"
 5121  SYS 5681:
       PRINT "
DU BEOBACHTEN,#13
":
       SYS 5681:
       PRINT "
WIE DIE VOM#13
"
 5122  SYS 5681:
       PRINT "
DÄMON UM DEN#13
":
       SYS 5681:
       PRINT "
KRISTALL ERRICH-#13
"
 5123  SYS 5681:
       PRINT "
TETE SCHÄDEL-#13
":
       SYS 5681:
       PRINT "
FESTE ZERSTÖRT#13
"
 5124  SYS 5681:
       PRINT "
WIRD...#13
":
       GOSUB 990
 5130  POKE V + 23,1:
       POKE V + 29,1:
       POKE V,104:
       POKE V + 1,130:
       SYS 6041:
       POKE S + 5,13:
       POKE S + 1,3
 5132 K = 15:
       POKE V + 21,1:
       POKE S + 4,129:
       FOR I = 0 TO 12:
      K = 78 - K:
       POKE 2040,K:
       FOR J = 0 TO 33:
       NEXT J,I
 5134  PRINT "
#13#11#11#11#11#11#11#11#11#11#11#11
" SPC( 11)"
#05#12#A4#A5#11#9D#9D#A6#A7
";:
       POKE V + 21,0:
       FOR I = 0 TO 500:
       NEXT 
 5136  PRINT "
#91#9D#9D#9F#A4#A5#11#9D#9D#A6#A7
":
       GOSUB 999:
       PRINT "
#99DIE WOLKENDECKE#13
":
       SYS 5681:
       PRINT "
REISST AUF,
"
 5138  SYS 5681:
       PRINT "
UND HELLES#13
":
       SYS 5681:
       PRINT "
SONNENLICHT#13
":
       SYS 5681:
       PRINT "
ÜBERFLUTET DAS
"
 5140  SYS 5681:
       PRINT "
LAND. DAS#13
":
       SYS 5681:
       PRINT "
GLEICHGEWICHT#13
":
       SYS 5681:
       PRINT "
IST WIEDERHER-#13
"
 5142  SYS 5681:
       PRINT "
GESTELLT UND#13
":
       SYS 5681:
       PRINT "
DIESE DIMENSION#13
"
 5144  SYS 5681:
       PRINT "
IST NUN NICHT#13
":
       SYS 5681:
       PRINT "
LÄNGER DUNKEL.#13
":
       GOSUB 990
 5146  SYS 5681:
       PRINT "
DEINE AUFGABE#13
":
       SYS 5681:
       PRINT "
HIER IST SOMIT#13
"
 5148  SYS 5681:
       PRINT "
ERFÜLLT.#13
":
       GOSUB 999:
       PRINT "
DU HAST GEWON-#13
"
 5149  SYS 5681:
       PRINT "
NEN, ABER WAS#13
":
       SYS 5681:
       PRINT "
WIRD AUS DIR..?#13
":
       GOSUB 990
 5200  SYS 5681:
       PRINT "
#9EDU PASST NUN#13
"
 5202  SYS 5681:
       PRINT "
NICHT MEHR IN#13
":
       SYS 5681:
       PRINT "
DAS GLEICHGE-#13
"
 5204  SYS 5681:
       PRINT "
WICHT DIESER#13
":
       SYS 5681:
       PRINT "
WELT. DIE KRAFT#13
"
 5206  SYS 5681:
       PRINT "
DES KRISTALLS#13
":
       SYS 5681:
       PRINT "
NIMMT DIR AUCH#13
"
 5208  SYS 5681:
       PRINT "
ALL DEINE HIER#13
":
       SYS 5681:
       PRINT "
ERWORBENEN DINGE#13
"
 5210  SYS 5681:
       PRINT "
UND FÄHIGKEITEN.#13
":
       GOSUB 990:
       PRINT "
DU WIRST AUS#13
"
 5212  SYS 5681:
       PRINT "
DIESER WELT ZU-#13
":
       SYS 5681:
       PRINT "
RÜCKGESCHLEUDERT#13
"
 5214  SYS 5681:
       PRINT "
IN DAS UNEND-#13
":
       SYS 5681:
       PRINT "
LICHE WIRBELNDE#13
"
 5216  SYS 5681:
       PRINT "
NICHTS AUS ZEIT#13
":
       SYS 5681:
       PRINT "
UND RAUM...#13
"
 5220  POKE 56295,1:
       POKE 2023,71:
       SYS 49440:
       POKE V - 1,1:
       POKE V - 2,13:
       POKE 198,0
 5222  SYS 49626:
       FOR J = 0 TO 75:
       NEXT :
       GET U$:
       IF U$ = "
" GOTO 5222
 5224  POKE 2023,32:
       POKE 49665,15:
       FOR I = 0 TO 12:
       SYS 49626:
       FOR J = 0 TO 45:
       NEXT J,I
 5226  POKE 49665,12:
       FOR I = 0 TO 18:
       SYS 49626:
       FOR J = 0 TO 38:
       NEXT J,I
 5228  POKE 49665,11:
       FOR I = 0 TO 24:
       SYS 49626:
       FOR J = 0 TO 30:
       NEXT J,I:
       SYS 49440
 5230  FOR I = 0 TO 25 STEP .2:
       SYS 49607:
       FOR J = 0 TO 25 - I:
       NEXT J,I:
       POKE 2,20:
       SYS 5782
 5232  FOR I = 0 TO 99:
       SYS 49607:
       NEXT :
       SYS 4361
 5240  FOR I = 0 TO 9:
       GOSUB 999:
       NEXT :
       PRINT "
WO DU WOHL#13
":
       SYS 5681:
       PRINT "
LANDEN WIRST?#13
"
 5242  GOSUB 999:
       GOSUB 999:
       GOSUB 990:
       FOR J = 0 TO 9:
       GOSUB 999:
       NEXT :
       PRINT "
WIEDER ZU HAUSE?#13
"
 5244  GOSUB 999:
       GOSUB 999:
       GOSUB 990:
       FOR J = 0 TO 9:
       GOSUB 999:
       NEXT :
       PRINT "
VIELLEICHT...#13
"
 5246  GOSUB 999:
       GOSUB 999:
       GOSUB 990:
       FOR J = 0 TO 9:
       GOSUB 999:
       NEXT :
       PRINT "
...VIELLEICHT#13
"
 5248  SYS 5681:
       PRINT "
ABER AUCH SCHON#13
":
       SYS 5681:
       PRINT "
IM ZWEITEN TEIL#13
"
 5250  GOSUB 999:
       PRINT "
#05  DIE SCHWARZE
"
 5252  SYS 5681:
       PRINT "
    FESTUNG#13
":
       GOSUB 999:
       PRINT "
#9E   -DEMNÄCHST#13
"
 5254  SYS 5681:
       PRINT "
   AUF DIESEM#13
":
       SYS 5681:
       PRINT "
   BILDSCHIRM
"
 5255  SYS 5681:
       PRINT "
#99#13#11#11#11#11#11#11#11#11#11#11#11#1D    - E  N  D  E -#13
"
 5256  GOTO 5256
 6000  SYS 5681:
       POKE 2,0:
       PRINT "
#96DU VERLÄSST#13
":
       SYS 5681:
       PRINT "
DIE FESTUNG.#13
":
       FOR I = 1 TO 3E3:
       NEXT 
 6010  PRINT "
#90#93#11#11#11L#CF
" CHR$ (34)"
DDD.KONJ
" CHR$ (34)"
,8:
"
 6020  FOR I = 0 TO 9:
       PRINT "
R#D5:
":
       NEXT :
       PRINT "
#13
":
       POKE 631,13:
       POKE 632,13:
       POKE 198,2:
       NEW 
 6100  POKE S + 4,0:
       POKE S + 5,16:
       POKE S + 1,12:
       POKE S + 4,129:
       GOTO 100
 9003  IF GP < Z THEN 
           PRINT "
DU HAST NICHT#13
":
       SYS 5681:
       PRINT "
GENUG GOLD!%#13
":
       GOTO 400
 9004 GP = GP - Z:
       POKE 49243,GP / 256:
       POKE 49242,GP - 256 *  PEEK (49243)
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);:
      WA =  PEEK (49246)
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)"
#05G#99 
":
      PO =  PEEK (49245):
       POKE 1449,32 - 16 * (PO > 0) + PO:
       IF PO THEN 
           POKE 55720,13
10020 WF =  PEEK (49246):
      RS =  PEEK (49247):
      SH =  PEEK (49248):
       RETURN 
// -----------------------------

12900  SYS 5681:
       PRINT "
#05****************#13
":
       RETURN 
// -----------------------------

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

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

13000  POKE 892,26:
       SYS 4361:
       POKE 49230,0:
       GOSUB 10000:
       POKE V + 23,0:
       POKE V + 29,0
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 "
#99EIN PHANTOM
";
13024  IF K = 2 THEN 
           PRINT "
#9FEIN GOLEM
";
13025  IF K = 3 THEN 
           PRINT "
#9FDER DÄMON
";
13026  PRINT "
 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 6010
13100  SYS 5681:
       SYS 5681:
       PRINT "
DU ERHÄLST#13
"
13110 L = 8 + MA * 2:
       SYS 5681:
       PRINT  MID$ ( STR$ (L),2)"
 PUNKTE.#13
"
13130  SYS 5681:
      EF = EF + L:
       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
50000  DATA MAGISCH. LICHT,8,2,50,ENTGIFTUNG,9,5,100,SCHUTZSCHILD,9,10,100
50001  DATA WUNDERHEILUNG,10,10,150,BANNBRECHER,10,30,300,LICHTSCHILD,11,15,150
50002  DATA GEWANDHEIT,12,20,200,TOTENBANN,13,20,250
50100  DATA -35,6400,1,6800,35,6820,-1,6990
    0