1  POKE 53281,0:
       POKE 53280,0:
       POKE 53272,18:
      I =  RND ( - TI):
      S = 54272:
       SYS 5454:
      I =  RND ( - TI)
    2  IF  PEEK (49161) < 255 THEN 
           POKE 7153,11
    6  GOSUB 11000:
       DIM A(3),P(3):
       FOR I = 0 TO 3:
       READ A(I),P(I):
       NEXT :
       POKE 650,255:
       GOTO 20
    7  FOR I = 0 TO 3:
      J =  INT (4 *  RND (TI)):
      K = P(I) + A(J):
       IF K = 6144 + X + 35 * Y GOTO 9
    8  IF  PEEK (K) = 11 AND K < 7400 THEN 
           POKE P(I),11:
      P(I) = K:
       POKE P(I),21
    9  NEXT :
       RETURN 
// -----------------------------

   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:
      Q = 11:
       GOSUB 10000
  100  POKE 2,X:
       POKE 182,Y:
       SYS 6052:
       SYS 4482:
       SYS 4537:
       GOSUB 7:
       SYS 4361:
       SYS 5440:
       SYS 5681
  102  IF Q = 10 AND  PEEK (49348) = . GOTO 6200
  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
" AND X > . GOTO 230
  127  IF U$ = "
#1D
" AND X < 34 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
  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 = 18 GOTO 2500
  211  IF J < 6 OR J = 9 OR (J > 11 AND J < 119) GOTO 214
  212  POKE P,Q:
      Q = J:
      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 < 6 OR J = 9 OR (J > 11 AND J < 119) GOTO 214
  222  POKE P,Q:
      Q = J:
      Y = Y + 1:
       GOTO 6100
  230  PRINT "
WESTEN#13
":
      J =  PEEK (891):
       IF J < 6 OR J = 9 OR (J > 11 AND J < 119) GOTO 214
  232  POKE P,Q:
      Q = J:
      X = X - 1:
       GOTO 6100
  234  PRINT "
OSTEN#13
":
      J =  PEEK (893):
       IF J < 6 OR J = 9 OR (J > 11 AND J < 119) GOTO 214
  236  POKE P,Q:
      Q = J:
      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 = 21 THEN 
          H = 1
  261  IF J = 17 THEN 
          H = 5
  262  IF J = 16 THEN 
          H = 2:
       IF X > 19 THEN 
          H = 3
  279  IF H = . THEN 
           PRINT "
#96KEINE ANTWORT!#13
":
       SYS 5681:
       GOTO 100
  280  SYS 5681:
       PRINT "
#9FDU SPRICHST#13
":
       SYS 5681:
       IF H = 1 THEN 
           PRINT "
EINE WACHE 
";
  281  IF H = 2 OR H = 3 THEN 
           PRINT "
EINEN FEUER-#13
":
       SYS 5681:
       PRINT "
TEUFEL 
";
  287  IF H = 5 THEN 
           PRINT "
DEN FEUERDÄMON#13
":
       SYS 5681:
       PRINT "
FULGAR 
";
  297  PRINT "
AN.#13
":
       IF H = 5 GOTO 2000
  298  IF  RND (TI) < .5 GOTO 400
  299  GOTO 820
  400  GOSUB 900:
       IF  RND (TI) < .05 THEN 
           PRINT "
 #13
":
       GOTO 880
  401  IF H = 1 AND N$ = "
WAEC
" GOTO 1000
  402  IF H = 1 AND N$ = "
BURG
" GOTO 1001
  403  IF N$ = "
GOLD
" GOTO 1016
  404  IF H = 2 AND N$ = "
BURG
" GOTO 1020
  405  IF H = 3 AND N$ = "
FEUE
" GOTO 1110
  406  IF H = 3 AND N$ = "
STAL
" GOTO 1100
  407  IF N$ = "
FEUE
" OR N$ = "
FULG
" THEN 
           IF  PEEK (49359) = . GOTO 1030
  408  IF H = 3 AND N$ = "
REIT
" AND  PEEK (7153) = 18 GOTO 1120
  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
  441  PRINT "
 #13
":
       GOSUB 800:
       PRINT "
DAZU KANN#13
":
       SYS 5681:
       PRINT "
ICH DIR NICHTS#13
":
       SYS 5681
  442  PRINT "
SAGEN.%#13
"
  443  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 
";
  801  IF H = 1 THEN 
           PRINT "
WÄCHTER#13
"
  802  IF H = 2 OR H = 3 THEN 
           PRINT "
FEUERTEUFEL#13
"
  810  IF H = 5 THEN 
           PRINT "
