DIM ri$(6), r$(35), d(35, 6), v$(12), ob$(45), rn$(45), ob(45)

CLS
PRINT
PRINT
PRINT TAB(9); "Pacy-Face und seine Abenteuer";
PRINT
PRINT
PRINT
PRINT "Januar 1985, von Philipp Koehn geschrieben"
PRINT "PC Uebersetzung Dezember 1993 von Bob Newell"
PRINT "   (mit ein paar kleinen Aenderungen)"
PRINT
PRINT "------------------------------------"
SLEEP 3
av = 12
ao = 43
ar = 24
am = 4
FOR x = 1 TO ao
READ ob$(x)
READ rn$(x)
READ ob(x)
NEXT x
FOR x = 1 TO ar
READ r$(x)
FOR y = 1 TO 6
READ d(x, y)
NEXT y
NEXT x
FOR x = 1 TO av
READ v$(x)
NEXT x
FOR x = 1 TO 6
READ ri$(x)
NEXT x
FOR x = 1 TO am
READ m$(x)
NEXT x

DATA "mehrere maenner","maenner",1
DATA "eine flasche bier","bier",1
DATA "viele haeuser","haeuser",2
DATA "wenige menschen","menschen",2
DATA "viele haeuser","haeuser",3
DATA "ein alter mann","mann",3
DATA "parole","parole",0
DATA "viele haeuser","haeuser",4
DATA "einen brutalen waechter", "waechter",4
DATA "einzelne tannen", "tannen", 5
DATA "ein schloss", "schloss", 5
DATA "ein paar buesche", "buesche", 6
DATA "einen kleinen spiegel", "spiegel", 7
DATA "einen kleiderstaender", "kleiderstaender", 7
DATA "ein zuckerglas", "zuckerglas", 8
DATA "ein tisch", "tisch", 8
DATA "einen *rubin*", "rubin", 0
DATA "ein stuhl", "stuhl", 9
DATA "ein tisch", "tisch", 9
DATA "ein tisch", "tisch", 11
DATA "buecher", "buecher", 10
DATA "viele baeumchen", "baeumchen", 12
DATA "viele fichten", "fichten", 13
DATA "einige baeume", "baeume", 14
DATA "viele eichen", "eichen", 15
DATA "eine senke", "senke", 15
DATA "einen *smaragden*", "smaragd", 0
DATA "vereinzelte straeucher",  straeucher", 16
DATA "wasser", "wasser", 17
DATA "algen im see", "algen", 17
DATA "einen wegweiser", "wegweiser", 18
DATA "den beruechtigten trollenkoenig", "trollenkoenig", 19
DATA "einige trolle", "trolle" ,19
DATA "einige elfen", "elfen", 20
DATA "mehrere elfenhoehlen", "hoehlen", 20
DATA "den elfenkoenig", "elfenkoenig", 21
DATA "einen weisen spruch", "spruch", 0
DATA "einen *saphir*", "saphir", 0
DATA "ein paar kleine huetten", "huetten", 22
DATA "einen prunkvollen palast", "palast", 23
DATA "viele *graphiten*", "graphiten", 23
DATA "einen traurigen gulliver", "gulliver", 24
DATA "einen *graphit*", "graphit", 0

REM Orte und Verbindungen

