1  POKE 53281,0:
       POKE 53280,0:
       POKE 53272,18:
      I =  RND ( - TI):
      S = 54272:
       SYS 5454:
       POKE 6794,3
    2  POKE 650,255:
       POKE 51223,15:
       POKE 51221,1:
       POKE 51208,12:
       POKE 51209,15:
       POKE 51211,2
    3  POKE 51217,8:
       POKE 51219,1:
       POKE 51206,8:
       POKE 51224,1:
       POKE 51228,8:
       POKE 51222,8
    4  POKE 7243,90:
       POKE 7244,98:
       POKE 7245,99:
       POKE 7246,101:
       POKE 7247,100:
       POKE 7249,94
    5  DIM W$(26):
       FOR I = 0 TO 26:
       READ W$(I):
       NEXT 
    6  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)"
#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
  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 AND J <  > 119 AND J <  > 120) 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 AND J <  > 119 AND J <  > 120) 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 AND J <  > 119 AND J <  > 120) 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 AND J <  > 119 AND J <  > 120) 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
  262  IF J = 110 THEN 
          H = 4
  263  IF J = 111 THEN 
          H = 5
  264  IF J = 16 AND Y = 20 AND X < 9 THEN 
          H = 6
  265  IF J = 18 THEN 
          H = 11
  266  IF J = 16 AND (Y = 17 OR Y = 16) THEN 
          H = 7
  267  IF J = 16 AND Y < 14 THEN 
          H = 9
  268  IF J = 28 THEN 
          H = 10
  269  IF J = 18 THEN 
          H = 16
  274  IF J = 16 AND Y > 24 THEN 
          H = 3
  275  IF J = 16 AND Y < 24 AND Y > 18 AND X > 20 THEN 
          H = 2
  276  IF J = 114 THEN 
          H = 8
  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 ALTEN#13
":
       SYS 5681:
       PRINT "
SEEBÄREN 
";
  286  IF H = 7 THEN 
           PRINT "
EINEN GASTWIRT#13
":
       SYS 5681
  287  IF H = 8 THEN 
           PRINT "
EINEN MUSKEL-#13
":
       SYS 5681:
       PRINT "
PROTZ 
";
  288  IF H = 9 THEN 
           PRINT "
EINEN ZIMMER-#13
";:
       SYS 5681:
       PRINT "
MANN 
";
  289  IF H = 10 THEN 
           PRINT "
EINEN DRUIDEN#13
":
       SYS 5681
  290  IF H = 16 THEN 
           PRINT "
EINE ZAUBERIN#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 = 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 N$ = "
BERU
" GOTO 860
  411  IF H = 6 AND N$ = "
SEEM
" GOTO 1100
  412  IF H = 7 AND N$ = "
WIRT
" GOTO 1140
  413  IF N$ = "
NAME
" THEN 
           PRINT "
?#13
":
       GOTO 820
  415  IF N$ = "
FICK
" OR N$ = "
PISS
" OR  MID$ (N$,2) = "
OTZ
" OR N$ = "
ARSC
" OR N$ = "
PORN
" GOTO 449
  416  IF H = 8 AND N$ = "
SCHW
" GOTO 1144
  417  IF H = 8 AND N$ = "
BODY
" GOTO 1150
  418  IF H = 8 AND N$ = "
TRAI
" GOTO 1154
  419  IF H = 9 AND N$ = "
WERF
" GOTO 1170
  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$ = "
SCHI
" GOTO 1172
  423  IF H = 16 AND N$ = "
ZAUB
" GOTO 3000
  424  IF H = 16 AND N$ = "
ADEP
" GOTO 3010
  425  IF H = 16 AND N$ = "
TAFE
" GOTO 3030
  426  IF H = 10 AND N$ = "
DRUI
" GOTO 3100
  427  IF H = 10 THEN 
           IF N$ = "
KRIS
" OR N$ = "
SPLI
" OR N$ = "
GLEI
" OR N$ = "
BOES
" GOTO 3130
  428  IF H = 10 AND N$ = "
TAFE
" GOTO 3120
  429  IF H = 16 AND N$ = "
DONN
" GOTO 3020
  439  IF H = 10 AND N$ = "
HELF
" GOTO 3110
  440  PRINT "
 #13
":
       GOSUB 800:
       PRINT "
DAZU KANN#13
":
       SYS 5681:
       PRINT "
ICH DIR NICHTS#13
":
       SYS 5681
  441  PRINT "
SAGEN.%#13
"
  442  GOTO 400
  449  PRINT "
 #13