FEUERDÄMON#13
"
  819  SYS 5681:
       PRINT "
SAGT:#13
":
       SYS 5681:
       PRINT "
#99%
";:
       RETURN 
// -----------------------------

  820  GOSUB 800:
       PRINT "
ICH BIN 
";:
       IF H = 1 THEN 
           PRINT "
EIN#13
":
       SYS 5681:
       PRINT "
WÄCHTER
";
  821  IF H = 2 THEN 
           SYS 5681:
       PRINT "
F'GOR
";
  822  IF H = 3 THEN 
           SYS 5681:
       PRINT "
N'LAR
";
  839  PRINT "
.%#13
":
       GOTO 400
  840  GOSUB 800:
       IF H = 1 THEN 
           PRINT "
AUSGEZEICHNET,#13
":
       SYS 5681:
       PRINT "
DANKE
";
  841  IF H = 2 OR H = 3 THEN 
           PRINT "
GANZ GUT
";
  859  GOTO 839
  860  PRINT "
F?#13
":
       IF H = 1 GOTO 820
  862  GOSUB 800:
       IF H = 2 THEN 
           PRINT "
ICH BIN DER
";:
       SYS 5681:
       PRINT "
BURGVERWALTER
";
  863  IF H = 3 THEN 
           PRINT "
ICH BIN DER#13
":
       SYS 5681:
       PRINT "
STALLKNECHT
";
  879  GOTO 839
  880  GOSUB 800:
       IF H = 1 THEN 
           PRINT "
ICH MUSS WEITER#13
":
       SYS 5681:
       PRINT "
WACHE SCHIEBEN
";
  881  IF H = 3 OR H = 2 THEN 
           PRINT "
FEUER ERHELLE#13
":
       SYS 5681:
       PRINT "
DEINEN WEG
";
  897  PRINT "
.%#13
":
       SYS 5681:
       SYS 5681
  898  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  PRINT "
HTER#13
":
       GOSUB 800:
       PRINT "
ICH BEWACHE DIE#13
":
       SYS 5681:
       PRINT "
BURG.%#13
":
       GOTO 400
 1001  PRINT "
 
":
       GOSUB 800:
       PRINT "
DAS HIER IST#13
":
       SYS 5681:
       PRINT "
DIE BURG DES#13
"
 1002  SYS 5681:
       PRINT "
MÄCHTIGEN#13
":
       SYS 5681:
       PRINT "
FEUERDÄMONS#13
"
 1003  SYS 5681:
       PRINT "
FULGAR.#13
":
       GOSUB 960:
       PRINT "
STEHST DU IN#13
":
       SYS 5681:
       PRINT "
SEINEM DIENST?
";
 1004  GOSUB 970:
       IF U$ = "
N
" THEN 
           PRINT "
MELDE DICH BEIM#13
":
       SYS 5681:
       PRINT "
BURGVERWALTER.%#13
":
       GOTO 400
 1005  PRINT "
DANN GEH RASCH#13
":
       SYS 5681:
       PRINT "
ZU IHM UND ER-#13
"
 1006  SYS 5681:
       PRINT "
STATTE BERICHT.%#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 "
 #13
":
       GOSUB 800:
       PRINT "
DIES IST DIE#13
":
       SYS 5681:
       PRINT "
BURG DES#13
"
 1022  SYS 5681:
       PRINT "
FEUERDÄMONS#13
":
       SYS 5681:
       PRINT "
FULGAR.%#13
":
       GOTO 400
 1030  PRINT "
 #13
":
       GOSUB 800:
       PRINT "
FULGAR MAG#13
":
       SYS 5681:
       PRINT "
WOHL BEI DEN#13
"
 1032  SYS 5681:
       PRINT "
MENSCHEN EINEN#13
":
       SYS 5681:
       PRINT "
SCHLECHTEN RUF#13
"
 1034  SYS 5681:
       PRINT "
HABEN, VOR ALLEM#13
":
       SYS 5681:
       PRINT "
WEGEN DER IN#13
"
 1036  SYS 5681:
       PRINT "
LETZTER ZEIT#13
":
       SYS 5681:
       PRINT "
MARAUDIERENDEN#13
"
 1038  SYS 5681:
       PRINT "
FEUERECHSEN.#13
":
       GOSUB 960:
       PRINT "
ABER LASS MICH#13
"
 1040  SYS 5681:
       PRINT "
DIR FOLGENDES#13
":
       SYS 5681:
       PRINT "
ERKLÄREN.#13
"
 1042  GOSUB 960:
       PRINT "
FULGAR WIRD#13
":
       SYS 5681:
       PRINT "
