1  POKE 53281,0:
       POKE 53280,0:
       POKE 53272,18:
      I =  RND ( - TI):
      S = 54272:
       SYS 5454
    2  POKE 51200,1:
       POKE 51208,12:
       POKE 51211,11:
       POKE 51209,15:
       POKE 51228,1:
       POKE 51224,1
    3  POKE 51219,1:
       POKE 51223,15:
       POKE 51221,1:
       POKE 650,255:
       POKE 51226,12:
       POKE 51313,7
    4  FOR I = 0 TO 7:
       READ Z$(I),KG(I),KA(I),KS(I):
       NEXT 
    6  DIM A(3),P(3):
       FOR I = 0 TO 3:
       READ A(I),P(I):
       NEXT 
   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:
      P = 40721:
      Q = 11:
       GOSUB 10000
  100  POKE 2,X:
       POKE 182,Y:
       SYS 6052:
       SYS 4482:
       SYS 4537:
       SYS 4361:
       SYS 5440:
       SYS 5681
  105  PRINT "
#05@#C7#9D
";:
      Z = 0:
       IF Y = 37 GOTO 3300
  110 Z = Z + 1:
       IF Z > 299 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 
           PRINT "
WAFFE#13
":
       GOTO 191
  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
  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 AND J > 0 AND J <  > 8) OR (J + BB = 0) GOTO 214
  212  POKE P,Q:
      Q = J:
      P = P - 35:
      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 AND J > 0 AND J <  > 8) OR (J + BB = 0) GOTO 214
  222  POKE P,Q:
      Q = J:
      P = P + 35:
      Y = Y + 1:
       GOTO 6100
  230  PRINT "
WESTEN#13
":
      J =  PEEK (891):
       IF (J <  > 11 AND J > 0 AND J <  > 8) OR (J + BB = 0) GOTO 214
  232  POKE P,Q:
      Q = J:
      P = P - 1:
      X = X - 1:
       GOTO 6100
  234  PRINT "
OSTEN#13
":
      J =  PEEK (893):
       IF (J <  > 11 AND J > 0 AND J <  > 8) OR (J + BB = 0) GOTO 214
  236  POKE P,Q:
      Q = J:
      P = P + 1:
      X = X + 1:
       GOTO 6100
  240  PRINT "
KOMMUNIZIERE
";:
       SYS 5681:
       PRINT "
#9E - RICHT.? #05#C7#9D
";:
      Z = 0
  250 Z = Z + 1:
       IF Z > 499 GOTO 258
  252  GET U$:
       IF U$ = "
" GOTO 252
  254  IF U$ = "
#91
" THEN 
           PRINT "
NORD#13
":
      J =  - 11:
       GOTO 260
  255  IF U$ = "
#11
" THEN 
           PRINT "
SÜD#13
":
      J = 11:
       GOTO 260
  256  IF U$ = "
#9D
" THEN 
           PRINT "
WEST#13
":
      J =  - 1:
       GOTO 260
  257  IF U$ = "
#1D
" THEN 
           PRINT "
OST#13
":
      J = 1:
       GOTO 260
  258  PRINT "
NEIN#13
":
       SYS 5681:
      Z = 0:
       GOTO 100
  260 J =  PEEK (892 + J):
       SYS 5681:
      H = 0:
       IF J <  > 18 THEN 
           PRINT "
#9EKEINE ANTWORT!#13
":
       SYS 5681:
       GOTO 100
  261  IF Y > 19 AND X = 6 THEN 
          H = 2
  262  IF H = . AND X < 9 THEN 
          H = 3
  263  IF X = 11 THEN 
          H = 4
  264  IF Y > 25 AND X < 17 THEN 
          H = 5
  265  IF Y > 26 AND X > 17 THEN 
          H = 6
  266  IF Y = 20 AND X = 21 THEN 
          H = 7
  267  IF Y = 22 AND X = 29 THEN 
          H = 8
  268  IF Y = 10 AND X = 23 THEN 
          H = 9
  280  SYS 5681:
       PRINT "
#9FDU SPRICHST#13
":
       SYS 5681
  282  IF H > 1 THEN 
           PRINT "
EINEN SCHWARZEN#13
":
       SYS 5681:
       PRINT "
ZAUBERER 
";
  297  PRINT "
AN.#13
":
       IF  RND (TI) < .5 GOTO 400
  299  GOTO 820
  400  GOSUB 900:
       IF  RND (TI) < .05 THEN 
           PRINT "
 #13
":
       GOTO 880
  401  IF N$ = "
SCHW
" THEN 
           PRINT "
ARZER ZIRK.#13
":
       GOTO 1000
  402  IF N$ = "
ZIRK
" THEN 
           PRINT "
EL#13
":
       GOTO 1000
  403  IF N$ = "
ZAUB
" THEN 
           PRINT "
ERER#13
":
       GOTO 1000
  404  IF N$ = "
MAGI
" THEN 
           PRINT "
E#13
":
       GOSUB 800:
       GOTO 1020
  405  IF H = 2 AND N$ = "
DONN
" GOTO 2000
  406  IF H = 3 AND N$ = "
GIFT
" GOTO 2100
  407  IF H = 4 AND N$ = "
FEUE
" GOTO 2200
  408  IF H = 5 AND N$ = "
FLAM
" GOTO 2300
  409  IF H = 6 AND N$ = "
