1  POKE 53281,0:
       POKE 53280,0:
       POKE 53272,18:
      I =  RND ( - TI):
      S = 54272:
       SYS 5454:
      I =  RND ( - TI)
    5  DIM W$(26):
       FOR I = 0 TO 26:
       READ W$(I):
       NEXT :
       GOSUB 11000
    6  POKE 51206,1:
       DIM A(3),P(3),Q(3),H(3):
       FOR I = 0 TO 3:
       READ A(I),P(I),Q(I),H(I):
       NEXT :
       GOTO 20
    7  FOR I = 0 TO 3:
      J =  INT (4 *  RND (TI)):
      K = P(I) + A(J):
      Z =  PEEK (K):
       IF K = 6144 + X + 35 * Y GOTO 9
    8  IF Z = 3 OR Z = 8 OR Z = 11 THEN 
           IF K < 7400 THEN 
           POKE P(I),Q(I):
      P(I) = K:
      Q(I) = Z:
       POKE P(I),H(I)
    9  NEXT :
       RETURN 
// -----------------------------

   20  PRINT "
#13#11#11
" SPC( 24)"
#99VITAL.:   (   )
":
       PRINT  SPC( 24)"
#91#9FASTRAL:   (   )
"
   21  PRINT  SPC( 24)"
#96ATT.:   #1EPAR.:
":
       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 = 16:
      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
  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$ = "
S
" GOTO 3200
  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 < 3 OR J = 5 OR J = 9 OR J > 11 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 < 3 OR J = 5 OR J = 9 OR J > 11 GOTO 214
  222  POKE P,Q:
      Q = J:
      Y = Y + 1:
       GOTO 6100
  230  PRINT "
WESTEN#13
":
      J =  PEEK (891):
       IF J < 3 OR J = 5 OR J = 9 OR J > 11 GOTO 214
  232  POKE P,Q:
      Q = J:
      X = X - 1:
       GOTO 6100
  234  PRINT "
OSTEN#13
":
      J =  PEEK (893):
       IF J < 3 OR J = 5 OR J = 9 OR J = 6 OR J > 11 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 = 16 AND Y > 24 THEN 
          H = 2:
       IF Y > 33 THEN 
          H = 3
  262  IF J = 110 THEN 
          H = 4
  263  IF J = 111 THEN 
          H = 5
  265  IF J = 16 THEN 
           IF Y > 12 AND Y < 16 AND X > 15 THEN 
          H = 7
  266  IF J = 16 THEN 
           IF X > 6 AND X < 9 AND Y > 12 AND Y < 15 THEN 
          H = 8.2
  267  IF J = 46 THEN 
          H = 8
  268  IF J = 16 AND X > 28 AND Y < 7 THEN 
          H = 6
  269  IF J = 18 THEN 
          H = 9
  270  IF J = 28 THEN 
          H = 10
  271  IF J = 16 THEN 
           IF X < 7 AND Y > 12 AND Y < 15 THEN 
          H = 8.1
  272  IF J = 16 THEN 
           IF X > 8 AND X < 11 THEN 
          H = 8.3
  273  IF J = 39 THEN 
          H = 8.5
  274  IF J = 16 THEN 
           IF X < 9 AND Y < 6 THEN 
          H = 8.8
  275  IF J = 34 THEN 
          H = 14
  276  IF J = 25 THEN 
          H = 13
  277  IF J = 32 GOTO 1110
  278  IF J = 30 THEN 
          H = 15
  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 THEN 
           PRINT "
DEN RÜSTUNGS-#13
":
       SYS 5681:
       PRINT "
MACHER 
";
  282  IF H = 3 THEN 
           PRINT "
DEN WAFFEN-#13
":
       SYS 5681:
       PRINT "
SCHMIED 
";
  283  IF H = 4 THEN 
           PRINT "
EINEN HEILER#13
":
       SYS 5681
  284  IF H = 5 THEN 
           PRINT "
EINEN KOCH#13
":
       SYS 5681
  285  IF H = 6 THEN 
           PRINT "
EINEN MANN#13
":
       SYS 5681
  286  IF H = 7 THEN 
           PRINT "
EINEN BETTLER#13
":
       SYS 5681
  287  IF H = 8 THEN 
           PRINT "
EINEN CROUPIER#13
":
       SYS 5681
  288  IF H = 13 THEN 
           PRINT "
EIN LEICHTES#13
":
       SYS 5681:
       PRINT "
MÄDCHEN 
";
  289  IF H = 15 THEN 
           PRINT "
EINE KELLNERIN#13
":
       SYS 5681
  291  IF H = 14 THEN 
           PRINT "
EINE ALTE FRAU#13
":
       SYS 5681
  292  IF H = 9 THEN 
           PRINT "
EINEN ZUBERER#13
":
       SYS 5681
  293  IF H = 10 THEN 
           PRINT "
EINEN DRUIDEN#13
":
       SYS 5681
  294  IF H > 8 AND H < 8.5 THEN 
           PRINT "
EINEN SPIELER#13
":
       SYS 5681
  295  IF H = 8.5 THEN 
           PRINT "
EINEN FEUER-#13
":
       SYS 5681:
       PRINT "
TEUFEL 
";
  296  IF H = 8.8 THEN 
           PRINT "
EINEN KRIEGER#13
":
       SYS 5681
  297  PRINT "
AN.#13
":
       IF  PEEK (49352) GOTO 1200
  298  IF H = 13 OR  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$ = "
STAD
" GOTO 1001
  403  IF N$ = "
GOLD
" GOTO 1016
  404  IF H = 2 AND N$ = "
RUES
" GOTO 2000
  405  IF H = 3 AND N$ = "
WAFF
" GOTO 2040
  406  IF H = 4 AND N$ = "
HEIL
" GOTO 1030
  407  IF H = 4 AND N$ = "
ENTG
" GOTO 1032
  408  IF H = 4 AND N$ = "
REGE
" GOTO 1038
  409  IF H = 5 AND N$ = "
ESSE
" GOTO 1040
  410  IF H = 14 AND N$ = "
KRAE
" GOTO 2100
  411  IF H = 6 AND N$ = "
PEEP
" GOTO 1100
  412  IF H = 7 AND N$ = "
BETT
" AND  PEEK (49350) = . 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 499
  416  IF H = 15 AND N$ = "
KELL
" GOTO 1140
  417  IF H = 15 AND N$ = "
KOPF
" GOTO 1150
  419  IF H = 8 AND N$ = "
CROU
" GOTO 4000
  420  IF N$ = "
WIED
" THEN 
           PRINT "
ERSEHEN.#13
":
       GOTO 880
  421  IF N$ = "
GESU
" THEN 
           PRINT "
NDHEIT?#13
":
       GOTO 840
  422  IF H = 7 AND N$ = "
BETT
" THEN 
           PRINT "
LER#13
":
       GOSUB 800:
       GOTO 1125
  423  IF H = 7 AND N$ = "
FLOE
" AND  PEEK (49350) = . GOTO 1130
  424  IF H = 9 AND N$ = "
ZAUB
" GOTO 3000
  425  IF H = 9 AND N$ = "
ADEP
" GOTO 3010
  426  IF H = 9 AND N$ = "
TAFE
" GOTO 3030
  427  IF H = 9 AND N$ = "
GIFT
" GOTO 3020
  428  IF H = 10 AND N$ = "
DRUI
" GOTO 3100
  429  IF H = 10 AND N$ = "
HELF
" GOTO 3110
  430  IF H = 10 AND N$ = "
TAFE
" GOTO 3120
  431  IF H = 10 THEN 
           IF N$ = "
BOES
" OR N$ = "
SPLI
" OR N$ = "
KRIS
" OR N$ = "
GLEI
" OR N$ = "
UMST
" GOTO 3130
  432  IF H = 13 AND N$ = "
KOER
" GOTO 1050
  433  IF H = 13 AND N$ = "
HELF
" GOTO 1060
  434  IF H = 8.1 AND N$ = "
SPIE
" GOTO 1160
  435  IF H = 8.1 AND N$ = "
PLEI
" AND  PEEK (49354) = . GOTO 1162
  436  IF H = 8.2 AND N$ = "
SPIE
" GOTO 1180
  437  IF H = 8.3 AND N$ = "
SPIE
" GOTO 1185
  438  IF H = 8.3 AND N$ = "
GELD
" GOTO 1187
  439  IF H = 14 AND N$ = "
GIFT
" GOTO 1070
  440  IF H = 8 AND N$ = "
SPIE
" GOTO 4010
  441  IF H = 14 AND N$ = "
DOMI
" GOTO 1072
  442  IF H = 8.5 AND N$ = "
EICH
" AND  PEEK (49349) = . GOTO 1210
  443  IF H = 8.5 AND N$ = "
DIEN
" GOTO 860
  444  IF H = 8.5 AND N$ = "
FULG
" GOTO 1220
  445  IF H = 8.8 AND N$ = "
KRIE
" GOTO 1300
  446  IF H = 8.8 AND N$ = "
ELIT
" GOTO 1310
  447  IF H = 8.8 AND N$ = "
RIES
" GOTO 1320
  448  IF H = 8.8 THEN 
           IF N$ = "
SHEI
" OR N$ = "
PRIN
" GOTO 1340
  449  IF H = 3 AND N$ = "