ZWAR FEUERDÄMON#13
"
 1043  SYS 5681:
       PRINT "
GENANNT, ABER#13
":
       SYS 5681:
       PRINT "
DAS IST EIGENT-#13
"
 1044  SYS 5681:
       PRINT "
LICH NICHT GANZ#13
":
       SYS 5681:
       PRINT "
RICHTIG. ER IST#13
"
 1045  SYS 5681:
       PRINT "
EIN ELEMENTAR-#13
":
       SYS 5681:
       PRINT "
WESEN, NÄMLICH#13
"
 1046  SYS 5681:
       PRINT "
DAS DES FEUERS.#13
":
       GOSUB 960:
       PRINT "
WIR, SEINE DIE-#13
"
 1047  SYS 5681:
       PRINT "
NER, DIE FEUER-#13
":
       SYS 5681:
       PRINT "
TEUFEL, SIND IN#13
"
 1048  SYS 5681:
       PRINT "
WIRKLICHKEIT#13
":
       SYS 5681:
       PRINT "
AUCH ELEMENTAR-#13
"
 1049  SYS 5681:
       PRINT "
GEISTER, ABER#13
":
       SYS 5681:
       PRINT "
NIEDERER STUFE.#13
"
 1050  GOSUB 960:
       PRINT "
ZU DEN MENSCHEN#13
":
       SYS 5681:
       PRINT "
HAT FULGAR EIN#13
"
 1051  SYS 5681:
       PRINT "
EHER NEUTRALES#13
":
       SYS 5681:
       PRINT "
VERHÄLTNIS, DAS#13
"
 1052  SYS 5681:
       PRINT "
HEISST, ER KÜM-#13
":
       SYS 5681:
       PRINT "
MERT SICH NICHT#13
"
 1053  SYS 5681:
       PRINT "
UM SIE, SONDERN#13
":
       SYS 5681:
       PRINT "
GEHT SEINEN#13
"
 1054  SYS 5681:
       PRINT "
INTERESSEN NACH,#13
":
       SYS 5681:
       PRINT "
DIE DEN MENSCHEN#13
"
 1055  SYS 5681:
       PRINT "
NICHT SCHADEN.#13
":
       GOSUB 960:
       PRINT "
DIE FEUERECHSEN#13
"
 1056  SYS 5681:
       PRINT "
WERDEN VON DEM#13
":
       SYS 5681:
       PRINT "
ERZDÄMON, DER#13
"
 1057  SYS 5681:
       PRINT "
DEN KRISTALL#13
":
       SYS 5681:
       PRINT "
ZERSTÖRT HAT,#13
"
 1058  SYS 5681:
       PRINT "
GEGEN DIE MEN-#13
":
       SYS 5681:
       PRINT "
SCHEN GEHETZT.#13
"
 1059  SYS 5681:
       PRINT "
DIES ÄRGERT FUL-#13
":
       SYS 5681:
       PRINT "
GAR, DA WIR HOHE#13
"
 1060  SYS 5681:
       PRINT "
VERLUSTE AN DEN#13
":
       SYS 5681:
       PRINT "
ECHSEN HABEN.#13
"
 1061  GOSUB 960:
       PRINT "
ABER FULGAR#13
":
       SYS 5681:
       PRINT "
STÖRT DAS BÖSE#13
"
 1062  SYS 5681:
       PRINT "
SONST NICHT#13
":
       SYS 5681:
       PRINT "
WEITER, UND ER#13
"
 1063  SYS 5681:
       PRINT "
GEHT NICHT DA-#13
":
       SYS 5681:
       PRINT "
GEGEN VOR. ER#13
"
 1064  SYS 5681:
       PRINT "
HAT AUCH ANDERE#13
":
       SYS 5681:
       PRINT "
PROBLEME. DES-#13
"
 1065  SYS 5681:
       PRINT "
HALB HAT ER NACH#13
":
       SYS 5681:
       PRINT "
DIR GESCHICKT.#13
"
 1066  GOSUB 960:
       PRINT "
DU BIST DER#13
":
       SYS 5681:
       PRINT "
ERSTE MENSCH,#13
"
 1067  SYS 5681:
       PRINT "
DEM ER ELAUBT,#13
":
       SYS 5681:
       PRINT "
SEINE BURG ZU#13
"
 1068  SYS 5681:
       PRINT "
BETRETEN.#13
":
       GOSUB 960:
       PRINT "
ER HAT EINEN#13
":
       SYS 5681:
       PRINT "
AUFTRAG FÜR#13
"
 1069  SYS 5681:
       PRINT "
DICH, FÜR DESSEN#13
":
       SYS 5681:
       PRINT "