FURC
" GOTO 2400
  410  IF H = 7 AND N$ = "
ZEIT
" GOTO 2500
  411  IF H = 8 AND N$ = "
TODE
" GOTO 2600
  412  IF H = 9 AND N$ = "
BOMB
" GOTO 2700
  413  IF N$ = "
NAME
" THEN 
           PRINT "
?#13
":
       GOTO 820
  414  IF N$ = "
BERU
" GOTO 860
  415  IF N$ = "
FICK
" OR N$ = "
PISS
" OR  MID$ (N$,2) = "
OTZ
" OR N$ = "
ARSC
" OR N$ = "
PORN
" GOTO 449
  420  IF N$ = "
WIED
" THEN 
           PRINT "
ERSEHEN.#13
":
       GOTO 880
  421  IF N$ = "
GESU
" THEN 
           PRINT "
NDHEIT?#13
":
       GOTO 840
  427  IF N$ = "
MEIS
" GOTO 2800
  428  IF N$ = "
BOES
" GOTO 2810
  440  PRINT "
 #13
":
       GOSUB 800:
       PRINT "
DAZU KANN#13
":
       SYS 5681:
       PRINT "
ICH DIR NICHTS#13
":
       SYS 5681
  441  PRINT "
SAGEN.%#13
"
  442  GOTO 400
  449  PRINT "
 #13
":
       GOSUB 800:
       PRINT "
DU BIST EIN#13
":
       SYS 5681:
       PRINT "
ALTES FERKEL!%#13
":
       GOTO 400
  800  GOSUB 999:
       PRINT "
#9EDER MAGIER#13
"
  819  SYS 5681:
       PRINT "
SAGT:#13
":
       SYS 5681:
       PRINT "
#99%
";:
       RETURN 
// -----------------------------

  820  GOSUB 800:
       PRINT "
ICH BIN#13
":
       SYS 5681:
       IF H = 2 THEN 
           PRINT "
ORTWIN
";
  822  IF H = 3 THEN 
           PRINT "
DIABOLUS
";
  823  IF H = 4 THEN 
           PRINT "
FUCHAR
";
  824  IF H = 5 THEN 
           PRINT "
FULMINICTUS
";
  825  IF H = 6 THEN 
           PRINT "
BORALLUS
";
  826  IF H = 7 THEN 
           PRINT "
HORAX
";
  827  IF H = 8 THEN 
           PRINT "
NECRONOMOS
";
  829  IF H = 9 THEN 
           PRINT "
ARCHAROR
";
  839  PRINT "
.%#13
":
       GOTO 400
  840  GOSUB 800:
       PRINT "
GANZ GUT,#13
":
       SYS 5681:
       PRINT "
DANKE
";
  859  GOTO 839
  860  PRINT "
F?#13
":
       GOSUB 800
  863  IF H > 1 THEN 
           PRINT "
ICH BIN EIN#13
":
       SYS 5681:
       PRINT "
ZAUBERER DES#13
"
  864  SYS 5681:
       PRINT "
SCHWARZEN#13
":
       SYS 5681:
       PRINT "
ZIRKELS
";:
       GOTO 839
  880  GOSUB 800:
       PRINT "
ICH MUSS JETZT#13
":
       SYS 5681:
       PRINT "
MEDITIEREN. GEH
";
  881  SYS 5681:
       PRINT "
IN FRIEDEN.%#13
":
       SYS 5681:
       SYS 5681
  882  PRINT "
#9EER WENDET SICH#13
":
       SYS 5681:
       PRINT "
AB.#13
":
       SYS 5681:
       GOTO 100
  900  GOSUB 999:
       PRINT "
#9EDEIN BEGEHR?
";:
       SYS 5681:
       PRINT "
#05@#C7#9D
";:
      Z = 0:
      N$ = "
":
       POKE 198,0
  910  GET U$:
       IF U$ =  CHR$ (13) AND Z = 0 THEN 
          N$ = "
WIED
":
       PRINT N$;:
       RETURN 
// -----------------------------

  912  IF U$ =  CHR$ (20) AND Z > 0 THEN 
          Z = Z - 1:
      N$ =  LEFT$ (N$,Z):
       PRINT "
 #9D#9D#C7#9D
";
  920  IF U$ < "
A
" OR U$ > "
Z
" GOTO 910
  930  PRINT U$"
#C7#9D
";:
      N$ = N$ + U$:
      Z = Z + 1:
       IF Z = 4 THEN 
           RETURN 
// -----------------------------

  940  GOTO 910
  960  SYS 5681:
       PRINT  SPC( 15)"
#05#C7#9D#99
";:
       POKE 198,0:
       WAIT 198,1:
       PRINT "
 #13
":
       SYS 5681:
       RETURN 
// -----------------------------

  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
  980  GOSUB 800:
       PRINT "
WILLST DU#13
":
       SYS 5681:
       PRINT "
KAUFEN ODER#13
":
       SYS 5681:
       PRINT "
VERKAUFEN? #05#C7#9D
";
  981  GET U$:
       IF U$ <  > "
K
" AND U$ <  > "
V
" GOTO 981
  982  PRINT U$"
#99
";:
       GOTO 999
  999  SYS 5681:
       SYS 5681:
       RETURN 
// -----------------------------

 1000  GOSUB 800:
       PRINT "
DIE ZAUBERER#13
":
       SYS 5681:
       PRINT "