BLAS
" GOTO 2200
  497  PRINT "
 #13
":
       GOSUB 800:
       PRINT "
DAZU KANN#13
":
       SYS 5681:
       PRINT "
ICH DIR NICHTS#13
":
       SYS 5681
  498  PRINT "
SAGEN.%#13
":
       GOTO 400
  499  PRINT "
 #13
":
       GOSUB 800:
       PRINT "
DU BIST EIN#13
":
       SYS 5681:
       PRINT "
ALTES FERKEL!%#13
":
       GOTO 400
  800  GOSUB 999:
       PRINT "
#9EDER 
";:
       IF H > 12 THEN 
           PRINT "
#9D#9D#9DIE 
";:
       IF H = 13 THEN 
           PRINT "
#9D#9D#9DAS 
";
  801  IF H = 1 THEN 
           PRINT "
WÄCHTER#13
"
  802  IF H = 2 THEN 
           PRINT "
RÜSTUNGS-#13
":
       SYS 5681:
       PRINT "
MACHER#13
"
  803  IF H = 3 THEN 
           PRINT "
WAFFEN-#13
":
       SYS 5681:
       PRINT "
SCHMIED#13
"
  804  IF H = 4 THEN 
           PRINT "
HEILER#13
"
  805  IF H = 5 THEN 
           PRINT "
KOCH#13
"
  806  IF H = 6 THEN 
           PRINT "
MANN#13
"
  807  IF H = 7 THEN 
           PRINT "
BETTLER#13
"
  808  IF H = 8.8 THEN 
           PRINT "
KRIEGER#13
"
  810  IF H = 9 THEN 
           PRINT "
ZAUBERER#13
"
  811  IF H = 10 THEN 
           PRINT "
DRUIDE#13
"
  812  IF H = 14 THEN 
           PRINT "
ALTE#13
"
  813  IF H = 13 THEN 
           PRINT "
MÄDCHEN#13
"
  814  IF H = 8 THEN 
           PRINT "
CROUPIER#13
"
  815  IF H = 15 THEN 
           PRINT "
KELLNERIN#13
"
  816  IF H > 8 AND H < 8.5 THEN 
           PRINT "
SPIELER#13
"
  817  IF H = 8.5 THEN 
           PRINT "
FEUERTEUFEL#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 "
HARP
";
  822  IF H = 3 THEN 
           SYS 5681:
       PRINT "
LAYTHON
";
  823  IF H = 4 THEN 
           SYS 5681:
       PRINT "
KRUMMFUS
";
  824  IF H = 5 THEN 
           SYS 5681:
       PRINT "
RASKELL
";
  825  IF H = 6 THEN 
           SYS 5681:
       PRINT "
CYDREN
";
  826  IF H = 7 THEN 
           SYS 5681:
       PRINT "
ZAMAK
";
  827  IF H = 9 THEN 
           SYS 5681:
       PRINT "
SHERRAR
";
  828  IF H = 10 THEN 
           SYS 5681:
       PRINT "
TELLUS
";
  829  IF H = 13 THEN 
           SYS 5681:
       PRINT "
JEANETTE
";
  830  IF H = 8 THEN 
           SYS 5681:
       PRINT "
CALHAN
";
  831  IF H = 15 THEN 
           SYS 5681:
       PRINT "
LIZETH
";
  832  IF H = 14 THEN 
           SYS 5681:
       PRINT "
MERRIL
";
  833  IF H = 8.1 THEN 
           PRINT "
GREG
";
  834  IF H = 8.2 THEN 
           SYS 5681:
       PRINT "
JERINT
";
  835  IF H = 8.3 THEN 
           SYS 5681:
       PRINT "
DOMICK
";
  836  IF H = 8.5 THEN 
           PRINT "
T'KUL
";
  837  IF H = 8.8 THEN 
           PRINT "
ARNOR
";
  839  PRINT "
.%#13
":
       GOTO 400
  840  GOSUB 800:
       IF H = 1 OR H = 8.2 THEN 
           PRINT "
AUSGEZEICHNET,#13
":
       SYS 5681:
       PRINT "
DANKE
";
  841  IF H = 2 OR H = 3 THEN 
           PRINT "
GANZ GUT
";
  843  IF H = 4 THEN 
           PRINT "
ICH FÜHLE MICH#13
":
       SYS 5681:
       PRINT "
NATÜRLICH WOHL
";
  844  IF H = 5 THEN 
           PRINT "
MIR IST HEISS
";
  845  IF H = 6 OR H = 9 OR H = 8.2 THEN 
           PRINT "
GEHT SO
";
  846  IF H = 7 THEN 
           PRINT "
ICH HABE#13
":
       SYS 5681:
       PRINT "
HUNGER
";
  849  IF H = 8 OR H = 8.3 THEN 
           PRINT "
ES GEHT#13
":
       SYS 5681:
       PRINT "
MIR GUT
";
  850  IF H = 13 THEN 
           PRINT "
DAS GESCHÄFT#13
":
       SYS 5681:
       PRINT "
LÄUFT GUT
";
  851  IF H = 15 THEN 
           PRINT "
ICH HABE#13
":
       SYS 5681:
       PRINT "
KOPFSCHMERZEN
";
  852  IF H = 14 THEN 
           PRINT "
DAS RHEUMA#13
":
       SYS 5681:
       PRINT "
PLAGT MICH
";
  853  IF H = 10 THEN 
           PRINT "
DEN UMSTÄNDEN#13
":
       SYS 5681:
       PRINT "
ENTSPRECHEND
";
  855  IF H = 8.1 THEN 
           PRINT "
ICH BIN#13
":
       SYS 5681:
       PRINT "
PLEITE
";
  856  IF H = 8.5 THEN 
           PRINT "
MIR IST KALT
";
  857  IF H = 8.8 THEN 
           PRINT "
BESCHISSEN
";
  859  GOTO 839
  860  PRINT "
F?#13
":
       IF H = 1 GOTO 820
  862  GOSUB 800:
       IF H = 2 THEN 
           PRINT "
ICH FERTIGE
";:
       SYS 5681:
       PRINT "
RÜSTUNGEN
";
  863  IF H = 3 THEN 
           PRINT "
ICH MACHE UND#13
":
       SYS 5681:
       PRINT "
HANDLE MIT
";:
       SYS 5681:
       PRINT "
WAFFEN
";
  864  IF H = 5 THEN 
           PRINT "
ICH BEREITE DAS#13
":
       SYS 5681:
       PRINT "
ESSEN
";
  865  IF H = 6 THEN 
           PRINT "
ICH LEITE DIESE#13
":
       SYS 5681:
       PRINT "
PEEP SHOW
";
  866  IF H = 7 THEN 
           PRINT "
ICH BIN EIN#13
":
       SYS 5681:
       PRINT "
BETTLER
";
  867  IF H = 4 THEN 
           PRINT "
ICH BIN EIN#13
":
       SYS 5681:
       PRINT "
HEILER
";
  868  IF H = 9 THEN 
           PRINT "
ICH BIN EIN#13
":
       SYS 5681:
       PRINT "
ZAUBERER
";
  869  IF H = 10 THEN 
           PRINT "
ICH BIN EIN#13
":
       SYS 5681:
       PRINT "
DRUIDE
";
  870  IF H = 15 THEN 
           PRINT "
ICH BIN DIE#13
":
       SYS 5681:
       PRINT "
KELLNERIN
";
  871  IF H = 14 THEN 
           PRINT "
ICH BIN EIN#13
":
       SYS 5681:
       PRINT "
KRÄUTERWEIB
";
  872  IF H = 13 THEN 
           PRINT "
ICH VERKAUFE#13
":
       SYS 5681:
       PRINT "
MEINEN KÖRPER
";
  873  IF H = 8.8 THEN 
           PRINT "
ICH BIN EIN#13
":
       SYS 5681:
       PRINT "
KRIEGER
";
  874  IF H = 8 THEN 
           PRINT "
ICH BIN DER#13
":
       SYS 5681:
       PRINT "
CROUPIER
";
  875  IF H > 8 AND H < 8.5 THEN 
           PRINT "
ICH BIN EIN#13
":
       SYS 5681:
       PRINT "
SPIELER
";
  876  IF H = 8.5 THEN 
           PRINT "
ICH BIN EIN#13
":
       SYS 5681:
       PRINT "
DIENER FULGARS
";
  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 "
BEEHRE MICH#13
":
       SYS 5681:
       PRINT "
BALD WIEDER
";
  882  IF H = 4 THEN 
           PRINT "
HALTE DICH#13
":
       SYS 5681:
       PRINT "
IMMER GESUND
";
  883  IF H = 5 THEN 
           PRINT "
HAU 'REIN
";
  884  IF H = 6 THEN 
           PRINT "
GUCK DOCH MAL
";
  885  IF H = 7 THEN 
           PRINT "
HAB' MITLEID
";
  886  IF H = 15 OR H = 8.5 THEN 
           PRINT "
TSCHÜS
";
  887  IF H > 8 AND H < 8.5 THEN 
           PRINT "
VIEL GLÜCK
";
  888  IF H = 10 THEN 
           PRINT "
DAS LICHT SEI#13
":
       SYS 5681:
       PRINT "
MIT DIR
";
  889  IF H = 8.8 THEN 
           PRINT "