ERLEDIGUNG ER#13
"
 1070  SYS 5681:
       PRINT "
DICH BESTIMMT#13
":
       SYS 5681:
       PRINT "
MIT ETWAS BE-#13
"
 1071  SYS 5681:
       PRINT "
LOHNT, WAS DIR#13
":
       SYS 5681:
       PRINT "
IM KAMPF GEGEN#13
"
 1072  SYS 5681:
       PRINT "
DAS BÖSE HILFT.#13
":
       SYS 5681:
       PRINT "
FULGAR IST SEHR#13
"
 1074  SYS 5681:
       PRINT "
GROSSZÜGIG.#13
":
       GOSUB 960:
       PRINT "
UND NUN GEH ZU#13
"
 1075  SYS 5681:
       PRINT "
IHM. ER ERWAR-#13
":
       SYS 5681:
       PRINT "
TET DICH SCHON.%#13
":
       GOTO 400
 1100  PRINT "
LKNECHT#13
":
       GOSUB 800:
       PRINT "
ICH KÜMMERE#13
":
       SYS 5681:
       PRINT "
MICH UM DIE#13
"
 1102  SYS 5681:
       PRINT "
FEUERECHSEN.%#13
":
       GOTO 400
 1110  PRINT "
RECHSEN#13
":
       GOSUB 800:
       PRINT "
WIR ZÜCHTEN SIE#13
":
       SYS 5681:
       PRINT "
ALS REITTIERE.%#13
":
       GOTO 400
 1120  PRINT "
TIERE#13
":
       GOSUB 800:
       PRINT "
JA, NORMALER-#13
":
       SYS 5681:
       PRINT "
WEISE SIND SIE#13
"
 1122  SYS 5681:
       PRINT "
SEHR ZAHM UND#13
":
       SYS 5681:
       PRINT "
GEHORSAM. FULGAR#13
"
 1124  SYS 5681:
       PRINT "
REITET IMMER DAS#13
":
       SYS 5681:
       PRINT "
ALBINO IN DER#13
"
 1126  SYS 5681:
       PRINT "
MITTLEREN BOX.#13
":
       GOSUB 960:
       PRINT "
ENTSCHULDIGE#13
"
 1128  SYS 5681:
       PRINT "
MICH, ICH HABE#13
":
       SYS 5681:
       PRINT "
VIEL ZU TUN
";:
       GOTO 897
 2000  GOSUB 800:
       PRINT "
SEI WILLKOMMEN,#13
":
       SYS 5681:
       PRINT "
              #13
"
 2002  FOR I = 0 TO 12:
      J =  PEEK (49211 + I):
       POKE 1968 + I,J:
       IF J <  > 32 THEN 
           NEXT 
 2004  POKE 1968 + I,33:
       SYS 5681:
       IF  PEEK (49359) GOTO 2200
 2010  PRINT "
ICH HABE SCHON#13
":
       SYS 5681:
       PRINT "
VIEL VON DIR GE-#13
":
       SYS 5681:
       PRINT "
HÖRT UND DICH#13
"
 2012  SYS 5681:
       PRINT "
BEREITS ERWAR-#13
":
       SYS 5681:
       PRINT "
TET.#13
"
 2014  GOSUB 960:
       PRINT "
UND NICHT NUR#13
":
       SYS 5681:
       PRINT "
ERWARTET, SON-#13
"
 2016  SYS 5681:
       PRINT "
SOGAR NACH DIR#13
":
       SYS 5681:
       PRINT "
GESCHICKT. HAST#13
"
 2018  SYS 5681:
       PRINT "
DU MEINEN DIENER#13
":
       SYS 5681:
       PRINT "
T'KUL IN MUBRAK#13
"
 2020  SYS 5681:
       PRINT "
GETROFFEN?
";:
       GOSUB 970:
       IF U$ = "
J
" GOTO 2040
 2022  PRINT "
HM, NICHT WEITER#13
":
       SYS 5681:
       PRINT "
SCHLIMM, ABER#13
":
       SYS 5681:
       PRINT "
DU MUSST IHN#13
"
 2024  SYS 5681:
       PRINT "
NOCH AUFSUCHEN,#13
":
       SYS 5681:
       PRINT "
FALLS DU MEINEN#13
"
 2026  SYS 5681:
       PRINT "
AUFTRAG AN-#13
":
       SYS 5681:
       PRINT "
NIMMST. ER HAT#13
"
 2028  SYS 5681:
       PRINT "
EINEN EICHEN-
":
       SYS 5681:
       PRINT "
DOLCH, DEN DU#13
"
 2030  SYS 5681:
       PRINT "
