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 51307,1
3 POKE 650,255:
POKE 51219,1:
POKE 51224,1:
POKE 51228,8:
DEF FN R(X) = INT (X * RND (TI) + 1)
5 DIM W$(26):
FOR I = 0 TO 26:
READ W$(I):
NEXT :
POKE 51217,15:
POKE 6216,18:
POKE 6626,28
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
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
262 IF J = 110 THEN
H = 4
263 IF J = 111 THEN
H = 5
264 IF J = 16 AND X = 27 AND Y = 31 THEN
H = 6
265 IF J = 18 THEN
H = 7
267 IF J = 16 AND Y > 33 THEN
H = 9
268 IF J = 28 THEN
H = 10
269 IF J = 114 THEN
H = 16
274 IF J = 16 AND Y < 9 THEN
H = 3:
IF X > 15 THEN
H = 2
275 IF J = 34 THEN
H = 14
276 IF J = 30 THEN
H = 15
279 IF H = . THEN
PRINT "#96KEINE ANTWORT!#13
":
SYS 5681:
GOTO 100
280 SYS 5681:
PRINT "#9FDU SPRICHST#13
":
SYS 5681:
IF H = 1 THEN
PRINT "EINE WACHE
";
281 IF H = 2 THEN
PRINT "DEN RÜSTUNGS-#13
":
SYS 5681:
PRINT "MACHER
";
282 IF H = 3 THEN
PRINT "DEN WAFFEN-#13
":
SYS 5681:
PRINT "SCHMIED
";
283 IF H = 4 THEN
PRINT "EINEN HEILER#13
":
SYS 5681
284 IF H = 5 THEN
PRINT "DEN GASTWIRT#13
":
SYS 5681
285 IF H = 6 THEN
PRINT "EINEN JUNGEN#13
":
SYS 5681:
PRINT "ELFEN
";
286 IF H = 7 THEN
PRINT "EINEN ZAUBERER#13
":
SYS 5681
287 IF H = 10 THEN
PRINT "EINEN DRUIDEN#13
":
SYS 5681
288 IF H = 9 THEN
PRINT "EINEN STALL-#13
";:
SYS 5681:
PRINT "BURSCHEN
";
291 IF H = 14 THEN
PRINT "EINE ALTE FRAU#13
":
SYS 5681
295 IF H > 14 THEN
PRINT "EIN ELFENMÄDCHEN#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$ = "DIEB
" GOTO 1100
411 IF H = 15 AND N$ = "PRIN
" GOTO 1120
412 IF H = 15 AND N$ = "ELBE
" GOTO 1130
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 = 3 AND N$ = "ELBE
" AND PEEK (49264) = . GOTO 1140
417 IF H = 3 AND N$ = "THYR
" AND PEEK (49264) = . GOTO 1144
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$ = "EINH
" AND PEEK (49157) = 1 GOTO 1200
423 IF H = 7 AND N$ = "ZAUB
" GOTO 3000
424 IF H = 7 AND N$ = "ADEP
" GOTO 3010
425 IF H = 7 AND N$ = "ENTG
" GOTO 3020
426 IF H = 7 AND N$ = "TAFE
" GOTO 3030
427 IF H = 7 AND N$ = "GHOR
" GOTO 3034
428 IF H = 7 AND N$ = "CAMA
" GOTO 3035
429 IF H = 7 AND N$ = "ACKB
" GOTO 3036
430 IF H = 10 AND N$ = "DRUI
" GOTO 3100
431 IF H = 10 AND N$ = "HELF
" GOTO 3110
432 IF H = 10 AND N$ = "TAFE
" GOTO 3120
433 IF H = 10 THEN
IF N$ = "KRIS
" OR N$ = "SPLI
" OR N$ = "BOES
" OR N$ = "GLEI
" GOTO 3130
434 IF H = 16 AND N$ = "BARD
" GOTO 2200
436 IF H = 16 AND N$ = "LIED
" THEN
PRINT "ER#13
":
GOTO 2210
437 IF H = 16 AND N$ = "SING
" THEN
PRINT "E#13
":
GOTO 2210
438 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 "ELF#13
"
807 IF H = 7 THEN
PRINT "ZAUBERER#13
"
808 IF H = 10 THEN
PRINT "DRUIDE#13
"
809 IF H = 9 THEN
PRINT "BURSCHE#13
"
812 IF H = 14 THEN
PRINT "ALTE#13
"
815 IF H = 15 THEN
PRINT "ELFIN#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 "GARWIN
";
822 IF H = 3 THEN
SYS 5681:
PRINT "ELRIK
";
823 IF H = 4 THEN
SYS 5681:
PRINT "APOTHEKUS
";
824 IF H = 5 THEN
SYS 5681:
PRINT "ELROND
";
825 IF H = 6 THEN
SYS 5681:
PRINT "QUESTOR
";
826 IF H = 7 THEN
SYS 5681:
PRINT "THELOM
";
827 IF H = 10 THEN
SYS 5681:
PRINT "BENNT
";
829 IF H = 9 THEN
SYS 5681:
PRINT "ANATOL
";
832 IF H = 14 THEN
SYS 5681:
PRINT "CHREOLA
";
836 IF H = 15 THEN
SYS 5681:
PRINT "THYRA
";
837 IF H = 16 THEN
SYS 5681:
PRINT "IJALE
";
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 OR H = 16 THEN
PRINT "ICH BIN GANZ#13
":
SYS 5681:
PRINT "ZUFRIEDEN
";
845 IF H = 6 THEN
PRINT "MAN SCHLÄGT#13
":
SYS 5681:
PRINT "SICH SO DURCH
";
846 IF H = 7 THEN
PRINT "AUSGEZEICHNET
";
847 IF H = 10 THEN
PRINT "DANKE
";
848 IF H = 9 THEN
PRINT "ICH HABE VIEL#13
":
SYS 5681:
PRINT "ZU TUN
";
852 IF H = 14 THEN
PRINT "ICH BIN BLIND#13
":
SYS 5681:
PRINT "ABER ICH SEHE#13
":
SYS 5681:
PRINT "ALLES
";
855 IF H = 15 THEN
PRINT "ICH HABE EIN#13
":
SYS 5681:
PRINT "WENIG WEIN GE-#13
":
SYS 5681:
PRINT "TRUNKEN
";
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 BEDIENE UND#13
":
SYS 5681:
PRINT "MACH'S ESSEN
";
865 IF H = 6 THEN
PRINT "ICH BIN EIN#13
":
SYS 5681:
PRINT "GEWANDTER DIEB
";
866 IF H = 7 THEN
PRINT "ICH BIN EIN#13
":
SYS 5681:
PRINT "ZAUBERER
";
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 "EINHÖRNER
";
869 IF H = 10 THEN
PRINT "ICH BIN EIN#13
":
SYS 5681:
PRINT "DRUIDE
";
870 IF H = 16 THEN
PRINT "ICH BIN EINE#13
":
SYS 5681:
PRINT "BARDIN
";
871 IF H = 14 THEN
PRINT "ICH BIN EIN#13
":
SYS 5681:
PRINT "KRÄUTERWEIB
";
875 IF H = 15 THEN
PRINT "ICH BIN DIE#13
":
SYS 5681:
PRINT "PRINZESSIN DER
";:
SYS 5681:
PRINT "ELFEN
";
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 OR H = 16 THEN
PRINT "VIEL GLÜCK
";
885 IF H = 10 THEN
PRINT "HANDLE WEISE
";
889 IF H = 9 THEN
PRINT "GUTE REISE
";
892 IF H = 14 OR H = 7 THEN
PRINT "MÖGE DIE MAGIE#13
":
SYS 5681:
PRINT "MIT DIR SEIN
";
895 IF H = 15 THEN
PRINT "ICH WILL, DASS#13
":
SYS 5681:
PRINT "WIEDER DIE SONNE#13
":
SYS 5681:
896 IF H = 15 THEN
PRINT "SCHEINT. RETTE#13
":
SYS 5681:
PRINT "UNSERE WELT
";
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 IST GAHT,#13
":
SYS 5681:
PRINT "DIE STADT DER#13
"
1002 SYS 5681:
PRINT "ELFEN. BIST DU#13
":
SYS 5681:
PRINT "AUCH EIN ELF?
";
1003 GOSUB 970:
IF U$ = "N
" THEN
PRINT "FREMDE SEHEN WIR#13
":
SYS 5681:
PRINT "HIER NICHT#13
"
1004 IF U$ = "N
" THEN
SYS 5681:
PRINT "GERN.%#13
":
GOTO 400
1005 PRINT "DAS GLAUBE ICH#13
":
SYS 5681:
PRINT "DIR NICHT. DU#13
"
1006 SYS 5681:
PRINT "BIST DOCH EIN#13
":
SYS 5681:
PRINT "MENSCH.%#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 BEREITE DIE#13
";:
SYS 5681:
PRINT "KÖSTLICHEN SPE-#13
"
1041 SYS 5681:
PRINT "ZIALITÄTEN DER#13
":
SYS 5681:
PRINT "ELFEN ZU. WIE#13
"
1042 SYS 5681:
PRINT "WÄR'S MIT ZEHN#13
":
SYS 5681:
PRINT "RATIONEN?
";
1043 GOSUB 970:
IF U$ = "N
" THEN
PRINT "DANN LASS ES.%#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 "NOCH EINS?
";:
GOTO 1043
1100 PRINT " #13
":
GOSUB 800:
PRINT "JA, WIR ELFEN#13
":
SYS 5681:
PRINT "SIND BERÜHMT FÜR#13
"
1102 SYS 5681:
PRINT "UNSERE GESCHICK-#13
":
SYS 5681:
PRINT "LICHKEIT.#13
"
1104 GOSUB 960:
PRINT "SOLL ICH DIR#13
":
SYS 5681:
PRINT "ZEIGEN, WIE MAN#13
"
1106 SYS 5681:
PRINT "GESCHICKTER#13
":
SYS 5681:
PRINT "WIRD?
";:
GOSUB 970
1108 IF U$ = "N
" THEN
PRINT "DU WIRST ES ABER#13
":
SYS 5681:
PRINT "BRAUCHEN!%#13
":
GOTO 400
1110 IF GE = 18 THEN
PRINT "DU BIST SCHON SO#13
":
SYS 5681:
PRINT "GESCHICKT WIE#13
":
SYS 5681:
PRINT "ICH.%#13
"
1111 IF GE = 18 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 "ALSO GUT, LASS#13
":
SYS 5681:
PRINT "UNS ÜBEN...#13
":
SYS 5681:
FOR I = 0 TO 6:
SYS 6041
1115 POKE 53280,13:
POKE S + 5,74:
POKE S + 1, FN R(20) + 10:
POKE S + 4,33:
K = FN R(200) + 50
1116 POKE 53280,.:
FOR L = 0 TO K:
NEXT L,I:
POKE 49287,J - 1:
POKE 49225, PEEK (49225) + 1:
GOSUB 10000
1117 SYS 5681:
PRINT "SO, NUN BIST DU#13
":
SYS 5681:
PRINT "GESCHICKTER.%#13
":
GOTO 400
1120 PRINT "ZESSIN#13
":
GOSUB 800:
PRINT "ICH BIN DIE#13
":
SYS 5681:
PRINT "TOCHTER DER#13
"
1121 SYS 5681:
PRINT "ELFENKÖNIGIN#13
":
SYS 5681:
PRINT "MITHRA. KENNST#13
":
SYS 5681:
PRINT "DU SIE?
";
1122 GOSUB 970:
PRINT "SIE IST EINE#13
":
SYS 5681:
PRINT "GROSSE KÖNIGIN.
";:
IF U$ = "J
" THEN
PRINT "%#13
":
GOTO 400
1123 SYS 5681:
PRINT "SIE HAT DEN#13
":
SYS 5681:
PRINT "ELBENBOGEN ANGE-#13
":
SYS 5681:
PRINT "FERTIGT.%#13
"
1124 GOTO 400
1130 PRINT "NBOGEN#13
":
GOSUB 800:
PRINT "DAS IST EIN MA-#13
":
SYS 5681:
PRINT "GISCHER BOGEN,#13
"
1131 SYS 5681:
PRINT "DESSEN PFEILE#13
":
SYS 5681:
PRINT "JEDES HINDERNIS#13
"
1132 SYS 5681:
PRINT "DURCHSCHLAGEN.#13
":
SYS 5681:
PRINT "ELRIK BEWAHRT#13
":
SYS 5681:
PRINT "IHN AUF.%#13
"
1133 GOTO 400
1140 PRINT "NBOGEN#13
":
GOSUB 800:
PRINT "WER HAT DICH ZU#13
":
SYS 5681:
PRINT "MIR GESHICKT?%#13
":
GOTO 400
1144 PRINT "A#13
":
GOSUB 800:
PRINT "HM, ICH SOLL#13
":
SYS 5681:
PRINT "DEN ELBENBOGEN#13
"
1145 SYS 5681:
PRINT "EIGENTLICH AUF-#13
":
SYS 5681:
PRINT "BEWAHREN, ABER#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 "ICH KÖNNTE DIR#13
"
1151 SYS 5681:
PRINT "DEN BOGEN GEBEN.#13
":
SYS 5681:
PRINT "WILLST DU IHN#13
"
1152 SYS 5681:
PRINT "KAUFEN?
";:
GOSUB 970:
IF U$ = "N
" THEN
PRINT "DANN NICHT.%#13
":
GOTO 400
1153 Z = 1E3:
GOSUB 9000:
SYS 5681:
PRINT "ER SEI DEIN!#13
":
POKE 49264,1:
GOTO 400
1200 PRINT "ÖRNER#13
":
GOSUB 800:
PRINT "JA, WIR ELFEN#13
":
SYS 5681:
PRINT "BENUTZEN SIE ALS#13
"
1202 SYS 5681:
PRINT "REITTIERE. 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 < 12 THEN
PRINT "DU BIST ABER ZU#13
":
SYS 5681:
PRINT "UNGESCHICKT, UM#13
"
1210 IF GE < 12 THEN
SYS 5681:
PRINT "SIE ZU REITEN.%#13
":
GOTO 400
1220 Z = 900 - CH * 25:
GOSUB 9000:
SYS 5681:
PRINT "#99SUCH DIR EINES#13
":
SYS 5681:
PRINT "AUS
";
1222 X = 6:
Y = 36:
POKE 49159,255:
POKE 49163,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 TOTENBLUME#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:
K = 5
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
2200 PRINT "IN#13
":
GOSUB 800:
PRINT "ICH SINGE#13
":
SYS 5681:
PRINT "LIEDER.%#13
":
GOTO 400
2210 GOSUB 800:
PRINT "SOLL ICH DIR#13
":
SYS 5681:
PRINT "MAL ETWAS#13
":
SYS 5681:
PRINT "VORSINGEN?
";:
GOSUB 970
2212 IF U$ = "N
" THEN
PRINT "WIE DU MEINST.%#13
":
GOTO 400
2214 PRINT "ICH HATTE MAL#13
":
SYS 5681:
PRINT "'NE FLÖTE#13
"
2216 SYS 5681:
SYS 5681:
PRINT "DAS WAR 'NE#13
":
SYS 5681:
PRINT "TOLLE TRÖTE#13
"
2218 SYS 5681:
SYS 5681:
PRINT "SIE WAR GEMACHT#13
":
SYS 5681:
PRINT "AUS GLAS#13
"
2220 SYS 5681:
SYS 5681:
PRINT "WESHALB SIE ZAU-#13
":
SYS 5681:
PRINT "BERKRAFT BESASS#13
"
2222 GOSUB 960:
PRINT "WENN ICH SIE#13
":
SYS 5681:
PRINT "LIESS ERKLINGEN#13
"
2224 SYS 5681:
SYS 5681:
PRINT "BEGANN KRISTALL#13
":
SYS 5681:
PRINT "ZU SCHWINGEN#13
"
2226 SYS 5681:
SYS 5681:
PRINT "UND DER HEILIGE#13
":
SYS 5681:
PRINT "KRISTALL#13
"
2228 SYS 5681:
SYS 5681:
PRINT "SCHICKT MEIN#13
":
SYS 5681:
PRINT "LIED DURCH'S ALL#13
"
2230 GOSUB 960:
PRINT "ALS DER KRISTALL#13
":
SYS 5681:
PRINT "ZERBRACH#13
"
2232 SYS 5681:
SYS 5681:
PRINT "LIESS AUCH SEIN#13
":
SYS 5681:
PRINT "SCHWINGEN NACH#13
"
2234 SYS 5681:
SYS 5681:
PRINT "NUR DER SPLITTER#13
":
SYS 5681:
PRINT "KLANG NOCH SO#13
"
2236 SYS 5681:
SYS 5681:
PRINT "ALS WÄRE ER NOCH#13
":
SYS 5681:
PRINT "HOFFNUNGSFROH#13
"
2238 GOSUB 960:
PRINT "DOCH DAS IST#13
":
SYS 5681:
PRINT "SCHON LANGE HER#13
"
2240 SYS 5681:
SYS 5681:
PRINT "UND DIE FLÖTE#13
":
SYS 5681:
PRINT "GIBTS NICHT MEHR#13
"
2242 SYS 5681:
SYS 5681:
PRINT "HÄTTEST DU SIE
":
SYS 5681:
PRINT "KÖNNT'S GELINGEN#13
"
2243 SYS 5681:
SYS 5681:
PRINT "DEN SPLITTER AN
":
SYS 5681:
PRINT "DICH ZU BRINGEN#13
"
2244 GOSUB 960:
PRINT "HAT DIR MEIN#13
":
SYS 5681:
PRINT "KLEINES LIED#13
":
SYS 5681:
PRINT "GEFALLEN?
";
2245 GOSUB 970:
IF U$ = "N
" GOTO 2212
2246 PRINT "ES IST ALLES#13
":
SYS 5681:
PRINT "WAHR. DIE FLÖTE#13
"
2247 SYS 5681:
PRINT "IST MIR JEDOCH#13
":
SYS 5681:
PRINT "GESTOHLEN WORDEN#13
"
2248 SYS 5681:
PRINT "ALS ICH EINMAL#13
":
SYS 5681:
PRINT "IN MUBRAK WAR.%#13
":
GOTO 400
3000 PRINT "ERER#13
":
GOSUB 800:
PRINT "NAJA, EIGENT-#13
":
SYS 5681:
PRINT "LICH BIN ICH#13
"
3001 SYS 5681:
PRINT "NOCH EIN ADEPT.%#13
":
GOTO 400
3010 PRINT "T#13
":
GOSUB 800:
PRINT "ICH ÜBE DEN#13
":
SYS 5681:
PRINT "ENTGIFTUNGS-#13
"
3011 SYS 5681:
PRINT "ZAUBERSPRUCH.%#13
":
GOTO 400
3020 PRINT "IFTUNG#13
":
GOSUB 800:
PRINT "EIN ZAUBER#13
":
SYS 5681:
PRINT "GEGEN GIFT.#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 "WEISSEN#13
":
SYS 5681:
PRINT "ZIRKEL.%#13
":
GOTO 400
3030 PRINT "L#13
":
GOSUB 800:
PRINT "HM, ICH BIN#13
":
SYS 5681:
PRINT "NEU HIER UND#13
"
3031 SYS 5681:
PRINT "KENNE DICH#13
":
SYS 5681:
PRINT "NICHT. ICH#13
"
3032 SYS 5681:
PRINT "GLAUBE NICHT,#13
":
SYS 5681:
PRINT "DASS ICH DIR DAS#13
"
3033 SYS 5681:
PRINT "SAGEN DARF.%#13
":
GOTO 400
3034 PRINT " #13
":
GOSUB 800:
PRINT "WER HAT DICH#13
":
SYS 5681:
PRINT "GESCHICKT?%#13
":
GOTO 400
3035 PRINT "CH#13
":
GOSUB 800:
PRINT "WO IST ER#13
":
SYS 5681:
PRINT "JETZT?%#13
":
GOTO 400
3036 PRINT "AH#13
":
GOSUB 800:
PRINT "GUT, ICH DENKE,#13
":
SYS 5681:
PRINT "ICH KANN DIR#13
"
3037 SYS 5681:
PRINT "VERRATEN, DASS#13
":
SYS 5681:
PRINT "DIE TAFEL IN DER#13
"
3038 SYS 5681:
PRINT "NORDÖSTLICHEN#13
":
SYS 5681:
PRINT "ECKE DER STADT#13
":
SYS 5681:
PRINT "LIEGT.%#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 "GEH' MAL NACH#13
":
SYS 5681:
PRINT "WORTHAL. DORT#13
"
3121 SYS 5681:
PRINT "FINDEST DU DIE#13
":
SYS 5681:
PRINT "DRITTE 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 < > 32 OR Y < > 2 THEN
PRINT "NICHTS.#13
":
GOTO 100
3204 PRINT "EINE TONTAFEL:#13
":
SYS 5681:
SYS 5681:
PRINT "#81#1D#1D#1D#1D#1D#1D#12:>?;#13
"
3206 SYS 5681:
PRINT "#1D#1D#1D#1D#1D#1D#12<#AE#AF=#13
":
SYS 5681:
SYS 5681:
GOTO 100
3300 PRINT "#9D #13
":
SYS 5681:
PRINT "#9EMÖCHTEST DU#13
":
SYS 5681:
PRINT "DIE STADT GAHT#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 = 6 THEN
POKE 49157,3
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,8,17,1,6800,11,17,35,6820,8,21,-1,6975,11,21
0