LEBE WOHL
";
  890  IF H = 13 THEN 
           PRINT "
ADIEU, CHERIE
";
  892  IF H = 14 OR H = 9 THEN 
           PRINT "
MÖGE DIE MAGIE#13
":
       SYS 5681:
       PRINT "
MIT DIR SEIN
";
  896  IF H = 8 THEN 
           PRINT "
PECH IM SPIEL,#13
":
       SYS 5681:
       PRINT "
GLÜCK IN DER#13
":
       SYS 5681:
       PRINT "
LIEBE
";
  897  PRINT "
.%#13
":
       SYS 5681:
       SYS 5681:
       PRINT "
#9EER
";:
       IF H > 12 THEN 
           PRINT "
#9D#9DSIE
";
  898  PRINT "
 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 "
STADT.%#13
":
       GOTO 400
 1001  PRINT "
T
":
       GOSUB 800:
       PRINT "
DAS HIER IST#13
":
       SYS 5681:
       PRINT "
MUBRAK, DIE#13
"
 1002  SYS 5681:
       PRINT "
UNABHÄNGIGE#13
":
       SYS 5681:
       PRINT "
STADT.
";:
       IF  PEEK (7385) <  > 21 GOTO 400
 1003  PRINT "
 WILLST DU#13
":
       SYS 5681:
       PRINT "
HINEIN?
";:
       GOSUB 970
 1004  IF U$ = "
N
" THEN 
           PRINT "
DANN BLEIBST DU#13
":
       SYS 5681:
       PRINT "
EBEN DRAUSSEN
";:
       GOTO 897
 1005  PRINT "
WER HIER HEREIN#13
":
       SYS 5681:
       PRINT "
WILL, MUSS ABER#13
"
 1006  SYS 5681:
       PRINT "
STEUERN ZAHLEN,#13
":
       SYS 5681:
       PRINT "
DIE WIR FÜR DIE#13
"
 1007  SYS 5681:
       PRINT "
INSTANDHALTUNG#13
":
       SYS 5681:
       PRINT "
DER STADT BENÖ-#13
"
 1008  SYS 5681:
       PRINT "
TIGEN. SIEHST DU#13
":
       SYS 5681:
       PRINT "
DAS EIN?
";:
       GOSUB 970:
       IF U$ = "
N
" GOTO 1004
 1009 Z = 50:
       GOSUB 9000:
       SYS 5681:
       PRINT "
#99DANKE, DEIN#13
":
       SYS 5681:
       PRINT "
WEG IST FREI
";
 1010  POKE 7385,8:
       POKE 7386,8:
       POKE 7384,21:
       POKE 7387,21
 1011  SYS 6041:
       POKE S + 5,16:
       POKE S + 1,12:
       POKE S + 4,129:
       GOTO 897
 1012  SYS 5681:
       SYS 5681:
       PRINT "
DER MINDESTEIN-#13
":
       SYS 5681:
       PRINT "
SATZ SIND FÜNF#13
"
 1013  SYS 5681:
       PRINT "
GOLDSTÜCKE.#13
":
       GOTO 4100
 1016  PRINT "
 #13
":
       GOSUB 800:
       PRINT "
JA, GOLD HÄTTE#13
";:
       SYS 5681:
       PRINT "
ICH AUCH GERN!%#13
":
       GOTO 400
 1030  PRINT "
EN#13
";:
       GOSUB 800:
       PRINT "
ICH KANN DICH#13
":
       SYS 5681:
       PRINT "
ENTGIFTEN ODER#13
":
       SYS 5681
 1031  PRINT "
REGENERIEREN.#13
":
       SYS 5681:
       PRINT "
WAS MÖCHTEST#13
":
       SYS 5681:
       PRINT "
DU?%#13
":
       GOTO 400
 1032  PRINT "
IFTEN#13
";:
       GOSUB 800:
      Z = 4 *  PEEK (49245) - CH:
       IF Z < 2 THEN 
          Z = 2
 1033  GOSUB 9000:
       POKE 49245,0:
      Z = 5
 1034  POKE S + 5,201:
       POKE S + 12,201:
       POKE S + 11,129:
       POKE S + 4,17:
      K = 5
 1035  FOR I = 5 TO 255 STEP 5:
       POKE S + 1,I:
       POKE S + 8,I:
      K = Z - K:
       POKE 53281,K:
       POKE 53280,K:
       NEXT 
 1036  POKE 53281,0:
       POKE 53280,0:
       POKE S + 11,0:
       POKE S + 4,0:
       SYS 5681:
       IF H = 12 THEN 
           GOSUB 10000:
       GOTO 400
 1037  PRINT "
#99NUN BIST DU#13
":
       SYS 5681:
       PRINT "
GEHEILT.%#13
":
       GOSUB 10000:
       GOTO 400
 1038  PRINT "
NERIEREN#13
";:
       GOSUB 800:
      Z = 80 - 4 * (CH - SU):
       IF Z < 10 THEN 
          Z = 10
 1039  GOSUB 9000:
       POKE 49230, PEEK (49232):
       POKE 49231, PEEK (49233):
      Z = 18:
       GOTO 1034
 1040  PRINT "
N#13
":
       GOSUB 800:
       PRINT "
DIE POMMESBUDE#13
":
       SYS 5681:
       PRINT "
BRAUCHT ZWAR#13
"
 1041  SYS 5681:
       PRINT "
DRINGEND EINEN#13
":
       SYS 5681:
       PRINT "
ÖLWECHSEL, ABER#13
"
 1042  SYS 5681:
       PRINT "
MÖCHTEST DU#13
":
       SYS 5681:
       PRINT "
TROTZDEM#13
":
       SYS 5681:
       PRINT "
10 RATIONEN?
";
 1043  GOSUB 970:
       IF U$ = "
N
" THEN 
           PRINT "
DANN LASS ES.%#13
":
       GOTO 400
 1044 Z = 15 -  INT (CH / 1.5):
       GOSUB 9000:
       SYS 5681:
      NA = NA + 10:
       IF NA > 250 THEN 
          NA = 250
 1045  POKE 49244,NA:
       GOSUB 10000:
       SYS 5681:
       PRINT "
#99NOCH MEHR?
";:
       GOTO 1043
 1050  PRINT "
PER#13
":
       GOSUB 800:
       PRINT "
DARÜBER MÖCHTE#13
":
       SYS 5681:
       PRINT "
ICH NUN WIRKLICH#13
"
 1051  SYS 5681:
       PRINT "
NICHT SPRECHEN.#13
":
       GOSUB 960:
       PRINT "
ABER MAL WAS AN-#13
"
 1052  SYS 5681:
       PRINT "
DERES: ICH HABE#13
":
       SYS 5681:
       PRINT "
GEHÖRT, DASS DU#13
"
 1053  SYS 5681:
       PRINT "
VON EINER ANDE-#13
":
       SYS 5681:
       PRINT "
REN WELT KOMMST#13
"
 1054  SYS 5681:
       PRINT "
UND UNS RETTEN#13
":
       SYS 5681:
       PRINT "
WILLST, STIMMT#13
"
 1055  SYS 5681:
       PRINT "
DAS?
";:
       GOSUB 970:
       IF U$ = "
N
" THEN 
           PRINT "
DANN HAU AB
";:
       GOTO 897
 1056  SYS 5681:
       PRINT "
DANN KANN ICH#13
":
       SYS 5681:
       PRINT "
DIR VIELLEICHT#13
"
 1057  SYS 5681:
       PRINT "
HELFEN.%#13
":
       GOTO 400
 1060  PRINT "
EN#13
":
       GOSUB 800:
       PRINT "
EIN DRUIDE, DER#13
":
       SYS 5681:
       PRINT "
BEI MIR WAR, HAT#13
"
 1061  SYS 5681:
       PRINT "
MIR ETWAS#13
":
       SYS 5681:
       PRINT "
ERZÄHLT.#13
":
       GOSUB 960:
       PRINT "
NUR DIE DRUIDEN#13
"
 1062  SYS 5681:
       PRINT "
KENNEN DIE RICH-#13
":
       SYS 5681:
       PRINT "
TIGE REIHENFOLGE#13
"
 1063  SYS 5681:
       PRINT "
DER TAFELN MIT#13
":
       SYS 5681:
       PRINT "
DEM NAMEN DES#13
"
 1064  SYS 5681:
       PRINT "
BÖSEN, DIE AUF#13
":
       SYS 5681:
       PRINT "
DIE STÄDTE#13
"
 1065  SYS 5681:
       PRINT "
VERTEILT SIND.#13
"
 1066  GOSUB 960:
       PRINT "
FRAG DIE DRUIDEN#13
":
       SYS 5681:
       PRINT "
IN DEN STÄDTEN#13
"
 1067  SYS 5681:
       PRINT "
NACH DEN#13
":
       SYS 5681:
       PRINT "
TAFELN.%#13
":
       GOTO 400
 1070  PRINT "
 DER NACHT#13
":
       GOSUB 800:
       PRINT "
PSST!#13
":
       FOR I = 1 TO 2E3:
       NEXT :
       SYS 5681
 1071  SYS 5681:
       PRINT "
SPRICH DOCH#13
":
       SYS 5681:
       PRINT "
LEISER!#13
":
       FOR I = 1 TO 2E3:
       NEXT :
       GOTO 1090
 1072  PRINT "