BRAUCHST. LASS
":
       SYS 5681:
       PRINT "
DIR IHN GEBEN.%#13
":
       GOTO 2100
 2040  PRINT "
GUT, DANN WEISST#13
":
       SYS 5681:
       PRINT "
DU JA, DASS ICH#13
"
 2042  SYS 5681:
       PRINT "
EINEN AUFTRAG#13
":
       SYS 5681:
       PRINT "
FÜR DICH HABE.#13
":
       GOSUB 960
 2043  SYS 5681:
       PRINT "
DAZU BENÖTIGST#13
"
 2044  SYS 5681:
       PRINT "
DU ABER DEN#13
":
       SYS 5681:
       PRINT "
EICHENDOLCH.#13
"
 2045  SYS 5681:
       PRINT "
HAT T'KUL IHN#13
":
       SYS 5681:
       PRINT "
DIR GEGEBEN?
";:
       GOSUB 970
 2046  IF U$ = "
J
" THEN 
           PRINT "
GUT.#13
":
       GOTO 2100
 2050  PRINT "
DIESER BLÖDE#13
":
       SYS 5681:
       PRINT "
IDIOT. ICH HABE#13
":
       SYS 5681
 2052  PRINT "
IHM EXTRA GE-#13
":
       SYS 5681:
       PRINT "
SAGT, ER SOLL#13
":
       SYS 5681:
       PRINT "
IHN DIR GEBEN,#13
"
 2054  SYS 5681:
       PRINT "
ABER DER TROTTEL#13
":
       SYS 5681:
       PRINT "
HATTE WOHL#13
"
 2056  SYS 5681:
       PRINT "
NUR DIE SPIEL-#13
"
 2058  SYS 5681:
       PRINT "
HÖLLE IM KOPF.#13
":
       GOSUB 960:
       PRINT "
GEH' NOCH EINMAL#13
"
 2060  SYS 5681:
       PRINT "
ZU IHM UND#13
":
       SYS 5681:
       PRINT "
VERLANGE DEN#13
"
 2062  SYS 5681:
       PRINT "
EICHENDOLCH.#13
"
 2100  GOSUB 960:
       PRINT "
MEIN AUFTRAG FÜR#13
":
       SYS 5681:
       PRINT "
DICH LAUTET:#13
"
 2102  SYS 5681:
       PRINT "
GEH IN DIE BURG#13
";:
       SYS 5681:
       PRINT "
DES VAMPIRGRAFEN#13
"
 2104  SYS 5681:
       PRINT "
KROLOC, DIE IN-#13
";:
       SYS 5681:
       PRINT "
MITTEN DER TO-#13
"
 2106  SYS 5681:
       PRINT "
DESSÜMPFE LIEGT,
";:
       SYS 5681:
       PRINT "
UND TÖTE DEN#13
"
 2108  SYS 5681:
       PRINT "
GRAFEN KROLOC.
";:
       GOSUB 960:
       PRINT "
ICH BIN MIT#13
"
 2110  SYS 5681:
       PRINT "
DIESEM VAMPIR-
";:
       SYS 5681:
       PRINT "
FÜRSTEN BIS ZUM#13
"
 2112  SYS 5681:
       PRINT "
TOD VERFEINDET.#13
":
       SYS 5681:
       PRINT "
WENN DU IHN TÖ-#13
"
 2114  SYS 5681:
       PRINT "
TEST, WÄRE DAS#13
":
       SYS 5681:
       PRINT "
AUCH EIN VORTEIL#13
"
 2116  SYS 5681:
       PRINT "
FÜR DIE MEN-#13
":
       SYS 5681:
       PRINT "
SCHEN.#13
"
 2120  GOSUB 960:
       PRINT "
ICH KÖNNTE IHN#13
":
       SYS 5681:
       PRINT "
MIT ETWAS#13
":
       SYS 5681:
       PRINT "
AUFWAND AUCH#13
"
 2122  SYS 5681:
       PRINT "
SELBST TÖTEN,#13
":
       SYS 5681:
       PRINT "
ABER ALS EIN#13
"
 2124  SYS 5681:
       PRINT "
WESEN DES FEUERS#13
":
       SYS 5681:
       PRINT "
SIND MIR DIESE#13
"
 2126  SYS 5681:
       PRINT "
EKELHAFTEN#13
":
       SYS 5681:
       PRINT "
SÜMPFE EINFACH#13
"
 2128  SYS 5681:
       PRINT "
ZU NASS.#13
":
       GOSUB 960:
       PRINT "
DIE BURG DES#13
"
 2130  SYS 5681:
       PRINT "
GRAFEN IST EIN#13
":
       SYS 5681:
       PRINT "