DATA "in einer Schenke.",  4,2,0,0,0,0
DATA "auf einer Strasse.",30,3,0,1,0,0
DATA "in einer Sackgasse.", 0,0,0,2,0,0
DATA "vor dem Stadttor.",0,0,1,0,0,0
DATA "auf einem Weg.", 16,6,4,12,0,0
DATA "vor einem Schloss.",0,7,0,5,0,0
DATA "im portal des Schlosses.",32,9,10,6,0,0
DATA "im Speiseraum des Schlosses.",0,0,9,32,0,0
DATA "in der Kueche des Schlosses.",8,0,11,7,0,0
DATA "in einer Biblothek." , 7,11,0,0,0,0
DATA "in einem Arbeitszimmer.",9, 0,0,10,0,0
DATA "an einem Waldrand.",15,5,33,13,34,0
DATA "im Wald.",14,12,33,33,34,0
DATA "in einer Lichtung. Im Norden sehe ich ein Haus.", 35,15,13,33,34,0
DATA "in einem Laubwald.",33,33,12,14,34,0
DATA "auf einem Weg.",18,17,5,0,0,0
DATA "an einem See.",  0,0,0,16,0,0
DATA "auf dem Weg.",20,19,16,22,0,0
DATA "im Trollenreich " , 36,36,36,36,0,0
DATA "im Elfenreich",21,0,18,0,0,0
DATA "beim Elfenkoenig.", 0,0,20,0,0,0
DATA "in der Zwergenstadt",23,18,0,24,0,0
DATA "im Zwergenpalast",0,0,22,0,0,0
DATA "bei Gulliver.",  0,22,0,0,0,0

REM Verben

DATA "nimm","lege","frage","sage","untersuche","trinke","oeffne"
DATA "verben","liste","save","load", "quit"

REM Richtungen

DATA "norden","osten","sueden","westen","oben","unten"

REM Phrasen

DATA "Tut mir leid, aber so stark bin ich nicht."
DATA "Ich mag dumm sein, aber ich verstehe nicht was du meinst."
DATA "Wie stellst du dir das vor?!"
DATA "Auch hier hat das Waldsterben schon um sich gegriffen."

CLS
INPUT "Anleitung (j/n)"; e$
IF e$ = "n" THEN 31

