1  POKE 53281,0:
       POKE 53280,0:
       POKE 53272,18:
      I =  RND ( - TI):
      S = 54272:
       SYS 5454
    2  POKE 51209,15:
       POKE 51211,2:
       POKE 51206,10:
       POKE 51221,1:
       POKE 51230,7
    3  POKE 51219,1:
       POKE 51224,1:
       POKE 51225,1:
       POKE 51223,7:
       POKE 51208,12:
       POKE 650,255
    4  DIM R$(21):
       FOR I = 2 TO 21:
       READ R$(I):
       NEXT :
       POKE 51468,59:
       POKE 51724,98:
       POKE 51980,36
    5  POKE 52236,61:
       POKE 51469,60:
       POKE 51725,119:
       POKE 51981,127:
       POKE 52237,123
    6  DIM A(3),P(3):
       FOR I = 0 TO 3:
       READ A(I),P(I):
       NEXT :
       GOTO 20
    7  FOR I = 0 TO 3:
      J =  INT (4 *  RND (TI)):
      K = P(I) + A(J):
       IF  PEEK (K) = 11 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:
      P = 40721:
      Q = 11:
       GOSUB 10000
   30  GOTO 100:
      P(0) = 40137:
      P(1) = 40207:
       FOR I = 2 TO 4
   32 P(I) = 39235 +  INT (1120 *  RND (TI)):
       IF  PEEK (P(I)) <  > 11 GOTO 32
   34  POKE P(I),21:
       NEXT 
  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
  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:
      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 < 3 OR J = 5 OR J = 9 OR J > 11 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 < 3 OR J = 5 OR J = 9 OR J > 11 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 < 3 OR J = 5 OR J = 9 OR J > 11 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 = 21 THEN 
          H = 1:
       IF X = 11 AND Y = 6 THEN 
          H = 2
  261  IF J = 109 THEN 
          H = 3
  262  IF J = 110 THEN 
          H = 4
  263  IF J = 111 THEN 
          H = 5
  264  IF J = 16 AND Y < 5 THEN 
          H = 6
  265  IF J = 18 THEN 
          H = 7
  266  IF J = 17 THEN 
          H = 8
  267  IF J = 16 AND (Y = 15 OR Y = 16) THEN 
          H = 9
  268  IF J = 51 THEN 
          H = 12
  269  IF J = 16 AND X < 5 AND Y > 32 THEN 
          H = 11
  270  IF J = 34 THEN 
          H = 14
  271  IF J = 16 AND X > 29 THEN 
          H = 13
  272  IF J = 19 THEN 
          H = 10
  273  IF J = 112 THEN 
          H = 15
  274  IF J = 13 THEN 
          H = 16
  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 SCHATZ-#13
":
       SYS 5681:
       PRINT "
WÄCHTER 
";
  282  IF H = 3 THEN 
           PRINT "
EINEN PRIESTER#13
":
       SYS 5681
  283  IF H = 4 THEN 
           PRINT "
EINEN HEILER#13
":
       SYS 5681
  284  IF H = 5 THEN 
           PRINT "
EINEN KOCH 
";
  285  IF H = 6 THEN 
           PRINT "
EINEN ZEICHNER#13
":
       SYS 5681
  286  IF H = 7 THEN 
           PRINT "
EINEN KÄMPFER#13
":
       SYS 5681
  287  IF H = 8 THEN 
           PRINT "
DEN HENKER#13
":
       SYS 5681
  288  IF H = 9 THEN 
           PRINT "
EINEN ÄLTEREN#13
";:
       SYS 5681:
       PRINT "
MANN 
";
  289  IF H = 12 THEN 
           PRINT "
DEN KÖNIG 
";
  290  IF H = 11 THEN 
           PRINT "
EINEN OFFIZIER
":
       SYS 5681
  291  IF H = 14 THEN 
           PRINT "
DIE KÖNIGIN#13
":
       SYS 5681
  292  IF H = 13 THEN 
           PRINT "
EINEN MANN IN#13
":
       SYS 5681:
       PRINT "
EINEM BLAUEN NA-#13
"
  293  IF H = 13 THEN 
           SYS 5681:
       PRINT "
DELSTREIFENANZUG#13
":
       SYS 5681
  294  IF H = 10 THEN 
           PRINT "
EINEN BARDEN#13
":
       SYS 5681
  295  IF H = 15 THEN 
           PRINT "
EINE JUNGE#13
":
       SYS 5681:
       PRINT "
MAGD 
";
  296  IF H = 16 THEN 
           PRINT "
EINEN GAUKLER#13
":
       SYS 5681
  297  PRINT "
AN.#13
":
       IF H = 12 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 = 2 AND N$ = "
SCHA
" GOTO 1010
  403  IF N$ = "
GOLD
" GOTO 1016
  404  IF H = 3 AND N$ = "
PRIE
" GOTO 1020
  405  IF H = 3 AND N$ = "
GOTT
" GOTO 1022
  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 = 6 AND N$ = "
GEOG
" GOTO 1050
  411  IF H = 6 AND N$ = "
KART
" GOTO 1051
  412  IF H = 7 AND N$ = "
SCHW
" GOTO 1070
  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
  416  IF H = 7 AND N$ = "
TRAI
" GOTO 1072
  417  IF H = 7 AND N$ = "
ANGR
" GOTO 1084
  418  IF H = 7 AND N$ = "
VERT
" GOTO 1086
  419  IF H = 8 AND N$ = "
HENK
" GOTO 1090
  420  IF N$ = "
WIED
" THEN 
           PRINT "
ERSEHEN.#13
":
       GOTO 880
  421  IF N$ = "
GESU
" THEN 
           PRINT "
NDHEIT?#13
":
       GOTO 840
  422  IF H = 9 AND N$ = "
HAUS
" GOTO 1100
  423  IF H = 12 AND N$ = "
KOEN
" GOTO 1110
  424  IF H = 12 AND N$ = "
LAND
" GOTO 1111
  425  IF H = 12 AND N$ = "
TOCH
" AND  PEEK (49358) = . GOTO 1113
  426  IF H = 12 AND N$ = "
ABKO
" AND  PEEK (49358) = . GOTO 1115
  427  IF H = 11 AND N$ = "
SHER
" GOTO 1131
  428  IF H = 11 AND N$ = "
VERB
" GOTO 1132
  429  IF H = 11 AND N$ = "
MUBR
" GOTO 1135
  430  IF H = 14 AND N$ = "
VERZ
" AND  PEEK (49358) = . GOTO 1142
  431  IF H = 14 AND N$ = "
TOCH
" AND  PEEK (49358) = . GOTO 1144
  432  IF H = 14 AND N$ = "