":
       GOSUB 800:
       PRINT "
DU BIST EIN#13
":
       SYS 5681:
       PRINT "
ALTES FERKEL!%#13
":
       GOTO 400
  800  GOSUB 999:
       PRINT "
#9EDER 
";:
       IF H = 16 THEN 
           PRINT "
#9D#9D#9DIE 
";
  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 "
SEEMANN#13
"
  807  IF H = 7 THEN 
           PRINT "
GASTWIRT#13
"
  808  IF H = 8 THEN 
           PRINT "
MUSKELMANN#13
"
  809  IF H = 9 THEN 
           PRINT "
ZIMMERMANN#13
"
  810  IF H = 10 THEN 
           PRINT "
DRUIDE#13
"
  811  IF H = 16 THEN 
           PRINT "
ZAUBERIN#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 "
OLOF
";
  822  IF H = 3 THEN 
           PRINT "
ERIK
";
  823  IF H = 4 THEN 
           SYS 5681:
       PRINT "
APPENDICUS
";
  824  IF H = 5 THEN 
           SYS 5681:
       PRINT "
KULINARUS
";
  825  IF H = 6 THEN 
           SYS 5681:
       PRINT "
KÄPT'N HOOK
";
  826  IF H = 7 THEN 
           SYS 5681:
       PRINT "
DOLPH
";
  827  IF H = 8 THEN 
           SYS 5681:
       PRINT "
ARNOLD
";
  829  IF H = 9 THEN 
           SYS 5681:
       PRINT "
RAGNAR
";
  830  IF H = 10 THEN 
           SYS 5681:
       PRINT "
RICLAN
";
  831  IF H = 16 THEN 
           SYS 5681:
       PRINT "
TECCA
";
  839  PRINT "
.%#13
":
       GOTO 400
  840  GOSUB 800:
       IF H = 1 THEN 
           PRINT "
AUSGEZEICHNET,#13
":
       SYS 5681:
       PRINT "
DANKE
";
  841  IF H = 2 OR H = 3 OR H = 10 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 OR H = 16 THEN 
           PRINT "
GEHT SO, DANKE#13
":
       SYS 5681:
       PRINT "
DER NACHFRAGE
";
  845  IF H = 6 THEN 
           PRINT "
ICH BIN ETWAS#13
":
       SYS 5681:
       PRINT "
ANGETRUNKEN
";
  846  IF H = 7 THEN 
           PRINT "
AUSGEZEICHNET
";
  847  IF H = 8 THEN 
           PRINT "
ICH FÜHLE MICH#13
":
       SYS 5681:
       PRINT "
SEHR STARK
";
  848  IF H = 9 THEN 
           PRINT "
ICH HABE HART#13
":
       SYS 5681:
       PRINT "
GEARBEITET
";
  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 "
RATE MAL - MAN#13
":
       SYS 5681:
       PRINT "
SIEHT DOCH, DASS
";
  865  IF H = 4 THEN 
           PRINT "
ICH BIN DER#13
":
       SYS 5681:
       PRINT "
HEILER DIESER
";:
       SYS 5681:
       PRINT "
STADT
";
  866  IF H = 6 THEN 
           PRINT "
ICH BIN EIN#13
":
       SYS 5681:
       PRINT "
SEEMANN
";
  867  IF H = 7 THEN 
           PRINT "
ICH BIN HIER#13
":
       SYS 5681:
       PRINT "
DER WIRT
";
  868  IF H = 8 THEN 
           PRINT "
ICH BIN EIN#13
":
       SYS 5681:
       PRINT "
BODYBUILDER
";
  870  IF H = 5 THEN 
           SYS 5681:
       PRINT "
ICH HIER DAS#13
":
       SYS 5681:
       PRINT "
ESSEN MACHE
";
  872  IF H = 9 THEN 
           PRINT "
ICH BIN DER#13
":
       SYS 5681:
       PRINT "
WERFTMEISTER
";
  873  IF H = 10 THEN 
           PRINT "
ICH BIN EIN#13
":
       SYS 5681:
       PRINT "
DRUIDE
";
  874  IF H = 16 THEN 
           PRINT "
ICH BIN EINE#13
":
       SYS 5681:
       PRINT "
ZAUBERIN
";
  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 "
ISS TÜCHTIG
";
  884  IF H = 6 OR H = 10 THEN 
           PRINT "
GUTE REISE
";
  885  IF H = 7 THEN 
           PRINT "