CLS
s$ = "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
PRINT s$
PRINT "Du hast in einer Schenke vier Maenner"'
PRINT "belauscht, die von einem Schatz sprachen, der in der Umgebung ";
PRINT " versteckt sei.  Deine Aufgabe ist: finde diesen Schatz! "
18 PRINT "Aber keine Angst; ich, Pacy-Face, helfe";
PRINT " dir bei dieser schweren Aufgabe. ";
PRINT "Der Schatz besteht aus vier Edelsteinen.";
PRINT "Am Anfang befindest du dich in dieser Schenke (vor einem Glas Bier)."
PRINT
PRINT s$
PRINT
PRINT "Weitere Anweisungen (j/n)"
19 INPUT a$
IF a$ = "n" THEN 31
20 IF a$ <> "j" THEN 19
CLS
21 PRINT s$
PRINT "Auf dem Bildschirm steht jedesmal"
PRINT "1. Der Ort.  Hier wird dir gesagt wo du dich befindest."
PRINT "2. Die Besonderheiten.  Ich, Pacy-Face"
PRINT "   mache dich hier darauf aufmerksam, was"
PRINT "   ich im Blickfeld habe. {Ich sehe...} "
PRINT "                           Sehe ich 'nichts', steht hier:"
PRINT "                           Ich sehe nichts besonderes."
PRINT "3. Die Durchgaenge        {Ich kann nach...}"
PRINT "   Hier schreibe hin ich, in welche Him-"
PRINT "   melsrichtungen (eventuell auch oben"
PRINT "   und unten) ich mich bewegen kann."
PRINT "   Bewegen kannst du mich durch die Be-"
PRINT "   fehle n(norden), s(sueden), o(osten),"
PRINT "   w(westen), ob(oben) und u(unten)."
PRINT
PRINT s$
INPUT "Bitte ENTER druecken "; a$
PRINT s$
PRINT "Wenn du wissen willst, welche Verben ich"
PRINT "verstehe, kannst du hinter die Anweisung"
PRINT "'Was soll ich tun?' das wort 'verben'"
PRINT "setzen. Der Befehl 'liste' ist dazu gut,"
PRINT "alle Gegenstaende, die du besitzt, auf dem"
PRINT "Bildschirm aufzulisten. Zu den 'Service"
PRINT "-Befehlen' gehoeren auch noch 'save'"
PRINT "(zum Abspeichern des Spielstandes) und"
PRINT "'load' (zum Laden des abgespeicherten"
PRINT "Spielstandes), sowie 'quit', um das Spiel zu beenden."
PRINT "Die Befehle 'sage', 'frage', 'untersu-"
PRINT "che', 'oeffne', 'trinke' und 'lege' duerften klar sein."
PRINT "Zu dem Befehl 'nimm' muss ich noch sa-"
PRINT "gen, dass nicht alle Gegenstaende ge-"
PRINT "nommen werden koennen, weil das oft,"
PRINT "wie zum Beispiel 'nimm maenner', un-"
PRINT "logisch ist."
PRINT s$
28 INPUT "Bitte ENTER druecken "; a$
29 CLS
PRINT s$
PRINT "Wichtig ist:"
PRINT TAB(4); "Zu einem normalen Befehl gehoert"
PRINT TAB(7); "ein Verb und ein Substantiv"
PRINT TAB(80); s$
30 INPUT "Bitte ENTER druecken "; a$
31 s = 1
zz = 0
32 IF s >= 30 THEN 66
33 CLS
PRINT "Ich bin "; r$(s)
PRINT "Ich sehe ";
g = 0
FOR i = 1 TO ao
IF ob(i) <> s THEN 38
34 g = 1
35 PRINT ob$(i)
38 NEXT i
IF g = 0 THEN PRINT "nichts besonderes. ";
39 PRINT
PRINT "Ich kann nach ";
FOR i = 1 TO 6
IF d(s, i) = 0 THEN 44
40 PRINT ri$(i), " ";
44 NEXT i
PRINT "."
IF s = 19 AND ob(38) = 0 THEN PRINT "Der Trollenkoenig will einen Spruch von"
45 IF s = 19 AND ob(38) = 0 THEN PRINT "mir hoeren."
46 PRINT "---------------------------------------"
47    IF s >= 30 THEN 66
48 IF ob(17) = -1 AND ob(27) = -1 AND ob(38) = -1 AND ob(43) = -1 THEN 188
49 INPUT "Was soll ich tun"; e$
zz = zz + 1
IF LEN(e$) > 2 THEN 57
50 IF e$ = "n" AND d(s, 1) <> 0 THEN
s = d(s, 1)
GOTO 32
END IF
51 IF e$ = "o" AND d(s, 2) <> 0 THEN
s = d(s, 2)
GOTO 32
END IF
52 IF e$ = "s" AND d(s, 3) <> 0 THEN
s = d(s, 3)
GOTO 32
END IF
53 IF e$ = "w" AND d(s, 4) <> 0 THEN
s = d(s, 4)
GOTO 32
END IF
54 IF e$ = "ob" AND d(s, 5) <> 0 THEN
s = d(s, 5)
GOTO 32
END IF
55 IF e$ = "u" AND d(s, 6) <> 0 THEN
s = d(s, 6)
GOTO 32
END IF
56 PRINT "Dahin fuert kein Weg!"
GOTO 47
PRINT "Achtung"; b$
GOTO 47
57 ln = LEN(e$)
FOR el = 1 TO ln
t$ = MID$(e$, el, 1)
IF t$ = " " THEN 58
NEXT el
58 ev$ = LEFT$(e$, el - 1)
rl = ln - el
IF rl < 0 THEN 60
59 eo$ = RIGHT$(e$, rl)
60 FOR vn = 1 TO av
IF ev$ = v$(vn) THEN 62
61 NEXT vn
PRINT "Das Verb verstehe ich nicht!"
GOTO 47
62 FOR o = 1 TO ao
IF eo$ = "" THEN 65
63 IF eo$ = rn$(o) OR eo$ = ob$(o) THEN 65
64 NEXT o
PRINT "Ich verstehe das Objekt nicht!"
GOTO 47
65 ON vn GOTO 78, 87, 90, 105, 121, 172, 177, 180, 181, 183, 186, 67
66 CLS
ON s - 29 GOSUB 68, 69, 70, 71, 72, 73, 74, 75, 76
PRINT
PRINT
PRINT "Aus Trauer hast du Selbstmord veruebt."
PRINT
PRINT
PRINT
PRINT "Willst du es noch einmal versuchen (j/n)"
INPUT e$
IF e$ = "j" THEN RUN
67 PRINT "Auf Wiedersehen wuenscht Pacy-Face!"
SYSTEM
68 PRINT "Ich bin in schlechte Haende geraten. Nun bin ich tot!"
RETURN
69 PRINT "Die Maenner schlugen mich aus Veraer-"
PRINT "gerung, dass ich sie belauscht habe, tot.";
RETURN
70 PRINT "Ein Geist ueberraschte mich und aus"
PRINT "Aerger, dass ich sein Schlafzimmer be-"
PRINT "treten habe, folterte er mich zu Tode."
RETURN
71 PRINT "Ich habe mich im Wald verirrt und bin"
PRINT "elend zugrunde gegangen."
RETURN
72 PRINT "Als ich im Baumwipfel angekommen war,"
PRINT "wollte ich wieder hinabsteigen. Was"
PRINT "mir aber misslang."
RETURN
73 PRINT "In dem Haus wohnte leider eine Hexe,"
PRINT "die nur darauf wartete, mich zu braten."
PRINT "Ich habe ihr gut geschmeckt."
RETURN
74 PRINT "Der Koenig liess mich, weil ich fliehen"
PRINT "wollte, hinrichten."
RETURN
75 PRINT "Der See war vergiftet. Du konntest mir"
PRINT "nicht mehr helfen."
RETURN
76 PRINT "Ich wurde beim Stehlen erwischt und"
PRINT "von Tausenden von Speeren niederge-"
PRINT "metzelt."
RETURN
78 IF ob(o) <> s THEN 86
79 IF o = 1 OR o = 3 OR o = 4 OR o = 5 OR o = 6 OR o = 8 OR o = 9 THEN
PRINT m$(1)
GOTO 47
END IF
80 IF o = 10 OR o = 11 OR o = 12 OR o = 14 OR o = 16 OR o = 18 OR o = 19 OR o = 20 THEN
PRINT m$(1)
GOTO 47
END IF
81 IF o >= 21 AND o <= 26 THEN
PRINT m$(1)
GOTO 47
END IF
82 IF o >= 28 AND o <= 40 THEN
PRINT m$(1)
GOTO 47
END IF
83 IF o > 41 THEN
PRINT m$(1)
84 IF o = 41 THEN s = 38
GOTO 66
85 PRINT "Ok."
ob(o) = -1
PRINT m$(2)
GOTO 47
86 PRINT "Das sehe ich hier nicht."
GOTO 47
END IF
87 IF ob(o) <> -1 THEN 89
88 PRINT "ok."
ob(o) = s
GOTO 47
PRINT m$(2)
89 PRINT "Das habe ich nicht."
GOTO 47
90 IF ob(o) <> s THEN 104
91 IF o = 1 THEN
s = 31
GOTO 47
END IF
92 IF o = 4 THEN
PRINT "Sie ruepelten mich nur an."
GOTO 47
END IF
93 IF o = 6 THEN
PRINT "Er sagte mir eine Parole, die den waech-"
PRINT "ter des Stadttores dazu veranlasst, mich "
PRINT "aus der Stadt zu lassen."
ob(7) = -1
GOTO 47
END IF
96 IF o = 9 THEN
PRINT "Er will die Parole wissen."
GOTO 47
END IF
97 IF o = 32 THEN
PRINT "Er will einen weisen Spruch von mir hoeren."
GOTO 47
END IF
98 IF o = 33 THEN
PRINT "Sie schweigen."
GOTO 47
END IF
99 IF o = 34 THEN
PRINT "Sie sagen mir "; ob$(37)
ob(37) = -1
GOTO 47
END IF
100 IF o = 36 THEN
PRINT "Er heisst mich im Elfenreich willkommen.";
GOTO 47
END IF
101 IF o = 42 THEN
PRINT "Er sagt, er sei betruebt und will nach"
102 IF o = 42 THEN
PRINT "Hause in die Stadt. Er fragt mich um Rat"
GOTO 47
END IF
103 PRINT m$(3)
GOTO 47
END IF
104 PRINT "Das sehe ich hier nicht."
GOTO 47
105 IF ob(o) <> -1 THEN 120
106 IF o = 1 OR o = 2 OR o = 3 OR o = 4 OR o = 5 OR o = 6 OR o = 8 OR o = 9 THEN
PRINT m$(3)
GOTO 47
END IF
107 IF o >= 10 AND o <= 21 THEN
PRINT m$(3)
GOTO 47
END IF
108 IF o = 7 AND s = 4 THEN
PRINT "Der Waechter laesst mich nun nach Nor-"
PRINT "den durch das Stadttor."
d(4, 1) = 5
END IF
SLEEP 4
GOTO 32
111 IF o = 7 AND s <> 24 THEN
PRINT "Ok."
GOTO 47
END IF
112 IF o = 37 AND s = 19 THEN
PRINT "Der trollenkoenig ist sehr zufrieden"
PRINT "und schenkt mir einen *Saphir*."
ob(38) = -1
END IF
114 IF o = 37 AND s = 19 THEN d(s, 1) = 0
d(s, 2) = 0
d(s, 3) = 0
d(s, 4) = 18
115 IF o = 37 AND s = 19 THEN FOR x = 1 TO 2000
NEXT
GOTO 32
116 IF o = 7 AND s = 24 THEN
PRINT "Er ist voller Freude und schenkt mir"
ob(43) = -1
PRINT ob$(43); "!!!"
GOTO 47
END IF
118 IF o = 37 THEN
PRINT "Ok."
GOTO 47
END IF
119 PRINT m$(2)
GOTO 47
120 PRINT "Das habe ich nicht gelernt oder habe es vergessen."
GOTO 47
121 IF ob(o) <> s AND ob(o) <> -1 THEN 171
122 IF o = 7 THEN 170
123 IF o = 1 THEN
PRINT "Das lassen Sie nicht zu."
GOTO 47
END IF
124 IF o = 2 THEN
PRINT "Auf dem Etikett steht 'Kitzmann Braeu, Erlangen'."
GOTO 47
END IF
125 IF o = 3 THEN
PRINT "Sie sehen gemuetlich aus."
GOTO 47
END IF
126 IF o = 4 THEN
PRINT "Ich bin gut erzogen, daher tue ich das nicht."
GOTO 47
END IF
127 IF o = 16 THEN
PRINT "Er ist aus Holz."
GOTO 47
END IF
128 IF o = 17 THEN
PRINT "Er glaenzt und funkelt."
GOTO 47
END IF
129 IF o = 18 THEN
PRINT "Auf der Lehne steht 'Made in Hongkong'."
GOTO 47
END IF
130 IF o = 19 THEN
PRINT "Eine solide Zwergenarbeit."
GOTO 47
END IF
131 IF o = 20 THEN
PRINT "Er ist halb vermodert."
GOTO 47
END IF
132 IF o = 21 THEN
PRINT "Ich kann leider nicht lesen, aber sie sehen sehr wertvoll aus."
133 IF o = 21 GOTO 47
END IF
134 IF o = 13 THEN
PRINT "Ich sehe einen Pacy-Face, mich!"
GOTO 47
END IF
135 IF o = 14 THEN
PRINT "Es haengt ein mottenzerfressenes Kleid daran."
GOTO 47
END IF
136 IF o = 15 THEN
PRINT "Es ist etwas drinnen."
GOTO 47
END IF
137 IF o = 5 THEN
PRINT "Sie sehen gemuetlich aus."
GOTO 47
END IF
138 IF o = 6 THEN
PRINT "Er sieht einsam aus."
GOTO 47
END IF
139 IF o = 8 THEN
PRINT "Sie sind solide Zwergenarbeit."
GOTO 47
END IF
140 IF o = 9 THEN
PRINT "Er schaut mich so grimmig an, dass ich mich das nicht traue"
GOTO 47
END IF
142 IF o = 10 THEN
PRINT m$(4)
GOTO 47
END IF
143 IF o = 11 THEN
PRINT "Es ist sehr verfallen."
GOTO 47
END IF
144 IF o = 12 THEN
PRINT m$(4)
GOTO 47
END IF
145 IF o = 22 THEN
PRINT "Sie sind so gross wie ich."
GOTO 47
END IF
146 IF o = 23 THEN
PRINT m$(4)
147 IF o = 24 THEN
PRINT "Es sind alles fichten."
GOTO 47
END IF
148 IF o = 25 THEN
PRINT "Sie sind sehr hoch."
GOTO 47
END IF
149 IF o = 26 THEN
PRINT "Nachdem ich ein wenig gegraben habe,"
150 IF o = 26 THEN
PRINT "fand ich"; ob$(27); "."
ob(27) = s
GOTO 47
END IF
151 IF o = 27 THEN
PRINT "Er sieht wundervoll aus und ist echt."
GOTO 47
END IF
152 IF o = 28 THEN
PRINT m$(4)
GOTO 47
END IF
153 IF o = 29 THEN
PRINT "Es ist glasklar."
GOTO 47
END IF
154 IF o = 30 THEN
PRINT "Sie sind glitschig."
GOTO 47
END IF
155 IF o = 31 THEN
PRINT "Ich sehe 4 Tafeln in 4 verschiedene Richtungen."
PRINT "norden elfenreich", "osten"
PRINT "trollenreich", "suedenstadt ", ""
PRINT "westen zwergenland "; ""
GOTO 47
END IF
158 IF o = 32 THEN
PRINT "Er sieht furchterregend aus."
GOTO 47
END IF
159 IF o = 33 THEN
PRINT "Sie haben einen blutruenstigen Blick."
GOTO 47
END IF
160 IF o = 34 THEN
PRINT "Sie sind sehr lieblich."
GOTO 47
END IF
161 IF o = 35 THEN
PRINT "Das ist tabu !!!"
GOTO 47
END IF
162 IF o = 36 THEN
PRINT "Er ist freundlich."
GOTO 47
END IF
163 IF o = 37 THEN
PRINT "Er ist voller Moral."
GOTO 47
END IF
164 IF o = 38 THEN
PRINT "Er ist der schoenste, den ich je gesehen habe."
GOTO 47
END IF
165 IF o = 39 THEN
PRINT "Sie sind winzig, aber solide."
GOTO 47
END IF
166 IF o = 40 THEN
PRINT "Die Mauern sind aus Gold!"
GOTO 47
END IF
167 IF o = 41 THEN
PRINT "Sie blenden mich."
GOTO 47
END IF
168 IF o = 42 THEN
PRINT "Er hat Heimweh."
GOTO 47
END IF
169 IF o = 43 THEN
PRINT "Er ist wundervoll!"
GOTO 50
170 PRINT m$(3)
GOTO 47
END IF
171 PRINT "Das sehe ich hier nicht."
GOTO 47
END IF
172 IF ob(o) <> s AND ob(o) <> -1 THEN 176
173 IF o = 2 THEN
PRINT "Mh, schmeckt gut. Ein Weizen."
ob(o) = 0
GOTO 47
END IF
174 IF o = 29 THEN s = 37
GOTO 66
175 PRINT m$(3)
GOTO 47
END IF
176 PRINT "Das sehe ich hier nicht und habe es auch nicht."
GOTO 47
177 IF ob(o) <> s AND ob(o) <> -1 THEN 176
178 IF o = 15 THEN
PRINT "Ich sehe einen *rubin* !!!"
ob(17) = s
GOTO 47
END IF
179 PRINT m$(3)
PRINT "Ich verstehe nicht, was du meinst."
GOTO 47
180 PRINT "Die Verben, die ich verstehe sind"
FOR i = 1 TO av
PRINT v$(i)
NEXT i
GOTO 47
181 PRINT "Die Dinge, die ich bei mir habe sind"
g = 0
FOR x = 1 TO ao
IF ob(x) = -1 THEN
  PRINT ob$(x)
  g = 1