LOTT
" AND  PEEK (49358) = . GOTO 1146
  433  IF H = 14 AND N$ = "
LIND
" AND  PEEK (49358) = . GOTO 1152
  434  IF H = 14 AND N$ = "
ABKO
" AND  PEEK (49358) = . GOTO 1154
  435  IF H = 13 AND N$ = "
KANZ
" GOTO 1160
  436  IF H = 13 AND N$ = "
KOHL
" GOTO 1163
  437  IF H = 10 AND N$ = "
PSST
" GOTO 1230
  438  IF H = 15 AND N$ = "
MAGD
" GOTO 1240
  439  IF H = 10 AND (N$ = "
HELF
" OR N$ = "
HILF
") GOTO 1250
  440  IF H = 12 AND N$ = "
MUBR
" GOTO 2000
  441  IF H = 6 AND N$ = "
UYRP
" GOTO 3000
  442  IF H = 16 AND N$ = "
HOFN
" GOTO 2100
  443  IF H = 16 AND N$ = "
WITZ
" GOTO 2110
  445  PRINT "
 #13
":
       GOSUB 800:
       PRINT "
DAZU KANN#13
":
       SYS 5681:
       PRINT "
ICH DIR NICHTS#13
":
       SYS 5681
  446  PRINT "
SAGEN.%#13
"
  448  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 
";:
       IF H > 13 AND H < 16 THEN 
           PRINT "
#9D#9D#9DIE 
";
  801  IF H = 1 THEN 
           PRINT "
WÄCHTER#13
"
  802  IF H = 2 THEN 
           PRINT "
SCHATZ-#13
":
       SYS 5681:
       PRINT "
WÄCHTER#13
"
  803  IF H = 3 THEN 
           PRINT "
PRIESTER#13
"
  804  IF H = 4 THEN 
           PRINT "
HEILER#13
"
  805  IF H = 5 THEN 
           PRINT "
KOCH#13
"
  806  IF H = 6 THEN 
           PRINT "
ZEICHNER#13
"
  807  IF H = 7 THEN 
           PRINT "
KRIEGER#13
"
  808  IF H = 8 THEN 
           PRINT "
HENKER#13
"
  809  IF H = 9 THEN 
           PRINT "
ALTE MANN#13
"
  810  IF H = 12 THEN 
           PRINT "
KÖNIG#13
"
  811  IF H = 11 THEN 
           PRINT "
OFFIZIER#13
"
  812  IF H = 14 THEN 
           PRINT "
#9D#9D#9DDIE KÖNIGIN#13
"
  813  IF H = 13 THEN 
           PRINT "
MANN#13
"
  814  IF H = 10 THEN 
           PRINT "
BARDE#13
"
  815  IF H = 15 THEN 
           PRINT "
MAGD#13
"
  816  IF H = 16 THEN 
           PRINT "
GAUKLER#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 
           PRINT "
DER#13
":
       SYS 5681:
       PRINT "
SCHATZWÄCHTER
";
  822  IF H = 3 THEN 
           PRINT "
PATER#13
":
       SYS 5681:
       PRINT "
ANTONIUS
";
  823  IF H = 4 THEN 
           SYS 5681:
       PRINT "
HYPOCHONDRIUS
";
  824  IF H = 5 THEN 
           SYS 5681:
       PRINT "
COROLLUS
";
  825  IF H = 6 THEN 
           SYS 5681:
       PRINT "
THEODORUS
";
  826  IF H = 7 THEN 
           SYS 5681:
       PRINT "
ATOR
";
  827  IF H = 8 THEN 
           PRINT "
VULTAN,#13
":
       SYS 5681:
       PRINT "
ABER MAN NENNT#13
"
  828  IF H = 8 THEN 
           SYS 5681:
       PRINT "
MICH MEIST NUR#13
":
       SYS 5681:
       PRINT "
'DIE AXT'
";
  829  IF H = 9 THEN 
           SYS 5681:
       PRINT "
HAFLAR
";
  830  IF H = 12 THEN 
           SYS 5681:
       PRINT "
CASIODORUS REX
";
  831  IF H = 11 THEN 
           SYS 5681:
       PRINT "
TORQUILL
";
  832  IF H = 14 THEN 
           SYS 5681:
       PRINT "
THEA
";
  833  IF H = 13 THEN 
           PRINT "
HELMUT,#13
":
       SYS 5681:
       PRINT "
ABER ALLE NENNEN#13
"
  834  IF H = 13 THEN 
           SYS 5681:
       PRINT "
MICH 'BIRNE'
";
  835  IF H = 10 THEN 
           SYS 5681:
       PRINT "
DAKTEON
";
  836  IF H = 15 THEN 
           SYS 5681:
       PRINT "
GUNLI
";
  837  IF H = 16 THEN 
           SYS 5681:
       PRINT "
HARLEKIN
";
  839  PRINT "
.%#13
":
       GOTO 400
  840  GOSUB 800:
       IF H = 1 THEN 
           PRINT "
SEHR GUT,#13
":
       SYS 5681:
       PRINT "
DANKE
";
  841  IF H = 2 THEN 
           PRINT "
ICH FÜHLE MICH#13
":
       SYS 5681:
       PRINT "
GROSSARTIG
";
  842  IF H = 3 THEN 
           PRINT "
ICH BIN TOTAL
";:
       SYS 5681:
       PRINT "
BESOFFEN VOM
";:
       SYS 5681:
       PRINT "
MESSWEIN
";
  843  IF H = 4 THEN 
           PRINT "
ICH FÜHLE MICH#13
":
       SYS 5681:
       PRINT "
NATÜRLICH WOHL
";
  844  IF H = 5 THEN 
           PRINT "
BISSCHEN HEISS#13
":
       SYS 5681:
       PRINT "
IST'S HIER
";
  845  IF H = 6 THEN 
           PRINT "
ICH BIN ETWAS#13
":
       SYS 5681:
       PRINT "
IM STRESS
";
  846  IF H = 7 OR H = 16 THEN 
           PRINT "
AUSGEZEICHNET
";
  847  IF H = 8 THEN 
           PRINT "
ICH BIN IMMER#13
":
       SYS 5681:
       PRINT "
BLUTGIERIG
";
  848  IF H = 9 THEN 
           PRINT "
ICH BIN ER-#13
":
       SYS 5681:
       PRINT "
KÄLTET
";
  849  IF H = 12 THEN 
           PRINT "
MIR GEHT ES#13
":
       SYS 5681:
       PRINT "
ZWAR GUT, ABER#13
"
  850  IF H = 12 THEN 
           SYS 5681:
       PRINT "
MEIN LAND IST#13
":
       SYS 5681:
       PRINT "
KRANK
";
  851  IF H = 11 THEN 
           PRINT "
GEHT SO, DANKE#13
":
       SYS 5681:
       PRINT "
DER NACHFRAGE
";
  852  IF H = 14 AND  PEEK (49358) = . THEN 
           PRINT "
ICH BIN VER-#13
":
       SYS 5681:
       PRINT "
ZWEIFELT
";:
       GOTO 839
  853  IF H = 13 THEN 
           PRINT "
GUT - BIS ZUR#13
":
       SYS 5681:
       PRINT "
NÄCHSTEN WAHL
";
  854  IF H = 10 THEN 
           PRINT "
PSST
";
  855  IF H = 15 OR H = 14 THEN 
           PRINT "
GUT, DANKE
";
  859  GOTO 839
  860  PRINT "
F?#13
":
       IF H < 3 GOTO 820
  861  GOSUB 800
  862  IF H = 3 THEN 
           PRINT "
ICH BIN DER
";:
       SYS 5681:
       PRINT "
PRIESTER DIESES
";:
       SYS 5681:
       PRINT "
SCHLOSSES
";
  863  IF H = 4 THEN 
           PRINT "
HEILEN IST MEIN#13
":
       SYS 5681:
       PRINT "
BERUF
";
  864  IF H = 5 THEN 
           PRINT "
ICH MACHE HIER#13
":
       SYS 5681:
       PRINT "
DAS ESSEN
";
  865  IF H = 6 THEN 
           PRINT "
ICH BIN EIN#13
":
       SYS 5681:
       PRINT "
GEOGRAPH
";
  866  IF H = 7 THEN 
           PRINT "
ICH BIN DER#13
":
       SYS 5681:
       PRINT "
SCHWERTMEISTER
";
  867  IF H = 8 THEN 
           PRINT "
RATE MAL. MAN#13
":
       SYS 5681:
       PRINT "
SIEHT DOCH, DASS#13
":
       SYS 5681:
       GOSUB 899
  868  IF H = 9 THEN 
           PRINT "
ICH BIN DER#13
":
       SYS 5681:
       PRINT "
HAUSHOFMEISTER#13
":
       SYS 5681:
       PRINT "
DES KÖNIGS
";
  869  IF H = 12 THEN 
           PRINT "
ICH BIN DER#13
":
       SYS 5681:
       PRINT "
KÖNIG DIESES#13
":
       SYS 5681:
       PRINT "
LANDES
";
  870  IF H = 11 THEN 
           PRINT "
ICH BIN DES#13
":
       SYS 5681:
       PRINT "
KÖNIGS SHERIFF
";
  871  IF H = 14 THEN 
           PRINT "
ICH BIN DIE#13
":
       SYS 5681:
       PRINT "
FRAU DES#13
":
       SYS 5681:
       PRINT "
KÖNIGS
";
  872  IF H = 13 THEN 
           PRINT "
ICH BIN DER#13
":
       SYS 5681:
       PRINT "
KANZLER IN#13
"
  873  IF H = 13 THEN 
           SYS 5681:
       PRINT "
DIESER UNSERER#13
":
       SYS 5681:
       PRINT "
DIMENSION
";
  874  IF H = 10 THEN 
           PRINT "
PSST
";
  875  IF H = 15 THEN 
           PRINT "
ICH BIN NUR#13
":
       SYS 5681:
       PRINT "
EINE MAGD
";
  876  IF H = 16 THEN 
           PRINT "
ICH HIER DER#13
":
       SYS 5681:
       PRINT "
HOFNARR
";
  879  GOTO 839
  880  GOSUB 800:
       IF H = 1 THEN 
           PRINT "
ICH MUSS WEITER#13
":
       SYS 5681:
       PRINT "
WACHE SCHIEBEN
";
  881  IF H = 3 THEN 
           PRINT "
ICH WERDE FÜR#13
":
       SYS 5681:
       PRINT "
DICH BETEN
";
  882  IF H = 4 THEN 
           PRINT "
HALTE DICH#13
":
       SYS 5681:
       PRINT "
IMMER GESUND
";
  883  IF H = 5 THEN 
           PRINT "
GUTEN APPETIT
";
  884  IF H = 6 THEN 
           PRINT "
GUTE REISE
";
  885  IF H = 7 THEN 
           PRINT "
SEI TAPFER
";
  886  IF H = 8 THEN 
           PRINT "
TSCHÜSS. VIEL-#13
":
       SYS 5681:
       PRINT "
LEICHT TREFFEN
"
  887  IF H = 2 THEN 
           PRINT "
ICH BEOBACHTE#13
":
       SYS 5681:
       PRINT "
DICH GENAU
";
  888  IF H = 8 THEN 
           SYS 5681:
       PRINT "
WIR UNS MAL#13
":
       SYS 5681:
       PRINT "
BERUFLICH
";
  889  IF H = 9 THEN 
           PRINT "
GEHST DU JETZT
":
       SYS 5681:
       PRINT "
ENDLICH
";
  890  IF H = 12 THEN 
           PRINT "
RETTE UNSERE#13
":
       SYS 5681:
       PRINT "
WELT
";
  891  IF H = 11 THEN 
           PRINT "
ZAHLE PÜNKTLICH#13
":
       SYS 5681:
       PRINT "
DEINE STEUERN
";
  892  IF H = 14 AND  PEEK (49358) = . THEN 
           PRINT "
RETTE UNSERE#13
":
       SYS 5681:
       PRINT "
TOCHTER
";:
       GOTO 897
  893  IF H = 13 THEN 
           PRINT "
'SWAR MIR EINE#13
":
       SYS 5681:
       PRINT "
FREUDE, DICH#13
":
       SYS 5681:
       PRINT "
KENNENZULERNEN
";
  894  IF H = 10 THEN 
           PRINT "
ICH SINGE#13
":
       SYS 5681:
       PRINT "
JETZT WEITER
";
  895  IF H = 15 OR H = 14 THEN 
           PRINT "
LEBE WOHL
";
  896  IF H = 16 THEN 
           PRINT "
VIEL SPASS#13
":
       SYS 5681:
       PRINT "
NOCH, HAHA
";
  897  PRINT "
.%#13
":
       SYS 5681:
       SYS 5681:
       PRINT "
#9EER
";:
       IF H > 13 AND H < 16 THEN 
           PRINT "
#9D#9DSIE
";
  898  PRINT "
 WENDET SICH#13
":
       SYS 5681:
       PRINT "
AB.#13
":
       SYS 5681:
       GOTO 100
  899  PRINT "
ICH HENKER BIN
";:
       RETURN 
// -----------------------------

  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
":
       GOSUB 999:
       RETURN 
// -----------------------------

  972  GOTO 971
  999  SYS 5681:
       SYS 5681:
       RETURN 
// -----------------------------

 1000  PRINT "
HTER#13
":
       GOSUB 800:
       PRINT "
ICH BEWACHE DAS#13
":
       SYS 5681:
       PRINT "
SCHLOSS UND DEN#13
"
 1001  SYS 5681:
       PRINT "
KÖNIG. WILLST DU#13
":
       SYS 5681:
       PRINT "
EINE AUDIENZ?
";:
       GOSUB 970
 1002  IF U$ = "
N
" THEN 
           PRINT "
ES IST AUCH#13
":
       SYS 5681:
       PRINT "
NICHT GUT, DEN#13
"
 1003  IF U$ = "
N
" THEN 
           SYS 5681:
       PRINT "
KÖNIG ZU#13
":
       SYS 5681:
       PRINT "
STÖREN.%#13
":
       GOTO 400
 1004  PRINT "
DER KÖNIG WIRD#13
":
       SYS 5681:
       PRINT "
DICH IM THRON-#13
"
 1005  SYS 5681:
       PRINT "
SAAL EMPFANGEN.%#13
":
       GOTO 400
 1010  PRINT "
TZ#13
":
       GOSUB 800:
       PRINT "
ICH BEWACHE DAS#13
":
       SYS 5681:
       PRINT "
GOLD DES KÖNIGS.#13
"
 1011  SYS 5681:
       PRINT "
WILLST DU HIER#13
":
       SYS 5681:
       PRINT "
ETWA STEHLEN?
";:
       GOSUB 970:
       IF U$ = "
J
" GOTO 1013
 1012  PRINT "
DAS WILL ICH DIR#13
":
       SYS 5681:
       PRINT "
AUCH NICHT#13
":
       SYS 5681:
       PRINT "
RATEN!%#13
":
       GOTO 400
 1013  PRINT "
SIEH DICH VOR!#13
":
       SYS 5681:
       PRINT "
FÜR LEUTE WIE#13
"
 1014  SYS 5681:
       PRINT "
DICH IST HIER#13
":
       SYS 5681:
       PRINT "
DER HERR HINTER#13
"
 1015  SYS 5681:
       PRINT "
DIR ZUSTÄNDIG.%#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 "
STER#13
":
       GOSUB 800:
       PRINT "
ICH BIN EIN#13
":
       SYS 5681:
       PRINT "
MANN GOTTES.#13
":
       GOTO 400
 1022  PRINT "
 #13
":
       GOSUB 800:
       PRINT "
GLAUBST DU AN#13
":
       SYS 5681:
       PRINT "
GOTT?
";:
       GOSUB 970:
       IF U$ = "
N
" GOTO 1024
 1023  PRINT "
DANN KNIE NIEDER#13
":
       SYS 5681:
       PRINT "
UND BETE!#13
":
       GOTO 400
 1024  PRINT "
ICH AUCH NICHT,#13
":
       SYS 5681:
       PRINT "
ABER VON IRGEND-#13
"
 1025  SYS 5681:
       PRINT "
ETWAS MUSS MAN#13
":
       SYS 5681:
       PRINT "
JA LEBEN.%#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 "
NUN 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 "
ICH KOCHE SEHR#13
";:
       SYS 5681:
       PRINT "
GUT. WILLST DU#13
"
 1041  SYS 5681:
       PRINT "
EIN LUNCHPAKET#13
":
       SYS 5681:
       PRINT "
MIT 25 LUXUSPOR-#13
"
 1042  SYS 5681:
       PRINT "
TIONEN KAUFEN?
";
 1043  GOSUB 970:
       IF U$ = "
N
" THEN 
           PRINT "
WIE DU WILLST.%#13
":
       GOTO 400
 1044 Z = 45 - CH:
       GOSUB 9000:
      NA = NA + 25:
       IF NA > 250 THEN 
          NA = 250
 1045  POKE 49244,NA:
       GOSUB 10000:
       SYS 5681:
       PRINT "
#99NOCH EINS?
";:
       GOTO 1043
 1050  PRINT "
RAPH#13
":
       GOSUB 800:
       PRINT "
ICH ZEICHNE#13
":
       SYS 5681:
       PRINT "
KARTEN.%#13
":
       GOTO 400
 1051  PRINT "
EN#13
":
       GOSUB 800:
       PRINT "
MÖCHTEST DU#13
":
       SYS 5681:
       PRINT "
GENAUE KARTEN#13
":
       SYS 5681
 1052  PRINT "
DIESES LANDES#13
";:
       SYS 5681:
       PRINT "
UND PLÄNE DER#13
":
       SYS 5681:
       PRINT "
GEBÄUDE, STÄDTE,#13
"
 1053  SYS 5681:
       PRINT "
LABYRINTHE ETC.#13
":
       SYS 5681:
       PRINT "
KAUFEN?
";:
       GOSUB 970:
       IF U$ = "
J
" GOTO 1056
 1054  PRINT "
NA GUT, WENN DU#13
":
       SYS 5681:
       PRINT "
DICH AUCH SO#13
"
 1055  SYS 5681:
       PRINT "
ZURECHTFINDEST.%#13
":
       GOTO 400
 1056  PRINT "
LEIDER HABE ICH#13
":
       SYS 5681:
       PRINT "
IM AUGENBLICK#13
"
 1057  SYS 5681:
       PRINT "
KEINE FERTIG.#13
":
       SYS 5681:
       PRINT "
MÖCHTEST DU#13
"
 1058  SYS 5681:
       PRINT "
TROTZDEM WELCHE#13
":
       SYS 5681:
       PRINT "
KAUFEN?
";:
       GOSUB 970:
       IF U$ = "
N
" GOTO 1054
 1060  PRINT "
DANN SCHICK DOCH#13
":
       SYS 5681:
       PRINT "
20,- DM (SCHEIN#13
":
       SYS 5681:
       PRINT "
ODER SCHECK)#13
"
 1061  SYS 5681:
       PRINT "
AN DEN AUTOR:#13
":
       GOSUB 960:
       SYS 5681:
       PRINT "
#05GERMAN DESIGN#13
"
 1062  SYS 5681:
       PRINT "
    GROUP#13
":
       SYS 5681:
       SYS 5681:
       PRINT "
R. RINSCHEIDT#13
"
 1063  SYS 5681:
       PRINT "
STICHWORT:#13
":
       SYS 5681:
       PRINT "
D.D.D. - KARTEN#13
":
       SYS 5681:
       PRINT "
BUCHHOLZSTR. 17#13
"
 1064  SYS 5681:
       PRINT "
4755 HOLZWICKEDE#13
":
       SYS 5681:
       PRINT "
WEST-GERMANY#13
"
 1065  GOSUB 960:
       PRINT "
DU BEKOMMST DANN#13
":
       SYS 5681:
       PRINT "
SEHR SCHÖNES#13
"
 1066  SYS 5681:
       PRINT "
KARTENMATERIAL#13
":
       SYS 5681:
       PRINT "
UND LÖSUNGSTIPS.#13
":
       GOTO 400
 1070  PRINT "
ERTMEISTER?#13
":
       GOSUB 800:
       PRINT "
ICH KANN DICH#13
":
       SYS 5681:
       PRINT "
IM KAMPF
"
 1071  SYS 5681:
       PRINT "
TRAINIEREN.%#13
":
       GOTO 400
 1072  PRINT "
NIEREN#13
":
       GOSUB 800:
       IF  PEEK (49344) GOTO 1075
 1073  PRINT "
DAZU MUSST DU#13
":
       SYS 5681:
       PRINT "
ERST NOCH ETWAS#13
"
 1074  SYS 5681:
       PRINT "
ERFAHRENER#13
":
       SYS 5681:
       PRINT "
WERDEN.%#13
":
       GOTO 400
 1075  PRINT "
GUT. WILLST DU#13
":
       SYS 5681:
       PRINT "
DEINEN ANGRIFF#13
":
       SYS 5681
 1076  PRINT "
ODER DIE VERTEI-#13
":
       SYS 5681:
       PRINT "
DIGUNG VERBES-%#13
":
       SYS 5681:
       PRINT "
SERN?#13
":
       GOTO 400
 1077 J =  PEEK (49228):
       IF J < 18 THEN 
           POKE 49228,J + 1:
       GOTO 1079
 1078  PRINT "
DA KANN ICH DIR#13
":
       SYS 5681:
       PRINT "
NICHTS MEHR#13
":
       SYS 5681:
       PRINT "
BEIBRINGEN.%#13
":
       GOTO 400
 1079  POKE 49344, PEEK (49344) - 1:
       PRINT "
OKAY, LASS UNS#13
":
       SYS 5681:
       PRINT "
KÄMPFEN!%#13
"
 1080  FOR I = 0 TO 9:
       POKE 53280,10:
       SYS 6041:
       POKE S + 5,8:
       POKE S + 1,50 + 30 *  RND (TI)
 1081  POKE S + 4,17:
       POKE 53280,0:
      K = 60 + 200 *  RND (TI):
       FOR J = 0 TO K:
       NEXT J,I:
       GOSUB 10000:
       GOTO 400
 1082 J =  PEEK (49229):
       IF J = 18 GOTO 1078
 1083  POKE 49229,J + 1:
       GOTO 1079
 1084  PRINT "
IFF#13
":
       GOSUB 800:
       IF AT = 18 OR  PEEK (49344) > . GOTO 1077
 1085  GOTO 1073
 1086  PRINT "
EIDIGUNG#13
":
       GOSUB 800:
       IF PA = 17 OR  PEEK (49344) > . GOTO 1082
 1087  GOTO 1073
 1090  PRINT "
ER#13
":
       GOSUB 800:
       PRINT "
ICH BIN HENKER#13
":
       SYS 5681:
       PRINT "
UND FOLTERKNECHT#13
"
 1091  SYS 5681:
       PRINT "
DES KÖNIGS.#13
":
       GOSUB 960:
       PRINT "
WARST DU SCHON#13
"
 1092  SYS 5681:
       PRINT "
EINMAL BEI EINER#13
":
       SYS 5681:
       PRINT "
HINRICHTUNG#13
":
       SYS 5681:
       PRINT "
DABEI?
";
 1093  GOSUB 970:
       IF U$ = "
J
" THEN 
           PRINT "
LUSTIG, NICHT?#13
":
       SYS 5681:
       PRINT "
KÖPFEN GEFÄLLT#13
"
 1094  IF U$ = "
J
" THEN 
           SYS 5681:
       PRINT "
MIR AM BESTEN.%#13
":
       GOTO 400
 1095  PRINT "
DANN BLEIB MAL#13
":
       SYS 5681:
       PRINT "
NOCH 'NE WEILE#13
":
       SYS 5681:
       PRINT "
HIER. DER TYP#13
"
 1096  SYS 5681:
       PRINT "
HIER IN DER#13
":
       SYS 5681:
       PRINT "
ZELLE WIRD BALD#13
":
       SYS 5681:
       PRINT "
GEKÖPFT.%#13
"
 1097  GOTO 400
 1100  PRINT "
HOFMEISTER#13
":
       GOSUB 800:
       PRINT "
ICH VERWALTE#13
":
       SYS 5681:
       PRINT "
DAS SCHLOSS.#13
"
 1101  GOSUB 960:
       PRINT "
DIES HIER SIND#13
":
       SYS 5681:
       PRINT "
DIE KÖNIGLICHEN#13
"
 1102  SYS 5681:
       PRINT "
GEMÄCHER. HIER#13
":
       SYS 5681:
       PRINT "
DARF NIEMAND#13
"
 1103  SYS 5681:
       PRINT "
HEREIN. DU GEHST#13
":
       SYS 5681:
       PRINT "
JETZT BESSER,#13
"
 1104  SYS 5681:
       PRINT "
BEVOR DIE WACHEN#13
":
       SYS 5681:
       PRINT "
DICH SEHEN.%#13
":
       GOTO 400
 1110  PRINT "
IG#13
":
       GOSUB 800:
       PRINT "
ICH REGIERE#13
":
       SYS 5681:
       PRINT "
DIESES LAND.%#13
":
       GOTO 400
 1111  PRINT "
 #13
":
       GOSUB 800:
       PRINT "
MEIN LAND WIRD
":
       SYS 5681:
       PRINT "
VON EINER FINS-#13
"
 1112  SYS 5681:
       PRINT "
TEREN MACHT BE-
":
       SYS 5681:
       PRINT "
DROHT.%#13
":
       GOTO 400
 1113  PRINT "
TER#13
":
       GOSUB 800:
       PRINT "
OH, DIESES#13
":
       SYS 5681:
       PRINT "
VERFLUCHTE#13
"
 1114  SYS 5681:
       PRINT "
ABKOMMEN!%#13
":
       GOTO 400
 1115  PRINT "
MMEN#13
":
       GOSUB 800:
       PRINT "
ZWEIMAL IM#13
":
       SYS 5681:
       PRINT "
JAHR, IMMER ZUR#13
"
 1116  SYS 5681:
       PRINT "
SONNENWENDE, BE-#13
":
       SYS 5681:
       PRINT "
KOMMT DER DRACHE#13
"
 1117  SYS 5681:
       PRINT "
HUNGER AUF MEN-#13
":
       SYS 5681:
       PRINT "
SCHENFLEISCH.#13
"
 1118  GOSUB 960:
       PRINT "
WIR HABEN DAHER#13
":
       SYS 5681:
       PRINT "
MIT IHM EIN AB-#13
"
 1119  SYS 5681:
       PRINT "
KOMMEN GETROF-#13
":
       SYS 5681:
       PRINT "
FEN: ALS GEGEN-#13
"
 1120  SYS 5681:
       PRINT "
LEISTUNG DAFÜR,#13
":
       SYS 5681:
       PRINT "
DASS ER UNSERE#13
"
 1121  SYS 5681:
       PRINT "
STÄDTE VER-#13
":
       SYS 5681:
       PRINT "
SCHONT, MÜSSEN#13
"
 1122  SYS 5681:
       PRINT "
WIR IHM DANN#13
":
       SYS 5681:
       PRINT "
EINE JUNGFRAU#13
":
       SYS 5681:
       PRINT "
DARBRINGEN.#13
"
 1123  GOSUB 960:
       PRINT "
WELCHE ES IST,#13
":
       SYS 5681:
       PRINT "
WIRD DURCH LOS#13
"
 1124  SYS 5681:
       PRINT "
BESTIMMT. DIES-#13
":
       SYS 5681:
       PRINT "
MAL HAT ES MEINE#13
"
 1125  SYS 5681:
       PRINT "
EINZIGE TOCHTER#13
":
       SYS 5681:
       PRINT "
GETROFFEN.#13
"
 1126  GOSUB 960:
       PRINT "
ICH BITTE DICH,#13
":
       SYS 5681:
       PRINT "
TÖTE DEN LIND-#13
"
 1127  SYS 5681:
       PRINT "
WURM, WENN DU#13
":
       SYS 5681:
       PRINT "
KANNST. ABER#13
"
 1128  SYS 5681:
       PRINT "
VERSAGE NICHT,#13
":
       SYS 5681:
       PRINT "
DENN SONST WIRD#13
"
 1129  SYS 5681:
       PRINT "
DAS UNTIER#13
":
       SYS 5681:
       PRINT "
FÜRCHTERLICHE#13
"
 1130  SYS 5681:
       PRINT "
RACHE NEHMEN.%#13
":
       GOTO 400
 1131  PRINT "
IFF#13
":
       GOSUB 800:
       PRINT "
ICH JAGE#13
":
       SYS 5681:
       PRINT "
VERBRECHER.%#13
":
       GOTO 400
 1132  PRINT "
RECHER#13
":
       GOSUB 800:
       PRINT "
ZUM BEISPIEL#13
":
       SYS 5681:
       PRINT "
SUCHT DER KÖNIG#13
"
 1133  SYS 5681:
       PRINT "
SCHON LANGE DIE#13
":
       SYS 5681:
       PRINT "
DIEBESBANDE VON#13
"
 1134  SYS 5681:
       PRINT "
MUBRAK.%#13
":
       GOTO 400
 1135  PRINT "
AK#13
":
       GOSUB 800:
       PRINT "
WARST DU SCHON#13
":
       SYS 5681:
       PRINT "
EINMAL IN#13
":
       SYS 5681:
       PRINT "
MUBRAK?
";
 1136  GOSUB 970:
       IF U$ = "
J
" GOTO 1139
 1137  PRINT "
SCHADE, DER#13
";:
       SYS 5681:
       PRINT "
KÖNIG MÖCHTE#13
":
       SYS 5681:
       PRINT "
WISSEN, WO ES#13
"
 1138  SYS 5681:
       PRINT "
LIEGT.%#13
":
       GOTO 400
 1139  PRINT "
SPRICH DEN KÖNIG#13
";:
       SYS 5681:
       PRINT "
AUF MUBRAK AN#13
":
       SYS 5681:
       PRINT "
UND GIB IHM DIE#13
"
 1140  SYS 5681:
       PRINT "
KOORDINATEN. ER#13
":
       SYS 5681:
       PRINT "
WIRD DICH REICH#13
"
 1141  SYS 5681:
       PRINT "
BELOHNEN.%#13
":
       GOTO 400
 1142  PRINT "
WEIFELT#13
":
       GOSUB 800:
       PRINT "
UNSERE TOCHTER#13
":
       SYS 5681:
       PRINT "
WIRD BALD#13
"
 1143  SYS 5681:
       PRINT "
STERBEN.%#13
":
       GOTO 400
 1144  PRINT "
TER#13
":
       GOSUB 800:
       PRINT "
PRINZESSIN#13
":
       SYS 5681:
       PRINT "
SHEILA. IHR LOS#13
"
 1145  SYS 5681:
       PRINT "
WURDE BEI DER#13
":
       SYS 5681:
       PRINT "
LOTTERIE GEZO-#13
":
       SYS 5681:
       PRINT "
GEN.%#13
":
       GOTO 400
 1146  PRINT "
ERIE#13
":
       GOSUB 800:
       PRINT "
DU BIST WOHL#13
":
       SYS 5681:
       PRINT "
FREMD HIER?
";:
       GOSUB 970
 1147  IF U$ = "
N
" THEN 
           PRINT "
DANN MÜSSTEST DU#13
":
       SYS 5681:
       PRINT "
WISSEN, WAS DAS#13
"
 1148  IF U$ = "
N
" THEN 
           SYS 5681:
       PRINT "
BEDEUTET!%#13
":
       GOTO 400
 1150  PRINT "
IN DEN BERGEN#13
":
       SYS 5681:
       PRINT "
DER WÜSTE 'ÖD'#13
":
       SYS 5681:
       PRINT "
IM OSTEN HAUST#13
"
 1151  SYS 5681:
       PRINT "
EIN FURCHTBARER#13
":
       SYS 5681:
       PRINT "
LINDWURM.%#13
":
       GOTO 400
 1152  PRINT "
WURM#13
":
       GOSUB 800:
       PRINT "
WIR MUSSTEN EIN#13
":
       SYS 5681:
       PRINT "
SCHRECKLICHES#13
"
 1153  SYS 5681:
       PRINT "
ABKOMMEN MIT IHM#13
":
       SYS 5681:
       PRINT "
TREFFEN.%#13
":
       GOTO 400
 1154  PRINT "
MMEN#13
":
       GOSUB 800:
       PRINT "
ICH...% #9E(WEINT)#13
":
       SYS 5681:
       PRINT "
#99%...KANN NICHT.#13
"
 1155  SYS 5681:
       PRINT "
FRAG MEINEN MANN#13
":
       SYS 5681:
       PRINT "
NACH UNSERER#13
"
 1156  SYS 5681:
       PRINT "
TOCHTER.%#13
":
       GOTO 400
 1160  PRINT "
LER#13
":
       GOSUB 800:
       PRINT "
ICH MACHE...#13
":
       GOSUB 960:
       PRINT "
...JA, WAS MACHE#13
"
 1161  SYS 5681:
       PRINT "
ICH EIGENTLICH?#13
":
       GOSUB 960:
       PRINT "
ICH WEISS#13
":
       SYS 5681:
       PRINT "
EIGENTLICH NIE#13
"
 1162  SYS 5681:
       PRINT "
SO RECHT WAS#13
":
       SYS 5681:
       PRINT "
ICH TUE...%#13
":
       GOTO 400
 1163  PRINT "
 
":
       GOSUB 800:
       PRINT "
JA, SO HEISSE#13
":
       SYS 5681:
       PRINT "
ICH.%#13
":
       GOTO 400
 1200  GOSUB 800:
       PRINT "
SEI WILLKOMMEN,#13
":
       SYS 5681:
       PRINT "
MEIN
";
 1201  IF  PEEK (49166) THEN 
           PRINT "
E KRIEGERIN.#13
":
       GOTO 1203
 1202  PRINT "
 RITTER.#13
"
 1203  SYS 5681:
       PRINT "
ICH HABE KUNDE#13
":
       SYS 5681:
       PRINT "
VON DEINEN TATEN#13
"
 1204  SYS 5681:
       PRINT "
VERNOMMEN.#13
":
       GOSUB 960:
       GOSUB 7000:
       IF SU = 21 GOTO 1220
 1205 J = 0:
       FOR I = 1 TO SU:
      J = J + 100 * I:
       NEXT :
       IF EF < J GOTO 1222
 1206 SU = SU + 1:
      HM = 54 + 45 * SU:
       POKE 49241,SU:
       POKE 49344, PEEK (49344) + 1
 1207  POKE 49287, PEEK (49287) + 2:
      J = J + 100 * SU:
       IF SU < 21 AND J <  = EF GOTO 1206
 1208  PRINT "
ICH HEBE DICH#13
":
       SYS 5681:
       PRINT "
AUF STUFE
"SU"
AN#13
"
 1209  SYS 5681:
       PRINT "
UND VERLEIHE DIR#13
":
       SYS 5681:
       PRINT "
DEN RANG EINES#13
"
 1210  SYS 5681:
       PRINT R$(SU);:
       SYS 5681:
       PRINT "
MEINER ARMEE.%#13
"
 1211  POKE 49233,HM / 256:
       POKE 49232,HM - 256 *  PEEK (49233):
      Z = 19:
       GOTO 1034
 1220  PRINT "
GEH NUN UND VER-#13
":
       SYS 5681:
       PRINT "
NICHTE DAS BÖSE,#13
"
 1221  SYS 5681:
       PRINT "
DAS UNS BE-#13
":
       SYS 5681:
       PRINT "
DROHT.%#13
":
       GOTO 400
 1222  PRINT "
VERSUCHE, NOCH#13
":
       SYS 5681:
       PRINT "
ERFAHRENER UND#13
"
 1223  SYS 5681:
       PRINT "
BESSER ZU#13
":
       SYS 5681:
       PRINT "
WERDEN.%#13
":
       GOTO 400
 1230  PRINT "
?#13
":
       GOSUB 800:
       PRINT "
JA, PSST!#13
":
       SYS 5681:
       PRINT "
SIEHST DU#13
"
 1231  SYS 5681:
       PRINT "
NICHT, DASS#13
":
       SYS 5681:
       PRINT "
ICH SPIELE?%#13
":
       GOTO 400
 1240  PRINT "
 #13
":
       GOSUB 800:
       PRINT "
ICH DIENE#13
":
       SYS 5681:
       PRINT "
MEINEM KÖNIG.#13
"
 1242  GOSUB 960:
       PRINT "
BIST DU GEKOM-#13
":
       SYS 5681:
       PRINT "
MEN, UM UNSERE#13
":
       SYS 5681:
       PRINT "
WELT ZU#13
"
 1243  SYS 5681:
       PRINT "
RETTEN?
";:
       GOSUB 970:
       IF U$ = "
N
" THEN 
           PRINT "
HILF UNS!%#13
":
       GOTO 400
 1244  PRINT "
DAKTEON KANN#13
":
       SYS 5681:
       PRINT "
DIR VIELLEICHT#13
":
       SYS 5681:
       PRINT "
EINEN TIP GEBEN.#13
"
 1245  SYS 5681:
       PRINT "
BITTE IHN UM#13
":
       SYS 5681:
       PRINT "
HILFE.%#13
":
       GOTO 400
 1250  PRINT "
E#13
":
       GOSUB 800:
       PRINT "
DER NAME DES#13
":
       SYS 5681:
       PRINT "
BÖSEN, DEN NIE-#13
"
 1251  SYS 5681:
       PRINT "
MAND AUSSPRECHEN#13
":
       SYS 5681:
       PRINT "
DARF, OHNE ZU#13
"
 1252  SYS 5681:
       PRINT "
VERBRENNEN, IST#13
":
       SYS 5681:
       PRINT "
WICHTIG, WENN#13
"
 1253  SYS 5681:
       PRINT "
DU DAS BÖSE#13
":
       SYS 5681:
       PRINT "
VERNICHTEN#13
":
       SYS 5681:
       PRINT "
WILLST.#13
"
 1255  GOSUB 960:
       PRINT "
DIE ZAUBERER#13
":
       SYS 5681:
       PRINT "
DER BEIDEN
"
 1256  SYS 5681:
       PRINT "
ZIRKEL WISSEN#13
":
       SYS 5681:
       PRINT "
ETWAS DARÜBER.#13
"
 1257  SYS 5681:
       PRINT "
FRAGE SIE NACH#13
":
       SYS 5681:
       PRINT "
DEM BÖSEN.%#13
":
       GOTO 400
 2000  PRINT "
AK#13
":
       GOSUB 800:
       IF  PEEK (49352) THEN 
           PRINT "
MUBRAK WIRD#13
":
       SYS 5681:
       PRINT "
ZERSTÖRT!%#13
":
       GOTO 400
 2001  PRINT "
MUBRAK? WEISST#13
":
       SYS 5681:
       PRINT "
DU ETWA, WO#13
"
 2002  SYS 5681:
       PRINT "
DIESES RATTEN-#13
":
       SYS 5681:
       PRINT "
NEST LIEGT? 
";:
       GOSUB 970
 2004  IF U$ = "
N
" THEN 
           PRINT "
ZU SCHADE. ICH#13
":
       SYS 5681:
       PRINT "
HÄTTE ES ZU GERN#13
"
 2006  IF U$ = "
N
" THEN 
           SYS 5681:
       PRINT "
AUSGELÖSCHT.%#13
":
       GOTO 400
 2008  PRINT "
VERRATE MIR DIE#13
":
       SYS 5681:
       PRINT "
KOORDINATEN,#13
":
       SYS 5681:
       PRINT "
DANN WERDE ICH#13
"
 2010  SYS 5681:
       PRINT "
DICH REICH#13
":
       SYS 5681:
       PRINT "
BELOHNEN:#13
"
 2012  SYS 5681:
       SYS 5681:
       PRINT "
#9E( & '/ & ')#9D#9D#9D#9D#9D#9D#9D#9D#9D#9D#05
";:
      N$ = "
"
 2014  GOSUB 2900:
       GOSUB 2900:
       PRINT "
#1D
";:
       GOSUB 2900:
       GOSUB 2900:
       SYS 5681:
       SYS 5681:
       PRINT "
#99
";
 2016  IF N$ <  > "
BIEJ
" THEN 
           PRINT "
UNMÖGLICH, MEINE#13
":
       SYS 5681:
       PRINT "
MÄNNER HABEN DA#13
"
 2018  IF N$ <  > "
BIEJ
" THEN 
           SYS 5681:
       PRINT "
SCHON GESUCHT.%#13
":
       GOTO 400
 2020  PRINT "
SEHR GUT, ICH#13
":
       SYS 5681:
       PRINT "
WERDE SOFORT#13
":
       SYS 5681:
       PRINT "
EINE TRUPPE ENT-#13
"
 2022  SYS 5681:
       PRINT "
SENDEN, DIE#13
":
       SYS 5681:
       PRINT "
DIESEN SCHAND-#13
"
 2024  SYS 5681:
       PRINT "
FLECK VERNICH-#13
":
       SYS 5681:
       PRINT "
TET.#13
":
       GOSUB 960:
       PRINT "
ZUM DANK GE-#13
"
 2026  SYS 5681:
       PRINT "
WÄHRE ICH DIR#13
":
       SYS 5681:
       PRINT "
2000 GOLDSTÜCKE#13
"
 2028  SYS 5681:
       PRINT "
BELOHNUNG.%#13
":
       POKE 49352,1:
      GP = GP + 2E3:
       IF GP > 5E4 THEN 
          GP = 5E4
 2030 Z = .:
       GOSUB 9004:
       GOTO 400
 2100  PRINT "
ARR#13
":
       GOSUB 800:
       PRINT "
ICH MACHE HIER#13
":
       SYS 5681:
       PRINT "
DIE WITZE.%#13
":
       GOTO 400
 2110  PRINT "
E#13
":
       GOSUB 800:
       PRINT "
KENNST DU DEN#13
":
       SYS 5681:
       PRINT "
UNTERSCHIED#13
"
 2112  SYS 5681:
       PRINT "
ZWISCHEN DER#13
":
       SYS 5681:
       PRINT "
KÖNIGIN UND EI-#13
"
 2114  SYS 5681:
       PRINT "
NEM NILPFERD?
";:
       GOSUB 970:
       IF U$ = "
J
" THEN 
           PRINT "
OH...%#13
":
       GOTO 400
 2116  PRINT "
DAS NILPFERD#13
":
       SYS 5681:
       PRINT "
BADET ÖFTER,#13
":
       SYS 5681:
       PRINT "
HAHAHAHA!%#13
":
       GOTO 400
 2900  PRINT "
#C7#9D
";
 2910  GET U$:
       IF U$ < "
A
" OR U$ > "
P
" GOTO 2910
 2920  PRINT U$"
#1D
";:
      N$ = N$ + U$:
       RETURN 
// -----------------------------

 3000  PRINT "
 
":
       GOSUB 800:
       PRINT "
DIE INSEL UYRP#13
":
       SYS 5681:
       PRINT "
LIEGT AM SÜDKAP#13
":
       SYS 5681
 3002  PRINT "
UND HAT DIE#13
":
       SYS 5681:
       PRINT "
KOORDINATEN:#13
":
       SYS 5681:
       PRINT "
(D&M'/J&G').%#13
":
       GOTO 400
 3300  PRINT "
#9D  #13
":
       SYS 5681:
       PRINT "
#9EMÖCHTEST DU#13
":
       SYS 5681:
       PRINT "
DAS SCHLOSS#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 "
DAS SCHLOSS.#13
"
 6010  FOR I = 0 TO 600:
       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
 7000  IF  PEEK (49360) > . OR  PEEK (49358) = . THEN 
           RETURN 
// -----------------------------

 7010  PRINT "
DU HAST DEN#13
":
       SYS 5681:
       PRINT "
RIESENLINDWURM#13
"
 7012  SYS 5681:
       PRINT "
GETÖTET UND#13
":
       SYS 5681:
       PRINT "
MEINE TOCHTER#13
"
 7014  SYS 5681:
       PRINT "
SHEILA GERETTET.#13
":
       GOSUB 960:
       PRINT "
ZUM DANK DAFÜR#13
"
 7015  SYS 5681:
       PRINT "
SCHENKE ICH DIR#13
":
       SYS 5681:
       PRINT "
1OOO GOLDSTÜCKE.#13
"
 7020 Z =  - 1E3:
       GOSUB 9004:
       SYS 5681:
       PRINT "
#99
";:
       POKE 49360,1:
       RETURN 
// -----------------------------

 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 
// -----------------------------

50000  DATA GEFREITEN,OBERGEFREITEN,HAUPTGEFREITEN,UNTEROFFIZIERS,FAHNENJUNKERS
50001  DATA STABSUNTEROFFIZ.,FELDWEBELS,F[HNRICHS,OBERFELDWEBELS,HAUPTFELDWEBELS
50002  DATA OBERF[HNRICHS,STABSFELDWEBELS,LEUTNANTS,OBERLEUTNANTS,HAUPTMANNS
50003  DATA MAJORS,OBERSTLEUTNANTS,OBERST,GENERALS,FELDMARSCHALLS
51000  DATA -35,6368,1,6601,35,6736,-1,6999
60000  FOR I = 0 TO 120:
       POKE 832 + I,I:
       NEXT :
       SYS 4361
    0