UNSERER BRUDER-#13
"
 1001  SYS 5681:
       PRINT "
SCHAFT BEHERR-#13
":
       SYS 5681:
       PRINT "
SCHEN DIE#13
"
 1002  SYS 5681:
       PRINT "
SCHWARZE MAGIE.%#13
":
       GOTO 400
 1016  PRINT "
 #13
":
       GOSUB 800:
       PRINT "
JA, GOLD HÄTTE#13
";:
       SYS 5681:
       PRINT "
ICH AUCH GERN!%#13
":
       GOTO 400
 1020  PRINT "
ICH BEHERRSCHE#13
":
       SYS 5681:
       PRINT "
DEN MÄCHTIGEN#13
"
 1021  SYS 5681:
       PRINT Z$(H - 2)"
-#13
":
       SYS 5681:
       PRINT "
ZAUBERSPRUCH.%#13
":
       GOTO 400
 2000  GOSUB 800:
       PRINT "
DIES IST EIN#13
":
       SYS 5681:
       PRINT "
ANFÄNGER-SPRUCH.#13
"
 2001  SYS 5681:
       PRINT "
ER FEUERT EIN#13
":
       SYS 5681:
       PRINT "
MAGISCHES GE-#13
"
 2002  SYS 5681:
       PRINT "
SCHOSS MIT EINEM#13
":
       SYS 5681:
       PRINT "
EINDRUCKSVOLLEN#13
"
 2003  SYS 5681:
       PRINT "
BLAUEN BLITZ AUF#13
":
       SYS 5681:
       PRINT "
DEINEN GEGNER.#13
"
 2004  GOSUB 960:
       PRINT "
MÖCHTEST DU IHN#13
":
       SYS 5681:
       PRINT "
ERLERNEN? 
";:
       GOSUB 970
 2005  IF U$ = "
N
" THEN 
           PRINT "
JEDER GUTE#13
":
       SYS 5681:
       PRINT "
ZAUBERER MUSS#13
"
 2006  IF U$ = "
N
" THEN 
           SYS 5681:
       PRINT "
IHN BEHERR-#13
":
       SYS 5681:
       PRINT "
SCHEN.%#13
":
       GOTO 400
 2010  IF KG < KG(H - 2) THEN 
           PRINT "
DU BIST LEIDER#13
":
       SYS 5681:
       PRINT "
NICHT KLUG#13
"
 2011  IF KG < KG(H - 2) THEN 
           SYS 5681:
       PRINT "
GENUG, DAS SEHR#13
":
       SYS 5681:
       PRINT "
KOMPLIZIERTE#13
"
 2012  IF KG < KG(H - 2) THEN 
           SYS 5681:
       PRINT "
BESCHWÖRUNGS-#13
":
       SYS 5681:
       PRINT "
RITUAL ZU#13
"
 2013  IF KG < KG(H - 2) THEN 
           SYS 5681:
       PRINT "
BEGREIFEN.%#13
":
       GOTO 400
 2020 Z = KS(H - 2):
       PRINT "
GIB MIR
"Z;:
       SYS 5681:
       PRINT "
GOLDSTÜCKE, DANN#13
"
 2021  SYS 5681:
       PRINT "
LEHRE ICH IHN#13
":
       SYS 5681:
       PRINT "
DICH, JA? 
";:
       GOSUB 970
 2022  IF U$ = "
N
" GOTO 2005
 2023  IF GP < Z THEN 
           PRINT "
DU HAST NICHT#13
":
       SYS 5681:
       PRINT "
GENUG GOLD!%#13
":
       GOTO 400
 2030  GOSUB 9004:
       SYS 5681:
       PRINT "
DANKE, ALSO DER#13
":
       SYS 5681:
       PRINT "
SPRUCH GEHT SO:#13
":
       GOSUB 960
 2031  POKE 49310 + H,1:
       IF H > 2 GOTO 2110
 2032  PRINT "
DU BENÖTIGST NUR#13
":
       SYS 5681:
       PRINT "
SCHWEFEL UND#13
"
 2033  SYS 5681:
       PRINT "
GINSENG. KON-#13
":
       SYS 5681:
       PRINT "
ZENTRIERE DICH#13
"
 2034  SYS 5681:
       PRINT "
KURZ, RUFE DIE#13
":
       SYS 5681:
       PRINT "
MAGISCHEN WORTE#13
"
 2035  SYS 5681:
       PRINT "
UND WIRF ES#13
":
       SYS 5681:
       PRINT "
DEINEM GEGNER#13
"
 2036  SYS 5681:
       PRINT "
ENTGEGEN.#13
":
       GOSUB 960:
       PRINT "
WENN ES KLAPPT,#13
"
 2037  SYS 5681:
       PRINT "
HEULT EIN BLAUER#13
":
       SYS 5681:
       PRINT "
BLITZ IN DEN#13
"
 2038  SYS 5681:
       PRINT "
KÖRPER DES GE-#13
":
       SYS 5681:
       PRINT "
TROFFENEN UND#13
"
 2039  SYS 5681:
       PRINT "
VERWUNDET IHN.#13
"
 2050  GOSUB 960:
       PRINT "
DIE BESCHWÖRUNG#13
":
       SYS 5681:
       PRINT "
KOSTET DICH
"KA(H - 2)
 2052  SYS 5681:
       PRINT "
ASTRALPUNKTE.#13
":
       GOTO 400
 2100  GOSUB 800:
       PRINT "