TRINK 'N BIER
";
  886  IF H = 8 THEN 
           PRINT "
KAUF DIR MAL 'N#13
":
       SYS 5681:
       PRINT "
PAAR HANTELN
";
  887  IF H = 16 THEN 
           PRINT "
MÖGE DIE MAGIE#13
":
       SYS 5681:
       PRINT "
MIT DIR SEIN
";
  889  IF H = 9 THEN 
           PRINT "
GUTEN WIND
";
  897  PRINT "
.%#13
":
       SYS 5681:
       SYS 5681:
       PRINT "
#9EER
";:
       IF H > 13 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
":
       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 "
DIES HIER IST#13
":
       SYS 5681:
       PRINT "
WORTHAL, DIE#13
":
       SYS 5681
 1002  PRINT "
STADT DER#13
":
       SYS 5681:
       PRINT "
SEEFAHRER.#13
":
       SYS 5681:
       PRINT "
WILLST DU EIN#13
":
       SYS 5681
 1003  PRINT "
SCHIFF#13
":
       SYS 5681:
       PRINT "
KAUFEN? 
";:
       GOSUB 970:
       IF U$ = "
N
" THEN 
           PRINT "
WAS WILLST DU#13
"
 1004  IF U$ = "
N
" THEN 
           SYS 5681:
       PRINT "
DANN HIER?#13
":
       GOTO 400
 1005  PRINT "
DANN BIST DU#13
":
       SYS 5681:
       PRINT "
HIER GENAU#13
":
       SYS 5681:
       PRINT "
RICHTIG.#13
":
       GOTO 400
 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 "
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 "
HIER GIBT'S #13
";:
       SYS 5681:
       PRINT "
LECKERE FISCH-#13
"
 1041  SYS 5681:
       PRINT "
GERICHTE. WILLST#13
":
       SYS 5681:
       PRINT "
DU EIN PAKET MIT#13
"
 1042  SYS 5681:
       PRINT "
15 RATIONEN?
";
 1043  GOSUB 970:
       IF U$ = "
N
" THEN 
           PRINT "
DANN LASS ES.%#13
":
       GOTO 400
 1044 Z = 16 -  INT (CH / 1.5):
       GOSUB 9000:
       SYS 5681:
      NA = NA + 15:
       IF NA > 250 THEN 
          NA = 250
 1045  POKE 49244,NA:
       GOSUB 10000:
       SYS 5681:
       PRINT "
NOCH EINS?
";:
       GOTO 1043
 1100  PRINT "
ANN#13
":
       GOSUB 800:
       PRINT "
FRÜHER WAR ICH#13
":
       SYS 5681:
       PRINT "
EIN BERÜHMTER#13
"
 1110  SYS 5681:
       PRINT "
SEEFAHRER, DOCH#13
":
       SYS 5681:
       PRINT "
ICH HABE MICH#13
"
 1111  SYS 5681:
       PRINT "
ZUR RUHE#13
":
       SYS 5681:
       PRINT "
GESETZT.#13
"
 1112  GOSUB 960:
       PRINT "
WILLST DU#13
":
       SYS 5681:
       PRINT "
AUCH ZUR SEE#13
"
 1113  SYS 5681:
       PRINT "
FAHREN?
";:
       GOSUB 970
 1114  IF U$ = "
N
" THEN 
           PRINT "
EIN SCHIFF IST#13
":
       SYS 5681:
       PRINT "
DAS BESTE#13
":
       SYS 5681
 1115  IF U$ = "
N
" THEN 
           PRINT "
ZU HAUSE.#13
":
       GOTO 400
 1117  PRINT "
FINDEST DU DICH#13
":
       SYS 5681:
       PRINT "
DENN AUF SEE#13
"
 1118  SYS 5681:
       PRINT "
ZURECHT? 
";:
       GOSUB 970:
       IF U$ = "
J
" THEN 
           PRINT "
DANN IST ES#13
":
       SYS 5681:
       PRINT "
JA GUT.%#13
"
 1119  IF U$ = "
J
" GOTO 400
 1120  PRINT "
NAJA, ALS#13
":
       SYS 5681:
       PRINT "
ANFÄNGER...#13
"
 1121  SYS 5681:
       PRINT "
GIBST DU MIR#13
":
       SYS 5681:
       PRINT "
'N BIER AUS?
";:
       GOSUB 970
 1122  IF U$ = "
N
" THEN 
           PRINT "
GEIZHALS!%#13
":
       GOTO 400
 1123 Z = 2:
       GOSUB 9000:
       SYS 5681:
       PRINT "