CK#13
":
       GOSUB 800:
       PRINT "
FÜR GANZ BESON-#13
":
       SYS 5681:
       PRINT "
DERE KUNDEN HABE#13
"
 1073  SYS 5681:
       PRINT "
ICH EINEN KLEI-#13
":
       SYS 5681:
       PRINT "
NEN VORRAT DIE-#13
"
 1074  SYS 5681:
       PRINT "
SER MACHTVOLLEN#13
":
       SYS 5681:
       PRINT "
REAGENZ.#13
"
 1075  SYS 5681:
       PRINT "
MÖCHTEST DU#13
":
       SYS 5681:
       PRINT "
ETWAS DAVON?
";
 1076  GOSUB 970:
       IF U$ = "
N
" THEN 
           PRINT "
WIE DU WILLST.%#13
":
       GOTO 400
 1077  PRINT "
EIN PILZ REICHT#13
":
       SYS 5681:
       PRINT "
FÜR VIER ZAUBER#13
":
       SYS 5681
 1078  PRINT "
SPRÜCHE AUS.#13
":
      Z = 10:
       SYS 5681:
       GOSUB 9000:
      J =  PEEK (49342) + 4:
       IF J > 99 THEN 
          J = 99
 1079  POKE 49342,J:
       SYS 5681:
       PRINT "
#99GUT, DU HAST#13
":
       SYS 5681:
       PRINT "
JETZT
"J;
 1080  SYS 5681:
       PRINT "
PORTIONEN. NOCH#13
":
       SYS 5681:
       PRINT "
MEHR?
";:
       GOTO 1076
 1090  SYS 5681:
       SYS 5681:
       PRINT "
WER HAT DIR DAS#13
":
       SYS 5681:
       PRINT "
ERZÄHLT?#13
":
       GOTO 400
 1100  PRINT "
 SHOW#13
":
       GOSUB 800:
       PRINT "
HEH, BIST DU#13
":
       SYS 5681:
       PRINT "
ÜBERHAUPT SCHON#13
"
 1101  SYS 5681:
       PRINT "
ACHTZEHN?
";:
       GOSUB 970:
       IF U$ = "
N
" THEN 
           PRINT "
DANN ABER RAUS
";:
       GOTO 897
 1102  PRINT "
SPRICH MAL EINE#13
":
       SYS 5681:
       PRINT "
DER LUKEN AN#13
"
 1103  SYS 5681:
       PRINT "
DER WAND AN UND#13
":
       SYS 5681:
       PRINT "
WIRF EINE MÜNZE#13
"
 1104  SYS 5681:
       PRINT "
EIN. DANN WIRST#13
":
       SYS 5681:
       PRINT "
DU SCHON SEHEN.%#13
":
       GOTO 400
 1110  SYS 5681:
       PRINT "
#9EWILLST DU EINE#13
":
       SYS 5681:
       PRINT "
MÜNZE EIN-#13
"
 1111  SYS 5681:
       PRINT "
WERFEN?
";:
       GOSUB 970:
       IF U$ = "
N
" OR GP = . GOTO 100
 1112 Z = 1:
       GOSUB 9004:
       SYS 5681:
       PRINT "
#9EZEHN SEKUNDEN!#13
":
       FOR I = 0 TO 2:
       POKE 6248 + X + I,11:
       NEXT 
 1113  POKE 2,X:
       POKE 182,Y:
       SYS 6052:
       SYS 4482:
       SYS 4537:
       SYS 4361:
       FOR I = 0 TO 2:
       POKE 6248 + X + I,9:
       NEXT 
 1114  FOR I = 0 TO 6E3:
       NEXT :
       GOTO 100
 1120  PRINT "
LER#13
":
       GOSUB 800:
       PRINT "
ICH SPIELE#13
":
       SYS 5681:
       PRINT "
MELODIEN AUF#13
"
 1122  SYS 5681:
       PRINT "
MEINER FLÖTE UND#13
":
       SYS 5681:
       PRINT "
HOFFE, VON DEN#13
"
 1123  SYS 5681:
       PRINT "
PASSANTEN EIN#13
":
       SYS 5681:
       PRINT "
PAAR MÜNZEN ZU#13
"
 1124  SYS 5681:
       PRINT "
BEKOMMEN.#13
":
       GOSUB 960
 1125  PRINT "
HAST DU EIN#13
":
       SYS 5681:
       PRINT "
GOLDSTÜCK FÜR#13
":
       SYS 5681:
       PRINT "
MICH?
";:
       GOSUB 970
 1126  IF U$ = "
N
" THEN 
           PRINT "
GEIZHALS
";:
       GOTO 897
 1127 Z = 1:
       GOSUB 9003:
       SYS 5681:
       PRINT "
#99ICH DANKE DIR.#13
":
       SYS 5681:
       PRINT "
FRAGE DOCH DEN#13
"
 1128  SYS 5681:
       PRINT "
WAFFENSCHMIED#13
":
       SYS 5681:
       PRINT "
MAL NACH EINEM#13
"
 1129  SYS 5681:
       PRINT "
BLASROHR
";:
       GOTO 897
 1130  PRINT "
TE#13
":
       GOSUB 800:
       PRINT "
IS'N KOMISCHES#13
":
       SYS 5681:
       PRINT "
DING, SO GANZ#13
"
 1131  SYS 5681:
       PRINT "
AUS GLAS, NICH?#13
":
       GOSUB 960:
       PRINT "
HAT ABER 'NEN#13
":
       SYS 5681:
       PRINT "
GUTEN KLANG.#13
"
 1132  SYS 5681:
       PRINT "
WILL'ZE SE#13
":
       SYS 5681:
       PRINT "
VIELLEICHT#13
":
       SYS 5681:
       PRINT "
KAUFEN?
";
 1133  GOSUB 970:
       IF U$ = "
N
" THEN 
           PRINT "
HRMMPF!%#13
":
       GOTO 400
 1134 Z = 200:
       GOSUB 9000:
       SYS 5681:
       PRINT "
#99BITTE SEHR.%#13
":
       POKE 49350,1:
       GOTO 400
 1140  PRINT "
NERIN#13
":
       GOSUB 800:
       PRINT "
BLÖDE FRAGE,#13
":
       SYS 5681:
       PRINT "
DU WIRSST DOCH#13
"
 1141  SYS 5681:
       PRINT "
WOHL WISSEN, WAS#13
":
       SYS 5681:
       PRINT "
EINE KELLNERIN#13
":
       SYS 5681:
       PRINT "
IST.#13
"
 1142  GOSUB 960:
       PRINT "
ACH, 
";:
       GOTO 844
 1150  PRINT "
SCHMERZEN#13
":
       GOSUB 800:
       PRINT "
JA, DER BETTLER#13
":
       SYS 5681:
       PRINT "
DA DRAUSSEN#13
"
 1151  SYS 5681:
       PRINT "
DUDELT DEN GAN-#13
":
       SYS 5681:
       PRINT "
ZEN TAG AUF SEI-#13
"
 1152  SYS 5681:
       PRINT "
NER FLÖTE HERUM.#13
":
       SYS 5681:
       PRINT "
ES IST ZUM WAHN-#13
"
 1153  SYS 5681:
       PRINT "
SINNIG WERDEN.#13
":
       GOSUB 960:
       PRINT "
IST ÜBRIGENS 'NE#13
"
 1154  SYS 5681:
       PRINT "
GANZ MERKWÜRDIGE#13
":
       SYS 5681:
       PRINT "
FLÖTE. FRAG' IHN#13
"
 1155  SYS 5681:
       PRINT "
MAL DANACH. ICH#13
":
       SYS 5681:
       PRINT "
WETTE, DIE HAT#13
"
 1156  SYS 5681:
       PRINT "
ER GESTOHLEN.%#13
":
       GOTO 400
 1160  PRINT "
LER#13
":
       GOSUB 800:
       PRINT "
ICH HABE ALLES#13
":
       SYS 5681:
       PRINT "
VERSPIELT. NUN#13
"
 1161  SYS 5681:
       PRINT "
BIN ICH VÖLLIG#13
":
       SYS 5681:
       PRINT "
PLEITE.%#13
":
       GOTO 400
 1162  PRINT "
TE#13
":
       GOSUB 800:
       PRINT "
ICH BRAUCHE#13
":
       SYS 5681:
       PRINT "
DRINGEND GELD.#13
"
 1163  SYS 5681:
       PRINT "
VIELLEICHT#13
":
       SYS 5681:
       PRINT "
KANNST DU MIR#13
"
 1164  SYS 5681:
       PRINT "
ETWAS GEBEN.#13
":
       GOSUB 960:
       PRINT "
OH, NICHT UM-#13
"
 1165  SYS 5681:
       PRINT "
SONST. ICH HABE#13
":
       SYS 5681:
       PRINT "
EIN SELTSAMES#13
"
 1166  SYS 5681:
       PRINT "
STÜCK EISEN, DAS#13
":
       SYS 5681:
       PRINT "
ANDERES EISEN#13
"
 1167  SYS 5681:
       PRINT "
ANZIEHT UND DAS,#13
":
       SYS 5681:
       PRINT "
WENN MAN ES AUF-#13
"
 1168  SYS 5681:
       PRINT "