END IF
182 NEXT x
IF g = 0 THEN PRINT "    Gar nichts."
GOTO 47

REM Save the game
183 PRINT "Speichern ";
n$ = ""
INPUT "welcher Name?"; n$
IF n$ = "" THEN
   PRINT "Keine Abspeicherung."
   GOTO 47
END IF
184 IF LEN(n$) > 8 THEN
   PRINT "Zu lang."
   GOTO 183
END IF
185 PRINT "Speicherung von "; n$; " laueft. "
OPEN n$ FOR OUTPUT AS #2
PRINT #2, s;
FOR x = 1 TO ao
PRINT #2, ob(x); " "
NEXT x
PRINT ".";
FOR i = 1 TO ar
FOR x = 1 TO 6
PRINT #2, d(i, x)
NEXT x
NEXT i
PRINT ".";
CLOSE #2
GOTO 47

REM Restore a saved game.
186 PRINT "Laden welcher ";
n$ = ""
INPUT "Name ?"; n$
IF n$ = "" THEN
  PRINT "Es wird nicht geladen."
  GOTO 47
END IF
187 PRINT " "; n$; " wird geladen.";
OPEN n$ FOR INPUT AS #2
INPUT #2, s
FOR x = 1 TO ao
INPUT #2, ob(x)
NEXT
PRINT ".";
FOR x = 1 TO ar
FOR i = 1 TO 6
INPUT #2, d(x, i)
NEXT i
NEXT x
PRINT ".";
CLOSE #2
GOTO 32
188 CLS
p = 0
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "       Sie haben es geschaft !!!"
PRINT "Erst einmal einen herzlichen Glueckwunsch."
189 PRINT "Als naechstes Adventure empfehle ich"
PRINT TAB(13); "Zauberland 2"