#99DANKE, DAS TUT#13
":
       SYS 5681:
       PRINT "
GUT.
";
 1124  IF  PEEK (49347) THEN 
           PRINT "
%#13
":
       GOTO 400
 1125  PRINT "
 ICH HÄTTE#13
":
       SYS 5681:
       PRINT "
DA VIELLEICHT#13
"
 1126  SYS 5681:
       PRINT "
ETWAS FÜR DICH.#13
":
       SYS 5681:
       PRINT "
ICH HABE NOCH#13
"
 1127  SYS 5681:
       PRINT "
MEINEN ALTEN#13
":
       SYS 5681:
       PRINT "
SEXTANTEN ZUR#13
"
 1128  SYS 5681:
       PRINT "
POSITIONSBESTIM-#13
":
       SYS 5681:
       PRINT "
MUNG. ICH WÜRDE#13
"
 1129  SYS 5681:
       PRINT "
IHN DIR GERN#13
":
       SYS 5681:
       PRINT "
VERKAUFEN. HAST#13
"
 1130  SYS 5681:
       PRINT "
DU INTERESSE? 
";:
       GOSUB 970:
       IF U$ = "
N
" THEN 
           PRINT "
DANN NICHT.%#13
":
       GOTO 400
 1131 Z = 420 - CHR * 10:
       GOSUB 9000:
       SYS 5681:
       PRINT "
DANKE SEHR. #13
":
       SYS 5681:
       PRINT "
HIER HAST DU#13
"
 1132  SYS 5681:
       PRINT "
IHN.%
";:
       POKE 49347,1:
       GOTO 400
 1140  PRINT "
 #13
":
       GOSUB 800:
       PRINT "
JA, SETZ DICH#13
":
       SYS 5681:
       PRINT "
AN EINEN TISCH,#13
"
 1142  SYS 5681:
       PRINT "
ICH KOMME#13
":
       SYS 5681:
       PRINT "
GLEICH.%#13
":
       GOTO 400
 1144  PRINT "
ARZENEGGER#13
":
       GOSUB 800:
       PRINT "
NEIN, DIE#13
":
       SYS 5681:
       PRINT "
NAMENSGLEICHHEIT#13
"
 1145  SYS 5681:
       PRINT "
IST ZUFÄLLIG.%
";:
       GOTO 400
 1150  PRINT "
BUILDER#13
":
       GOSUB 800:
       PRINT "
ICH BIN SPEZIA-#13
":
       SYS 5681:
       PRINT "
LIST FÜR KRAFT.#13
"
 1151  SYS 5681:
       PRINT "
ICH KÖNNTE AUCH#13
":
       SYS 5681:
       PRINT "
DICH TRAINIEREN.
";:
       GOTO 400
 1154  PRINT "
NIEREN#13
":
       GOSUB 800:
       PRINT "
WILLST DU STÄR-#13
":
       SYS 5681:
       PRINT "
KER WERDEN? 
";
 1155  GOSUB 970:
       IF U$ = "
N
" THEN 
           PRINT "
KRAFT IST ABER#13
":
       SYS 5681:
       PRINT "
WICHTIG FÜR DEN#13
"
 1156  IF U$ = "
N
" THEN 
           SYS 5681:
       PRINT "
KAMPF UND DAS#13
":
       SYS 5681:
       PRINT "
TRAGEN VON#13
":
       SYS 5681
 1157  IF U$ = "
N
" THEN 
           PRINT "
RÜSTUNGEN.%#13
":
       GOTO 400
 1158  IF SR = 18 THEN 
           PRINT "
DU BIST SCHON SO#13
":
       SYS 5681:
       PRINT "
STARK WIE ICH.%#13
":
       GOTO 400
 1159  IF  PEEK (49287) = 0 THEN 
           PRINT "
DAZU MUSST DU#13
":
       SYS 5681:
       PRINT "
ERST NOCH ERFAH-#13
"
 1160  IF  PEEK (49287) = 0 THEN 
           SYS 5681:
       PRINT "
RENER WERDEN.%#13
":
       GOTO 400
 1161  PRINT "
GUT, LASS UNS#13
":
       SYS 5681:
       PRINT "
TRAINIEREN.%#13
"
 1162  FOR I = 0 TO 7:
       POKE 53280,4:
       SYS 6041:
       POKE S + 5,73:
       POKE S + 1,22:
       POKE S + 4,129
 1164 K = 400 *  RND (TI) + 200:
       POKE 53280,0:
       FOR J = 0 TO K:
       NEXT J,I:
       POKE 49287, PEEK (49287) - 1
 1166  POKE 49224,SR + 1:
       GOSUB 10000:
       GOTO 400
 1170  PRINT "