HÄNGT, IMMER#13
":
       SYS 5681:
       PRINT "
NACH NORDEN#13
"
 1169  SYS 5681:
       PRINT "
ZEIGT. MÖCHTEST#13
":
       SYS 5681:
       PRINT "
DU ES HABEN?
";:
       GOSUB 970
 1170  IF U$ = "
N
" THEN 
           PRINT "
SCHADE.%#13
":
       GOTO 400
 1171 Z = 150:
       GOSUB 9000:
       SYS 5681:
       PRINT "
#99BITTE SEHR.%#13
":
       POKE 49354,1:
       GOTO 400
 1180  PRINT "
LER#13
":
       GOSUB 800:
       PRINT "
SPIEL DOCH EIN-#13
":
       SYS 5681:
       PRINT "
FACH MAL MIT.#13
"
 1181  GOSUB 960:
       PRINT "
QUATSCH EINFACH#13
":
       SYS 5681:
       PRINT "
DEN CROUPIER#13
"
 1182  SYS 5681:
       PRINT "
ÜBER DEN TISCH#13
":
       SYS 5681:
       PRINT "
HINWEG AN. ER#13
"
 1183  SYS 5681:
       PRINT "
LÄSST DICH#13
":
       SYS 5681:
       PRINT "
SICHER SOFORT#13
"
 1184  SYS 5681:
       PRINT "
IN DAS SPIEL#13
":
       SYS 5681:
       PRINT "
EINSTEIGEN.%#13
":
       GOTO 400
 1185  PRINT "
LER#13
":
       GOSUB 800:
       PRINT "
JA, ICH SPIELE,#13
":
       SYS 5681:
       PRINT "
WEIL ICH VORHIN#13
"
 1186  SYS 5681:
       PRINT "
VIEL GELD VER-#13
":
       SYS 5681:
       PRINT "
DIENT HABE.%#13
":
       GOTO 400
 1187  PRINT "
 #13
":
       GOSUB 800:
       PRINT "
SAGST DU ES#13
":
       SYS 5681:
       PRINT "
AUCH NICHT#13
":
       SYS 5681:
       PRINT "
WEITER?
";
 1188  GOSUB 970:
       IF U$ = "
J
" THEN 
           PRINT "
DANN SAGE ICH#13
":
       SYS 5681:
       PRINT "
ES NICHT!%#13
":
       GOTO 400
 1189  PRINT "
ICH HABE TIEF IN#13
":
       SYS 5681:
       PRINT "
DEN WÄLDERN EINE#13
":
       SYS 5681:
       PRINT "
GANZE MENGE DES#13
"
 1190  SYS 5681:
       PRINT "
PILZES 'GIFT DER#13
":
       SYS 5681:
       PRINT "
NACHT' GEFUNDEN#13
"
 1191  SYS 5681:
       PRINT "
UND HIER AN DIE#13
":
       SYS 5681:
       PRINT "
KRÄUTERTANTE#13
"
 1192  SYS 5681:
       PRINT "
VERKLOPPT.#13
":
       GOSUB 960:
       PRINT "
FRAG SIE DANACH,#13
"
 1193  SYS 5681:
       PRINT "
WENN DU WAS#13
":
       SYS 5681:
       PRINT "
DAVON BRAUCHST.#13
":
       GOTO 400
 1200  GOSUB 800:
       PRINT "
DU HAST UNSERE#13
":
       SYS 5681:
       PRINT "
STADT AN DEN#13
"
 1201  SYS 5681:
       PRINT "
KÖNIG VERRATEN,#13
":
       SYS 5681:
       PRINT "
UND DA WAGST DU#13
"
 1202  SYS 5681:
       PRINT "
ES NOCH, DICH#13
":
       SYS 5681:
       PRINT "
HIER BLICKEN ZU#13
"
 1203  SYS 5681:
       PRINT "
LASSEN?#13
":
       GOSUB 960:
       PRINT "
VERSCHWINDE#13
"
 1204  SYS 5681:
       PRINT "
BLOSS VON HIER,#13
":
       SYS 5681:
       PRINT "
BEVOR WIR DICH#13
"
 1205  SYS 5681:
       PRINT "
ERSCHLAGEN
";:
       POKE 198,0:
       GOTO 897
 1210  PRINT "
ENDOLCH#13
":
       GOSUB 800:
       PRINT "
OH, ICH HATTE#13
":
       SYS 5681:
       PRINT "
GANZ VERGESSEN,#13
"
 1211  SYS 5681:
       PRINT "
IHN DIR ZU#13
":
       SYS 5681:
       PRINT "
GEBEN. HIER HAST#13
":
       SYS 5681:
       PRINT "
DU IHN.%#13
"
 1212  POKE 49349,1:
       GOTO 400
 1220  PRINT "
AR#13
":
       GOSUB 800:
       PRINT "
FULGAR, MEIN#13
":
       SYS 5681:
       PRINT "
HERR, HAT MICH#13
"
 1221  SYS 5681:
       PRINT "
BEAUFTRAGT, DEN#13
":
       SYS 5681:
       PRINT "
ZU SUCHEN, DER#13
"
 1222  SYS 5681:
       PRINT "
VON EINER ANDE-#13
":
       SYS 5681:
       PRINT "
REN WELT KOMMT.#13
"
 1223  SYS 5681:
       PRINT "
BIST DU DAS#13
":
       SYS 5681:
       PRINT "
ZUFÄLLIG?
";:
       GOSUB 970:
       IF U$ = "
N
" GOTO 1170
 1224  SYS 5681:
       PRINT "
MEIN HERR HÄTTE#13
":
       SYS 5681:
       PRINT "
GERN MIT DIR GE-#13
"
 1225  SYS 5681:
       PRINT "
SPROCHEN. ICH#13
":
       SYS 5681:
       PRINT "
GLAUBE, ER HAT#13
"
 1226  SYS 5681:
       PRINT "
EINEN LOHNENDEN#13
":
       SYS 5681:
       PRINT "
AUFTRAG FÜR#13
"
 1227  SYS 5681:
       PRINT "
DICH. HAST DU#13
":
       SYS 5681:
       PRINT "
INTERESSE?
";:
       GOSUB 970:
       IF U$ = "
N
" GOTO 1170
 1228  SYS 5681:
       PRINT "
GEH ZU FULGARS#13
":
       SYS 5681:
       PRINT "
BURG. SIE LIEGT#13
"
 1229  SYS 5681:
       PRINT "
IN DEN FEUER-#13
":
       SYS 5681:
       PRINT "
BERGEN WEIT IM#13
"
 1230  SYS 5681:
       PRINT "
NORDOSTEN.#13
":
       GOSUB 960:
       PRINT "
DU KANNST SIE#13
"
 1231  SYS 5681:
       PRINT "
NUR ERREICHEN,#13
":
       SYS 5681:
       PRINT "
WENN DU MIT DEM#13
"
 1232  SYS 5681:
       PRINT "
SCHIFF IM SÜD-#13
":
       SYS 5681:
       PRINT "
OSTEN DER GROS-#13
"
 1233  SYS 5681:
       PRINT "
SEN STEILKÜSTE#13
":
       SYS 5681:
       PRINT "
IN DER BUCHT DER#13
"
 1234  SYS 5681:
       PRINT "
TAUSEND RIFFE#13
":
       SYS 5681:
       PRINT "
ANLANDEST.#13
"
 1235  GOSUB 960:
       PRINT "
GEH DANN DURCH#13
":
       SYS 5681:
       PRINT "
DAS FELSENLABY-#13
"
 1236  SYS 5681:
       PRINT "
RINTH, BIS DU#13
":
       SYS 5681:
       PRINT "
SEINE BURG#13
"
 1237  SYS 5681:
       PRINT "
FINDEST. ER WIRD#13
":
       SYS 5681:
       PRINT "
DIR ALLES WEI-
"
 1238  SYS 5681:
       PRINT "
TERE ERKLÄREN.%#13
":
       GOTO 400
 1300  PRINT "
GER#13
":
       GOSUB 800:
       PRINT "
ICH WAR ANGE-#13
":
       SYS 5681:
       PRINT "
HÖRIGER EINER#13
"
 1301  SYS 5681:
       PRINT "
ELITETRUPPE.%#13
":
       GOTO 400
 1310  PRINT "
ETRUPPE#13
":
       GOSUB 800:
       PRINT "
DIE TRUPPE#13
":
       SYS 5681:
       PRINT "
GIBT ES NICHT#13
"
 1311  SYS 5681:
       PRINT "
MEHR.#13
":
       GOSUB 960:
       PRINT "
DER KÖNIG HATTE#13
":
       SYS 5681:
       PRINT "
UNS AUSGESANDT,#13
"
 1312  SYS 5681:
       PRINT "
DEN RIESENLIND-#13
":
       SYS 5681:
       PRINT "
WURM ZU TÖTEN.%#13
":
       GOTO 400
 1320  PRINT "
ENLINDWURM#13
":
       GOSUB 800:
       PRINT "
ES WAR FURCHT-#13
"
 1321  SYS 5681:
       PRINT "
BAR. UNSERE LEU-#13
":
       SYS 5681:
       PRINT "
TE HATTEN KEINE#13
"
 1322  SYS 5681:
       PRINT "
CHANCE GEGEN DAS#13
":
       SYS 5681:
       PRINT "