DREISTÖCKIGES,#13
"
 2132  SYS 5681:
       PRINT "
HALBZERFALLENES#13
":
       SYS 5681:
       PRINT "
GEWIRR VON GÄN-#13
"
 2134  SYS 5681:
       PRINT "
GEN, DAS VON#13
":
       SYS 5681:
       PRINT "
FALLEN UND DEN#13
"
 2136  SYS 5681:
       PRINT "
SCHERGEN DES#13
":
       SYS 5681:
       PRINT "
GRAFEN WIMMELT.#13
"
 2140  GOSUB 960:
       PRINT "
DER GRAF BEWOHNT#13
":
       SYS 5681:
       PRINT "
EINE ART GRUFT#13
"
 2142  SYS 5681:
       PRINT "
OBERHALB DES#13
":
       SYS 5681:
       PRINT "
DRITTEN STOCKS.#13
"
 2144  SYS 5681:
       PRINT "
ER BEHERRSCHT#13
":
       SYS 5681:
       PRINT "
DIE SCHWARZE#13
"
 2146  SYS 5681:
       PRINT "
KUNST UND KANN#13
":
       SYS 5681:
       PRINT "
NUR MIT DEM#13
"
 2148  SYS 5681:
       PRINT "
EICHENDOLCH#13
":
       SYS 5681:
       PRINT "
VERNICHTET#13
"
 2150  SYS 5681:
       PRINT "
WERDEN.#13
":
       GOSUB 960:
       PRINT "
DER DOLCH IST#13
"
 2151  SYS 5681:
       PRINT "
AUS DEM HOLZ#13
":
       SYS 5681:
       PRINT "
SEINES SARGES#13
"
 2152  SYS 5681:
       PRINT "
UND WIRKT NUR#13
"
 2153  SYS 5681:
       PRINT "
GEGEN KROLOC.#13
":
       SYS 5681:
       PRINT "
NIMMST DU DEN#13
"
 2154  SYS 5681:
       PRINT "
AUFTRAG AN?
";:
       GOSUB 970
 2156  IF U$ = "
N
" THEN 
           PRINT "
DU ELENDER#13
":
       SYS 5681:
       PRINT "
FEIGLING
";:
       GOTO 897
 2158  PRINT "
MEIN SEGEN BE-#13
":
       SYS 5681:
       PRINT "
GLEITET DICH
";:
       GOTO 897
 2200  IF  PEEK (49348) GOTO 2290
 2202  PRINT "
HERZLICHEN#13
";:
       SYS 5681:
       PRINT "
GLÜCKWUNSCH,#13
":
       SYS 5681:
       PRINT "
DU HAST KROLOC#13
"
 2204  SYS 5681:
       PRINT "
VERNICHTET!#13
":
       GOSUB 960:
       PRINT "
ZUM DANK MÖCHTE#13
"
 2206  SYS 5681:
       PRINT "
ICH DIR ETWAS#13
":
       SYS 5681:
       PRINT "
GANZ BESONDERES#13
":
       SYS 5681
 2208  PRINT "
SCHENKEN.%#13
":
       GOSUB 960:
       PRINT "
#9EER ZIEHT SICH#13
":
       SYS 5681:
       PRINT "
EINEN RING VON#13
"
 2210  SYS 5681:
       PRINT "
SEINEM FINGER#13
":
       SYS 5681:
       PRINT "
UND REICHT IHN#13
":
       SYS 5681
 2212  PRINT "
DIR.#13
":
       GOSUB 960:
       GOSUB 800:
       PRINT "
DIES IST EIN#13
":
       SYS 5681:
       PRINT "
FEUERRING. ER#13
"
 2214  SYS 5681:
       PRINT "
ERLAUBT SEINEM#13
":
       SYS 5681:
       PRINT "
TRÄGER, FLÜSSIGE#13
"
 2216  SYS 5681:
       PRINT "
LAVA SICHER ZU#13
":
       SYS 5681:
       PRINT "
DURCHQUEREN.#13
"
 2218  GOSUB 960:
       PRINT "
DU BIST DER ERS-#13
":
       SYS 5681:
       PRINT "
TE MENSCH, DER#13
"
 2220  SYS 5681:
       PRINT "
SO EINEN RING#13
":
       SYS 5681:
       PRINT "
BEKOMMT. LEIDER#13
"
 2222  POKE 49348,1:
       SYS 5681:
       PRINT "
SCHÜTZT ER NUR#13
":
       SYS 5681:
       PRINT "
VOR LAVA, NICHT#13
"
 2224  SYS 5681:
       PRINT "