BEVOR ICH IHN#13
":
       SYS 5681:
       PRINT "
ERKLÄRE, MUSS#13
"
 2101  SYS 5681:
       PRINT "
ICH DARAUF HIN-#13
":
       SYS 5681:
       PRINT "
WEISEN, DASS DIE#13
"
 2102  SYS 5681:
       PRINT "
ANWENDUNG DIESES#13
":
       SYS 5681:
       PRINT "
ZAUBERS VOM#13
"
 2103  SYS 5681:
       PRINT "
KÖNIG VERBOTEN#13
":
       SYS 5681:
       PRINT "
WURDE. DIESER#13
"
 2104  SYS 5681:
       PRINT "
FLUCH VERGIFTET#13
":
       SYS 5681:
       PRINT "
DEN VON IHM#13
"
 2105  SYS 5681:
       PRINT "
GETROFFENEN.#13
":
       GOTO 2004
 2110  IF H > 3 GOTO 2210
 2111  PRINT "
FÜR DIESEN#13
":
       SYS 5681:
       PRINT "
SPRUCH IST EINE#13
"
 2112  SYS 5681:
       PRINT "
MISCHUNG AUS#13
":
       SYS 5681:
       PRINT "
SCHWEFEL, ZIR-#13
"
 2113  SYS 5681:
       PRINT "
BELKRAUT UND DEM#13
":
       SYS 5681:
       PRINT "
VERBOTENEN GIFT#13
"
 2114  SYS 5681:
       PRINT "
DER NACHT ERFOR-#13
":
       SYS 5681:
       PRINT "
DERLICH. WIRF#13
"
 2115  SYS 5681:
       PRINT "
ES DEINEM GEGNER#13
":
       SYS 5681:
       PRINT "
MIT DER FORMEL#13
"
 2116  SYS 5681:
       PRINT "
ENTGEGEN.#13
"
 2117  GOSUB 960:
       PRINT "
GELINGT ES, SO#13
":
       SYS 5681:
       PRINT "
IST DEIN GEGNER#13
"
 2118  SYS 5681:
       PRINT "
VERGIFTET UND#13
":
       SYS 5681:
       PRINT "
HAT EINEN LANG-#13
"
 2119  SYS 5681:
       PRINT "
SAMEN UND QUAL-#13
":
       SYS 5681:
       PRINT "
VOLLEN TOD.#13
":
       GOTO 2050
 2200  GOSUB 800:
       PRINT "
DU KENNST BE-#13
":
       SYS 5681:
       PRINT "
STIMMT SCHON DEN#13
"
 2201  SYS 5681:
       PRINT "
DONNERKEIL. EIN#13
":
       SYS 5681:
       PRINT "
FEUERBALL IST#13
"
 2202  SYS 5681:
       PRINT "
NOCH EINDRUCKS-#13
":
       SYS 5681:
       PRINT "
VOLLER UND VOR#13
"
 2203  SYS 5681:
       PRINT "
ALLEM EIN WIRK-#13
":
       SYS 5681:
       PRINT "
SAMERER KAMPF-#13
"
 2204  SYS 5681:
       PRINT "
ZAUBER, DESSEN#13
":
       SYS 5681:
       PRINT "
KRAFT KEINE#13
"
 2205  SYS 5681:
       PRINT "
WAFFE ERREICHT.#13
":
       GOTO 2004
 2210  IF H > 4 GOTO 2310
 2211  PRINT "
MAN MISCHT NUR#13
":
       SYS 5681:
       PRINT "
SCHWEFEL UND#13
"
 2212  SYS 5681:
       PRINT "
BLUTFLECHTE,#13
":
       SYS 5681:
       PRINT "
RUFT DIE MAGI-#13
"
 2213  SYS 5681:
       PRINT "
SCHEN WORTE UND#13
":
       SYS 5681:
       PRINT "
SCHLEUDERT ES#13
"
 2214  SYS 5681:
       PRINT "
DEM GEGNER ENT-#13
":
       SYS 5681:
       PRINT "
GEGEN.#13
"
 2217  GOSUB 960:
       PRINT "
WENN'S KLAPPT,#13
":
       SYS 5681:
       PRINT "
FAUCHT EIN GE-#13
"
 2218  SYS 5681:
       PRINT "
WALTIGER FEUER-#13
":
       SYS 5681:
       PRINT "
BALL AUF DEN#13
"
 2219  SYS 5681:
       PRINT "
GEGNER ZU, UND#13
":
       SYS 5681:
       PRINT "
DIE MAGISCHEN#13
"
 2220  SYS 5681:
       PRINT "
FLAMMEN VER-#13
":
       SYS 5681:
       PRINT "
BRENNEN IHN.#13
":
       GOTO 2050
 2300  GOSUB 800:
       PRINT "
DIES IST EIN#13
":
       SYS 5681:
       PRINT "
KAMPFZAUBER. DIE#13
"
 2301  SYS 5681:
       PRINT "
WUCHT ENTSPRICHT#13
":
       SYS 5681:
       PRINT "
ZWAR NUR DER DES#13
"
 2302  SYS 5681:
       PRINT "
DONNERKEILS,#13
":
       SYS 5681:
       PRINT "
ABER ER KANN#13
"
 2303  SYS 5681:
       PRINT "
NÜTZLICHER SEIN#13
":
       SYS 5681:
       PRINT "