UNTIER.
"
 1323  GOSUB 960:
       PRINT "
NUR DIE BERÜHMTE#13
":
       SYS 5681:
       PRINT "
MAGISCHE RÜS-#13
"
 1324  SYS 5681:
       PRINT "
TUNG WÄRE STARK#13
":
       SYS 5681:
       PRINT "
GENUG, SEINEM#13
"
 1325  SYS 5681:
       PRINT "
FEUER ZU WIDER-#13
":
       SYS 5681:
       PRINT "
STEHEN, UND NUR#13
"
 1326  SYS 5681:
       PRINT "
DIE BERÜHMTE#13
":
       SYS 5681:
       PRINT "
ZAUBERSCHWINGE#13
"
 1327  SYS 5681:
       PRINT "
KÖNNTE SEINE#13
":
       SYS 5681:
       PRINT "
SCHUPPENHAUT#13
"
 1328  SYS 5681:
       PRINT "
DURCHDRINGEN.#13
":
       GOSUB 960:
       PRINT "
LEIDER SIND#13
"
 1329  SYS 5681:
       PRINT "
DIESE WAFFEN NUR#13
":
       SYS 5681:
       PRINT "
EINE LEGENDE. SO#13
"
 1330  SYS 5681:
       PRINT "
WIRD DIE HOLDE#13
":
       SYS 5681:
       PRINT "
PRINZESSIN#13
"
 1332  SYS 5681:
       PRINT "
SHEILA WOHL BALD#13
":
       SYS 5681:
       PRINT "
VOM DRACHEN GE-#13
"
 1333  SYS 5681:
       PRINT "
TÖTET WERDEN.%#13
":
       GOTO 400
 1340  PRINT "
 
":
       GOSUB 800:
       PRINT "
FRAG DEN KÖNIG#13
":
       SYS 5681:
       PRINT "
SELBST DANACH.%#13
":
       GOTO 400
 2000  PRINT "
TUNG#13
":
       GOSUB 980:
       IF U$ = "
K
" GOTO 2020
 2001  PRINT "
UND WAS? (B-I) #05#C7#9D
";
 2002  GET U$:
       IF U$ = "
" GOTO 2002
 2003  IF U$ > "
A
" AND U$ < "
J
" AND U$ <  > "
G
" GOTO 2006
 2004  PRINT "
 #99#13
":
       GOSUB 999:
       PRINT "
TUT MIR LEID,#13
":
       SYS 5681:
       PRINT "
ABER DAS NEHME#13
"
 2005  SYS 5681:
       PRINT "
ICH NICHT.%#13
":
       GOTO 400
 2006  PRINT U$"
#99#13
":
       GOSUB 999:
      K =  ASC (U$) - 47:
       PRINT W$(K);
 2007  IF  PEEK (49248 + K) = . THEN 
           SYS 5681:
       PRINT "
HAST DU NICHT.#13
":
       GOTO 400
 2008  PRINT "
,#13
":
       SYS 5681:
       PRINT "
HM - GEBRAUCHT#13
";:
       SYS 5681:
       PRINT "
GEBE ICH DIR#13
"
 2009  SYS 5681:
       PRINT "
DAFÜR - SAGEN#13
";:
       SYS 5681:
       PRINT "
WIR -
";
 2010 Z =  INT ( PEEK (50569 + K) * 4 * (1 + (CH - 12) / 25)):
       PRINT Z"
GOLD-#13
":
       SYS 5681
 2011  PRINT "
STÜCKE, OK?
";:
       GOSUB 970:
       IF U$ = "
N
" GOTO 9002
 2012  PRINT "
ABGEMACHT!#13
":
       POKE 49248 + K,0:
      GP = GP + Z:
       IF GP > 5E4 THEN 
          GP = 5E4
 2013 Z =  - Z:
       GOSUB 9004:
       GOSUB 10000:
       GOTO 400
 2020  PRINT "
ICH BIETE AN:#13
":
       SYS 5681:
       FOR I = 1 TO 8:
       IF I = 6 THEN 
          I = 7
 2021  SYS 5681:
       PRINT  CHR$ (65 + I)"
 
"W$(I + 18);:
       NEXT :
       GOSUB 999:
       PRINT "
WAS MÖCHTEST DU#13
"
 2022  SYS 5681:
       PRINT "
KAUFEN? (B-I) #05#C7#9D
";
 2023  GET U$:
       IF U$ = "
" GOTO 2023
 2024  IF U$ > "
A
" AND U$ < "
J
" AND U$ <  > "
G
" GOTO 2026
 2025  PRINT "
 #99#13
":
       GOSUB 999:
       PRINT "
TUT MIR LEID,#13
":
       SYS 5681:
       PRINT "
ABER DAS HABE#13
";:
       GOTO 2005
 2026  PRINT U$;:
       GOSUB 999:
      K =  ASC (U$) - 47:
       PRINT "
#99
"W$(K);
 2027  IF  PEEK (49248 + K) THEN 
           SYS 5681:
       PRINT "
HAST DU DOCH.#13
":
       GOTO 400
 2028  PRINT "
,#13
":
       SYS 5681:
       PRINT "
EIN SCHÖNES
";:
       SYS 5681:
       PRINT "
STÜCK. UND FÜR#13
"
 2029  SYS 5681:
      Z =  INT ( PEEK (50569 + K) * 8 * (1 - (CH - 12) / 25)):
       PRINT "
NUR
"Z"
GOLD-#13
":
       SYS 5681
 2030  PRINT "
STÜCKE GEHÖRT#13
":
       SYS 5681:
       PRINT "
ES DIR, OK?
";:
       GOSUB 970
 2031  IF U$ = "
N
" GOTO 9002
 2032  IF Z > GP GOTO 9003
 2033  PRINT "
ABGEMACHT!#13
":
       POKE 49248 + K,1:
       GOSUB 9004:
       GOSUB 10000:
       GOTO 400
 2040  PRINT "
EN#13
":
       GOSUB 980:
       IF U$ = "
K
" GOTO 2050
 2041  PRINT "
UND WAS? (B-P) #05#C7#9D
";
 2042  GET U$:
       IF U$ = "
" GOTO 2042
 2043  IF U$ > "
A
" AND U$ < "
Q
" AND U$ <  > "
N
" GOTO 2045
 2044  GOTO 2004
 2045  PRINT U$"
#99#13
":
       GOSUB 999:
      K =  ASC (U$) - 66:
       PRINT W$(K);:
       GOTO 2007
 2050  PRINT "
ICH BIETE AN:#13
":
       SYS 5681:
       FOR I = 1 TO 15:
       IF I = 13 THEN 
          I = 14
 2051  SYS 5681:
       PRINT  CHR$ (65 + I)"
 
"W$(I - 1);:
       IF I = 6 OR I = 10 THEN 
           GOSUB 960
 2052  NEXT :
       GOSUB 999:
       PRINT "
WAS MÖCHTEST DU#13
"
 2053  SYS 5681:
       PRINT "
KAUFEN? (B-P) #05#C7#9D
";:
       POKE 198,0
 2054  GET U$:
       IF U$ = "
" GOTO 2054
 2055  IF U$ > "
A
" AND U$ < "
Q
" AND U$ <  > "
N
" GOTO 2057
 2056  GOTO 2025
 2057  PRINT U$;:
       GOSUB 999:
      K =  ASC (U$) - 66:
       PRINT "
#99
"W$(K);:
       GOTO 2027
 2100  PRINT "
UTER#13
":
       GOSUB 800:
       PRINT "
AH, BIST DU#13
":
       SYS 5681:
       PRINT "
MAGIEKUNDIG?
";:
       GOSUB 970
 2101  IF U$ = "
N
" THEN 
           PRINT "
WOZU BRAUCHST#13
":
       SYS 5681:
       PRINT "
DU DENN DANN#13
":
       SYS 5681:
       PRINT "
INGREDIENZEN?%#13
"
 2102  IF U$ = "
N
" GOTO 400
 2103  PRINT "
ICH HABE:#13
":
       GOSUB 999:
       PRINT "
A SCHWEFEL#13
":
       SYS 5681:
       PRINT "
B KNOBLAUCH#13
"
 2104  SYS 5681:
       PRINT "
C GINSENG#13
":
       SYS 5681:
       PRINT "
D BLUTFLECHTE#13
":
       GOSUB 999
 2105  PRINT "
WAS WILLST DU? #05#C7#9D
";
 2106  GET U$:
       IF U$ = "
" GOTO 2106
 2107  IF U$ < "
A
" OR U$ > "
D
" GOTO 2025
 2108  PRINT U$"
#99
";:
       GOSUB 999:
      K =  ASC (U$) - 65:
      ZZ = 10:
       IF K > . THEN 
          ZZ = 6:
       IF K > 1 THEN 
          ZZ = 3:
       IF K > 2 THEN 
          ZZ = 1
 2109  IF K < 3 THEN 
           PRINT "
GIBT'S IM
"ZZ"
#9D'ER#13
":
       SYS 5681:
       PRINT "
PACK UND#13
":
       SYS 5681
 2110  PRINT "
KOSTET 1 GOLD-
";:
       SYS 5681:
       PRINT "
STÜCK, OK?
";
 2120 Z = 1:
       GOSUB 970:
       IF U$ = "