TMEISTER#13
":
       GOSUB 800:
       PRINT "
ICH BAUE HIER#13
":
       SYS 5681:
       PRINT "
DIE SCHIFFE.%#13
":
       GOTO 400
 1172  PRINT "
FF#13
":
       GOSUB 800:
       PRINT "
JA, HÄTTEST DU#13
":
       SYS 5681:
       PRINT "
VIELLEICHT#13
"
 1173  SYS 5681:
       PRINT "
INTERESSE AN#13
":
       SYS 5681:
       PRINT "
EINER EINMANN-#13
"
 1174  SYS 5681:
       PRINT "
SEGELJOLLE? 
";:
       GOSUB 970:
       IF U$ = "
N
" GOTO 1114
 1175 Z = 1E3:
       GOSUB 9000:
       SYS 5681
 1176  PRINT "
#99WILLKOMMEN#13
":
       SYS 5681:
       PRINT "
AN BORD, DEIN#13
":
       SYS 5681:
       PRINT "
SCHIFF LIEGT#13
"
 1178  SYS 5681:
       PRINT "
VOR DER STADT#13
":
       SYS 5681:
       PRINT "
VOR ANKER.%#13
"
 1180  POKE 49160,48:
       POKE 49164,35:
       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 - 15) / 15)):
       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:
       IF GP + Z > 5E4 THEN 
          Z = 5E4 - GP
 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) / 15)):
       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
 3000  PRINT "
ERER#13
":
       GOSUB 800:
       PRINT "
NAJA, EIGENT-#13
":
       SYS 5681:
       PRINT "
LICH BIN ICH#13
"
 3001  SYS 5681:
       PRINT "
EINE ADEPTIN.%#13
":
       GOTO 400
 3010  PRINT "
TIN#13
":
       GOSUB 800:
       PRINT "
ICH ÜBE DEN#13
":
       SYS 5681:
       PRINT "
DONNERKEIL-#13
"
 3011  SYS 5681:
       PRINT "
ZAUBERSPRUCH.%#13
":
       GOTO 400
 3020  PRINT "
ERKEIL#13
":
       GOSUB 800:
       PRINT "
EIN NÜTZLICHER#13
":
       SYS 5681:
       PRINT "
KAMPFZAUBER.#13
"
 3021  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 "
BEIM HEILER IST#13
":
       SYS 5681:
       PRINT "
DOCH NOCH EIN#13
"
 3034  SYS 5681:
       PRINT "
PLATZ FREI. SIEH#13
":
       SYS 5681:
       PRINT "
DICH DORT MAL#13
"
 3035  SYS 5681:
       PRINT "
UM.%#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 "
ICH WAR IN#13
":
       SYS 5681:
       PRINT "
ACKBAH. DORT#13
"
 3121  SYS 5681:
       PRINT "
FINDEST DU DIE#13
":
       SYS 5681:
       PRINT "
FÜNFTE TAFEL.%#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
 3202  IF X <  > 26 OR Y <  > 35 THEN 
           PRINT "
NICHTS.#13
":
       GOTO 100
 3204  PRINT "
EINE TONTAFEL:#13
":
       SYS 5681:
       SYS 5681:
       PRINT "
#81#1D#1D#1D#1D#1D#1D#12:#C3#C4;#13
"
 3206  SYS 5681:
       PRINT "
#1D#1D#1D#1D#1D#1D#12<#C5#C6=#13
":
       SYS 5681:
       SYS 5681:
       GOTO 100
 3300  PRINT "
#9D  #13
":
       SYS 5681:
       PRINT "
#9EMÖCHTEST DU#13
":
       SYS 5681:
       PRINT "
WORTHAL#13
"
 3301  SYS 5681:
       PRINT "
VERLASSEN?
";:
       GOSUB 970:
       IF U$ = "
N
" THEN 
          Y = Y - 1:
       GOTO 100
 6000  SYS 5681:
       PRINT "
#96DU VERLÄSST#13
":
       SYS 5681:
       PRINT "
DIE 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  POKE S + 4,0:
       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 
// -----------------------------

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,,KLEINER SCHILD,GROSSER SCHILD
50100  DATA -35,6500,11,17,1,6787,8,17,35,6820,11,21,-1,6780,11,21
    0