ALS EIN FEUER-#13
"
 2304  SYS 5681:
       PRINT "
BALL. DIE FLAM-#13
":
       SYS 5681:
       PRINT "
MEN GEHEN DURCH#13
"
 2305  SYS 5681:
       PRINT "
ALLES HINDURCH.#13
":
       GOTO 2004
 2310  IF H > 5 GOTO 2410
 2311  PRINT "
DAS FEUERBALL-#13
":
       SYS 5681:
       PRINT "
REZEPT MIT ETWAS#13
"
 2312  SYS 5681:
       PRINT "
KNOBLAUCH MIXEN,#13
":
       SYS 5681:
       PRINT "
DIE ZAUBERFORMEL#13
"
 2313  SYS 5681:
       PRINT "
RUFEN UND ES DEM#13
":
       SYS 5681:
       PRINT "
GEGNER ENTGEGEN-#13
"
 2314  SYS 5681:
       PRINT "
WERFEN, ERZEUGT#13
":
       SYS 5681:
       PRINT "
EINEN FLAMMEN-#13
"
 2315  SYS 5681:
       PRINT "
SCHWALL, DER#13
":
       SYS 5681:
       PRINT "
DURCH ALLES#13
"
 2316  SYS 5681:
       PRINT "
HINDURCHGEHT.#13
":
       GOTO 2050
 2400  GOSUB 800:
       PRINT "
MANCHMAL KOEN-#13
":
       SYS 5681:
       PRINT "
NEN ANGRIFFE VON#13
"
 2401  SYS 5681:
       PRINT "
TIEREN SEHR LÄS-#13
":
       SYS 5681:
       PRINT "
TIG SEIN. DIESER#13
"
 2402  SYS 5681:
       PRINT "
FLUCH WECKT DEN#13
":
       SYS 5681:
       PRINT "
NATÜRLICHEN#13
"
 2403  SYS 5681:
       PRINT "
FLUCHTINSTINKT#13
":
       SYS 5681:
       PRINT "
UND LÄSST ALLE#13
"
 2404  SYS 5681:
       PRINT "
HÖHER ENTWICKEL-#13
":
       SYS 5681:
       PRINT "
TEN TIERE IN#13
"
 2405  SYS 5681:
       PRINT "
PANIK FLIEHEN.#13
":
       GOTO 2004
 2410  IF H > 6 GOTO 2510
 2411  PRINT "
DER SPRUCH IST#13
":
       SYS 5681:
       PRINT "
SCHWIERIG. MAN#13
"
 2412  SYS 5681:
       PRINT "
BRAUCHT GINSENG,#13
":
       SYS 5681:
       PRINT "
BLUTFLECHTE UND#13
"
 2413  SYS 5681:
       PRINT "
TOTENBLUME.#13
":
       SYS 5681:
       PRINT "
SPRICH DIE FOR-#13
"
 2414  SYS 5681:
       PRINT "
MEL UND WIRF AL-#13
":
       SYS 5681:
       PRINT "
LES IN DIE LUFT.#13
"
 2415  GOSUB 960:
       PRINT "
SIND DIE MÄCHTE#13
":
       SYS 5681:
       PRINT "
GNÄDIG, WERDEN#13
"
 2416  SYS 5681:
       PRINT "
ALLE HÖHER ENT-#13
":
       SYS 5681:
       PRINT "
WICKELTEN TIERE#13
"
 2417  SYS 5681:
       PRINT "
FLIEHEN. ATTAK-#13
":
       SYS 5681:
       PRINT "
KIERE SIE NICHT#13
"
 2418  SYS 5681:
       PRINT "
WEITER, ES WÄRE#13
":
       SYS 5681:
       PRINT "
IHR TOD.#13
"
 2419  GOSUB 960:
       PRINT "
LEIDER FUNKTIO-#13
":
       SYS 5681:
       PRINT "
NIERT ES BEI#13
"
 2420  SYS 5681:
       PRINT "
PRIMITIVEN TIE-#13
":
       SYS 5681:
       PRINT "
REN, WIE SCHLAN-#13
"
 2421  SYS 5681:
       PRINT "
GEN, SPINNEN UND#13
":
       SYS 5681:
       PRINT "
KRAKEN NICHT.#13
":
       GOTO 2050
 2500  GOSUB 800:
       PRINT "
DIESER SPRUCH#13
":
       SYS 5681:
       PRINT "
IST SEHR SCHWER.#13
"
 2501  SYS 5681:
       PRINT "
MANCHMAL MÖCHTE#13
":
       SYS 5681:
       PRINT "
MAN NICHT NUR#13
"
 2502  SYS 5681:
       PRINT "
SCHNELLER SEIN#13
":
       SYS 5681:
       PRINT "
ALS SEIN GEGNER,#13
"
 2503  SYS 5681:
       PRINT "
SONDERN IHM AUCH#13
":
       SYS 5681:
       PRINT "
JEDE AKTIONSMÖG-#13
"
 2504  SYS 5681:
       PRINT "
LICHKEIT NEHMEN,#13
":
       SYS 5681:
       PRINT "
OHNE JEDEN EIN-#13
"
 2505  SYS 5681:
       PRINT "
ZELN ZU LÄHMEN.#13
":
       GOTO 2004
 2510  IF H > 7 GOTO 2610
 2511  PRINT "
DIE KOMBINATION#13
":
       SYS 5681:
       PRINT "