N
" GOTO 9002
 2121  IF GP < Z GOTO 9003
 2122  SYS 5681:
       PRINT "
#99BITTE SEHR!#13
":
       SYS 5681:
      J =  PEEK (49336 + K) + ZZ:
       IF J > 99 THEN 
          J = 99
 2123  POKE 49336 + K,J:
       GOSUB 9004:
       SYS 5681:
       PRINT "
#99DU HAST NUN
":
       SYS 5681:
       PRINT  MID$ ( STR$ (J),2);
 2124  PRINT "
 EINHEIT.
";:
       IF J > 1 THEN 
           PRINT "
#9DEN.#13
"
 2125  SYS 5681:
       PRINT "
NOCH EINE?
";:
       GOTO 2120
 2200  PRINT "
ROHR
":
       GOSUB 800:
       IF  PEEK (49260) THEN 
           PRINT "
HAST DU DOCH.%#13
":
       GOTO 400
 2210  PRINT "
ABER DAS IST#13
":
       SYS 5681:
       PRINT "
DOCH VERBOTEN.%#13
":
       SYS 5681
 2220  PRINT "
#9EER FLÜSTERT:#13
":
       SYS 5681:
       PRINT "
#99%
";:
      Z = 500:
       GOSUB 9000:
       POKE 49260,1
 2230  SYS 5681:
       PRINT "
#99HIER, ABER SAG'S#13
":
       SYS 5681:
       PRINT "
NICHT WEITER.%#13
":
       GOTO 400
 3000  PRINT "
ERER#13
":
       GOSUB 800:
       PRINT "
NAJA, EIGENT-#13
":
       SYS 5681:
       PRINT "
LICH BIN ICH#13
"
 3001  SYS 5681:
       PRINT "
NOCH EIN ADEPT.%#13
":
       GOTO 400
 3010  PRINT "
T#13
":
       GOSUB 800:
       PRINT "
ICH ÜBE DEN#13
":
       SYS 5681:
       PRINT "
GIFT UND GALLE-#13
"
 3011  SYS 5681:
       PRINT "
ZABERSPRUCH.%#13
":
       GOTO 400
 3020  PRINT "
 UND GALLE#13
":
       GOSUB 800:
       PRINT "
EIN VERBOTENER,#13
":
       SYS 5681:
       PRINT "
ABER NÜTZLICHER#13
"
 3021  SYS 5681:
       PRINT "
KAMPFZAUBER.#13
":
       SYS 5681:
       PRINT "
KANNST DU#13
":
       SYS 5681:
       PRINT "
IHN?
";:
       GOSUB 970
 3022  IF U$ = "
J
" THEN 
           PRINT "
GUT FÜR DICH.%#13
":
       GOTO 400
 3024  PRINT "
GEH MAL ZUM#13
":
       SYS 5681:
       PRINT "
SCHWARZEN#13
":
       SYS 5681:
       PRINT "
ZIRKEL.%#13
":
       GOTO 400
 3030  PRINT "
L#13
":
       GOSUB 800:
       PRINT "
GEH' MAL IN DIE#13
":
       SYS 5681:
       PRINT "
PEEP SHOW. WENN#13
"
 3031  SYS 5681:
       PRINT "
DU DIE LUKE#13
":
       SYS 5681:
       PRINT "
GANZ RECHTS BE-#13
"
 3032  SYS 5681:
       PRINT "
NUTZT, SIEHST DU#13
":
       SYS 5681:
       PRINT "
DIE TAFEL.%#13
":
       GOTO 400
 3100  PRINT "
DE#13
":
       GOSUB 800:
       PRINT "
WIR DRUIDEN#13
":
       SYS 5681:
       PRINT "
WOLLEN DIR#13
"
 3101  SYS 5681:
       PRINT "
HELFEN.%#13
":
       GOTO 400
 3110  PRINT "
EN#13
":
       GOSUB 800:
       PRINT "
FRAGE, WAS DU#13
":
       SYS 5681:
       PRINT "
WISSEN WILLST.%#13
":
       GOTO 400
 3120  PRINT "
L#13
":
       GOSUB 800:
       PRINT "
DIE ERSTE TAFEL#13
":
       SYS 5681:
       PRINT "
FINDEST DU IN#13
"
 3121  SYS 5681:
       PRINT "
GAHT.%#13
":
       GOTO 400
 3130  PRINT "
...
":
       GOSUB 800:
       PRINT "
DAZU KANN DIR#13
":
       SYS 5681:
       PRINT "
CERFAX MEHR#13
"
 3131  SYS 5681:
       PRINT "
SAGEN ALS ICH.%#13
":
       GOTO 400
 3200  PRINT "
SUCHEN
";:
       FOR I = 1 TO 5:
       PRINT "
.
";:
       FOR J = . TO 400:
       NEXT J,I
 3201  SYS 5681:
       PRINT "
#9EDU FINDEST#13
":
       SYS 5681:
       PRINT "
NICHTS.#13
":
       GOTO 100
 3300  PRINT "
#9D  #13
":
       SYS 5681:
       PRINT "
#9EMÖCHTEST DU#13
":
       SYS 5681:
       PRINT "
DIE STADT MUBRAK#13
"
 3301  SYS 5681:
       PRINT "
VERLASSEN?
";:
       GOSUB 970:
       IF U$ = "
N
" THEN 
          Y = Y - 1:
       GOTO 100
 3302  GOTO 6000
 4000  PRINT "
PIER#13
":
       GOSUB 800:
       PRINT "
ICH LEITE HIER#13
":
       SYS 5681:
       PRINT "
DAS SPIEL.%#13
":
       GOTO 400
 4010  PRINT "
L#13
":
       GOSUB 800:
       PRINT "
WIR SPIELEN DAS#13
":
       SYS 5681:
       PRINT "
SPIEL 'TEUFEL'.#13
"
 4011  SYS 5681:
       PRINT "
KENNST DU DIE#13
":
       SYS 5681:
       PRINT "
REGELN?
";:
       GOSUB 970:
       IF U$ = "
J
" GOTO 4100
 4012  PRINT "
DIE REGELN SIND#13
":
       SYS 5681:
       PRINT "
EIGENTLICH GANZ#13
":
       SYS 5681:
       PRINT "
EINFACH:#13
":
       GOSUB 960
 4013  PRINT "
WIR SPIELEN MIT#13
":
       SYS 5681:
       PRINT "
KARTEN, DIE EI-#13
"
 4014  SYS 5681:
       PRINT "
NEN WERT ZWI-#13
":
       SYS 5681:
       PRINT "
SCHEN EINEM UND#13
"
 4015  SYS 5681:
       PRINT "
SIEBEN PUNKTEN#13
":
       SYS 5681:
       PRINT "
HABEN KÖNNEN.#13
"
 4016  GOSUB 960:
       PRINT "
MAN BEKOMMT AM#13
":
       SYS 5681:
       PRINT "
ANFANG ZWEI KAR-#13
"
 4017  SYS 5681:
       PRINT "
TEN UND KANN#13
":
       SYS 5681:
       PRINT "
NACH WUNSCH NOCH#13
"
 4018  SYS 5681:
       PRINT "
BIS ZU VIER DA-#13
":
       SYS 5681:
       PRINT "
ZUBEKOMMEN.#13
"
 4019  GOSUB 960:
       PRINT "
ZIEL DES SPIELES#13
":
       SYS 5681:
       PRINT "
IST ES, DREIZEHN#13
"
 4020  SYS 5681:
       PRINT "
PUNKTE (EINEN#13
":
       SYS 5681:
       PRINT "
SATAN) ZU ERREI-#13
":
       SYS 5681:
       PRINT "
CHEN, ODER SO#13
"
 4021  SYS 5681:
       PRINT "
NAHE WIE MÖGLICH#13
":
       SYS 5681:
       PRINT "
AN DIE DREIZEHN#13
"
 4022  SYS 5681:
       PRINT "
HERANZUKOMMEN.#13
":
       GOSUB 960:
       PRINT "
KOMMT MAN SCHON#13
"
 4023  SYS 5681:
       PRINT "
MIT DEN ERSTEN#13
":
       SYS 5681:
       PRINT "
BEIDEN KARTEN#13
"
 4024  SYS 5681:
       PRINT "
AUF DREIZEHN,#13
":
       SYS 5681:
       PRINT "
HAT MAN EINEN#13
"
 4025  SYS 5681:
       PRINT "
'TEUFEL' UND#13
":
       SYS 5681:
       PRINT "
GEWINNT SOFORT.#13
"
 4026  GOSUB 960:
       PRINT "
KOMMT MAN ABER#13
":
       SYS 5681:
       PRINT "
ÜBER DREIZEHN#13
"
 4027  SYS 5681:
       PRINT "
PUNKTE, HEISST#13
":
       SYS 5681:
       PRINT "
ES DANN 'PFUI,#13
"
 4028  SYS 5681:
       PRINT "
TEUFEL', UND DAS#13
":
       SYS 5681:
       PRINT "
SPIEL IST VER-#13
"
 4029  SYS 5681:
       PRINT "
LOREN.#13
":
       GOSUB 960:
       PRINT "
DER SPIELER LEGT#13
"
 4030  SYS 5681:
       PRINT "
VOR, DANN KOMME#13
":
       SYS 5681:
       PRINT "