VOR SONSTIGEM#13
":
       SYS 5681:
       PRINT "
FEUER.#13
"
 2226  GOSUB 960:
       PRINT "
GENÜGT ER DIR#13
":
       SYS 5681:
       PRINT "
ALS BELOHNUNG?
";:
       GOSUB 970
 2228  IF U$ = "
J
" THEN 
           PRINT "
NUTZE IHN GUT
";:
       GOTO 897
 2230  PRINT "
DU BIST DREIST,#13
";:
       SYS 5681:
       PRINT "
ABER ICH BIN#13
":
       SYS 5681:
       PRINT "
GROSSZÜGIG.#13
"
 2232  SYS 5681:
       PRINT "
DU SOLLST AUCH#13
";:
       SYS 5681:
       PRINT "
MATERIELL BE-#13
"
 2234  SYS 5681:
       PRINT "
LOHNT WERDEN.#13
";:
       SYS 5681:
       PRINT "
GENÜGEN DIR 500#13
"
 2236  SYS 5681:
       PRINT "
GOLDSTÜCKE?
";:
       GOSUB 970
 2238  IF U$ = "
J
" THEN 
          Z =  - 500:
       GOSUB 9004:
       SYS 5681:
       PRINT "
#99BITTE SEHR
";:
       GOTO 897
 2240  PRINT "
JETZT REICHT ES!#13
":
       SYS 5681:
       PRINT "
DU BIST VIEL ZU#13
":
       SYS 5681:
       PRINT "
UNVERSCHÄMT!#13
"
 2242  SYS 5681:
       PRINT "
NUN BEKOMMST DU#13
":
       SYS 5681:
       PRINT "
GAR KEIN GOLD
";:
       GOTO 897
 2290  IF  PEEK (49161) < 255 GOTO 2400
 2300  PRINT "
FÜHL' DICH IN#13
":
       SYS 5681:
       PRINT "
MEINER BURG WIE#13
":
       SYS 5681:
       PRINT "
ZU HAUSE
";:
       GOTO 897
 2400  PRINT "
ICH BIN ETWAS#13
":
       SYS 5681:
       PRINT "
SAUER AUF DICH,#13
"
 2410  SYS 5681:
       PRINT "
WEIL DU OHNE ZU#13
";:
       SYS 5681:
       PRINT "
FRAGEN, MEINE#13
"
 2412  SYS 5681:
       PRINT "
FEUERECHSE GE-#13
";:
       SYS 5681:
       PRINT "
NOMMEN HAST.#13
"
 2414  GOSUB 960:
       PRINT "
ABER SCHÖN, ICH#13
";:
       SYS 5681:
       PRINT "
LEIHE SIE DIR,#13
"
 2416  SYS 5681:
       PRINT "
SOLANGE, WIE DU#13
";:
       SYS 5681:
       PRINT "
DAS BÖSE BE-#13
"
 2418  SYS 5681:
       PRINT "
KÄMPFST, DA ICH#13
";:
       SYS 5681:
       PRINT "
WEGEN DER BEEIN-#13
"
 2420  SYS 5681:
       PRINT "
FLUSSUNG MEINER#13
";:
       SYS 5681:
       PRINT "
ECHSEN GROLL#13
"
 2422  SYS 5681:
       PRINT "
GEGEN DAS BÖSE#13
";:
       SYS 5681:
       PRINT "
HEGE.#13
"
 2426  GOSUB 960:
       PRINT "
ICH BEKOMME MEIN#13
";:
       SYS 5681:
       PRINT "
REITTIER JA AUF#13
"
 2428  SYS 5681:
       PRINT "
ALLE FÄLLE WIE-#13
"
 2430  SYS 5681:
       PRINT "
DER.#13
":
       GOSUB 960:
       PRINT "
WENN DAS#13
"
 2432  SYS 5681:
       PRINT "
BÖSE DICH ZER-#13
":
       SYS 5681:
       PRINT "
QUETSCHT HAT,#13
"
 2434  SYS 5681:
       PRINT "
FINDET SIE SCHON#13
":
       SYS 5681:
       PRINT "
WIEDER ZURÜCK
";:
       GOTO 897
 2500  POKE 892,11:
       SYS 4361:
      Y = Y - 1:
       POKE 49157,5:
       POKE 7153,11
 2502  SYS 5681:
       PRINT "
#9EDU SCHWINGST#13
":
       SYS 5681:
       PRINT "
DICH AUF DEN#13
"
 2504  SYS 5681:
       PRINT "
#9ERÜCKEN DER#13
":
       SYS 5681:
       PRINT "