VON ZIRBELKRAUT,#13
"
 2512  SYS 5681:
       PRINT "
BLUTFLECHTE UND#13
":
       SYS 5681:
       PRINT "
TOTENBLUME MIT#13
"
 2513  SYS 5681:
       PRINT "
DER ZAUBERFORMEL#13
":
       SYS 5681:
       PRINT "
ÜBER DICH GE-#13
"
 2514  SYS 5681:
       PRINT "
STREUT, KANN DIE#13
":
       SYS 5681:
       PRINT "
ZEIT ANHALTEN.#13
"
 2517  GOSUB 960:
       PRINT "
WENN'S GELINGT,#13
":
       SYS 5681:
       PRINT "
LEUCHTET EIN 'Z'#13
"
 2518  SYS 5681:
       PRINT "
AUF, SOLANGE DER#13
":
       SYS 5681:
       PRINT "
ZAUBER WIRKT.#13
"
 2519  SYS 5681:
       PRINT "
FÜR ZWÖLF KAMPF-#13
":
       SYS 5681:
       PRINT "
ZÜGE KANNST DANN#13
"
 2520  SYS 5681:
       PRINT "
NUR DU ETWAS#13
":
       SYS 5681:
       PRINT "
MACHEN.#13
":
       GOTO 2050
 2600  GOSUB 800:
       PRINT "
DIESER SCHWERE#13
":
       SYS 5681:
       PRINT "
ZAUBERSPRUCH#13
"
 2601  SYS 5681:
       PRINT "
ERZEUGT EINEN#13
":
       SYS 5681:
       PRINT "
FURCHTBAREN#13
"
 2602  SYS 5681:
       PRINT "
BLITZ, DER VOR#13
":
       SYS 5681:
       PRINT "
DEINEN FÜSSEN#13
"
 2603  SYS 5681:
       PRINT "
EINSCHLÄGT. WENN#13
":
       SYS 5681:
       PRINT "
EIN GEGNER DORT#13
"
 2604  SYS 5681:
       PRINT "
STEHT, TRIFFT#13
":
       SYS 5681:
       PRINT "
IHN EINE UNHEIM-#13
"
 2605  SYS 5681:
       PRINT "
LICHE WUCHT.#13
":
       GOTO 2004
 2610  IF H = 9 GOTO 2710
 2611  PRINT "
MISCHE SCHWEFEL,#13
":
       SYS 5681:
       PRINT "
TOTENBLUME UND#13
"
 2612  SYS 5681:
       PRINT "
DIE SELTENE#13
":
       SYS 5681:
       PRINT "
ALRAUNEWURZEL.#13
"
 2613  SYS 5681:
       PRINT "
SCHLEUDERE ES#13
":
       SYS 5681:
       PRINT "
VOR DICH HIN#13
"
 2614  SYS 5681:
       PRINT "
UND RUFE DIE#13
":
       SYS 5681:
       PRINT "
ZAUBERFORMEL.#13
"
 2617  GOSUB 960:
       PRINT "
KLAPPT ALLES,#13
":
       SYS 5681:
       PRINT "
ENTSTEHT EINE#13
"
 2618  SYS 5681:
       PRINT "
VERNICHTUNGS-#13
":
       SYS 5681:
       PRINT "
KRAFT, DIE ZWAR#13
"
 2619  SYS 5681:
       PRINT "
GERINGE REICH-#13
":
       SYS 5681:
       PRINT "
WEITE HAT, ABER#13
"
 2620  SYS 5681:
       PRINT "
FAST DOPPELT SO#13
":
       SYS 5681:
       PRINT "
STARK IST WIE#13
"
 2621  SYS 5681:
       PRINT "
EIN FEUERBALL.#13
":
       GOTO 2050
 2700  GOSUB 800:
       PRINT "
BEVOR ICH IHN#13
":
       SYS 5681:
       PRINT "
ERKLÄRE, MUSS#13
"
 2701  SYS 5681:
       PRINT "
ICH DARAUF HIN-#13
":
       SYS 5681:
       PRINT "
WEISEN, DASS DIE#13
"
 2702  SYS 5681:
       PRINT "
ANWENDUNG DIESES#13
":
       SYS 5681:
       PRINT "
ZAUBERS VOM#13
"
 2703  SYS 5681:
       PRINT "
KÖNIG VERBOTEN#13
":
       SYS 5681:
       PRINT "
WURDE. DIESER#13
"
 2704  SYS 5681:
       PRINT "
SPRUCH ERZEUGT#13
":
       SYS 5681:
       PRINT "
EINE STARKE#13
"
 2705  SYS 5681:
       PRINT "
DETONATION.#13
":
       GOSUB 960:
       PRINT "
DIE EXPLOSIONS-#13
"
 2706  SYS 5681:
       PRINT "
KRAFT KOSTET#13
":
       SYS 5681:
       PRINT "
JEDEN ANWESENDEN#13
"
 2707  SYS 5681:
       PRINT "
20 PUNKTE LE-#13
":
       SYS 5681:
       PRINT "
BENSENERGIE.#13
"
 2708  SYS 5681:
       PRINT "
DICH ABER AUCH!#13
":
       GOTO 2004
 2710  PRINT "
EINE MIT DEN#13
":
       SYS 5681:
       PRINT "
MAGISCHEN WORTEN#13
"
 2712  SYS 5681:
       PRINT "