REM Save top ten scores
193 OPEN "winner" FOR INPUT AS #1
FOR i = 1 TO 10
INPUT #1, n$(i), z(i)
NEXT i
CLOSE 1
FOR i = 1 TO 10
IF zz < z(i) GOTO 195
194 NEXT i
PRINT "Sie kommen leider nicht in die Zauberland-Top-Ten. "
GOTO 199
195 INPUT "Wie heisst du?"; n$
IF LEN(n$) > 10 THEN
PRINT "Viel zu lang!"
GOTO 195
END IF
196 PRINT "Herzliches Beileid!"
IF i = 10 GOTO 198
197 FOR j = i TO 9
n$(j + 1) = n$(j)
z(j + 1) = z(j)
NEXT j
198 n$(i) = n$
z(i) = zz
p = i
OPEN "winner" FOR OUTPUT AS #1
FOR i = 1 TO 10
PRINT #1, n$(i)
PRINT #1, z(i)
NEXT i
CLOSE 1
199 CLS
PRINT "Top-Ten"
FOR i = 1 TO 10
PRINT "   ";
IF i = p THEN PRINT "   ";
200 PRINT n$(i); TAB(15); z(i)
NEXT i
PRINT
PRINT "   Und vielen Dank fuers Mitspielen!"
SYSTEM