1 POKE 53281,0:
POKE 53280,0:
POKE 53272,18:
I = RND ( - TI):
S = 54272:
SYS 5454:
I = RND ( - TI)
2 POKE 51208,12:
POKE 51223,15:
POKE 51211,2:
POKE 51221,1:
POKE 51209,15:
POKE 51251,15
3 POKE 51228,8:
POKE 51307,1:
POKE 51219,1:
POKE 51205,8:
POKE 650,255:
POKE 51217,8
5 DIM W$(26):
FOR I = 0 TO 26:
READ W$(I):
NEXT :
DEF FN R(I) = INT (I * RND (TI) + 1)
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 = 7 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 = 16:
Y = 36:
P = 40720:
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:
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
261 IF J = 16 AND Y > 32 THEN
H = 3:
IF X > 20 THEN
H = 9
262 IF J = 110 THEN
H = 4
263 IF J = 111 THEN
H = 5
264 IF J = 16 AND Y < 9 THEN
H = 2
265 IF J = 16 AND Y > 15 AND Y < 19 THEN
H = 7
266 IF J = 114 THEN
H = 6
267 IF J = 18 THEN
H = 11
268 IF J = 28 THEN
H = 10
275 IF J = 34 THEN
H = 14
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 "DEN GASTWIRT#13
":
SYS 5681
285 IF H = 6 THEN
PRINT "EINEN WEISEN#13
":
SYS 5681:
PRINT "ALTEN MANN
";
286 IF H = 7 THEN
PRINT "EINEN MANN#13
":
SYS 5681
288 IF H = 9 THEN
PRINT "EINEN STALL-#13
";:
SYS 5681:
PRINT "BURSCHEN
";
289 IF H = 10 THEN
PRINT "EINEN DRUIDEN#13
":
SYS 5681
290 IF H = 11 THEN
PRINT "EINEN ZAUBERER#13
":
SYS 5681
291 IF H = 14 THEN
PRINT "EINE ALTE FRAU#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 H = 6 AND N$ = "GURU
" GOTO 1100
411 IF H = 6 AND N$ = "CHAR
" GOTO 1104
412 IF N$ = "OPEC
" GOTO 1120
413 IF N$ = "NAME
" THEN
PRINT "?#13
":
GOTO 820
414 IF N$ = "BERU
" GOTO 860
415 IF N$ = "FICK
" OR N$ = "PISS
" OR MID$ (N$,2) = "OTZ
" OR N$ = "ARSC
" OR N$ = "PORN
" GOTO 449
416 IF H = 7 AND N$ = "PROP
" GOTO 1122
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$ = "PFER
" GOTO 1200
423 IF H = 11 AND N$ = "ZAUB
" GOTO 3000
424 IF H = 11 AND N$ = "ADEP
" GOTO 3010
425 IF H = 11 AND N$ = "GEWA
" GOTO 3020
426 IF H = 11 AND N$ = "TAFE
" GOTO 3030
427 IF H = 10 AND N$ = "DRUI
" GOTO 3100
428 IF H = 10 AND N$ = "HELF
" GOTO 3110
429 IF H = 10 AND N$ = "TAFE
" GOTO 3120
430 IF H = 10 THEN
IF N$ = "KRIS
" OR N$ = "SPLI
" OR N$ = "BOES
" OR N$ = "GLEIC
" GOTO 3130
431 IF H = 14 AND N$ = "KRAE
" GOTO 2100
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 > 13 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 "WIRT#13
"
806 IF H = 6 THEN
PRINT "ALTE MANN#13
"
807 IF H = 7 THEN
PRINT "MANN#13
"
809 IF H = 9 THEN
PRINT "BURSCHE#13
"
810 IF H = 10 THEN
PRINT "DRUIDE#13
"
811 IF H = 11 THEN
PRINT "ZAUBERER#13
"
812 IF H = 14 THEN
PRINT "ALTE#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 "ABDULLAH
";
822 IF H = 3 THEN
SYS 5681:
PRINT "MUSTAFA
";
823 IF H = 4 THEN
SYS 5681:
PRINT "INFARKTUS
";
824 IF H = 5 THEN
PRINT "ALI
";
825 IF H = 6 THEN
SYS 5681:
PRINT "ÜSELGÜR
";
826 IF H = 7 THEN
SYS 5681:
PRINT "MOHAMMED
";
829 IF H = 9 THEN
SYS 5681:
PRINT "RACHIM
";
830 IF H = 10 THEN
SYS 5681:
PRINT "AHANK
";
831 IF H = 11 THEN
SYS 5681:
PRINT "CAMACH
";
832 IF H = 14 THEN
SYS 5681:
PRINT "FATMA
";
839 PRINT ".%#13
":
GOTO 400
840 GOSUB 800:
IF H = 1 THEN
PRINT "AUSGEZEICHNET,#13
":
SYS 5681:
PRINT "DANKE
";
841 IF H = 2 OR H = 3 THEN
PRINT "GANZ GUT
";
843 IF H = 4 THEN
PRINT "ICH FÜHLE MICH#13
":
SYS 5681:
PRINT "NATÜRLICH WOHL
";
844 IF H = 5 THEN
PRINT "MIR GEHEN GUT
";
845 IF H = 6 THEN
PRINT "ICH BIN ALT#13
":
SYS 5681:
PRINT "UND WEISE
";
846 IF H = 7 THEN
PRINT "ICH LEBE IN#13
":
SYS 5681:
PRINT "DEMUT
";
848 IF H = 9 THEN
PRINT "ICH HABE VIEL#13
":
SYS 5681:
PRINT "ZU TUN
";
849 IF H = 10 THEN
PRINT "ALLES KLAR
";
850 IF H = 11 THEN
PRINT "SO WEIT GUT
";
852 IF H = 14 THEN
PRINT "ICH BIN BLIND#13
":
SYS 5681:
PRINT "ABER ICH SEHE#13
":
SYS 5681:
PRINT "ALLES
";
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 KOCHEN GUT#13
":
SYS 5681:
PRINT "ESSEN
";
865 IF H = 6 THEN
PRINT "ICH BIN EIN#13
":
SYS 5681:
PRINT "WEISER GURU
";
866 IF H = 7 THEN
PRINT "ICH BIN EIN#13
":
SYS 5681:
PRINT "PROPHET#13
":
SYS 5681:
PRINT "MAHALAHS
";
867 IF H = 4 THEN
PRINT "ICH BIN EIN#13
":
SYS 5681:
PRINT "HEILER
";
868 IF H = 9 THEN
PRINT "ICH ZÜCHTE#13
":
SYS 5681:
PRINT "PFERDE
";
871 IF H = 14 THEN
PRINT "ICH BIN EIN#13
":
SYS 5681:
PRINT "KRÄUTERWEIB
";
872 IF H = 10 THEN
PRINT "ICH BIN EIN#13
":
SYS 5681:
PRINT "DRUIDE
";
873 IF H = 11 THEN
PRINT "ICH BIN EIN#13
":
SYS 5681:
PRINT "ZAUBERER
";
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 "TRINK 'N BIER
";
884 IF H = 6 THEN
PRINT "VIEL GLÜCK
";
889 IF H = 9 OR H = 10 THEN
PRINT "GUTE REISE
";
892 IF H = 14 OR H = 11 THEN
PRINT "MÖGE DIE MAGIE#13
":
SYS 5681:
PRINT "MIT DIR SEIN
";
895 IF H = 7 THEN
PRINT "OPECS SEGEN
":
SYS 5681:
PRINT "ÜBER DICH
";
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
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 "DU BIST HIER IN#13
":
SYS 5681:
PRINT "ACKBAH, DER#13
"
1002 SYS 5681:
PRINT "STADT IM HERZEN#13
":
SYS 5681:
PRINT "DER WÜSTE#13
":
SYS 5681:
PRINT "MOGHWA.#13
"
1003 SYS 5681:
PRINT "BIST DU EIN#13
":
SYS 5681:
PRINT "GLÄUBIGER?
";
1004 GOSUB 970:
IF U$ = "N
" THEN
PRINT "AUF UNGLÄUBIGE#13
":
SYS 5681:
PRINT "HABEN WIR EIN#13
"
1005 IF U$ = "N
" THEN
SYS 5681:
PRINT "BESONDERES#13
":
SYS 5681:
PRINT "AUGE.%#13
":
GOTO 400
1006 PRINT "OPEC SEI#13
":
SYS 5681:
PRINT "MIT DIR.%#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 "ICH MACHEN#13
";:
SYS 5681:
PRINT "LECKER KUSKUS#13
"
1041 SYS 5681:
PRINT "MIT KNOBLAUCH.#13
":
SYS 5681:
PRINT "WOLLEN KAUFEN#13
"
1042 SYS 5681:
PRINT "10 RATIONEN?
";
1043 GOSUB 970:
IF U$ = "N
" THEN
PRINT "ICH BELEIDIGT.%#13
":
GOTO 400
1044 Z = 14 - INT (CH / 1.6):
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
1100 PRINT " #13
":
GOSUB 800:
PRINT "JA, EIN GURU#13
":
SYS 5681:
PRINT "BRAUCHT VIEL#13
"
1102 SYS 5681:
PRINT "CHARME FÜR#13
":
SYS 5681:
PRINT "SEINE JÜNGER.%#13
":
GOTO 400
1104 PRINT "ISMA#13
":
GOSUB 800:
PRINT "SOLL ICH DICH#13
":
SYS 5681:
PRINT "MEHR CHARME#13
"
1106 SYS 5681:
PRINT "LEHREN?
";:
GOSUB 970
1108 IF U$ = "N
" THEN
PRINT "WENIG VOLLBRINGT#13
":
SYS 5681:
PRINT "MAN OHNE!%#13
":
GOTO 400
1110 IF CH = 18 THEN
PRINT "DU HAST SO VIEL#13
":
SYS 5681:
PRINT "CHARME WIE#13
"
1111 IF CH = 18 THEN
SYS 5681:
PRINT "ICH.%#13
":
GOTO 400
1112 J = PEEK (49287):
IF J = . THEN
PRINT "DAZU MUSST DU#13
":
SYS 5681:
PRINT "ERST NOCH ETWAS#13
"
1113 IF J = . THEN
SYS 5681:
PRINT "ERFAHRENER#13
":
SYS 5681:
PRINT "WERDEN.%#13
":
GOTO 400
1114 PRINT "GUT, ICH ZEIGE#13
":
SYS 5681:
PRINT "ES DIR...#13
":
SYS 5681:
FOR I = 0 TO 6:
SYS 6041
1115 POKE 53280,4:
POKE S + 5,74:
POKE S + 1, FN R(20) + 10:
POKE S + 4,21:
K = FN R(200) + 50
1116 POKE 53280,.:
FOR L = 0 TO K:
NEXT L,I:
POKE 49287,J - 1:
POKE 49227, PEEK (49227) + 1:
GOSUB 10000
1117 SYS 5681:
PRINT "DU HAST ES JETZT#13
":
SYS 5681:
PRINT "GELERNT.%#13
":
GOTO 400
1120 PRINT "#11#13
":
GOSUB 800:
PRINT "GEPRIESEN SEI#13
":
SYS 5681:
PRINT "OPEC, DER#13
"
1121 SYS 5681:
PRINT "ALLMÄCHTIGE GOTT#13
":
SYS 5681:
PRINT "DER WÜSTE.%#13
":
GOTO 400
1122 PRINT "HET#13
":
GOSUB 800:
PRINT "OPEC ERSCHIEN#13
":
SYS 5681:
PRINT "MIR IN MEINEM#13
"
1123 SYS 5681:
PRINT "TRAUM UND SAGTE,#13
":
SYS 5681:
PRINT "ICH SOLLE SEIN#13
"
1124 SYS 5681:
PRINT "WORT VERKÜNDEN.
":
GOSUB 960:
PRINT "ICH WAR FRÜHER#13
"
1126 SYS 5681:
PRINT "EIN GROSSER
":
SYS 5681:
PRINT "KRIEGER, ABER#13
"
1127 SYS 5681:
PRINT "ICH GAB DIESES
":
SYS 5681:
PRINT "LEBEN AUF. UND#13
"
1128 SYS 5681:
PRINT "ICH GAB S I E
":
SYS 5681:
PRINT "AUF...#13
"
1129 GOSUB 960:
PRINT "S I E WAR DIE
":
SYS 5681:
PRINT "SCHÖNSTE, EDEL-#13
"
1130 SYS 5681:
PRINT "STE, TREUESTE,#13
":
SYS 5681:
PRINT "BESTE UND DIE#13
":
SYS 5681:
PRINT "SCHÄRFSTE...#13
"
1131 GOSUB 960:
PRINT "...KLINGE, DIE#13
":
SYS 5681:
PRINT "ES JE GAB.#13
"
1132 SYS 5681:
PRINT "WILLST DU MEHR#13
":
SYS 5681:
PRINT "ÜBER SIE#13
":
SYS 5681:
PRINT "HÖREN?
";:
GOSUB 970
1133 IF U$ = "N
" THEN
PRINT "WIE DU WILLST.%#13
":
GOTO 400
1134 PRINT "IHR NAME IST#13
":
SYS 5681:
PRINT "SICARIA DRACONEM#13
":
SYS 5681:
PRINT "UND BEDEUTET DIE#13
"
1135 SYS 5681:
PRINT "DRACHENTÖTERIN.#13
":
GOSUB 960:
PRINT "ES IST EINE#13
"
1136 SYS 5681:
PRINT "SCHWINGE AUS#13
":
SYS 5681:
PRINT "REINEM GOLD,#13
"
1137 SYS 5681:
PRINT "VON EINEM BLIN-#13
":
SYS 5681:
PRINT "DEN ZYKLOPEN IN#13
"
1138 SYS 5681:
PRINT "LAVA GESCHMIEDET#13
":
SYS 5681:
PRINT "UND IN DRACHEN-#13
"
1139 SYS 5681:
PRINT "BLUT GEHÄRTET.#13
":
GOSUB 960:
PRINT "NICHTS WIDER-#13
"
1140 SYS 5681:
PRINT "STEHT IHR. ICH#13
":
SYS 5681:
PRINT "FÜHRTE SIE, ABER#13
"
1141 SYS 5681:
PRINT "ICH MUSS NUN DEN#13
":
SYS 5681:
PRINT "WEG DES FRIEDENS#13
"
1142 SYS 5681:
PRINT "GEHEN, UND SO#13
":
SYS 5681:
PRINT "VERGRUB ICH SIE.#13
"
1146 SYS 5681:
PRINT "ICH HÖRTE, DASS#13
":
SYS 5681:
PRINT "DU DIE WELT ZU#13
"
1147 SYS 5681:
PRINT "RETTEN VER-#13
":
SYS 5681:
PRINT "SUCHST?
";:
GOSUB 970
1148 IF U$ = "N
" THEN
PRINT "DU BIST NICHT#13
":
SYS 5681:
PRINT "WÜRDIG FÜR DIESE#13
"
1149 IF U$ = "N
" THEN
SYS 5681:
PRINT "WAFFE.%#13
":
GOTO 400
1150 PRINT "NUN, ICH GLAUBE,#13
":
SYS 5681:
PRINT "DIESE WAFFE#13
":
SYS 5681:
PRINT "KÖNNTE DIR VIEL#13
"
1151 SYS 5681:
PRINT "NUTZEN. WILLST#13
":
SYS 5681:
PRINT "DU WISSEN, WO#13
"
1152 SYS 5681:
PRINT "SIE RUHT?
";:
GOSUB 970:
IF U$ = "N
" THEN
PRINT "DANN NICHT.%#13
":
GOTO 400
1153 Z = 1500:
GOSUB 9000:
SYS 5681:
PRINT "#99DANKE, DIE KIN-#13
":
SYS 5681:
PRINT "DER MAHALAHS#13
"
1154 SYS 5681:
PRINT "WERDEN DIESE#13
":
SYS 5681:
PRINT "SPENDE ZU SCHÄT-#13
"
1155 SYS 5681:
PRINT "ZEN WISSEN. DIE#13
":
SYS 5681:
PRINT "ZAUBERSCHWINGE#13
"
1156 SYS 5681:
PRINT "IST AM ÖSTLICHEN#13
":
SYS 5681:
PRINT "ZIPFEL DER WÜSTE#13
"
1157 SYS 5681:
PRINT "MOGHWA VERGRABEN.#13
":
GOSUB 960:
PRINT "DU FINDEST SIE#13
"
1158 SYS 5681:
PRINT "BEI DER POSITION#13
":
SYS 5681:
PRINT "(D&M'/H&G').#13
"
1160 SYS 5681:
PRINT "NUR MIT IHR#13
":
SYS 5681:
PRINT "KANNST DU DEN#13
"
1162 SYS 5681:
PRINT "RIESENLINDWURM#13
":
SYS 5681:
PRINT "TÖTEN.%#13
":
GOTO 400
1200 PRINT "DE#13
":
GOSUB 800:
PRINT "JA, WIR WÜSTEN-#13
":
SYS 5681:
PRINT "SÖHNE VERSTEHEN#13
"
1202 SYS 5681:
PRINT "WAS DAVON. ICH#13
":
SYS 5681:
PRINT "VERKAUFE SIE#13
":
SYS 5681:
PRINT "AUCH. MÖCHTEST#13
"
1204 SYS 5681:
PRINT "DU EINES DIESER#13
":
SYS 5681:
PRINT "HERRLICHEN TIERE#13
"
1206 SYS 5681:
PRINT "ERWERBEN?
";:
GOSUB 970:
IF U$ = "N
" THEN
PRINT "SCHADE.%#13
":
GOTO 400
1208 IF GE < 9 THEN
PRINT "DU BIST ABER ZU#13
":
SYS 5681:
PRINT "UNGESCHICKT, UM#13
"
1210 IF GE < 9 THEN
SYS 5681:
PRINT "SIE ZU REITEN.%#13
":
GOTO 400
1220 Z = 320 - CH * 10:
GOSUB 9000:
SYS 5681:
PRINT "#99SUCH DIR EINES#13
":
SYS 5681:
PRINT "AUS
";
1222 X = 29:
Y = 36:
POKE 49158,255:
POKE 49162,255:
GOTO 897
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) / 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 "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 PRINT "BITTE 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 "DU HAST NUN
":
SYS 5681:
PRINT MID$ ( STR$ (J),2);
2124 PRINT " EINHEIT.
";:
IF J > 1 THEN
PRINT "#9DEN.#13
"
2125 GOSUB 10000:
SYS 5681:
PRINT "NOCH EINE?
";:
GOTO 2120
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 "GEWANDTHEIT-#13
"
3011 SYS 5681:
PRINT "ZAUBERSPRUCH.%#13
":
GOTO 400
3020 PRINT "NDHEIT#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 3026
3024 PRINT "GEH MAL ZUM#13
":
SYS 5681:
PRINT "WEISSEN#13
":
SYS 5681:
PRINT "ZIRKEL.#13
"
3026 GOSUB 960:
PRINT "NEBENBEI, WENN#13
":
SYS 5681:
PRINT "DU MAL NACH GAHT#13
"
3027 SYS 5681:
PRINT "KOMMST, RICHTE#13
":
SYS 5681:
PRINT "MEINEM KOLLEGEN#13
"
3028 SYS 5681:
PRINT "THELOM MEINEN#13
":
SYS 5681:
PRINT "GRUSS AUS UND#13
"
3029 SYS 5681:
PRINT "SAGE IHM DAS#13
":
SYS 5681:
PRINT "WORT 'GHOR'.%#13
":
GOTO 400
3030 PRINT "L#13
":
GOSUB 800:
PRINT "ICH HABE SIE#13
":
SYS 5681:
PRINT "INMITTEN DER#13
"
3031 SYS 5681:
PRINT "VIER DINGE#13
":
SYS 5681:
PRINT "VERSTECKT, DIE#13
"
3032 SYS 5681:
PRINT "IN DER WÜSTE AM#13
":
SYS 5681:
PRINT "WERTVOLLSTEN#13
"
3033 SYS 5681:
PRINT "SIND.#13
":
GOTO 3026
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 "DAMRASKAN. DORT#13
"
3121 SYS 5681:
PRINT "FINDEST DU DIE#13
":
SYS 5681:
PRINT "SECHSTE 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 < > 29 OR Y < > 20 THEN
PRINT "NICHTS.#13
":
GOTO 100
3204 PRINT "EINE TONTAFEL:#13
":
SYS 5681:
SYS 5681:
PRINT "#81#1D#1D#1D#1D#1D#1D#12:#B8#C7;#13
"
3206 SYS 5681:
PRINT "#1D#1D#1D#1D#1D#1D#12<#C8#C9=#13
":
SYS 5681:
SYS 5681:
GOTO 100
3300 PRINT "#9D #13
":
SYS 5681:
PRINT "#9EMÖCHTEST DU#13
":
SYS 5681:
PRINT "ACKBAH#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:
"
6015 IF X = 29 THEN
POKE 49157,2
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,6400,11,17,1,6800,3,17,35,6820,8,21,-1,6975,7,21
0