IN DIE LUFT GE-#13
":
       SYS 5681:
       PRINT "
WORFENE MIXTUR#13
"
 2713  SYS 5681:
       PRINT "
AUS KNOBLAUCH,#13
":
       SYS 5681:
       PRINT "
GIFT DER NACHT#13
"
 2714  SYS 5681:
       PRINT "
UND DER SELTENEN#13
":
       SYS 5681:
       PRINT "
ALRAUNEWURZEL#13
"
 2715  SYS 5681:
       PRINT "
IST NOTWENDIG ZU#13
":
       SYS 5681:
       PRINT "
DIESEM ZAUBER.#13
"
 2716  GOSUB 960:
       PRINT "
ERHÖREN DICH DIE#13
":
       SYS 5681:
       PRINT "
BÖSEN MÄCHTE, SO#13
"
 2717  SYS 5681:
       PRINT "
VERNICHTET EIN#13
":
       SYS 5681:
       PRINT "
FEUERSTURM DIE#13
"
 2718  SYS 5681:
       PRINT "
SCHWACHEN UND#13
":
       SYS 5681:
       PRINT "
SCHWÄCHT DIE#13
"
 2719  SYS 5681:
       PRINT "
STARKEN - ABER#13
":
       SYS 5681:
       PRINT "
AUCH DICH.#13
":
       GOTO 2050
 2800  PRINT "
TER#13
":
       GOSUB 800:
       PRINT "
DER NAME DES#13
":
       SYS 5681:
       PRINT "
BÖSEN HAT IHN#13
"
 2801  SYS 5681:
       PRINT "
GETÖTET.%#13
":
       GOTO 400
 2810  PRINT "
E#13
":
       GOSUB 800:
       PRINT "
ES WAR ALLES#13
":
       SYS 5681:
       PRINT "
IN ORDNUNG, DIE#13
"
 2811  SYS 5681:
       PRINT "
WELT WAR IM#13
":
       SYS 5681:
       PRINT "
GLEICHGEWICHT.#13
"
 2812  SYS 5681:
       PRINT "
DANN HAT UNSER#13
":
       SYS 5681:
       PRINT "
MEISTER VER-#13
"
 2813  SYS 5681:
       PRINT "
SUCHT, DAS BÖSE#13
":
       SYS 5681:
       PRINT "
SELBST ZU BE-#13
"
 2814  SYS 5681:
       PRINT "
SCHWÖREN, UM AN#13
":
       SYS 5681:
       PRINT "
MAGISCHE GEHEIM-#13
"
 2815  SYS 5681:
       PRINT "
NISSE ZU KOMMEN.#13
":
       GOSUB 960:
       PRINT "
ER AHNTE NICHT,#13
"
 2816  SYS 5681:
       PRINT "
WIE STARK DAS#13
":
       SYS 5681:
       PRINT "
BÖSE WIRKLICH#13
"
 2817  SYS 5681:
       PRINT "
WAR. SO SCHRIEB#13
":
       SYS 5681:
       PRINT "
ER DEN NAMEN DES#13
"
 2818  SYS 5681:
       PRINT "
BÖSEN, DEN ER#13
":
       SYS 5681:
       PRINT "
IRGENDWIE GEFUN-#13
"
 2819  SYS 5681:
       PRINT "
DEN HATTE, AUF#13
"
 2820  SYS 5681:
       PRINT "
EINE TONTAFEL#13
":
       SYS 5681:
       PRINT "
UND BESCHWOR#13
"
 2821  SYS 5681:
       PRINT "
DAMIT DAS BÖSE.#13
":
       GOSUB 960:
       PRINT "
DANN BRACH DIE#13
"
 2822  SYS 5681:
       PRINT "
KATASTROPHE#13
":
       SYS 5681:
       PRINT "
HEREIN. DAS BÖSE#13
"
 2823  SYS 5681:
       PRINT "
HATTE SO VIEL#13
":
       SYS 5681:
       PRINT "
MACHT, DASS ES#13
"
 2824  SYS 5681:
       PRINT "
DURCH DIESE BE-#13
":
       SYS 5681:
       PRINT "
SCHWÖRUNG IN#13
"
 2825  SYS 5681:
       PRINT "
UNSERE WELT EIN-#13
":
       SYS 5681:
       PRINT "
DRINGEN KONNTE.#13
"
 2826  GOSUB 960:
       PRINT "
DIE ENERGIE, DIE#13
":
       SYS 5681:
       PRINT "
ES DABEI FREI-#13
"
 2827  SYS 5681:
       PRINT "
SETZTE, VER-#13
":
       SYS 5681:
       PRINT "
BRANNTE UNSEREN#13
"
 2828  SYS 5681:
       PRINT "
MEISTER UND#13
":
       SYS 5681:
       PRINT "
SPRENGTE EINEN#13
"
 2829  SYS 5681:
       PRINT "
SPLITTER VOM#13
":
       SYS 5681:
       PRINT "
KRISTALL AB, WO-#13
"
 2830  SYS 5681:
       PRINT "
RAUF ER ERLOSCH.#13
":
       GOSUB 960:
       PRINT "
DAS GLEICHGE-#13
"
 2831  SYS 5681:
       PRINT "
WICHT UNSERER#13
":
       SYS 5681:
       PRINT "
WELT WAR ZER-#13
"
 2832  SYS 5681:
       PRINT "
STÖRT. NUN#13
":
       SYS 5681:
       PRINT "