FEUERECHSE!#13
":
       SYS 5681:
       FOR I = 0 TO 8
 2506  FOR J = 0 TO 180:
       NEXT :
       IF I / 4 =  INT (I / 4) THEN 
           SYS 6041:
       POKE S + 5,160:
       POKE S + 1,5:
       POKE S + 4,129
 2510 Y = Y + 1:
       POKE 2,X:
       POKE 182,Y:
       SYS 6052:
       SYS 4482:
       POKE 892,18:
       SYS 4361
 2520  NEXT :
       GOTO 6000
 3300  PRINT "
#9D  #13
":
       SYS 5681:
       PRINT "
#9EMÖCHTEST DU#13
":
       SYS 5681:
       PRINT "
DIE FEUERBURG#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 "
DIE BURG.#13
"
 6010  FOR I = 0 TO 999:
       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
 6200  POKE 892,22:
       SYS 5681:
       PRINT "
#96HEISSE LAVA#13
":
       SYS 5681:
       PRINT "
VERBRENNT DICH!#13
"
 6210  SYS 5681:
       SYS 4361:
       SYS 6041:
       POKE S + 5,10:
       POKE S + 4,129:
      HP = HP - 30:
       IF HP < 1 THEN 
          HP = .
 6215  POKE 49231,HP / 256:
       POKE 49230,HP - 256 *  PEEK (49231)
 6220  FOR I = 0 TO 60:
       POKE S + 1,130 *  RND (TI):
       NEXT :
       POKE 892,27:
       IF HP = . GOTO 6300
 6230  IF U$ = "
@
" THEN 
          Y = Y + 1
 6232  IF U$ = "
/
" THEN 
          Y = Y - 1
 6234  IF U$ = "
:
" THEN 
          X = X + 1
 6236  IF U$ = "
;
" THEN 
          X = X - 1
 6240  GOSUB 10000:
       SYS 4361:
      Q =  PEEK (6144 + X + 35 * Y):
       GOTO 6100
 6300  POKE 892,10:
       SYS 4361:
       PRINT "
#13
" SPC( 72)"
#99#1100
":
       SYS 5681:
       PRINT "
#05#B0#C0#C0#C0#C0#C0#C0#C0#C0#C0#C0#C0#C0#C0#C0#AE#13
"
 6302  SYS 5681:
       PRINT "
# #9EDU BIST TOT! #05##13
":
       SYS 5681:
       PRINT "
#05#AD#C0#C0#C0#C0#C0#C0#C0#C0#C0#C0#C0#C0#C0#C0#BD#13
"
 6304  FOR I = 0 TO 3E3:
       NEXT :
       FOR I = 0 TO 150:
       POKE 832 + 121 *  RND (TI),20:
       SYS 4361:
       NEXT 
 6306  POKE 2,20:
       SYS 5782:
       SYS 4361:
       FOR I = 0 TO 3E3:
       NEXT :
       SYS 5681:
       SYS 5681
 6310  PRINT "
#9EODER DOCH NICHT?#13
":
       FOR I = 1 TO 3E3:
       NEXT :
       SYS 5681:
       SYS 5681
 6312  PRINT "
DU FÜHLST EINE#13
";:
       SYS 5681:
       PRINT "
STARKE MAGIE...#13
"
 6314  SYS 6041:
       POKE S + 5,12:
      K = 5:
       POKE S + 4,33:
       FOR I = 0 TO 80 STEP 5:
      K = 11 - K
 6316  POKE 53281,K:
       POKE 53280,K:
       FOR J = I TO I + 10 STEP 2:
       POKE S + 1,J:
       NEXT J,I
 6320  POKE 53281,0:
       POKE 53280,0:
       POKE 49230,30:
       SYS 5681:
       SYS 5681
 6322  PRINT "
#96DIE MAGIE DES#13
":
       SYS 5681:
       PRINT "
FEUERDÄMONS#13
":
       SYS 5681:
       PRINT "
RETTET DICH.#13
"
 6324  GOTO 6230
 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 
// -----------------------------

11000  POKE 51208,12:
       POKE 51223,15:
       POKE 51211,2:
       POKE 51221,10:
       POKE 51209,15:
       POKE 51206,8
11001  POKE 51561,184:
       POKE 51817,184:
       POKE 52073,185:
       POKE 52329,185:
       POKE 51205,15
11002  POKE 51313,10:
       POKE 51226,10:
       POKE 51212,7:
       POKE 51216,10:
       POKE 51215,8
11003  POKE 51217,10:
       POKE 51228,2:
       POKE 51230,2:
       POKE 51222,10:
       RETURN 
// -----------------------------

50000  DATA -35,6465,1,6570,35,6853,-1,7075
    0