ICH. BEI EINEM#13
"
 4031  SYS 5681:
       PRINT "
GLEICHSTAND GE-#13
":
       SYS 5681:
       PRINT "
WINNE ICH. DAFÜR#13
"
 4032  SYS 5681:
       PRINT "
HAST DU JA DEN#13
":
       SYS 5681:
       PRINT "
'TEUFEL'.#13
"
 4033  GOSUB 960:
       PRINT "
HAST DU ALLES#13
":
       SYS 5681:
       PRINT "
VERSTANDEN?
";:
       GOSUB 970:
       IF U$ = "
N
" GOTO 4013
 4100  SYS 5681:
       PRINT "
WILLST DU EIN#13
":
       SYS 5681:
       PRINT "
SPIELCHEN#13
":
       SYS 5681:
       PRINT "
WAGEN?
";
 4110  GOSUB 970:
       IF U$ = "
N
" GOTO 888
 4120  PRINT "
WIEVIEL WILLST#13
":
       SYS 5681:
       PRINT "
DU SETZEN? #1F00#9D#9D#05
";
 4122  GET U$:
       IF U$ < "
0
" OR U$ > "
9
" GOTO 4122
 4124 E =  VAL (U$) * 10:
       PRINT U$;
 4126  GET U$:
       IF U$ < "
0
" OR U$ > "
9
" GOTO 4126
 4128 E = E +  VAL (U$):
       PRINT U$"
#99#13
":
       IF E < 5 GOTO 1012
 4129 Z = E:
       IF E > GP THEN 
           SYS 5681:
       PRINT "
HAST DU NICHT!#13
":
       SYS 5681:
       GOTO 4100
 4130  GOSUB 9004:
       FOR I = 0 TO 9:
       SYS 5681:
       NEXT :
       PRINT D$ SPC( 24)"
#99ICH MISCHE...#13
"
 4140  FOR I = 77 TO 99:
       SYS 6041:
       POKE S + 5,5:
       POKE S + 1,I:
       POKE S + 4,129:
       FOR J = 0 TO 9:
       NEXT J,I
 4150  PRINT D$ SPC( 25)"
#9E#91DU:
"D$ SPC( 28)"
#99GEBE...  #13
"
 4160 Z = .:
      P = .:
      K = .:
       FOR I = 1 TO 2:
       GOSUB 5000:
       NEXT 
 4170  IF P > 13 GOTO 4400
 4180  IF P = 13 AND K = 2 GOTO 4500
 4190  IF P = 13 OR K = 6 GOTO 4300
 4200  PRINT D$ SPC( 24)"
#99NOCH EINE? #05#C7#9D
";
 4210  GET U$:
       IF U$ <  > "
J
" AND U$ <  > "
N
" GOTO 4210
 4220  PRINT U$;:
       IF U$ = "
J
" THEN 
           GOSUB 5000:
       GOTO 4170
 4300  PRINT D$ SPC( 24)"
#9EICH:        #13
":
      N = P:
      Z = 1:
      K = .:
      P = .:
       FOR I = 1 TO 2:
       GOSUB 5000:
       NEXT 
 4310  IF P > 13 THEN 
           SYS 5681:
       GOTO 4500
 4320  IF P < N AND K < 6 THEN 
           GOSUB 5000:
       GOTO 4310
 4330  SYS 5681:
       IF P < N GOTO 4500
 4400  PRINT D$ SPC( 24)"
#96DU HAST     #13
":
       SYS 5681:
       PRINT "
VERLOREN!#13
"
 4405  POKE 56295,1:
       POKE 2023,71:
       POKE 198,0:
       WAIT 198,1:
       POKE 198,0:
       POKE 2023,32
 4410  SYS 5681:
       SYS 5681:
       PRINT "
DEINE
"E"
GOLD-#13
":
       SYS 5681:
       PRINT "
STÜCKE SIND WEG!#13
"
 4420  SYS 5681:
       SYS 5681:
       PRINT "
#99NOCH EINMAL?
";:
       GOSUB 970:
       IF U$ = "
N
" GOTO 888
 4430  GOTO 4120
 4500 E = E + E:
       PRINT D$ SPC( 24)"
#99DU HAST     #13
":
       SYS 5681:
       PRINT "
GEWONNEN!#13
"
 4505  POKE 56295,1:
       POKE 2023,71:
       POKE 198,0:
       WAIT 198,1:
       POKE 198,0:
       POKE 2023,32
 4510  SYS 5681:
       SYS 5681:
       PRINT "
DU ERHÄLST
"E;:
       SYS 5681:
       PRINT "
GOLDSTÜCKE.#13
"
 4520 Z =  - E:
       GOSUB 9004:
       GOTO 4420
 4999  END 
 5000  PRINT  LEFT$ (D$,15 + Z + Z) SPC( 25 - Z + K + K)"
#9B#B0
";:
       IF K THEN 
           PRINT "
#9D#D8
";
 5010  PRINT "
#C0#C0#C0#AE#11#9D#9D#9D#9D#9D
";:
       FOR J = 1 TO 4:
       PRINT "
##9A;;;#9B##11#9D#9D#9D#9D#9D
";:
       NEXT :
       PRINT "
#AD
";:
       IF K THEN 
           PRINT "
#9D#D9
";
 5020  PRINT "
#C0#C0#C0#BD#91#91#91#91#9D#9D#9D#9D
";:
       SYS 6041:
       POKE S + 5,7:
       POKE S + 1,99:
       POKE S + 4,129:
       FOR J = 0 TO 250:
       NEXT 
 5030 L =  INT (7 *  RND (TI) + 1):
      U$ =  MID$ ( STR$ (L),2)
 5040  PRINT "
#05
"U$"
 
"U$"
#11#9D#9D#9D
" MID$ ("
#9F#9C#1E#9E#81#96#99#9A
", RND (TI) * 8 + 1,1);
 5050  PRINT "
=#125%#11#9D#9D#9D#92#A2#BA#12\#11#9D#9D#9D#05
"U$"
 
"U$:
      P = P + L:
      K = K + 1
 5060  SYS 6041:
       POKE S + 5,5:
       POKE S + 1,66:
       POKE S + 4,129
 5070  PRINT  LEFT$ (D$,23 + Z) SPC( 28)"
#9E
"P;:
       IF P = 13 THEN 
           PRINT "
#9D, SATAN!
";:
       IF K = 2 THEN 
           PRINT "
#9D#9D#9D#9D#9D#9DTEUFEL!#13
"
 5080  IF P > 13 THEN 
           FOR I = . TO 800:
       NEXT :
       PRINT "
#9D#9D#9D#9D#9D#9D#9D#9D  PFUI, TEUFEL!#13
"
 5090  RETURN 
// -----------------------------

 5999  END 
 6000  SYS 5681:
       PRINT "
#96DU VERLÄSST#13
":
       SYS 5681:
       PRINT "
DIE STADT.#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  SYS 6041:
       POKE S + 5,16:
       POKE S + 1,12:
       POKE S + 4,129:
       GOTO 100
 9000  PRINT "
DAS KOSTET DICH#13
":
       SYS 5681:
       PRINT "
ABER
"Z"
GOLD-#13
":
       SYS 5681:
       PRINT "
STÜCKE. WILLST#13
"
 9001  SYS 5681:
       PRINT "
DU BEZAHLEN?
";:
       GOSUB 970:
       IF U$ = "
J
" GOTO 9003
 9002  PRINT "
NA, DANN NICHT.%#13
":
       GOTO 400
 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 
// -----------------------------

11000  POKE 51208,12:
       POKE 51223,15:
       POKE 51211,2:
       POKE 51221,1:
       POKE 51209,15
11001  POKE 51228,8:
       POKE 51219,1:
       POKE 51217,8:
       POKE 52232,82:
       POKE 51976,82:
       POKE 51307,1
11002  POKE 52233,86:
       POKE 51977,86:
       POKE 52263,128:
       POKE 52007,127:
       POKE 51751,43
11003  POKE 51495,42:
       FOR I = 0 TO 3:
       POKE 51502 + 256 * I,59:
       POKE 51488 + 256 * I,59:
       POKE 650,255
11004  POKE 51544 + 256 * I,184 - (I > 1):
       NEXT :
       POKE 52340,217:
       POKE 51828,245:
       POKE 51225,1
11005  FOR I = . TO 3:
       POKE 51487 + 256 * I,90 + I:
       POKE 51499 + 256 * I,226 + I + 144 * (I > 1):
       NEXT 
11006  POKE 51486,124:
       POKE 51742,126:
      D$ = "
#13#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11
":
       RETURN 
// -----------------------------

50000  DATA MESSER,DOLCH,KURZSCHWERT,HANDBEIL,SCHWERT,MORGENSTERN,KAMPFSTAB
50001  DATA BASTARDSCHWERT,STREITAXT,ZWEIH[NDER,SCHLEUDER,KURZBOGEN,,LANGBOGEN
50002  DATA ARMBRUST,,,,KLEIDUNG,WAFFENROCK,LEDERR]STUNG,KETTENHEMD,SCHUPPENPANZER
50003  DATA RITTERR]STUNG,MAGISCHE R]STUNG,KLEINER SCHILD,GROSSER SCHILD
50100  DATA -35,6600,11,17,1,6720,3,17,35,6853,11,21,-1,6968,3,21
    0