HERRSCHT DIE#13
"
 2833  SYS 5681:
       PRINT "
FINSTERNIS.#13
":
       GOSUB 960:
       PRINT "
DIE TAFEL MIT#13
"
 2834  SYS 5681:
       PRINT "
DEM NAMEN DES#13
":
       SYS 5681:
       PRINT "
BÖSEN ZERBRACH#13
"
 2835  SYS 5681:
       PRINT "
IN SIEBEN TEILE.#13
":
       SYS 5681:
       PRINT "
JEDE DIESER SIE-#13
"
 2836  SYS 5681:
       PRINT "
BEN TAFELN ENT-#13
":
       SYS 5681:
       PRINT "
HÄLT EINEN BUCH-#13
"
 2837  SYS 5681:
       PRINT "
STABEN DES GRAU-#13
":
       SYS 5681:
       PRINT "
SAMEN NAMENS.#13
"
 2838  GOSUB 960:
       PRINT "
WIR GABEN DIE#13
":
       SYS 5681:
       PRINT "
TAFELN SIEBEN#13
"
 2839  SYS 5681:
       PRINT "
DRUIDEN MIT, DIE#13
":
       SYS 5681:
       PRINT "
SIE IN ALLE#13
"
 2840  SYS 5681:
       PRINT "
SIEBEN STÄDTE
":
       SYS 5681:
       PRINT "
BRACHTEN. DORT#13
"
 2841  SYS 5681:
       PRINT "
NAHM SIE DANN#13
":
       SYS 5681:
       PRINT "
JEWEILS EIN#13
"
 2842  SYS 5681:
       PRINT "
ZAUBERER IN#13
":
       SYS 5681:
       PRINT "
EMPFANG.#13
"
 2843  GOSUB 960:
       PRINT "
DIE ZAUBERER#13
":
       SYS 5681:
       PRINT "
VERSTECKTEN IHRE#13
"
 2844  SYS 5681:
       PRINT "
TAFELN DANN NACH#13
":
       SYS 5681:
       PRINT "
BELIEBEN IRGEND-#13
"
 2845  SYS 5681:
       PRINT "
WO IN DER STADT.#13
":
       SYS 5681:
       PRINT "
AUF DIESE WEISE#13
"
 2846  SYS 5681:
       PRINT "
WEISS NUN KEINER#13
":
       SYS 5681:
       PRINT "
MEHR DEN NAMEN#13
"
 2847  SYS 5681:
       PRINT "
DES BÖSEN.#13
":
       GOSUB 960:
       PRINT "
ABER DU BENÖ-#13
"
 2848  SYS 5681:
       PRINT "
TIGST IHN, NICHT#13
":
       SYS 5681:
       PRINT "
WAHR?
";
 2849  GOSUB 970:
       IF U$ = "
N
" THEN 
           PRINT "
DU GLÜCKLICHER.%#13
":
       GOTO 400
 2850  SYS 5681:
       PRINT "
FRAG DIE ZAUBE-#13
":
       SYS 5681:
       PRINT "
RER IN DEN#13
"
 2851  SYS 5681:
       PRINT "
STÄDTEN NACH DEN#13
":
       SYS 5681:
       PRINT "
TAFELN. ABER SIE#13
"
 2852  SYS 5681:
       PRINT "
WISSEN NICHT DIE#13
":
       SYS 5681:
       PRINT "
REIHENFOLGE DER#13
"
 2853  SYS 5681:
       PRINT "
BUCHSTABEN.%#13
":
       GOTO 400
 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:
       SYS 5681:
       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:
       GOSUB 10000:
       IF  RND (TI) * 20 + 1 > CH THEN 
           PRINT "
#96GELINGT NICHT!#13
":
       GOTO 100
 3020  PRINT "
#9FES GELINGT!#13
":
       FOR I = 6332 TO 6411:
       IF  PEEK (I) = . THEN 
           POKE I,11
 3022  NEXT :
       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:
       GOTO 100
 3300  PRINT "
#9D  #13
":
       SYS 5681:
       PRINT "
#9EMÖCHTEST DU#13
":
       SYS 5681:
       PRINT "
DEN TURM#13
"
 3301  SYS 5681:
       PRINT "
VERLASSEN?
";:
       GOSUB 970:
       IF U$ = "
N
" THEN 
          Y = Y - 1:
       GOTO 100
 6000  SYS 5681:
       PRINT "
#96DU VERLÄSST#13
":
       SYS 5681:
       PRINT "
DEN TURM.#13
"
 6010  FOR I = 0 TO 1599:
       NEXT :
       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:
       POKE 2,0:
       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);
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 
// -----------------------------

40000  POKE 51200,1:
       POKE 51208,12:
       POKE 51211,11:
       POKE 51209,15:
       POKE 51228,1
40001  POKE 51219,1:
       POKE 51223,15:
       POKE 51221,1:
       POKE 51226,12:
       POKE 51313,1:
       POKE 51224,1
50000  DATA DONNERKEIL,8,5,100,GIFT UND GALLE,10,7,200,FEUERBALL,10,10,150
50001  DATA FLAMMENSPUR,12,20,200,FURCHTFLUCH,7,15,200,ZEITGEFRIER,13,25,250
50002  DATA TODESBLITZ,14,20,300,MAG. BOMBE,15,25,400
50100  DATA -35,6400,1,6800,35,6820,-1,6990
    0