Zauberschloß II
Das Abenteuer ist noch nicht zu Ende. »Zauberschloß« endete damit, daß der böse Zauberer von Ihnen in eine Maus verwandelt wurde. Das dankbare Volk machte Sie darauf zum König. Doch es geht weiter.
Nach über einem Jahr ist der böse Zauberer wieder zurückgekehrt, um das Volk abermals zu unterjochen, und Sie, den König, zu stürzen.
Sollte es Ihnen noch einmal gelingen, in das Schloß einzudringen, den bösen Zauberer zu besiegen und mit seinem Zepter heil das Schloß zu verlassen, so wird der Thron endgültig Ihnen gehören.
Hier noch einige Tips für einen erfolgreichen Spielverlauf: Wie Sie bald merken werden, ist ein Speer nicht gerade die ideale Waffe im Kampf gegen die Wache. Man sollte sich deshalb nach einer anderen Waffe umsehen.
Ein weiteres Hilfsmittel ist der Zauberring. Mit seiner Hilfe kann man so mancher Gefahr entfliehen. Sollten Sie einmal im Kerker landen, so brauchen Sie nicht gleich den Kopf hängenzulassen. Mit ein bißchen Fingerspitzengefühl werden Sie vielleicht auch diese Hürde meistern.
Als letzte Hilfe sei noch erwähnt, daß das Schloß aus insgesamt 100 Räumen besteht (4 Etagen à 25 Räume).
Zur Spielweise
Das Abenteuer beginnt in einer öden Gegend. Um von dort aus in das Schloß zu gelangen, müssen die richtigen Kommandos eingegeben werden.
Ein Kommando besteht entweder aus der Himmelsrichtung, in die man gehen will (nur der Anfangsbuchstabe), oder einem der hier aufgeführten Befehle:
BEKÄMPFE BENUTZE BESTECHE ESSE FANGE KÜSSE LESE
LIST NIMM ÖFFNE SAGE TRINKE VERLIERE ZERSCHLAGE
Hinter dem Befehl muß noch der entsprechende Gegenstand eingegeben werden, mit dem man etwas machen will. Zwischen Befehl und Gegenstand muß sich ein Leerzeichen befinden. Gibt der Computer die Meldung »NICHT MÖGLICH« aus, so wurde etwas falsch eingegeben, ein anderer Befehl benutzt oder ein Gegenstand eingegeben, den man nicht bei sich trägt, oder der Raum nicht vorhanden ist. Außerdem kann diese Fehlermeldung auftreten, wenn man bereits vier Gegenstände mit sich herumträgt und einen fünften aufnehmen will. Bei unsinnigen Kommandoeingaben, wie zum Beispiel ESSE WACHE, wird diese Fehlermeldung ebenfalls ausgegeben.
Wenn man wissen will, was man alles mit sich herumträgt, braucht man nur den Befehl LIST einzugeben.
Vorprogramm
Nach dem Starten des Vorprogramms (Listing 1) erscheint eine Frage nach dem verwendeten Massenspeicher. Man gibt K für Kassette oder D für Diskette ein.
Bei Verwendung einer Floppy werden die Spritedaten wie ein Maschinenprogramm unter dem Namen »Zauber-Sprites 2« auf Diskette gespeichert. Gleichzeitig wird eine Prüfsumme gebildet. Erscheint nach dem Speichern eine Fehlermeldung, so hat man die DATAs nicht richtig eingetippt.
Bei Verwendung einer Datasette werden die Spritedaten in den Sprite-Speicher gePOKEt (61440 bis 64703). Gleichzeitig wird wieder eine Prüfsumme gebildet.
Falls die DATAs alle richtig waren, erscheint nun auf dem Bildschirm: LOAD"ZAUBERSCHLOSS 2"
Man braucht jetzt nur noch RETURN zu drücken um das Hauptprogramm zu laden.
Beide Programme können natürlich auch mit Turbo Tape geladen werden. Man braucht hierfür nur im Vorprogramm den Basic-Befehl LOAD durch den entsprechenden Befehl des Turbo Tape ersetzen. Man braucht auch nach dem Laden nicht mehr SYS 58541 eingeben, da dieser Befehl bereits vom Hauptprogramm ausgeführt wird.
Im Hauptprogramm steht in Zeile 15 die Befehlsfolge zum absoluten Laden der Spritedaten von Diskette. Wenn man mit einer Datasette arbeitet, braucht man diese Zeile natürlich nicht einzugeben.
Hauptprogramm
Das zweite Programm (Listing 2) ist das Hauptprogramm.
Zu Beginn werden vier kleine Maschinenroutinen eingelesen. Diese Routinen bewirken folgendes:
Per Rasterinterrupt wird der Bildschirm farbig unterteilt, das heißt im oberen Teil ist die Rahmenfarbe Violett und die Hintergrundfarbe Schwarz oder Braun, während im unteren Teil des Bildschirms sowohl der Rahmen als auch der Hintergrund violett ist. Durch diesen Effekt entsteht ein Bildschirmfenster. Eine weitere Routine sorgt dafür, daß auf jeden Tastendruck ein anderer Ton erklingt. Auch diese Routine arbeitet auf Interruptebene.
Die nächste Routine ist für »Schummler« gedacht, die ein Abenteuerspiel gern unterbrechen und die Variablen abfragen oder verändern. Bei einer Unterbrechung des Programms werden deshalb alle Variablen gelöscht und der Befehl CONT wird gesperrt.
Die letzte Routine sorgt schließlich noch für die Verschiebung der einzelnen Speicher.
(Josef Busin / rg)| Variable | Bedeutung |
| V | 53248 (VIC-Startadresse) |
| S7 | 50168 (Sprite-Zeiger) |
| X7 | Anzahl der in einem Raum befindlichen Sprites |
| NS,WO | Position in öder Gegend |
| FL | Fehlervariable |
| K1$ | Kommandoeingabe (Befehl) |
| K2$ | Kommandoeingabe (Gegenstand) |
| K$ | Kommandoeingabe (Befehl + Gegenstand) Kommandoeingabe bei BEKÄMPFE |
| X1,X2,X3 | Position im Schloß |
| B$(X) | Befehle |
| G$(X) | Gegenstände |
| F1(X,X,X) | Plan der festen Gegenstände |
| F2(X,X,X) | Plan der festen Gegenstände |
| B1(X,X,X) | Plan der beweglichen Gegenstände |
| B2(X,X,X) | Plan der beweglichen Gegenstände |
| TR$(X) | Gegenstände, die man herumträgt |
| A(X) | Zähler für die verschiedenen Wesen, wie lang man sich mit ihnen in einem Raum befindet. |
| ZA | Rundenzähler |
| G | Zähler für Schlangengift |
| ZT | Zähler für Zaubertrank |
| TU | Zustand der Türen (offen oder zu) |
| M | Spritenummer |
| J1 | Hilfsvariable zur Ausgabe von Schädel und Gebein |
| K | Zähler für Aufenthalt im Kerker |
| Zeilen | |
| 20 - 80 | Maschinenprogramm einlesen und aktivieren |
| 200 - 307 | Titelbild und Spielerklärung |
| 310- 400 | Einlesen der neuen Zeichen |
| 1010- 1080 | »Öde Gegend« zeichnen |
| 1100- 1200 | Kommandoeingabe, Auswertung |
| 2100- 2225 | Daten für Schloßplan, Gegenstände, Befehle einlesen |
| 2250 - 2400 | Kommandoeingabe im Schloß, Richtungsabfrage, Zählererhöhung |
| 3000- 3100 | Befehlserkennung |
| 3500 - 9820 | Auswertung der Befehle, Reaktion auf die Befehle |
| 9900 - 9970 | Ausgabe der möglichen Richtungen im Schloß |
| 10000 - 10750 | Zeichnen der Räume |
| 11000 - 11580 | Ausgabe der im Raum befindlichen Gegenstände |
| 12000 - 15050 | Reaktion auf Befehle |
| 20000 - 20050 | Übergang zwischen »öder Gegend« und Schloß |
| 21000 - 21030 | Wiederherstellung der Daten der Sprite-Koordinaten |
| 22000 - 22060 | Schluß; Adventure gelöst |
| 23000 - 24010 | Reaktion auf Befehle |
| 25000 - 25070 | Zeichnen des Schlosses |
| 26000 - 32030 | Reaktion auf Befehle |
| 55000 | Schluß |
|
0 rem +++++++++++++++++++++++++++++
1 rem +++ zauberschloss 2. teil +++
2 rem +++ (c) 1985 by +++
3 rem +++ josef busin +++
4 rem +++ sudetenstrasse 37 +++
5 rem +++ 7321 eschenbach +++
6 rem +++ tel.: 07161/42817 +++
7 rem +++ +++
8 rem +++ vorprogramm (sprites) +++
9 rem +++++++++++++++++++++++++++++
10 :
11 data,60,,,126,,,255,,,153,,24,153,,28,255,,30,255,,31,255,128,15,255,192
20 data7,255,224,3,255,240,1,255,248,1,255,120,3,254,48,7,254,,7,254,,7,252,,7
30 data252,,15,248,,31,240,,31,240,
50 data2,64,130,130,65,12,66,34,16,36,34,32,20,66,64,28,68,128,14,104,190,135
60 data56,225,65,159,128,39,222,,24,124,,,56,,,56,,,56,,,112,,,112,,,224,,,224
70 data,1,192,,1,192,,1,192,
90 data,,,,,,,,,,60,,,126,,2,255,64,2,153,64,35,153,196,51,255,204,25,165,152
100 data31,165,248,15,165,240,15,129,240,15,255,240,31,255,248,63,255,252
110 data127,255,254,127,255,254,127,255,254,127,255,254,127,255,254,127,255,254
120 data127,255,254,127,255,254,127,255,254,127,255,254,127,255,254,127,255,254
130 data127,255,254,127,255,254,127,255,254,127,255,254,127,255,254,127,255,254
140 data127,255,254,127,255,254,127,255,254,1,255,128,1,255,128,1,255,128
150 data31,239,248,31,239,248
180 data16,,,16,,,18,,,255,76,64,19,95,64,18,63,128,16,21,,16,31,,16,17,,17,255
190 data192,63,255,254,63,255,254,19,255,254,19,255,246,19,255,246,19,255,246
200 data19,255,246,19,255,240,19,255,240,16,51,,19,243,240
220 data1,252,,3,30,,3,231,,14,123,128,15,249,128,3,96,,,204,,3,158,,3,62,,,110
230 data,,238,,,239,,,239,,,239,,,239,,,31,,,255,,,255,,,56,,3,184,,3,184,,1
240 data255,
260 data1,255,128,1,255,128,1,255,128,1,60,128,1,153,128,1,255,128,1,255,128
270 data12,189,48,6,189,96,2,219,64,2,102,64,3,126,192,1,60,128,1,189,128
280 data1,153,128,3,195,192,3,221,192,3,255,192,3,255,192,3,189,192,7,189,192
290 data7,189,224,7,189,224,7,60,224,7,126,224,7,126,224,7,126,224,4,255,32
300 data15,255,240,15,255,240,15,255,240,15,255,240,15,255,240,15,255,240
310 data31,255,248,31,255,248,31,255,248,31,255,248,62,221,124,48,221,12
320 data119,221,238
350 data,,,,,15,,,15,,66,7,,231,7,4,231,39,2,255,71,3,153,199,3,255,199,1,171
360 data135,,171,7,,213,7,,213,7,,255,119,31,255,255,63,255,255,127,255,255
370 data255,255,255,255,255,255,255,255,252,231,255,248
390 data227,255,192,227,255,192,227,255,192,227,255,192,227,255,192,227,255,192
400 data243,255,192,243,255,192,3,255,192,7,255,224,15,195,240,31,129,248
410 data31,,248,31,,248,31,,248,31,,248,31,,248,31,,248,31,,248,127,,254,255
420 data,255
440 data,24,,,60,,,126,,,255,,1,255,128,3,255,192,7,153,224,15,153,240,255
450 data255,255,255,255,255,255,171,255,207,129,243,199,213,227,195,255,195,193
460 data255,131,192,255,3,224,255,7,225,255,135,227,217,199,3,,192,15,129,240
480 data16,,8,8,,16,60,,60,16,255,8,9,255,144,7,255,224,7,,224,14,255,112
490 data14,195,112,14,189,112,14,165,112,14,189,112,14,195,112,14,255,112
500 data7,,224,3,255,192,1,255,128,1,255,128,10,,80,12,,48,14,,112
520 data,,,,60,,,60,,,60,,,60,,,60,,62,36,124,65,102,130,67,195,194,71,129,226
530 data60,,60,24,,24,50,160,12,50,128,12,50,174,236,50,170,172,49,42,236
540 data48,,12,24,,24,15,255,240,3,255,192
560 data,,,,,,,,,,252,,,120,,,48,,,56,,,126,,,235,128,1,192,192,3,171,224,7,171
570 data240,7,171,248,15,192,248,15,235,124,15,235,124,15,235,124,15,234,248
580 data7,129,240,3,235,224,1,255,192
600 data,60,,,60,,,60,,,60,,,60,,,60,,,60,,,66,,,129,,7,,224,8,24,16,16,36,8
610 data96,66,6,128,165,1,145,24,137,144,165,9,184,90,29,144,36,9,144,24,9
620 data64,,2,63,255,252
640 data,,,,,,,,,,7,240,,15,248,20,31,252,54,63,254,127,127,254,255,255,255
650 data235,255,255,255,255,255,213,255,255,193,255,255,235,255,255,127,255,255
660 data62,127,255,28,127,254,,126,126,,126,126,,126,126,,126,126
680 data15,192,,31,224,28,32,112,62,64,112,107,128,112,127,,112,62,,240,28
690 data56,224,28,124,224,14,213,224,14,254,120,14,124,60,14,56,30,28,56,15,249
700 data56,7,247,28,3,229,28,,9,28,30,3,15,255,255,7,255,254,3,225,252
720 data,3,192,,7,224,,15,240,,31,248,,63,252,,39,254,128,127,254,255,255,254
730 data255,255,254,85,95,254,170,191,254,255,255,254,127,255,252,,63,248,,63
740 data240,,63,240,,63,240,,63,240,,63,240,,63,240,,63,248
750 data,63,248,,63,255,,63,255,,63,255,,63,255,,63,255,,63,255,,63,255,,63
760 data255,,127,255,,127,255,,255,255,1,255,255,31,255,255,63,255,255,63,255
770 data255,127,255,255,255,255,255,255,255,255,255,255,255,255,255,255
800 data,,,,128,192,,193,224,1,231,248,3,17,96,6,23,224,12,17,224,12,8,96
810 data44,9,224,76,4,96,255,255,240,79,255,248,47,255,252,12,15,254,12,31,254
820 data12,31,254,12,23,252,6,19,248,3,35,24,1,163,24,,207,120
840 data3,255,128,15,255,192,31,239,240,127,215,252,127,187,252,127,125,254
850 data254,254,254,253,255,126,251,255,191,247,255,223,239,255,239
860 data247,255,223,251,255,191,125,255,126,126,254,254,63,125,254,63,187
870 data254,63,215,248,31,239,240,7,255,192,3,255,128
890 data240,24,15,244,60,47,244,126,47,246,231,111,247,195,239,243,129,207
900 data251,129,222,249,129,158,125,195,190,127,231,254,63,255,252
910 data31,255,248,15,255,240,15,227,224,15,221,224,15,221,224,15,239,192
920 data31,247,192,31,251,192,63,221,192,63,221,224
930 data127,227,240,127,255,240,127,255,240,63,255,248,31,255,248,15,255
940 data240,15,255,224,15,255,224,7,255,240,7,255,240,15,255,248,15,255
950 data240,31,255,224,63,255,192,63,255,128,127,255,128,127,255,128
960 data127,255,128,255,255,128,255,255,192,255,255,240
990 data,,,,,,,,,,,,,,,,,,,,,,,,255,255,255,255,255,255,219,109,191,255,255
1000 data255,255,255,255,,,,,,,,,,,,,,,,,,,,,,,,
1020 data255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,207
1030 data252,251,198,48,51,194,32,19,192,32,3,192,,3,202,,131,202,,3,206
1040 data238,187,202,170,171,202,234,187,192,,11,192,,59,192,,3,192,,3
1050 data255,255,255,255,255,255
1070 data,,,,129,,1,,128,1,,128,,189,,,126,,,126,,,90,,,126,,2,126,64,7,60,224
1080 data7,255,224,3,255,192,1,255,128,7,255,224,31,255,248,63,255,252,63,255
1090 data252,63,255,252,63,255,252,63,255,252,63,255,252,63,255,252,63,255,252
1100 data63,255,252,63,255,252,63,255,252,7,255,224,7,255,224,7,255,224,7,255
1110 data224,7,255,224,7,255,224,7,255,224,7,255,224,7,255,224,7,255,224,7,255
1120 data224,7,255,224,7,255,224,7,195,224,63,195,252
1150 data,,,,248,,15,252,,31,6,,48,3,,48,1,128,48,96,192,24,80,96,12,72,96
1160 data6,8,96,3,8,48,1,136,48,3,136,48,7,8,48,15,136,24,31,8,12,62,4,12
1170 data124,2,12,248,1,252,240,,248,224,,
1190 data,113,192,,81,64,,223,96,1,243,240,1,255,240,1,192,112,25,192,115
1200 data28,255,231,30,63,143,31,14,31,31,255,255,31,255,255,31,255,255
1210 data31,255,255,31,255,255,31,255,255,29,255,247,28,255,231,14,255,230
1220 data6,127,204,31,63,159
1240 data,60,,,60,,,60,,,60,,,60,,,60,,,60,,3,255,192,,36,,,36,,,36,,,36,,,36
1250 data,,36,,,36,,,255,,,255,,3,255,192,15,255,240,63,255,252,255,255,255
1270 data,60,,,60,,,60,,,60,,,60,,,126,,,195,,63,129,252,63,,252,48,,12,48,,12
1280 data48,,12,53,25,12,53,33,12,55,33,12,53,33,12,53,25,204,48,,12,48,,12
1290 data63,255,252,63,255,252
1310 data7,255,224,15,255,248,31,255,252,63,24,254,127,24,255,127,24,255
1320 data127,255,254,63,84,254,63,,252,31,,248,15,84,240,15,255,224,7,255,192
1330 data3,255,128,1,255,,,254,,,124,,,120,,,56,,,48,,,16,
1350 data49,130,16,27,6,28,115,135,14,225,195,135,225,193,199,115,131,142
1360 data57,143,28,63,255,252,127,255,254,255,255,255,255,255,255,255,255,255
1370 data255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,127,255
1380 data254,63,255,252,31,255,248,15,255,240
1400 data,255,,1,255,128,3,,192,6,18,96,12,36,48,12,73,48,12,146,48,12,36,48
1410 data6,72,96,3,,192,1,129,128,,255,,,126,,,60,,,24,,,24,,,24,,,24,,,24,,
1420 data60,,,60,
1440 data,,248,,,248,,24,248,,24,248,,5,248,,3,128,,71,,,62,128,,60,96,,60,96
1450 data7,252,,7,226,,7,224,,7,224,,7,224,,15,224,,28,,,56,,,240,,,224
1460 data,,224,,
1480 data255,255,,255,255,128,255,255,192,255,255,224,223,255,240,207,255,248
1490 data199,255,252,195,255,254,193,255,255,193,255,255,193,131,3,193,131,3
1500 data193,131,3,193,131,3,193,131,3,193,131,3,1,128,3,1,128,3,1,128,3
1510 data1,128,3,1,128,3
1530 data,126,,,126,,,126,,,126,,,126,,,129,,63,,252,64,56,2,128,124,49
1540 data128,214,121,128,254,141,128,124,141,128,56,77,128,56,13,128,28,13
1550 data128,14,25,128,7,49,128,3,225,128,1,193,128,,1,255,255,255
1570 data,254,,1,255,,3,255,128,3,255,128,1,255,,,254,,,124,,,254,,1,131,,3
1580 data1,128,6,,192,6,,192,6,,192,6,,192,3,1,128,1,131,,,254,,,124,,,,,,,,,,
1600 data,,,,,1,,,3,,,6,,,12,,,28,,,120,,,240,,1,240,,3,224,,7,192,,15,128
1610 data,31,,,62,,,124,,,252,,1,248,,3,240,,7,224,,7,192,,7,128,
1630 data24,,,28,,,14,,,7,,,3,128,,1,192,,,224,,,112,,,56,,,28,,,14,,,7
1640 data,,3,128,,1,192,,,225,,,114,,,60,,,28,,,30,,,39,,,67
1660 data,,,,,,30,,,63,,,97,192,,96,224,,96,48,,192,24,,192,12,2,192,6,7
1670 data192,3,255,192,3,255,192,6,7,192,12,2,96,24,,96,48,,96,224,,63,192
1680 data,31,,,,,,,,
1700 data128,,3,112,,14,94,,114,85,195,210,63,255,252,37,85,84,63,255,252
1710 data21,85,72,31,255,248,21,85,72,31,255,248,21,85,72,31,255,248,21,85,72
1720 data63,255,252,37,85,84,63,255,252,85,195,210,94,,114,112,,14,128,,1
1740 data255,255,255,255,255,255,192,,3,220,133,83,200,80,3,200,32,171,200,4,3
1750 data220,81,19,192,,3,192,,3,192,,3,192,,3,223,18,163,202,64,3,202,5,83
1760 data202,32,3,223,8,163,192,,3,192,,3,255,255,255,255,255,255
1780 data,,,,,,,,,,,,,,,,,,,,,,,128,,,129,255,255,255,64,,255,63,255,255,,,129
1790 data,,128,,,,,,,,,,,,,,,,,,,,,,
1810 data126,,,36,,,36,,,36,,,131,,3,129,192,2,,64,3,,192,3,255,192,3,253,192
1820 data3,127,192,3,239,192,3,255,192,3,251,192,3,255,192,3,223,192,3,255
1830 data192,3,253,192,3,127,192,3,255,192,3,255,192
1850 data,,1,,,3,,,6,,,12,,,24,,,48,,,96,,,192,,1,128,,3,,,6,,,12,,,24,,,48
1860 data,,96,,,192,,17,128,,19,,,22,,,28,,,31,,
1880 data127,255,224,255,255,248,255,255,255,255,255,255,255,255,255,255,255
1890 data255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
1900 data255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
1910 data255,255,255,255,255,255,255,255,255,255,255,255
1920 data,,124,,,28,,,124,192,,228,248,1,196,254,1,192,255,128,224,255,192,112
1930 data255,224,56,255,240,28,255,248,28,255,252,28,255,254,28,255,254,56,255
1940 data255,56,255,255,112,255,255,240,255,255,224,255,255,224,255,255,224
1950 data255,255,224
1980 data,14,,,27,,,60,,,126,,,255,,1,255,128,1,153,128,1,153,128,1,255,128
1990 data1,255,128,1,255,128,1,255,128,1,255,128,7,255,224,8,255,16,16,126,8
2000 data18,,72,18,,72,37,,164,37,,164,37,,164
2020 data37,,164,36,129,36,36,129,36,36,255,36,36,255,36,255,255,255,60,255
2030 data61,1,255,129,1,255,131,3,255,195,1,231,198,1,231,131,1,231,128
2040 data3,195,192,3,195,192,3,195,192,7,129,224,7,129,224,7,129,224,15,129
2050 data240,63,129,252
2070 data,,,,,,,,,240,,,144,,,252,,,152,,,152,,,12,,,12,,,6,,,12,,,248
2080 data,,,,,,,,,,,,,,,,,,,,,,,,,,
2100 :
3000 print"{clr}{down}{down}{rvon}k{rvof}assette oder {rvon}d{rvof}iskette ?"
3010 geta$:ifa$=""then3010
3020 ifa$="k"then3100
3030 ifa$="d"thenopen1,8,1,"@:zauber-sprites 2":goto3050
3040 goto3010
3050 print#1,chr$(0);chr$(240);
3060 forx=1to51:fory=1to63:reada:b=b+a:print#1,chr$(a);:next:print#1,chr$(0);
3070 next:close1:ifb<>346712thenprint"{clr}{down}{down}{rvon}fehler in datas!!!"
3080 end
3100 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"spc(12)"{rvon} bitte warten ! "
3110 ad=61440:forx=0to50:fory=0to62:reada:b=b+a
3120 pokead+y+(x*64),a:next:next:ifb<>346712thenprint"{clr}{down}{down}{rvon}fehler in datas!!!":end
3130 print"{clr}{down}{down}{down}load"+chr$(34)+"zauberschloss 2"+chr$(34)+"{home}"
3140 :
3150 rem bei verwendung von turbo tape
3160 rem muss in zeile 3130 statt
3170 rem 'load' '_l' stehen
0 REM +++++++++++++++++++++++++++++ 1 REM +++ ZAUBERSCHLOSS 2. TEIL +++ 2 REM +++ (C) 1985 BY +++ 3 REM +++ JOSEF BUSIN +++ 4 REM +++ SUDETENSTRASSE 37 +++ 5 REM +++ 7321 ESCHENBACH +++ 6 REM +++ TEL.: 07161/42817 +++ 7 REM +++ +++ 8 REM +++ VORPROGRAMM (SPRITES) +++ 9 REM +++++++++++++++++++++++++++++ 10 : 11 DATA ,60,,,126,,,255,,,153,,24,153,,28,255,,30,255,,31,255,128,15,255,192 20 DATA 7,255,224,3,255,240,1,255,248,1,255,120,3,254,48,7,254,,7,254,,7,252,,7 30 DATA 252,,15,248,,31,240,,31,240, 50 DATA 2,64,130,130,65,12,66,34,16,36,34,32,20,66,64,28,68,128,14,104,190,135 60 DATA 56,225,65,159,128,39,222,,24,124,,,56,,,56,,,56,,,112,,,112,,,224,,,224 70 DATA ,1,192,,1,192,,1,192, 90 DATA ,,,,,,,,,,60,,,126,,2,255,64,2,153,64,35,153,196,51,255,204,25,165,152 100 DATA 31,165,248,15,165,240,15,129,240,15,255,240,31,255,248,63,255,252 110 DATA 127,255,254,127,255,254,127,255,254,127,255,254,127,255,254,127,255,254 120 DATA 127,255,254,127,255,254,127,255,254,127,255,254,127,255,254,127,255,254 130 DATA 127,255,254,127,255,254,127,255,254,127,255,254,127,255,254,127,255,254 140 DATA 127,255,254,127,255,254,127,255,254,1,255,128,1,255,128,1,255,128 150 DATA 31,239,248,31,239,248 180 DATA 16,,,16,,,18,,,255,76,64,19,95,64,18,63,128,16,21,,16,31,,16,17,,17,255 190 DATA 192,63,255,254,63,255,254,19,255,254,19,255,246,19,255,246,19,255,246 200 DATA 19,255,246,19,255,240,19,255,240,16,51,,19,243,240 220 DATA 1,252,,3,30,,3,231,,14,123,128,15,249,128,3,96,,,204,,3,158,,3,62,,,110 230 DATA ,,238,,,239,,,239,,,239,,,239,,,31,,,255,,,255,,,56,,3,184,,3,184,,1 240 DATA 255, 260 DATA 1,255,128,1,255,128,1,255,128,1,60,128,1,153,128,1,255,128,1,255,128 270 DATA 12,189,48,6,189,96,2,219,64,2,102,64,3,126,192,1,60,128,1,189,128 280 DATA 1,153,128,3,195,192,3,221,192,3,255,192,3,255,192,3,189,192,7,189,192 290 DATA 7,189,224,7,189,224,7,60,224,7,126,224,7,126,224,7,126,224,4,255,32 300 DATA 15,255,240,15,255,240,15,255,240,15,255,240,15,255,240,15,255,240 310 DATA 31,255,248,31,255,248,31,255,248,31,255,248,62,221,124,48,221,12 320 DATA 119,221,238 350 DATA ,,,,,15,,,15,,66,7,,231,7,4,231,39,2,255,71,3,153,199,3,255,199,1,171 360 DATA 135,,171,7,,213,7,,213,7,,255,119,31,255,255,63,255,255,127,255,255 370 DATA 255,255,255,255,255,255,255,255,252,231,255,248 390 DATA 227,255,192,227,255,192,227,255,192,227,255,192,227,255,192,227,255,192 400 DATA 243,255,192,243,255,192,3,255,192,7,255,224,15,195,240,31,129,248 410 DATA 31,,248,31,,248,31,,248,31,,248,31,,248,31,,248,31,,248,127,,254,255 420 DATA ,255 440 DATA ,24,,,60,,,126,,,255,,1,255,128,3,255,192,7,153,224,15,153,240,255 450 DATA 255,255,255,255,255,255,171,255,207,129,243,199,213,227,195,255,195,193 460 DATA 255,131,192,255,3,224,255,7,225,255,135,227,217,199,3,,192,15,129,240 480 DATA 16,,8,8,,16,60,,60,16,255,8,9,255,144,7,255,224,7,,224,14,255,112 490 DATA 14,195,112,14,189,112,14,165,112,14,189,112,14,195,112,14,255,112 500 DATA 7,,224,3,255,192,1,255,128,1,255,128,10,,80,12,,48,14,,112 520 DATA ,,,,60,,,60,,,60,,,60,,,60,,62,36,124,65,102,130,67,195,194,71,129,226 530 DATA 60,,60,24,,24,50,160,12,50,128,12,50,174,236,50,170,172,49,42,236 540 DATA 48,,12,24,,24,15,255,240,3,255,192 560 DATA ,,,,,,,,,,252,,,120,,,48,,,56,,,126,,,235,128,1,192,192,3,171,224,7,171 570 DATA 240,7,171,248,15,192,248,15,235,124,15,235,124,15,235,124,15,234,248 580 DATA 7,129,240,3,235,224,1,255,192 600 DATA ,60,,,60,,,60,,,60,,,60,,,60,,,60,,,66,,,129,,7,,224,8,24,16,16,36,8 610 DATA 96,66,6,128,165,1,145,24,137,144,165,9,184,90,29,144,36,9,144,24,9 620 DATA 64,,2,63,255,252 640 DATA ,,,,,,,,,,7,240,,15,248,20,31,252,54,63,254,127,127,254,255,255,255 650 DATA 235,255,255,255,255,255,213,255,255,193,255,255,235,255,255,127,255,255 660 DATA 62,127,255,28,127,254,,126,126,,126,126,,126,126,,126,126 680 DATA 15,192,,31,224,28,32,112,62,64,112,107,128,112,127,,112,62,,240,28 690 DATA 56,224,28,124,224,14,213,224,14,254,120,14,124,60,14,56,30,28,56,15,249 700 DATA 56,7,247,28,3,229,28,,9,28,30,3,15,255,255,7,255,254,3,225,252 720 DATA ,3,192,,7,224,,15,240,,31,248,,63,252,,39,254,128,127,254,255,255,254 730 DATA 255,255,254,85,95,254,170,191,254,255,255,254,127,255,252,,63,248,,63 740 DATA 240,,63,240,,63,240,,63,240,,63,240,,63,240,,63,248 750 DATA ,63,248,,63,255,,63,255,,63,255,,63,255,,63,255,,63,255,,63,255,,63 760 DATA 255,,127,255,,127,255,,255,255,1,255,255,31,255,255,63,255,255,63,255 770 DATA 255,127,255,255,255,255,255,255,255,255,255,255,255,255,255,255 800 DATA ,,,,128,192,,193,224,1,231,248,3,17,96,6,23,224,12,17,224,12,8,96 810 DATA 44,9,224,76,4,96,255,255,240,79,255,248,47,255,252,12,15,254,12,31,254 820 DATA 12,31,254,12,23,252,6,19,248,3,35,24,1,163,24,,207,120 840 DATA 3,255,128,15,255,192,31,239,240,127,215,252,127,187,252,127,125,254 850 DATA 254,254,254,253,255,126,251,255,191,247,255,223,239,255,239 860 DATA 247,255,223,251,255,191,125,255,126,126,254,254,63,125,254,63,187 870 DATA 254,63,215,248,31,239,240,7,255,192,3,255,128 890 DATA 240,24,15,244,60,47,244,126,47,246,231,111,247,195,239,243,129,207 900 DATA 251,129,222,249,129,158,125,195,190,127,231,254,63,255,252 910 DATA 31,255,248,15,255,240,15,227,224,15,221,224,15,221,224,15,239,192 920 DATA 31,247,192,31,251,192,63,221,192,63,221,224 930 DATA 127,227,240,127,255,240,127,255,240,63,255,248,31,255,248,15,255 940 DATA 240,15,255,224,15,255,224,7,255,240,7,255,240,15,255,248,15,255 950 DATA 240,31,255,224,63,255,192,63,255,128,127,255,128,127,255,128 960 DATA 127,255,128,255,255,128,255,255,192,255,255,240 990 DATA ,,,,,,,,,,,,,,,,,,,,,,,,255,255,255,255,255,255,219,109,191,255,255 1000 DATA 255,255,255,255,,,,,,,,,,,,,,,,,,,,,,,, 1020 DATA 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,207 1030 DATA 252,251,198,48,51,194,32,19,192,32,3,192,,3,202,,131,202,,3,206 1040 DATA 238,187,202,170,171,202,234,187,192,,11,192,,59,192,,3,192,,3 1050 DATA 255,255,255,255,255,255 1070 DATA ,,,,129,,1,,128,1,,128,,189,,,126,,,126,,,90,,,126,,2,126,64,7,60,224 1080 DATA 7,255,224,3,255,192,1,255,128,7,255,224,31,255,248,63,255,252,63,255 1090 DATA 252,63,255,252,63,255,252,63,255,252,63,255,252,63,255,252,63,255,252 1100 DATA 63,255,252,63,255,252,63,255,252,7,255,224,7,255,224,7,255,224,7,255 1110 DATA 224,7,255,224,7,255,224,7,255,224,7,255,224,7,255,224,7,255,224,7,255 1120 DATA 224,7,255,224,7,255,224,7,195,224,63,195,252 1150 DATA ,,,,248,,15,252,,31,6,,48,3,,48,1,128,48,96,192,24,80,96,12,72,96 1160 DATA 6,8,96,3,8,48,1,136,48,3,136,48,7,8,48,15,136,24,31,8,12,62,4,12 1170 DATA 124,2,12,248,1,252,240,,248,224,, 1190 DATA ,113,192,,81,64,,223,96,1,243,240,1,255,240,1,192,112,25,192,115 1200 DATA 28,255,231,30,63,143,31,14,31,31,255,255,31,255,255,31,255,255 1210 DATA 31,255,255,31,255,255,31,255,255,29,255,247,28,255,231,14,255,230 1220 DATA 6,127,204,31,63,159 1240 DATA ,60,,,60,,,60,,,60,,,60,,,60,,,60,,3,255,192,,36,,,36,,,36,,,36,,,36 1250 DATA ,,36,,,36,,,255,,,255,,3,255,192,15,255,240,63,255,252,255,255,255 1270 DATA ,60,,,60,,,60,,,60,,,60,,,126,,,195,,63,129,252,63,,252,48,,12,48,,12 1280 DATA 48,,12,53,25,12,53,33,12,55,33,12,53,33,12,53,25,204,48,,12,48,,12 1290 DATA 63,255,252,63,255,252 1310 DATA 7,255,224,15,255,248,31,255,252,63,24,254,127,24,255,127,24,255 1320 DATA 127,255,254,63,84,254,63,,252,31,,248,15,84,240,15,255,224,7,255,192 1330 DATA 3,255,128,1,255,,,254,,,124,,,120,,,56,,,48,,,16, 1350 DATA 49,130,16,27,6,28,115,135,14,225,195,135,225,193,199,115,131,142 1360 DATA 57,143,28,63,255,252,127,255,254,255,255,255,255,255,255,255,255,255 1370 DATA 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,127,255 1380 DATA 254,63,255,252,31,255,248,15,255,240 1400 DATA ,255,,1,255,128,3,,192,6,18,96,12,36,48,12,73,48,12,146,48,12,36,48 1410 DATA 6,72,96,3,,192,1,129,128,,255,,,126,,,60,,,24,,,24,,,24,,,24,,,24,, 1420 DATA 60,,,60, 1440 DATA ,,248,,,248,,24,248,,24,248,,5,248,,3,128,,71,,,62,128,,60,96,,60,96 1450 DATA 7,252,,7,226,,7,224,,7,224,,7,224,,15,224,,28,,,56,,,240,,,224 1460 DATA ,,224,, 1480 DATA 255,255,,255,255,128,255,255,192,255,255,224,223,255,240,207,255,248 1490 DATA 199,255,252,195,255,254,193,255,255,193,255,255,193,131,3,193,131,3 1500 DATA 193,131,3,193,131,3,193,131,3,193,131,3,1,128,3,1,128,3,1,128,3 1510 DATA 1,128,3,1,128,3 1530 DATA ,126,,,126,,,126,,,126,,,126,,,129,,63,,252,64,56,2,128,124,49 1540 DATA 128,214,121,128,254,141,128,124,141,128,56,77,128,56,13,128,28,13 1550 DATA 128,14,25,128,7,49,128,3,225,128,1,193,128,,1,255,255,255 1570 DATA ,254,,1,255,,3,255,128,3,255,128,1,255,,,254,,,124,,,254,,1,131,,3 1580 DATA 1,128,6,,192,6,,192,6,,192,6,,192,3,1,128,1,131,,,254,,,124,,,,,,,,,, 1600 DATA ,,,,,1,,,3,,,6,,,12,,,28,,,120,,,240,,1,240,,3,224,,7,192,,15,128 1610 DATA ,31,,,62,,,124,,,252,,1,248,,3,240,,7,224,,7,192,,7,128, 1630 DATA 24,,,28,,,14,,,7,,,3,128,,1,192,,,224,,,112,,,56,,,28,,,14,,,7 1640 DATA ,,3,128,,1,192,,,225,,,114,,,60,,,28,,,30,,,39,,,67 1660 DATA ,,,,,,30,,,63,,,97,192,,96,224,,96,48,,192,24,,192,12,2,192,6,7 1670 DATA 192,3,255,192,3,255,192,6,7,192,12,2,96,24,,96,48,,96,224,,63,192 1680 DATA ,31,,,,,,,, 1700 DATA 128,,3,112,,14,94,,114,85,195,210,63,255,252,37,85,84,63,255,252 1710 DATA 21,85,72,31,255,248,21,85,72,31,255,248,21,85,72,31,255,248,21,85,72 1720 DATA 63,255,252,37,85,84,63,255,252,85,195,210,94,,114,112,,14,128,,1 1740 DATA 255,255,255,255,255,255,192,,3,220,133,83,200,80,3,200,32,171,200,4,3 1750 DATA 220,81,19,192,,3,192,,3,192,,3,192,,3,223,18,163,202,64,3,202,5,83 1760 DATA 202,32,3,223,8,163,192,,3,192,,3,255,255,255,255,255,255 1780 DATA ,,,,,,,,,,,,,,,,,,,,,,,128,,,129,255,255,255,64,,255,63,255,255,,,129 1790 DATA ,,128,,,,,,,,,,,,,,,,,,,,,, 1810 DATA 126,,,36,,,36,,,36,,,131,,3,129,192,2,,64,3,,192,3,255,192,3,253,192 1820 DATA 3,127,192,3,239,192,3,255,192,3,251,192,3,255,192,3,223,192,3,255 1830 DATA 192,3,253,192,3,127,192,3,255,192,3,255,192 1850 DATA ,,1,,,3,,,6,,,12,,,24,,,48,,,96,,,192,,1,128,,3,,,6,,,12,,,24,,,48 1860 DATA ,,96,,,192,,17,128,,19,,,22,,,28,,,31,, 1880 DATA 127,255,224,255,255,248,255,255,255,255,255,255,255,255,255,255,255 1890 DATA 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255 1900 DATA 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255 1910 DATA 255,255,255,255,255,255,255,255,255,255,255,255 1920 DATA ,,124,,,28,,,124,192,,228,248,1,196,254,1,192,255,128,224,255,192,112 1930 DATA 255,224,56,255,240,28,255,248,28,255,252,28,255,254,28,255,254,56,255 1940 DATA 255,56,255,255,112,255,255,240,255,255,224,255,255,224,255,255,224 1950 DATA 255,255,224 1980 DATA ,14,,,27,,,60,,,126,,,255,,1,255,128,1,153,128,1,153,128,1,255,128 1990 DATA 1,255,128,1,255,128,1,255,128,1,255,128,7,255,224,8,255,16,16,126,8 2000 DATA 18,,72,18,,72,37,,164,37,,164,37,,164 2020 DATA 37,,164,36,129,36,36,129,36,36,255,36,36,255,36,255,255,255,60,255 2030 DATA 61,1,255,129,1,255,131,3,255,195,1,231,198,1,231,131,1,231,128 2040 DATA 3,195,192,3,195,192,3,195,192,7,129,224,7,129,224,7,129,224,15,129 2050 DATA 240,63,129,252 2070 DATA ,,,,,,,,,240,,,144,,,252,,,152,,,152,,,12,,,12,,,6,,,12,,,248 2080 DATA ,,,,,,,,,,,,,,,,,,,,,,,,,, 2100 : 3000 PRINT"{CLR,2DOWN,RVSON}K{RVOFF}ASSETTE ODER{SPACE,RVSON}D{RVOFF}ISKETTE ?" 3010 GET A$:IF A$="" THEN3010 3020 IF A$="K" THEN3100 3030 IF A$="D" THENOPEN 1,8,1,"@:ZAUBER-SPRITES 2":GOTO 3050 3040 GOTO 3010 3050 PRINT#1,CHR$ (0);CHR$ (240); 3060 FOR X=1 TO51:FOR Y=1 TO63:READ A:B=B+A:PRINT#1,CHR$ (A);:NEXT :PRINT#1,CHR$ (0); 3070 NEXT :CLOSE 1:IF B<>346712 THENPRINT"{CLR,2DOWN,RVSON}FEHLER IN DATAS!!!" 3080 END 3100 PRINT"{CLR,11DOWN}"SPC( 12)"{RVSON,SPACE}BITTE WARTEN ! " 3110 AD=61440:FOR X=0 TO50:FOR Y=0 TO62:READ A:B=B+A 3120 POKE AD+Y+(X*64),A:NEXT :NEXT :IF B<>346712 THENPRINT"{CLR,2DOWN,RVSON}FEHLER IN DATAS!!!":END 3130 PRINT"{CLR,3DOWN}LOAD"+CHR$ (34)+"ZAUBERSCHLOSS 2"+CHR$ (34)+"{HOME}" 3140 : 3150 REM BEI VERWENDUNG VON TURBO TAPE 3160 REM MUSS IN ZEILE 3130 STATT 3170 REM 'LOAD' '←L' STEHEN
|
1 rem +++ zauberschloss - 2. teil +++
2 rem +++ ein adventure von +++
3 rem +++ josef busin +++
4 rem +++ sudetenstr. 37 +++
5 rem +++ 7321 eschenbach +++
6 rem +++ tel.: 07161/42817 +++
8 rem +++ hauptprogramm +++
15 ifa=0thena=1:load"zauber-sprites 2",8,1
20 data120,169,0,141,18,208,173,17,208,41,127,141,17,208,169,129,141,26
25 data208,169,91,160,3,141,20,3,140,21,3,88,96,173,25,208,141,25,208,41
30 data1,208,3,76,144,3,173,18,208,201,200,176,21,169,200,141,18,208,169
35 data4,160,0,141,32,208,140,33,208,104,168,104,170,104,64,169,0,141,18
40 data208,169,4,160,4,76,120,3,165,197,201,64,208,14,169,0,141,4,212,141
45 data5,212,141,6,212,76,49,234,141,1,212,73,255,141,0,212,169,15,141,24
50 data212,169,25,141,5,212,169,68,141,6,212,169,17,141,4,212,76,49,234
55 data120,169,51,133,1,169,0,133,95,133,90,133,88,169,208,133,96,169,240
60 data133,89,169,224,133,91,32,191,163,169,55,133,1,88,96
65 data169,240,160,3,141,2,3,140,3,3,96,32,94,166,76,131,164
66 data162,0,160,0,138,133,251,169,216,133,252,138,145,251,200,208,251,232,230
67 data252,224,3,208,244,162,0,157,0,219,232,224,200,208,248,96
70 sys58451:forx=828to1013:reada:a5=a5+a:pokex,a:next
72 forx=704to738:reada:a5=a5+a:pokex,a:next
73 ifa5<>26829thenprint"{clr}{down}{down}{rvon}fehler in datas!":stop
75 sys963:poke981,160:sys963:poke56576,peek(56576)and252:poke53272,8:poke648,192
80 sys828:sys997
200 v=53248:pokev+21,0:pokev+29,0:pokev+23,0:printchr$(142)chr$(8)
215 print"{clr}{brn}":gosub25000
216 print"{down}{blk}{rvof}zauberschloss - 2. teil"
217 print"{down}{down}ein adventure von josef busin"
227 forx=49152to49352step11:pokex,46:nextx:forx=55296to55496step11:pokex,1:nextx
232 pokev+21,3:poke50168,192:poke50169,192:pokev,180:pokev+1,177:pokev+39,1
233 pokev+27,3:pokev+40,1:pokev+29,3:forx=1to1000:nextx
234 forx=177to20step-1:pokev,180+z:z=z+.3:pokev+1,x
235 pokev+2,180-z1:z1=z1+1.1:pokev+3,x+1:fory=0to45:nexty:nextx
240 print"{home}{rvof}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{blk}die geister haben das schloss verlassen.";
245 print"ihre stunde ist gekommen. toeten sie den";
247 print"zauberer und retten sie damit endgueltig";
248 print"das volk vor dem tyrannen. "
250 geta$:ifa$=""then250
255 print"{clr}{yel}"chr$(14):print"kennen sie die spielregeln (j/n) ?"
260 geta$:ifa$=""then260
265 ifa$="j"then307
270 print"{clr}Dieses Adventure ist die Fortsetzung"
272 print"von ZAUBERSCHLOSS.{down}"
274 print"Obwohl der Zauberer (hoffentlich!) von"
276 print"Dir in eine Maus verwandelt wurde, ist"
278 print"er jetzt wieder zurueckgekehrt."
280 print"{down}Abermals wird er versuchen, das Volk zu"
282 print"unterjochen. Als Koenig hast Du die"
284 print"Pflicht, Dein Volk und Deinen Thron vor"
292 print"dem boesen Zauberer zu retten."
296 print"{down}{down}Folgende Befehle werden akzeptiert:{down}"
297 geta$:ifa$=""then297
298 print"{clr}{down}{down}{down}{down}"
299 print"nimm...verliere...oeffne...zerschlage.."
300 print".bekaempfe...trinke...esse...lese..."
301 print"benutze...besteche...sage...kuesse..."
302 print"fange...list"
305 geta$:ifa$=""then305
307 print"{clr}"chr$(142)
310 data,,,63,255,255,255,255,,,28,255,255,255,255,255,,,,128,193,255,255,255
320 data,,,96,243,255,255,255
330 forx=0to7:reada:poke57344+x,a:nextx:forx=0to23:reada:poke58032+x,a:nextx
340 data,,,1,3,3,3,3,60,126,255,255,255,255,24,24,,,,128,192,192,192,192
350 data3,3,3,3,1,,,,24,255,231,231,255,255,129,129,192,192,192,192,128,,,
360 data,,32,112,255,255,112,32,129,255,126,,255,255,,,,,4,14,255,255,14,4
400 forx=0to15:reada:poke57584+x,a:next:forx=0to55:reada:poke57624+x,a:next
900 goto1100
1010 print"{clr}{down}{down}{down}{down}{down}{gry1}":forx=1to10:print"@VWX";:nextx
1020 forx=1to160:print"{rvon} ";:nextx:print"{yel}";
1030 forx=1to320:print"{rvon} ";:nextx
1035 pokev+27,0:poke50168,193:poke50169,193
1040 pokev+21,3:pokev+39,0:pokev,250:pokev+1,150:pokev+23,1:pokev+29,1
1050 pokev+40,0:pokev+2,50:pokev+3,120
1055 forx=49152to49370step11:pokex,46:nextx
1060 forx=55296to55514step11:pokex,1:nextx
1080 return
1100 gosub1010
1105 ifns=0andwo=0then1107
1106 goto1140
1107 iffl=1then1140
1110 poke50170,206:pokev+21,7:pokev+41,0:pokev+4,180:pokev+5,150
1120 print"{down}{rvof}{blk}du befindest dich in einer oeden gegend"
1130 print"du siehst eine flasche{up}":goto1150
1140 print"{down}{rvof}{blk}du befindest dich in einer oeden gegend"
1150 print"{down}moegliche richtungen: n-s-w-o"
1160 input"{down}kommando";k$
1165 ifk$="n"thenns=ns+1:goto1200
1170 ifk$="s"thenns=ns-1:goto1200
1175 ifk$="w"thenwo=wo-1:goto1200
1180 ifk$="o"thenwo=wo+1:goto1200
1185 ifk$="nimm flasche"andns=0andwo=0thenfl=1:pokev+21,3:goto1200
1186 ifk$="oeffne flasche"andfl=1then1195
1187 ifk$="verliere flasche"andfl=1then1197
1190 ifk$="zerschlage flasche"andfl=1then20000
1195 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rvon}unmoeglich!":forx=1to2000:nextx
1196 goto1100
1197 pokev+21,0:print"{clr}{down}{down}{wht}die flasche hat sich in rauch aufge-"
1198 print"loest.":print"somit ist das abenteuer zuende, bevor es";
1199 print"erst richtig angefangen hat.":end
1200 goto1100
2100 poke53269,0:poke876,210:sys828:poke880,210:sys828
2105 dimf1(3,4,4),f2(3,4,4),b1(3,4,4),b2(3,4,4),g$(39),b$(14),a(11)
2110 forx1=0to3:forx2=0to4:forx3=0to4:readf1(x1,x2,x3):next:next:next
2112 data8,14,12,30,4,128,13,14,7,2,8,14,15,5,4097,1034,133,11,14,22,1,8,133,128,1
2115 data10,14,14,38,2,,11,13,15,5,9,15,30,15,4,10,13,13,15,38,137,8204,4,,5
2117 data130,8,12,6,2,25,12,14,12,16391,8,14,47,12,7,2,131,11,12,7,,1,2057,4,17
2120 data8,12,140,14,6,34,520,6,66,1,139,4,387,11,6,9,12,15,5,3,8,12,141,4,33
2125 forx1=0to3:forx2=0to4:forx3=0to4:readf2(x1,x2,x3):next:next:next
2130 data,32,,,,2,,,,,,,2048,,,,,,,,,1,,2,,,,,,,16,,,,4096,,,,,16,32,,,,,,,8,16
2135 data,,,32,,,,,,512,,,,,,64,,,,,,1024,4,,,,,256,,,,,,128,,64,,,,,,,,,,,16,,,,
2140 forx1=0to3:forx2=0to4:forx3=0to4:readb1(x1,x2,x3):next:next:next
2145 data1024,,,,,,,,,1,4,,,,,,,8,,,,4,,,4096,,,,,512,,,,,,,,,,,,,,,,,,,,,256
2150 data,,128,2,,,,,,512,,,,,8192,,,,,,4,,16384,,16,,,,2048,,,,,,,64,,,4
2155 data,,,,,,,,4,
2160 forx1=0to3:forx2=0to4:forx3=0to4:readb2(x1,x2,x3):next:next:next
2165 data,,,,1,,,256,,,,,,,,,,,,,4,,,,,,,,,,,,1,,,32,,,1024,,,512,,,,,,,,,,128
2170 data,,,,,,,,,,,,,,,,,,,,,,,,,,,,,2,,,,,,,,,,8,,64,,,,,,
2180 forx=1to14:readb$(x):next
2185 databekaempfe,benutze,besteche,esse,fange,kuesse,lese,list,nimm,oeffne
2190 datasage,trinke,verliere,zerschlage
2195 forx=1to39:readg$(x):next
2196 forx=1to38:fory=x+1to39:ifg$(x)<g$(y)then2198
2197 v$=g$(x):g$(x)=g$(y):g$(y)=v$
2198 nexty:nextx
2200 datahammelkeule,schlangen,hoellenstein,wache,wachen,kobold,zauberstein
2205 datagold,bogenschuetze,ghoul,vampir,honig,zaubertrank,wein,speer,schwert
2210 dataschild,peitsche,ungeheuer,tontafel,zauberring,kroete,floete,tuer,baer
2215 datasilberdolch,werwolf,spiegel,flasche,shadow,netz,zauberer,zepter
2220 datasteinerne,saeure,schemel,gegengift,flaschengeist,holzpflock
2225 x1=1:x2=0:x3=1
2250 gosub21000:ifg>0theng=g+1:ifg=5then23000
2252 ifzt>0thenzt=zt+1:ifzt=20thengosub24000
2260 za=za+1:gosub11000:gosub10000:gosub9900:sys704
2263 iff1(x1,x2,x3)>127thenj1=1
2265 ifj1=1thengosub30000
2270 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";:input"kommando";k$
2290 ifk$="n"and(fgand1)=1thenx2=x2-1:goto2400
2300 ifk$="s"and(fgand2)=2thenx2=x2+1:goto2400
2310 ifk$="w"and(fgand4)=4thenx3=x3-1:goto2400
2320 ifk$="o"and(fgand8)=8thenx3=x3+1:goto2400
2330 ifk$="h"and(fgand16)=16thenx1=x1+1:goto2400
2340 ifk$="r"and(fgand32)=32thenx1=x1-1:goto2400
2345 gosub3000:iffe=0then2400
2350 print"{rvon}nicht moeglich!":forx=1to2000:nextx:goto2250
2400 gosub12000:gosub26000:goto2250
3000 fe=0:ifk$="list"then7000
3005 x0=0:forx=1tolen(k$):ifmid$(k$,x,1)=" "thenx0=x
3010 nextx:ifx0=0thenfe=1:return
3015 k1$=left$(k$,x0-1):k2$=mid$(k$,x0+1,len(k$)-x0)
3020 x0=0:forx=1to39:ifk2$=g$(x)ork2$="sesamoopera"thenx0=x
3030 nextx:ifx0=0thenfe=1:return
3040 x0=0:forx=1to14:ifk1$=b$(x)thenx0=x
3050 nextx:ifx0=0thenfe=1:return
3060 ifx0>8then3090
3070 onx0gosub3500,4000,4500,5000,5500,6000,6500
3080 return
3090 x0=x0-8:onx0gosub7500,8000,8500,9000,9500,13000
3100 return
3500 fe=0:s=0:gosub26000
3510 ifk2$=g$(1)and(f1(x1,x2,x3)and16384)=16384then3530
3511 ifk2$=g$(2)and(f2(x1,x2,x3)and2048)=2048then3545
3512 ifk2$=g$(4)and(b1(x1,x2,x3)and32)=32then3555
3513 ifk2$=g$(13)and(b2(x1,x2,x3)and256)=256then3570
3514 ifk2$=g$(20)and(f2(x1,x2,x3)and32)=32then3610
3515 ifk2$=g$(22)and(f2(x1,x2,x3)and256)=256then3630
3516 ifk2$=g$(29)and(f1(x1,x2,x3)and8192)=8192then3670
3517 ifk2$=g$(30)and(f1(x1,x2,x3)and1024)=1024then3705
3518 ifk2$=g$(31)ork2$=g$(32)and(f1(x1,x2,x3)and128)=128then3745
3519 ifk2$=g$(34)and(f1(x1,x2,x3)and2048)=2048then3860
3521 ifk2$=g$(7)and(f1(x1,x2,x3)and4096)=4096then3925
3522 ifk2$=g$(26)and(f2(x1,x2,x3)and128)=128then3960
3525 fe=1:return
3530 gosub3990:pokev+21,0:print"{clr}{down}{down}der baer hat sich auf keinen langen"
3540 print"kampf eingelassen."
3542 print"mit einem einzigen prankenhieb hat er"
3543 print"dich ins jenseits befoerdert.":goto55000
3545 gosub3990:pokev+21,0:print"{clr}{down}{down}":x0=0:forx=1to4:iftr$(x)=g$(19)thenx0=x
3546 nextx:ifx0=0then3550
3547 print"der pfeil des bogenschuetzen hat nur den schild getroffen."
3548 forx=1to1500:nextx:return
3550 print"leider war der unheimliche bogenschuetze";:print"schneller."
3552 print"sein magischer pfeil hat dich getroffen.":goto55000
3555 gosub3990:pokev+21,0:print"{clr}{down}{down}"
3556 print"da du den ";g$(4);" gereizt hast,"
3560 print"ist es nur selbstverstaendlich, dass er"
3565 print"dich wie ein laestiges insekt in der"
3566 print"luft zerrissen hat.":goto55000
3570 gosub3990:pokev+21,0:print"{clr}{down}{down}der kobold hat es vorgezogen zu ver-":print"schwinden."
3575 forx=1to4:iftr$(x)=g$(8)then3590
3580 next
3581 ifx1=0thenb2(1,2,1)=b2(1,2,1)+256
3582 ifx1=1thenb2(2,3,3)=b2(2,3,3)+256
3583 ifx1=2thenb2(0,1,2)=b2(0,1,2)+256
3586 b2(x1,x2,x3)=b2(x1,x2,x3)-256:forx=1to2000:nextx:return
3590 print"leider hat er dein gold mitgenommen."
3591 ifx1=0thenb2(1,2,1)=b2(1,2,1)+256
3592 ifx1=1thenb2(2,3,3)=b2(2,3,3)+256
3593 ifx1=2thenb2(0,1,2)=b2(0,1,2)+256
3595 forx=1to4:iftr$(x)=g$(8)thentr$(x)=""
3600 nextx:x0=x:gosub23200:goto3586
3610 gosub3990:pokev+21,0:print"{clr}{down}{down}"
3611 print"die schlangen haben dich gebissen."
3615 print"du bist vergiftet.":print"wenn du nicht bald etwas dagegen"
3620 print"unternimmst, ist es aus.":g=1
3625 forx=1to2500:nextx:return
3630 gosub3990:pokev+21,0:ifk$=g$(37)then3655
3635 print"{clr}{down}{down}der geheimnisvolle shadow hat dir"
3640 print"saemtliche lebensenergie genommen."
3645 print"um deine leblose huelle werden sich die"
3650 print"ratten kuemmern.":goto55000
3655 x0=0:forx=1to4:iftr$(x)=g$(37)thenx0=x
3656 nextx:ifx0=0then3635
3657 f2(x1,x2,x3)=f2(x1,x2,x3)-256:print"{clr}{down}{down}du hast den geheimnisvollen shadow"
3660 print"vernichtet."
3661 print"leider ist dabei der ";g$(37);" auch"
3662 print"vernichtet worden.":gosub23200:forx=1to3000:next:return
3670 gosub3990:pokev+21,0:print"{clr}{down}{down}":ifk$=g$(39)then3685
3675 print"das schreckliche ungeheuer hat dich mit"
3680 print"haut und haaren gefressen.":goto55000
3685 x0=0:forx=1to4:iftr$(x)=g$(39)thenx0=x
3686 nextx:ifx0=0then3675
3688 f1(x1,x2,x3)=f1(x1,x2,x3)-8192
3690 print"das ";g$(39);" hat das schreckliche"
3695 print"ungeheuer vernichtet.":forx=1to2000:nextx:return
3705 gosub3990:pokev+21,0:print"{clr}{down}{down}":ifk$=g$(11)then3725
3710 print"der blutruenstige vampir hat dich gebis-";:print"sen...{down}"
3715 print"da du nun ebenfalls zum vampir wirst,"
3720 print"kannst du nicht weiterspielen.":goto55000
3725 x0=0:forx=1to4:iftr$(x)=g$(11)thenx0=x
3730 nextx:ifx0=0then3710
3735 f1(x1,x2,x3)=f1(x1,x2,x3)-1024:print"du hast den vampir gepfaehlt."
3740 print"er ist zu staub zerfallen.":forx=1to2000:nextx:return
3745 gosub3990:pokev+21,0:print"{clr}{down}{down}":gosub33000
3750 if(f1(x1,x2,x3)and256)=256then3815
3755 if(k$=g$(21)ands=1)or(k$=g$(37)ands=2)or(k$=g$(24)ands=0)then3775
3760 if(f2(x1,x2,x3)and2)=2thengosub23100:return
3761 print"die wache hat dich gefangen und dich"
3765 print"in den kerker gebracht.":x1=0:x2=1:x3=0:forx=1to2000:nextx:a(0)=-1
3770 return
3775 print"die wache hat es vorgezogen, zu ver-"
3780 print"schwinden.":ifk$=g$(24)ands=0thengosub23400
3781 ifk$=g$(37)ands=2thengosub29100
3782 forx=0to3:if(f1(x,1,3)and128)=128then3784
3783 f1(x,1,3)=f1(x,1,3)+128
3784 nextx:f1(x1,x2,x3)=f1(x1,x2,x3)-128
3785 ifx1=0andx2=1andx3=0then3795
3790 forx=1to1500:nextx:return
3795 print"{down}du hast die wache, die dir unter um-"
3800 print"staenden haette helfen koennen, verjagt.";
3805 print"nun musst du bis an dein lebensende im":print"kerker bleiben.":goto55000
3815 ifk$=g$(37)ands=2then3825
3820 goto3760
3825 x0=0:forx=1to4:iftr$(x)=g$(37)thenx0=x
3830 nextx:ifx0=0then3760
3835 print"du hast die wachen verjagt."
3840 print"dabei ist aber der ";g$(37);" zu"
3845 print"staub zerbroeselt.":gosub23200:f1(x1,x2,x3)=f1(x1,x2,x3)-384
3850 forx=1to3000:next:return
3860 gosub3990:pokev+21,0:print"{clr}{down}{down}":ifk$=g$(23)then3875
3870 print"der werwolf hat dich zerrissen.":goto55000
3875 x0=0:forx=1to4:iftr$(x)=g$(23)thenx0=x
3880 nextx:ifx0=0then3870
3885 print"du hast den werwolf vernichtet.":print"dabei wurde aber auch der ";g$(23)
3886 f1(x1,x2,x3)=f1(x1,x2,x3)-2048
3890 print"zerstoert.":gosub23200:forx=1to3000:next:return
3925 gosub3990:pokev+21,0:print"{clr}{down}{down}":ifk$=g$(23)then3940
3930 print"leider war der ghoul hungrig, und hat"
3935 print"dich somit verspeist.":goto55000
3940 x0=0:forx=1to4:iftr$(x)=g$(23)thenx0=x
3945 nextx:ifx0=0then3930
3950 print"du hast den ghoul getoetet.":print"leider ist dabei auch der ";g$(23)
3952 print"vernichtet worden.":gosub23200:f1(x1,x2,x3)=f1(x1,x2,x3)-4096
3955 forx=1to3000:next:return
3960 gosub3990:pokev+21,0:print"{clr}{down}{down}":ifk$=g$(17)then3970
3965 print"der steinerne hat dich mit einem schlag"
3967 print"seiner steinernen faust erschlagen.":goto55000
3970 x0=0:forx=1to4:iftr$(x)=g$(17)thenx0=x
3972 nextx:ifx0=0then3965
3975 print"die ";g$(17);" hat den steinernen auf-"
3977 print"geloest.":gosub23200:f2(x1,x2,x3)=f2(x1,x2,x3)-128
3980 forx=1to3000:next:return
3990 input"womit";k$:x0=0:forx=1to39:ifk$=g$(x)thenx0=x
3995 nextx:ifx0=0then2350
3999 return
4000 pokev+21,0:print"{clr}{down}{down}":ifk2$=g$(5)then4040
4010 ifk2$=g$(16)then4090
4020 ifk2$=g$(36)then4190
4030 fe=1:return
4040 if(f2(x1,x2,x3)and32)=32then4060
4050 goto4030
4060 print"die musik hat die schlangen beruhigt."
4070 print"sie werden dich nicht beissen.":a(7)=-4:forx=1to3000:next:return
4090 x0=0:forx=1to4:iftr$(x)=g$(16)thenx0=x
4100 nextx:ifx0=0thenfe=1:return
4101 ifx1=3thenfe=1:return
4102 if(f2(x1+1,x2,x3)and16)=0thenfe=1:return
4110 print"die peitschenschnur hat sich an einem"
4120 print"balken an der decke verfangen. du bist"
4130 print"daran nach oben geklettert.":x1=x1+1
4140 f2(x1,x2,x3)=f2(x1,x2,x3)-16:forx=1to3000:next:return
4190 x0=0:forx=1to4:iftr$(x)=g$(36)thenx0=x
4200 nextx:ifx0=0thenfe=1:return
4210 print"um dich herum wird alles dunkel."
4211 print"eine fremde macht reisst dich fort."
4212 print"du bist entmaterialisiert.{down}"
4220 print"leider hat sich dabei der ";g$(36):print"in rauch aufgeloest."
4221 x1=int(rnd(1)*3+0):x2=int(rnd(2)*4+0):x3=int(rnd(3)*4+0):k=0
4230 forx=1to5000:next:gosub23200:gosub26000:return
4500 pokev+21,0:if(f2(x1,x2,x3)and2)=2and(f1(x1,x2,x3)and128)=128then4520
4510 fe=1:return
4520 x0=0:forx=1to4:iftr$(x)=g$(8)thenx0=x
4530 nextx:ifx0=0then4590
4540 print"{clr}{down}{down}die wache hat das gold genommen und hat":print"dich freigelassen."
4550 gosub23200:k=0:ifx2=1thenx3=1
4570 ifx2=4thenx2=3
4580 forx=1to3000:nextx:return
4590 print"{clr}{down}{down}du hast nichts, womit du die wache"
4600 print"bestechen koenntest.":forx=1to3000:next:return
5000 pokev+21,0:print"{clr}":ifk2$=g$(9)ork2$=g$(12)then5020
5010 fe=1:return
5020 x0=0:forx=1to4:iftr$(x)=g$(9)ortr$(x)=g$(12)thenx0=x
5040 next:ifx0=0thenfe=1:return
5050 ifk2$=g$(9)thene$="die "+g$(9):goto5070
5060 ifk2$=g$(12)thene$="den "+g$(12)
5070 gosub23200:print"{down}{down}du hast ";e$;" wie ein tier":print"verschlungen."
5080 print"{down}{down}{down}pfui!!!":forx=1to3000:next:return
5500 pokev+21,0:print"{clr}{down}{down}":ifk2$=g$(13)and(b2(x1,x2,x3)and256)=256then5530
5520 fe=1:return
5530 x0=0:forx=1to4:iftr$(x)=g$(15)thenx0=x
5540 nextx:ifx0=0then5590
5550 print"du hast den kobold gefangen, bevor er"
5560 print"verschwinden konnte.":print"du hast ihn aber wieder freigelassen,"
5570 print"da er dir gold gegeben hat.":b2(x1,x2,x3)=b2(x1,x2,x3)-256
5580 b1(x1,x2,x3)=b1(x1,x2,x3)+4:forx=1to2000:nextx:gosub5620:return
5590 print"du hattest nichts, womit du den flinken"
5600 print"kobold haettest fangen koennen.":print"er ist verschwunden."
5601 forx=1to4:iftr$(x)=g$(8)thengosub5700
5602 next
5610 b2(x1,x2,x3)=b2(x1,x2,x3)-256:forx=1to2000:nextx:gosub5620:return
5620 ifx1=0thenb2(1,2,1)=b2(1,2,1)+256
5630 ifx1=1thenb2(2,3,3)=b2(2,3,3)+256
5640 ifx1=2thenb2(3,3,2)=b2(3,3,2)+256
5650 ifx1=3thenb2(0,1,2)=b2(0,1,2)+256
5660 return
5700 print"{down}leider hat er dein gold migenommen.":x0=x:gosub23200:return
6000 pokev+21,0:print"{clr}{down}{down}":ifk2$=g$(14)then6020
6010 fe=1:return
6020 x0=0:forx=1to4:iftr$(x)=g$(14)thenx0=x
6030 nextx:ifx0=0then6010
6040 print"leider hat sich die kroete in keine"
6050 print"schoene prinzessin verwandelt."
6060 print"{down}dafuer hat sie dich gebissen, und da es"
6070 print"sich um eine giftige art handelte, hast"
6080 print"du das zeitliche gesegnet.":goto55000
6500 pokev+21,0:print"{clr}{down}{down}":ifk2$=g$(27)then6520
6510 fe=1:return
6520 x0=0:forx=1to4:iftr$(x)=g$(27)thenx0=x
6530 nextx:ifx0=0then6510
6540 print"{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}s e s a m o o p e r a":forx=1to3000:nextx
6550 print"{clr}{down}{down}die ";g$(27);" ist zu staub zer-"
6560 print"fallen.":gosub23200:forx=1to3000:next:return
7000 pokev+21,0:print"{clr}{down}{down}du traegst:":x0=0:forx=1to4:iftr$(x)<>""thenx0=x
7010 nextx:ifx0=0thenprinttab(13)"{down}nichts":forx=1to2000:nextx:return
7020 print"{down}":forx=1to4:printtab(13)tr$(x):nextx
7030 geta$:ifa$=""then7030
7040 return
7500 pokev+21,0:print"{clr}":x0=0:forx=1to4:iftr$(x)=""thenx0=x
7502 nextx:ifx0=0thenfe=1:return
7505 b1=b1(x1,x2,x3):b2=b2(x1,x2,x3)
7507 ifk2$=g$(10)and(b2and1)=1then23300
7508 ifk2$=g$(21)and(b2and32)=32thengosub23500:goto7780
7509 ifk2$=g$(8)and(b1and4)=4then29500
7510 ifk2$=g$(37)and(b1and1)=1thenb1=b1-1:goto7770
7520 ifk2$=g$(5)and(b1and2)=2thenb1=b1-2:goto7770
7530 ifk2$=g$(8)and(b1and4)=4thenb1=b1-4:goto7770
7540 ifk2$=g$(12)and(b1and8)=8thenb1=b1-8:goto7770
7550 ifk2$=g$(3)and(b1and16)=16thenb1=b1-16:goto7770
7560 ifk2$=g$(4)and(b1and32)=32thenb1=b1-32:goto7770
7570 ifk2$=g$(17)and(b1and64)=64thenb1=b1-64:goto7770
7580 ifk2$=g$(14)and(b1and128)=128thenb1=b1-128:goto7770
7590 ifk2$=g$(27)and(b1and256)=256thenb1=b1-256:goto7770
7600 ifk2$=g$(24)and(b1and512)=512thenb1=b1-512:goto7770
7610 ifk2$=g$(9)and(b1and1024)=1024thenb1=b1-1024:goto7770
7620 ifk2$=g$(15)and(b1and2048)=2048thenb1=b1-2048:goto7770
7630 ifk2$=g$(33)and(b1and4096)=4096thenb1=b1-4096:goto7770
7640 ifk2$=g$(23)and(b1and8192)=8192thenb1=b1-8192:goto7770
7650 ifk2$=g$(25)and(b1and16384)=16384thenb1=b1-16384:goto7770
7670 ifk2$=g$(39)and(b2and2)=2thenb2=b2-2:goto7780
7680 ifk2$=g$(38)and(b2and4)=4thenb2=b2-4:goto7780
7690 ifk2$=g$(18)and(b2and8)=8thenb2=b2-8:goto7780
7700 ifk2$=g$(11)and(b2and16)=16thenb2=b2-16:goto7780
7710 ifk2$=g$(21)and(b2and2048)=2048thenb2=b2-2048:goto7780
7720 ifk2$=g$(6)and(b2and64)=64thenb2=b2-64:goto7780
7730 ifk2$=g$(36)and(b2and128)=128thenb2=b2-128:goto7780
7740 ifk2$=g$(16)and(b2and512)=512thenb2=b2-512:goto7780
7750 ifk2$=g$(19)and(b2and1024)=1024thenb2=b2-1024:goto7780
7760 fe=1:return
7770 b1(x1,x2,x3)=b1:tr$(x0)=k2$:return
7780 b2(x1,x2,x3)=b2:tr$(x0)=k2$:return
8000 pokev+21,0:print"{clr}{down}{down}":ifk2$=g$(3)then8040
8010 ifk2$=g$(28)then8190
8030 fe=1:return
8040 x0=0:forx=1to4:iftr$(x)=g$(3)thenx0=x
8050 nextx:ifx0=0then8030
8055 tr$(x0)="":gosub23200
8060 if(f1(x1,x2,x3)and128)=128then8090
8070 print"du hast die flasche geoeffnet.":print"leider befand sich ein flaschengeist"
8080 print"darin, der dich gefressen hat.":goto55000
8090 print"du hast die flasche geoeffnet.":if(f1(x1,x2,x3)and384)=384then8150
8100 print"in der flasche befand sich ein flaschen-";
8110 print"geist, der herauskam und die wache ver-":print"jagte."
8120 print"{down}leider hat er immer noch hunger, und du"
8130 print"bist das einzig essbare wesen in der":print"umgebung.":forx=1to5000:next:a(11)=0
8140 b1(x1,x2,x3)=b1(x1,x2,x3)+32:f1(x1,x2,x3)=f1(x1,x2,x3)-128:a(0)=0:return
8150 print"in der flasche befand sich ein geist,":print"der die wachen verjagte."
8160 print"{down}leider hat er immer noch hunger, und du"
8170 print"bist das einzig essbare wesen in der":print"umgebung.":forx=1to4000:next:a(11)=0
8180 b1(x1,x2,x3)=b1(x1,x2,x3)+32:f1(x1,x2,x3)=f1(x1,x2,x3)-384:a(0)=0:return
8190 if(f1(x1,x2,x3)and64)=64andtu=0thenprint"die tuer ist verschlossen.":goto8260
8191 if(f1(x1,x2,x3)and64)=64andtu=1thenprint"o.k.":f1(x1,x2,x3)=f1(x1,x2,x3)-63:goto8260
8200 if(f2(x1,x2,x3)and8)=8then22000
8210 if(f2(x1,x2,x3)and64)=64then8240
8220 if(f2(x1,x2,x3)and512)=512then8250
8225 if(f2(x1,x2,x3)and4096)=4096then8270
8230 fe=1:return
8240 print"du bist in den wassergraben gestuerzt,":print"und ertrunken.":goto55000
8250 print"die tuer ist zugemauert worden."
8260 forx=1to3000:nextx:return
8270 print"diese tuer fuehrte ins freie.":print"leider kam gerade ein rudel hungriger"
8271 print"woelfe vorbei...":print"{down}dein ende war schrecklich.":goto55000
8500 pokev+21,0:print"{clr}{down}{down}":ifk2$="sesamoopera"then8520
8510 fe=1:return
8520 if(f2(x1,x2,x3)and1024)=1024then8550
8525 if(f1(x1,x2,x3)and64)=0then8510
8530 print"der zauberspruch hat die magische sperre";
8540 print"der tuer beseitigt.":tu=1:goto8260
8550 print"durch den magischen spruch hat sich ein"
8560 print"geheimgang geoeffnet.":f2(x1,x2,x3)=f2(x1,x2,x3)-1024
8570 f1(x1,x2,x3)=f1(x1,x2,x3)+1:goto8260
9000 pokev+21,0:print"{clr}{down}{down}":ifk2$=g$(6)then9050
9020 ifk2$=g$(33)then9070
9025 ifk2$=g$(17)then9110
9030 ifk2$=g$(38)then9090
9040 fe=1:return
9050 tr$=k2$:gosub9400:ifg>0thenprint"du bist geheilt.":g=0:gosub23200:goto8260
9070 tr$=k2$:gosub9400:print"du bist durch den wein eingeschlafen."
9071 forx=0to11:ifa(x)>0then9430
9072 next
9080 gosub23200:print"die wache hat dich gefunden und dich":gosub3765:return
9090 tr$=k2$:gosub9400:zt=1:gosub23200
9100 print"du fuehlst dich sehr stark.":forx=1to2000:next:return
9110 tr$=k2$:gosub9400:print"die ";g$(17);" schmeckte aetzend..."
9120 print"{down}leider hat sich dein magen aufgeloest.":goto55000
9400 x0=0:forx=1to4:iftr$(x)=tr$thenx0=x
9410 nextx:ifx0=0then2350
9420 return
9430 forx=1to3000:next:if(f2(x1,x2,x3)and2)=2then31000
9435 if(f2(x1,x2,x3)and32)=32then9450
9440 return
9450 print"{clr}{down}{down}da du eingeschlafen bist, konnten dich"
9460 print"die schlangen in aller ruhe beissen...":goto55000
9500 pokev+21,0:print"{clr}":x0=0:forx=1to39:ifg$(x)=k2$thenx0=x
9510 nextx:ifx0=0thenfe=1:return
9512 ifx7=8thenfe=1:return
9515 ifk2$=g$(9)and(f1(x1,x2,x3)and2048)=2048thengosub12700:return
9517 ifk2$=g$(33)and(b1(x1,x2,x3)and32)=32thengosub12800:return
9520 b1=b1(x1,x2,x3):b2=b2(x1,x2,x3)
9521 ifk2$=g$(8)and(b1and4)=4thenb1=b1-4
9522 ifk2$=g$(24)and(b1and512)=512thenb1=b1-512
9523 ifk2$=g$(9)and(f1(x1,x2,x3)and16384)=16384thengosub9800:gosub28100:goto9660
9525 ifk2$=g$(12)and(f1(x1,x2,x3)and16384)=16384thengosub9800:gosub28000:goto9660
9526 ifk2$=g$(8)and(f1(x1,x2,x3)and128)=128thengosub9800:gosub32000:return
9527 ifk2$=g$(8)and(b2and256)=256thengosub9800:gosub32020:return
9530 ifk2$=g$(37)thengosub9800:b1=b1+1:goto9660
9535 ifk2$=g$(5)thengosub9800:b1=b1+2:goto9660
9540 ifk2$=g$(8)thengosub9800:b1=b1+4:goto9660
9545 ifk2$=g$(12)thengosub9800:b1=b1+8:goto9660
9550 ifk2$=g$(3)thengosub9800:b1=b1+16:goto9660
9555 ifk2$=g$(4)thengosub9800:b1=b1+32:goto9660
9560 ifk2$=g$(17)thengosub9800:b1=b1+64:goto9660
9565 ifk2$=g$(14)thengosub9800:b1=b1+128:goto9660
9570 ifk2$=g$(27)thengosub9800:b1=b1+256:goto9660
9575 ifk2$=g$(24)thengosub9800:b1=b1+512:goto9660
9580 ifk2$=g$(9)thengosub9800:b1=b1+1024:goto9660
9585 ifk2$=g$(15)thengosub9800:b1=b1+2048:goto9660
9590 ifk2$=g$(33)thengosub9800:b1=b1+4096:goto9660
9595 ifk2$=g$(23)thengosub9800:b1=b1+8192:goto9660
9600 ifk2$=g$(25)thengosub9800:b1=b1+16384:goto9660
9610 ifk2$=g$(39)thengosub9800:b2=b2+2:goto9670
9615 ifk2$=g$(38)thengosub9800:b2=b2+4:goto9670
9620 ifk2$=g$(18)thengosub9800:b2=b2+8:goto9670
9625 ifk2$=g$(11)thengosub9800:b2=b2+16:goto9670
9630 ifk2$=g$(21)thengosub9800:b2=b2+2048:goto9670
9635 ifk2$=g$(6)thengosub9800:b2=b2+64:goto9670
9640 ifk2$=g$(36)thengosub9800:b2=b2+128:goto9670
9645 ifk2$=g$(16)thengosub9800:b2=b2+512:goto9670
9650 ifk2$=g$(19)thengosub9800:b2=b2+1024:goto9670
9655 fe=1:return
9660 b1(x1,x2,x3)=b1:return
9670 b2(x1,x2,x3)=b2:return
9800 x0=0:forx=1to4:iftr$(x)=k2$thenx0=x
9810 nextx:ifx0=0then2350
9820 gosub23200:return
9900 r$="moegliche richtungen: "
9910 if(fgand1)=1thenr$=r$+"-n"
9920 if(fgand2)=2thenr$=r$+"-s"
9930 if(fgand4)=4thenr$=r$+"-w"
9940 if(fgand8)=8thenr$=r$+"-o"
9950 if(fgand16)=16thenr$=r$+"-h"
9960 if(fgand32)=32thenr$=r$+"-r"
9970 r$=r$+"-":print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"i$:printr$:return
10000 print"{clr}":fg=f1(x1,x2,x3):sys704
10002 gosub10700
10003 if(fgand64)=64thengosub10100
10004 if(f2(x1,x2,x3)and512)=512thengosub10100
10005 if(fgand1)=1thengosub10100
10006 if(f2(x1,x2,x3)and64)=64thengosub10300
10007 if(f2(x1,x2,x3)and4096)=4096thengosub10300
10015 if(fgand4)=4thengosub10200
10020 if(fgand8)=8thengosub10300
10025 if(fgand16)=16thengosub10400
10030 if(fgand32)=32thengosub10500
10040 return
10100 forx=49678to49690:pokex,100:nextx:poke49678,76
10110 s=0:poke49690,122:forx=1to5:poke49650-s,103:s=s+40:nextx
10120 forx=49451to49453:pokex,100:nextx
10130 s=0:forx=1to5:poke49654-s,101:s=s+40:nextx
10140 poke49694,76:forx=49695to49705:pokex,100:nextx:poke49705,122
10150 return
10200 poke49717,78:poke49756,78:poke49873,78:poke49912,78
10210 s=0:forx=1to13:poke49833-s,103:s=s+40:nextx
10220 s=0:poke49354,77:poke49395,77:forx=1to9:poke49435+s,103:s=s+40:nextx
10230 poke49755,122:poke49754,100
10240 poke49435,80:poke49434,99
10250 return
10300 poke49746,77:poke49787,77:poke49910,77:poke49951,77
10310 s=0:forx=1to13:poke49870-s,101:s=s+40:nextx:poke49389,78:poke49428,78
10320 s=0:forx=1to9:poke49468+s,101:s=s+40:nextx
10330 poke49788,76:poke49789,100:poke49468,79:poke49469,99
10340 r=0:return
10400 forx=49202to49208:pokex,100:nextx
10410 poke49242,77:poke49283,77:poke49248,78:poke49287,78
10420 poke49243,77:poke49247,78
10430 s=0:forx=1to7:poke49244+s,93:poke49244+s+40,107:s=s+80:nextx
10440 s=0:forx=1to7:poke49246+s,93:poke49246+s+40,115:s=s+80:nextx
10450 s=0:forx=1to7:poke49245+s+40,67:s=s+80:nextx
10460 return
10500 forx=49937to49943:pokex,99:nextx
10510 poke49897,78:poke49858,78:poke49903,77:poke49862,77:poke49898,78:poke49902,77
10520 s=0:forx=1to2:poke49899-s,66:poke49899-s-40,107:s=s+80:nextx
10530 s=0:forx=1to2:poke49901-s,66:poke49901-s-40,115:s=s+80:nextx
10540 s=0:forx=1to2:poke49900-s-40,67:s=s+80:nextx
10550 return
10700 s=0:forx=1to6:poke49152+s,77:s=s+41:next
10702 s=0:forx=1to6:poke49191+s,78:s=s+39:nextx
10704 forx=49398to49425:pokex,99:nextx
10710 s=0:forx=1to8:poke49398+s,101:s=s+40:nextx
10715 s=0:forx=1to8:poke49425+s,103:s=s+40:nextx:poke49398,79:poke49425,80
10720 if(fgand1)=1then10730
10725 forx=49678to49705:pokex,100:nextx:poke49678,76:poke49705,122
10730 if(fgand4)=4then10740
10735 s=0:forx=1to6:poke49717+s,78:s=s+39:nextx
10740 if(fgand8)=8then10750
10745 s=0:forx=1to6:poke49746+s,77:s=s+41:nextx
10750 return
11000 pokev+21,0:fg=f1(x1,x2,x3):f2=f2(x1,x2,x3):b1=b1(x1,x2,x3):b2=b2(x1,x2,x3)
11001 pokev+23,0:pokev+29,0
11005 i$="":s7=50168:x7=0:m=0
11010 if(fgand64)=64theni$=i$+" "+g$(28)
11020 if(fgand128)=128theni$=i$+" "+g$(31):m=20:f=0:gosub11500:a(0)=a(0)+1
11030 if(fgand256)=256thenm=20:f=0:gosub11500
11040 if(fgand512)=512theni$=i$+" "+g$(35):m=22:f=0:gosub11530:goto29000
11050 if(fgand1024)=1024theni$=i$+" "+g$(30):m=18:f=0:gosub11530:a(2)=a(2)+1
11060 if(fgand2048)=2048theni$=i$+" "+g$(34):m=24:f=0:gosub11530:a(3)=a(3)+1
11070 if(fgand4096)=4096theni$=i$+" "+g$(7):m=26:f=7:gosub11500:a(4)=a(4)+1
11080 if(fgand8192)=8192theni$=i$+" "+g$(29):m=33:f=5:gosub11550:a(5)=a(5)+1
11090 if(fgand16384)=16384theni$=i$+" "+g$(1):m=31:f=0:gosub11500:a(6)=a(6)+1
11100 if(f2and1)=1theni$=i$+"koboldhoehle"+" "+g$(8):m=29:f=7:gosub11520:return
11110 if(f2and2)=2theni$=i$+" "+"kerker":k=k+1:ifk=4then31000
11120 if(f2and4)=4theni$=i$+"schatzkammer"+" "+g$(8):m=29:f=7:gosub11520:return
11130 if(f2and8)=8theni$=i$+" "+g$(28)
11140 if(f2and16)=16thenx1=x1-1:gosub27000:goto11005
11150 if(f2and32)=32theni$=i$+" "+g$(20):m=32:f=0:gosub11520:a(7)=a(7)+1
11160 if(f2and64)=64theni$=i$+" "+g$(28)
11170 if(f2and128)=128theni$=i$+" "+g$(26):m=41:f=0:gosub11530:a(8)=a(8)+1
11175 if(f2and256)=256theni$=i$+" "+g$(22):m=37:f=1:gosub11530:a(9)=a(9)+1
11180 if(f2and512)=512theni$=i$+" "+g$(28)
11190 if(f2and2048)=2048theni$=i$+" "+g$(2):m=35:f=5:gosub11500:a(10)=a(10)+1
11200 if(f2and4096)=4096theni$=i$+" "+g$(28):return
11210 if(b1and1)=1theni$=i$+" "+g$(37):m=36:f=11:gosub11580
11220 if(b1and2)=2theni$=i$+" "+g$(5):m=39:f=0:gosub11500
11230 if(b1and4)=4theni$=i$+" "+g$(8):m=29:f=7:gosub11500
11240 if(b1and8)=8theni$=i$+" "+g$(12):m=40:f=7:gosub11580
11245 if(b1and16)=16theni$=i$+" "+g$(3):m=30:f=1:gosub11580
11250 if(b1and32)=32theni$=i$+" "+g$(4):m=47:f=5:gosub11500:a(11)=a(11)+1
11260 if(b1and64)=64theni$=i$+" "+g$(17):m=46:f=0:gosub11500
11270 if(b1and128)=128theni$=i$+" "+g$(14):m=44:f=5:gosub11580
11280 if(b1and256)=256theni$=i$+" "+g$(27):m=58:f=11:gosub11580
11290 if(b1and512)=512theni$=i$+" "+g$(24):m=61:f=0:gosub11500
11300 if(b1and1024)=1024theni$=i$+" "+g$(9):m=56:f=0:gosub11500
11310 if(b1and2048)=2048theni$=i$+" "+g$(15):m=57:f=1:gosub11500
11320 if(b1and4096)=4096theni$=i$+" "+g$(33):m=28:f=2:gosub11500
11330 if(b1and8192)=8192theni$=i$+" "+g$(23):m=59:f=11:gosub11500
11340 if(b1and16384)=16384theni$=i$+" "+g$(25):m=49:f=7:gosub11500
11345 if(b2and1)=1theni$=i$+" "+g$(10):f=2:m=48:gosub11580
11350 if(b2and2)=2theni$=i$+" "+g$(39):m=50:f=1:gosub11500
11360 if(b2and4)=4theni$=i$+" "+g$(38):m=60:f=0:gosub11500
11370 if(b2and8)=8theni$=i$+" "+g$(18):m=51:f=0:gosub11500
11380 if(b2and16)=16theni$=i$+" "+g$(11):m=54:f=0:gosub11580
11390 if(b2and32)=32theni$=i$+" "+g$(21):m=45:f=11:gosub11500
11400 if(b2and64)=64theni$=i$+" "+g$(6):m=52:f=0:gosub11500
11410 if(b2and128)=128theni$=i$+" "+g$(36):m=53:f=1:gosub11580
11420 if(b2and256)=256theni$=i$+" "+g$(13):m=21:f=0:gosub11580
11430 if(b2and512)=512theni$=i$+" "+g$(16):m=43:f=0:gosub11500
11440 if(b2and1024)=1024theni$=i$+" "+g$(19):m=27:f=0:gosub11500
11445 if(b2and2048)=2048theni$=i$+" "+g$(21):m=55:f=0:gosub11500
11450 return
11500 pokev+29,peek(v+29)+2^x7:pokev+23,peek(v+29)
11501 pokes7+x7,m+176:pokev+21,peek(v+21)+2^x7:pokev+39+x7,f:x7=x7+1:return
11520 pokev+29,0:pokev+23,0:forzz=1to8:gosub11501:next:return
11530 pokes7+x7,m+1+176:pokes7+x7+1,m+176:pokev+29,3:pokev+23,3
11531 pokev+2,210:pokev+3,185:pokev,210:pokev+1,148
11535 pokev+21,peek(v+21)+2^x7+2^(x7+1):pokev+39+x7,f:pokev+39+x7+1,f
11540 pokev+x7+2,peek(v+x7):pokev+x7+3,peek(v+x7+1)-42:x7=x7+2:j1=1:return
11550 pokes7,m+176:pokes7+1,m+1+176:pokes7+2,238:pokes7+3,239:pokev+23,255:pokev+29,255
11560 pokev+21,15:forx=0to3:pokev+39+x,5:next:pokev+6,250:pokev+7,167
11570 pokev+4,202:pokev+5,167:pokev+2,154:pokev+3,167:pokev,154:pokev+1,125:return
11580 gosub11501:return
12000 x0=0:forx=0to11:ifa(x)>0thenx0=x+1
12010 nextx:ifx0=0thenreturn
12015 pokev+21,0:print"{clr}{down}{down}"
12020 onx0gosub12900,3910,3710,3870,3930,3675,12500,3611,3965,3635,12600,3556
12025 forx=0to11:a(x)=0:next:return
12500 print"der baer hat dich gefressen.":goto55000
12600 x0=0:forx=1to4:iftr$(x)=g$(19)thenx0=x
12610 next:ifx0=0then3550
12620 gosub3547:return
12700 x0=0:forx=1to4:iftr$(x)=k2$thenx0=x
12710 next:ifx0=0thenreturn
12720 print"{down}{down}der ";g$(34);" hat die ";g$(9);" ge-"
12730 print"fressen. einstweilen ist er satt.":print"er wird dich nicht behelligen."
12740 tr$(x0)="":forx=1to4:iftr$(x)=""thentr$(x)=tr$(x+1)
12750 next:a(3)=-4:forx=1to3000:next:return
12800 x0=0:forx=1to4:iftr$(x)=k2$thenx0=x
12810 next:ifx0=0thenreturn
12820 print"der flaschengeist hat den wein gerochen,"
12830 print"und ist in der flasche verschwunden."
12840 print"er ist zum weingeist geworden.":gosub23200
12850 print"{down}{down}nun ist er in asbach uralt anzufinden!"
12860 b1(x1,x2,x3)=b1(x1,x2,x3)-32:a(11)=-1:forx=1to4000:next:return
12900 if(x1=0andx2=1andx3=1)or(x1=0andx2=3andx3=3)thena(0)=0:return
12910 gosub3760:return
13000 pokev+21,0:print"{clr}{down}{down}":ifk2$=g$(18)then13025
13010 ifk2$=g$(25)then 13050
13015 ifk2$=g$(28)then13100
13020 fe=1:return
13025 x0=0:forx=1to4:iftr$(x)=g$(18)thenx0=x
13026 nextx:ifx0=0thenfe=1:return
13027 gosub23200
13030 print"du hast den ";g$(18);" zerschlagen.":b2(x1,x2,x3)=b2(x1,x2,x3)+16
13040 forx=1to3000:nextx:return
13050 x0=0:forx=1to4:iftr$(x)=g$(25)thenx0=x
13060 nextx:ifx0=0thenfe=1:return
13070 print"du hast den ";g$(25);" zerschlagen."
13080 gosub23200:forx=1to3000:next:return
13100 ifzt=0thenprint"dazu fehlt dir leider die noetige kraft.";:goto13080
13110 print"dank deiner staerke konntest du die":print"mauer zerschlagen."
13120 f2(x1,x2,x3)=f2(x1,x2,x3)-512:f1(x1,x2,x3)=f1(x1,x2,x3)+1:goto13080
15000 pokev+21,0:print"{clr}{down}{down}der magische blitz des zauberes ist von"
15010 print"deinem ";g$(25);" abgeprallt, und hat den"
15020 print"zauberer selber getroffen.":print"{down}ein fuerchterlicher schrei, eine grelle"
15030 print"lichexplosion...":print"{down}{down}der zauberer ist vernichtet!!!"
15040 f1(x1,x2,x3)=f1(x1,x2,x3)-512
15050 forx=1to8000:next:goto2250
20000 pokev+21,0:poke887,9:sys828:print"{clr}{blk}{down}{down}durch das zerschlagen der flasche hast"
20010 print"du eine magische kettenreaktion ausge-"
20020 print"loest."
20030 print"ein wirbelwind ergreift dich und traegt"
20040 print"dich fort."
20050 print"{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}moege die macht mit dir sein...":goto2100
21000 pokev,255:pokev+1,165:pokev+2,205:pokev+3,165:pokev+4,155:pokev+5,165
21010 pokev+6,105:pokev+7,165:pokev+8,55:pokev+9,165:pokev+10,230:pokev+11,170
21020 pokev+12,180:pokev+13,170:pokev+14,130:pokev+15,170:return
22000 pokev+21,0:print"{clr}{blk}":gosub25000:forx=1to40:print"{rvon} ";:next:print"{rvof}{down}du bist im freien."
22005 forx=0to4000:next
22010 print"dichte nebel umwallen das schloss,"
22020 forx=1to1000:poke49152+int(rnd(1)*799+0),102:next
22030 print"die das alte gemaeuer zerfressen und in":print"rauch aufloesen."
22040 forx=1to1000:poke49152+int(rnd(1)*799+0),32:next:forx=1to1000:next:print"{clr}{down}{down}"
22050 print"{rvof}das adventure ist geloest."
22055 print"{down}{down}du hast dein volk gerettet und hast"
22056 print"dich als wahrer koenig erwiesen."
22060 print"{down}{down}es wurden"za"schritte benoetigt.":end
23000 pokev+21,0:print"{clr}{down}{down}das schlangengift hat dich getoetet.":goto55000
23100 ifk1$<>"bekaempfe"thenreturn
23105 print"vorsicht!":print"die wache ist sehr schlecht gelaunt."
23110 print"wenn du sie weiter so aergerst, waere es";
23120 print"moeglich, dass du in der folterkammer":print"landest."
23130 forx=1to4000:next:return
23200 tr$(x0)="":forx=1to3:fory=x+1to4:iftr$(x)>tr$(y)then23220
23210 v$=tr$(x):tr$(x)=tr$(y):tr$(y)=v$
23220 nexty:nextx:gosub23600:return
23300 print"{down}{down}die magischen kraefte des flammenden"
23310 printg$(10);:print"s haben dich vernichtet.":goto55000
23400 print"{down}leider zerbrach dabei auch der ";g$(24);".":gosub23200:return
23500 ifzt>0then23540
23510 print"{down}{down}das ";g$(21);" steckt zu tief.":k2$=""
23520 print"du bist zu schwach, um es rauszuziehen.":forx=1to3000:next:return
23540 b2=b2-32:print"dank deiner staerke konntest du das"
23550 printg$(21);:print" herausziehen.":forx=1to2500:next:return
23600 forx=1to3:fory=x+1to4:iftr$(x)=tr$(y)thentr$(y)=""
23610 next:next:return
24000 pokev+21,0:print"{clr}{down}{down}die wirkung des zaubertranks hat nachge-":print"lassen."
24010 print"du bist wieder schwach.":forx=1to3000:next:return
25000 print"{home}{down}{down}{down}{down}{down}"," {rvon}{SHIFT-POUND}{CBM-*}",,"{left}{rvon}{SHIFT-POUND}{CBM-*}":print,"{rvon}{SHIFT-POUND} {CBM-*}"spc(14)"{SHIFT-POUND} {CBM-*}"
25010 print,"{rvon}{CBM-K} {CBM-L}"spc(14)"{rvon}{CBM-K} {CBM-L}"
25020 print,"{rvon}{CBM-K} {CBM-K}{CBM-L}"spc(14)"{rvon}{CBM-K} {CBM-K}{CBM-L}"
25030 print,"{rvon}{CBM-K} {CBM-K}{CBM-L}"spc(14)"{rvon}{CBM-K} {CBM-K}{CBM-L}"
25035 print,"{rvon}{CBM-K} {CBM-L}{rvof}{CBM-D}{CBM-F}{CBM-D}{CBM-F}{CBM-D}{CBM-F}{CBM-D}{CBM-F}{CBM-D}{CBM-F}{CBM-D}{CBM-F}{CBM-D}{CBM-F}{rvon}{CBM-K} {CBM-L}"
25040 print,"{rvon}{CBM-K} {CBM-L}"
25045 print,"{rvon}{CBM-K} {CBM-L}"
25050 print,"{rvon}{CBM-K} {CBM-L}"
25055 print,"{rvon}{CBM-K} {CBM-L}"
25060 print,"{rvon}{CBM-K} {CBM-L}{rght}{CBM-K} {CBM-L}"
25065 print,"{rvon}{CBM-K} {CBM-L}{rght}{CBM-K} {CBM-L}"
25070 print,"{rvon}{CBM-K} {CBM-L}{rght}{CBM-K} {CBM-L}":forx=1to40:print"{rvon} ";:nextx:return
26000 forx=0to11:ifa(x)>0thena(x)=0
26010 next:return
27000 pokev+21,0:print"{clr}{down}{down}du bist auf eine falltuer getreten."
27010 print"zum glueck hast du den sturz gut ueber-":print"standen."
27020 fg=f1(x1,x2,x3):f2=f2(x1,x2,x3):forx=1to3000:next:return
28000 print"{down}{down}der baer hat sich ueber den honig her-":print"gemacht.":gosub23200
28010 print"er ist zu sehr mit dem honig beschaef-"
28020 print"tigt, als dass du fuer ihn interessant":print"waerst.":a(6)=-5
28030 forx=1to3500:next:return
28100 print"{down}{down}der baer hat die ";g$(9)
28110 print"gefressen.":print"{down}einstweilen ist er satt.":a(6)=-3:goto28030
29000 gosub10000:gosub9900
29001 forx=1to5000:next:x0=0:forx=1to4:iftr$(x)=g$(25)thenx0=x
29010 next:ifx0=0then29030
29020 goto15000
29030 pokev+21,0:print"{clr}{down}{down}der zauberer hat dich mit einem"
29040 print"magischen blitz getoetet.":goto55000
29100 print"{down}dabei ist aber der ";g$(37);" zu"
29110 print"staub zerbroeselt.":gosub23200:return
29500 if(f2(x1,x2,x3)and1)=1or(f2(x1,x2,x3)and4)=4then29520
29510 goto7510
29520 goto7770
30000 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";:print"^_#":print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}$%&"
30010 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}'()":j1=0:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
30020 print"^_#":print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}$%&":print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}'()":return
31000 pokev+21,0:poke50168,240:poke50169,241:poke50170,242:pokev+21,7:pokev+29,7:pokev+23,7
31010 pokev+2,150:pokev+3,165:pokev,150:pokev+1,123:pokev+4,198:pokev+5,165
31020 pokev+39,0:pokev+40,0:pokev+41,0
31030 print"{clr}{down}die wache hat dich dem henker ueberge-":print"ben.":goto55000
32000 pokev+21,0:print"{clr}{down}{down}die wache hat sich das gold unter den"
32010 print"nagel gerissen.":gosub26000:forx=1to3000:next:return
32020 pokev+21,0:print"{clr}{down}{down}der kobold hat das gold an sich genom-"
32030 print"men.":gosub26000:forx=1to3000:next:return
33000 x0=0:forx=1to4:iftr$(x)=g$(21)andk$=g$(21)thenx0=x:s=1
33010 next:ifx0<>0thenreturn
33020 x0=0:forx=1to4:iftr$(x)=g$(24)andk$=g$(24)thenx0=x:s=0
33030 next:ifx0<>0thenreturn
33040 x0=0:forx=1to4:iftr$(x)=g$(37)andk$=g$(37)thenx0=x:s=2
33050 next:ifx0<>0thenreturn
33060 goto2350
55000 print"{down}{down}{down}so schnell kann ein abenteuer enden.":end
1 REM +++ ZAUBERSCHLOSS - 2. TEIL +++ 2 REM +++ EIN ADVENTURE VON +++ 3 REM +++ JOSEF BUSIN +++ 4 REM +++ SUDETENSTR. 37 +++ 5 REM +++ 7321 ESCHENBACH +++ 6 REM +++ TEL.: 07161/42817 +++ 8 REM +++ HAUPTPROGRAMM +++ 15 IF A=0 THENA=1:LOAD "ZAUBER-SPRITES 2",8,1 20 DATA 120,169,0,141,18,208,173,17,208,41,127,141,17,208,169,129,141,26 25 DATA 208,169,91,160,3,141,20,3,140,21,3,88,96,173,25,208,141,25,208,41 30 DATA 1,208,3,76,144,3,173,18,208,201,200,176,21,169,200,141,18,208,169 35 DATA 4,160,0,141,32,208,140,33,208,104,168,104,170,104,64,169,0,141,18 40 DATA 208,169,4,160,4,76,120,3,165,197,201,64,208,14,169,0,141,4,212,141 45 DATA 5,212,141,6,212,76,49,234,141,1,212,73,255,141,0,212,169,15,141,24 50 DATA 212,169,25,141,5,212,169,68,141,6,212,169,17,141,4,212,76,49,234 55 DATA 120,169,51,133,1,169,0,133,95,133,90,133,88,169,208,133,96,169,240 60 DATA 133,89,169,224,133,91,32,191,163,169,55,133,1,88,96 65 DATA 169,240,160,3,141,2,3,140,3,3,96,32,94,166,76,131,164 66 DATA 162,0,160,0,138,133,251,169,216,133,252,138,145,251,200,208,251,232,230 67 DATA 252,224,3,208,244,162,0,157,0,219,232,224,200,208,248,96 70 SYS 58451:FOR X=828 TO1013:READ A:A5=A5+A:POKE X,A:NEXT 72 FOR X=704 TO738:READ A:A5=A5+A:POKE X,A:NEXT 73 IF A5<>26829 THENPRINT"{CLR,2DOWN,RVSON}FEHLER IN DATAS!":STOP 75 SYS 963:POKE 981,160:SYS 963:POKE 56576,PEEK (56576)AND 252:POKE 53272,8:POKE 648,192 80 SYS 828:SYS 997 200 V=53248:POKE V+21,0:POKE V+29,0:POKE V+23,0:PRINTCHR$ (142)CHR$ (8) 215 PRINT"{CLR,BROWN}":GOSUB 25000 216 PRINT"{DOWN,BLACK,RVOFF}ZAUBERSCHLOSS - 2. TEIL" 217 PRINT"{2DOWN}EIN ADVENTURE VON JOSEF BUSIN" 227 FOR X=49152 TO49352STEP 11:POKE X,46:NEXT X:FOR X=55296 TO55496STEP 11:POKE X,1:NEXT X 232 POKE V+21,3:POKE 50168,192:POKE 50169,192:POKE V,180:POKE V+1,177:POKE V+39,1 233 POKE V+27,3:POKE V+40,1:POKE V+29,3:FOR X=1 TO1000:NEXT X 234 FOR X=177 TO20STEP -1:POKE V,180+Z:Z=Z+.3:POKE V+1,X 235 POKE V+2,180-Z1:Z1=Z1+1.1:POKE V+3,X+1:FOR Y=0 TO45:NEXT Y:NEXT X 240 PRINT"{HOME,RVOFF,20DOWN,BLACK}DIE GEISTER HABEN DAS SCHLOSS VERLASSEN."; 245 PRINT"IHRE STUNDE IST GEKOMMEN. TOETEN SIE DEN"; 247 PRINT"ZAUBERER UND RETTEN SIE DAMIT ENDGUELTIG"; 248 PRINT"DAS VOLK VOR DEM TYRANNEN.{8SPACE}" 250 GET A$:IF A$="" THEN250 255 PRINT"{CLR,YELLOW}"CHR$ (14):PRINT"KENNEN SIE DIE SPIELREGELN (J/N) ?" 260 GET A$:IF A$="" THEN260 265 IF A$="J" THEN307 270 PRINT"{CLR}DIESES ADVENTURE IST DIE FORTSETZUNG" 272 PRINT"VON ZAUBERSCHLOSS.{DOWN}" 274 PRINT"OBWOHL DER ZAUBERER (HOFFENTLICH!) VON" 276 PRINT"DIR IN EINE MAUS VERWANDELT WURDE, IST" 278 PRINT"ER JETZT WIEDER ZURUECKGEKEHRT." 280 PRINT"{DOWN}ABERMALS WIRD ER VERSUCHEN, DAS VOLK ZU" 282 PRINT"UNTERJOCHEN. ALS KOENIG HAST DU DIE" 284 PRINT"PFLICHT, DEIN VOLK UND DEINEN THRON VOR" 292 PRINT"DEM BOESEN ZAUBERER ZU RETTEN." 296 PRINT"{2DOWN}FOLGENDE BEFEHLE WERDEN AKZEPTIERT:{DOWN}" 297 GET A$:IF A$="" THEN297 298 PRINT"{CLR,4DOWN}" 299 PRINT"NIMM...VERLIERE...OEFFNE...ZERSCHLAGE.." 300 PRINT".BEKAEMPFE...TRINKE...ESSE...LESE..." 301 PRINT"BENUTZE...BESTECHE...SAGE...KUESSE..." 302 PRINT"FANGE...LIST" 305 GET A$:IF A$="" THEN305 307 PRINT"{CLR}"CHR$ (142) 310 DATA ,,,63,255,255,255,255,,,28,255,255,255,255,255,,,,128,193,255,255,255 320 DATA ,,,96,243,255,255,255 330 FOR X=0 TO7:READ A:POKE 57344+X,A:NEXT X:FOR X=0 TO23:READ A:POKE 58032+X,A:NEXT X 340 DATA ,,,1,3,3,3,3,60,126,255,255,255,255,24,24,,,,128,192,192,192,192 350 DATA 3,3,3,3,1,,,,24,255,231,231,255,255,129,129,192,192,192,192,128,,, 360 DATA ,,32,112,255,255,112,32,129,255,126,,255,255,,,,,4,14,255,255,14,4 400 FOR X=0 TO15:READ A:POKE 57584+X,A:NEXT :FOR X=0 TO55:READ A:POKE 57624+X,A:NEXT 900 GOTO 1100 1010 PRINT"{CLR,5DOWN,GREY1}":FOR X=1 TO10:PRINT"@VWX";:NEXT X 1020 FOR X=1 TO160:PRINT"{RVSON,SPACE}";:NEXT X:PRINT"{YELLOW}"; 1030 FOR X=1 TO320:PRINT"{RVSON,SPACE}";:NEXT X 1035 POKE V+27,0:POKE 50168,193:POKE 50169,193 1040 POKE V+21,3:POKE V+39,0:POKE V,250:POKE V+1,150:POKE V+23,1:POKE V+29,1 1050 POKE V+40,0:POKE V+2,50:POKE V+3,120 1055 FOR X=49152 TO49370STEP 11:POKE X,46:NEXT X 1060 FOR X=55296 TO55514STEP 11:POKE X,1:NEXT X 1080 RETURN 1100 GOSUB 1010 1105 IF NS=0AND WO=0 THEN1107 1106 GOTO 1140 1107 IF FL=1 THEN1140 1110 POKE 50170,206:POKE V+21,7:POKE V+41,0:POKE V+4,180:POKE V+5,150 1120 PRINT"{DOWN,RVOFF,BLACK}DU BEFINDEST DICH IN EINER OEDEN GEGEND" 1130 PRINT"DU SIEHST EINE FLASCHE{UP}":GOTO 1150 1140 PRINT"{DOWN,RVOFF,BLACK}DU BEFINDEST DICH IN EINER OEDEN GEGEND" 1150 PRINT"{DOWN}MOEGLICHE RICHTUNGEN: N-S-W-O" 1160 INPUT"{DOWN}KOMMANDO";K$ 1165 IF K$="N" THENNS=NS+1:GOTO 1200 1170 IF K$="S" THENNS=NS-1:GOTO 1200 1175 IF K$="W" THENWO=WO-1:GOTO 1200 1180 IF K$="O" THENWO=WO+1:GOTO 1200 1185 IF K$="NIMM FLASCHE"AND NS=0AND WO=0 THENFL=1:POKE V+21,3:GOTO 1200 1186 IF K$="OEFFNE FLASCHE"AND FL=1 THEN1195 1187 IF K$="VERLIERE FLASCHE"AND FL=1 THEN1197 1190 IF K$="ZERSCHLAGE FLASCHE"AND FL=1 THEN20000 1195 PRINT"{CLR,21DOWN,RVSON}UNMOEGLICH!":FOR X=1 TO2000:NEXT X 1196 GOTO 1100 1197 POKE V+21,0:PRINT"{CLR,2DOWN,WHITE}DIE FLASCHE HAT SICH IN RAUCH AUFGE-" 1198 PRINT"LOEST.":PRINT"SOMIT IST DAS ABENTEUER ZUENDE, BEVOR ES"; 1199 PRINT"ERST RICHTIG ANGEFANGEN HAT.":END 1200 GOTO 1100 2100 POKE 53269,0:POKE 876,210:SYS 828:POKE 880,210:SYS 828 2105 DIM F1(3,4,4),F2(3,4,4),B1(3,4,4),B2(3,4,4),G$(39),B$(14),A(11) 2110 FOR X1=0 TO3:FOR X2=0 TO4:FOR X3=0 TO4:READ F1(X1,X2,X3):NEXT :NEXT :NEXT 2112 DATA 8,14,12,30,4,128,13,14,7,2,8,14,15,5,4097,1034,133,11,14,22,1,8,133,128,1 2115 DATA 10,14,14,38,2,,11,13,15,5,9,15,30,15,4,10,13,13,15,38,137,8204,4,,5 2117 DATA 130,8,12,6,2,25,12,14,12,16391,8,14,47,12,7,2,131,11,12,7,,1,2057,4,17 2120 DATA 8,12,140,14,6,34,520,6,66,1,139,4,387,11,6,9,12,15,5,3,8,12,141,4,33 2125 FOR X1=0 TO3:FOR X2=0 TO4:FOR X3=0 TO4:READ F2(X1,X2,X3):NEXT :NEXT :NEXT 2130 DATA ,32,,,,2,,,,,,,2048,,,,,,,,,1,,2,,,,,,,16,,,,4096,,,,,16,32,,,,,,,8,16 2135 DATA ,,,32,,,,,,512,,,,,,64,,,,,,1024,4,,,,,256,,,,,,128,,64,,,,,,,,,,,16,,,, 2140 FOR X1=0 TO3:FOR X2=0 TO4:FOR X3=0 TO4:READ B1(X1,X2,X3):NEXT :NEXT :NEXT 2145 DATA 1024,,,,,,,,,1,4,,,,,,,8,,,,4,,,4096,,,,,512,,,,,,,,,,,,,,,,,,,,,256 2150 DATA ,,128,2,,,,,,512,,,,,8192,,,,,,4,,16384,,16,,,,2048,,,,,,,64,,,4 2155 DATA ,,,,,,,,4, 2160 FOR X1=0 TO3:FOR X2=0 TO4:FOR X3=0 TO4:READ B2(X1,X2,X3):NEXT :NEXT :NEXT 2165 DATA ,,,,1,,,256,,,,,,,,,,,,,4,,,,,,,,,,,,1,,,32,,,1024,,,512,,,,,,,,,,128 2170 DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,2,,,,,,,,,,8,,64,,,,,, 2180 FOR X=1 TO14:READ B$(X):NEXT 2185 DATA BEKAEMPFE,BENUTZE,BESTECHE,ESSE,FANGE,KUESSE,LESE,LIST,NIMM,OEFFNE 2190 DATA SAGE,TRINKE,VERLIERE,ZERSCHLAGE 2195 FOR X=1 TO39:READ G$(X):NEXT 2196 FOR X=1 TO38:FOR Y=X+1 TO39:IF G$(X)<G$(Y) THEN2198 2197 V$=G$(X):G$(X)=G$(Y):G$(Y)=V$ 2198 NEXT Y:NEXT X 2200 DATA HAMMELKEULE,SCHLANGEN,HOELLENSTEIN,WACHE,WACHEN,KOBOLD,ZAUBERSTEIN 2205 DATA GOLD,BOGENSCHUETZE,GHOUL,VAMPIR,HONIG,ZAUBERTRANK,WEIN,SPEER,SCHWERT 2210 DATA SCHILD,PEITSCHE,UNGEHEUER,TONTAFEL,ZAUBERRING,KROETE,FLOETE,TUER,BAER 2215 DATA SILBERDOLCH,WERWOLF,SPIEGEL,FLASCHE,SHADOW,NETZ,ZAUBERER,ZEPTER 2220 DATA STEINERNE,SAEURE,SCHEMEL,GEGENGIFT,FLASCHENGEIST,HOLZPFLOCK 2225 X1=1:X2=0:X3=1 2250 GOSUB 21000:IF G>0 THENG=G+1:IF G=5 THEN23000 2252 IF ZT>0 THENZT=ZT+1:IF ZT=20 THENGOSUB 24000 2260 ZA=ZA+1:GOSUB 11000:GOSUB 10000:GOSUB 9900:SYS 704 2263 IF F1(X1,X2,X3)>127 THENJ1=1 2265 IF J1=1 THENGOSUB 30000 2270 PRINT"{HOME,23DOWN}";:INPUT"KOMMANDO";K$ 2290 IF K$="N"AND (FGAND 1)=1 THENX2=X2-1:GOTO 2400 2300 IF K$="S"AND (FGAND 2)=2 THENX2=X2+1:GOTO 2400 2310 IF K$="W"AND (FGAND 4)=4 THENX3=X3-1:GOTO 2400 2320 IF K$="O"AND (FGAND 8)=8 THENX3=X3+1:GOTO 2400 2330 IF K$="H"AND (FGAND 16)=16 THENX1=X1+1:GOTO 2400 2340 IF K$="R"AND (FGAND 32)=32 THENX1=X1-1:GOTO 2400 2345 GOSUB 3000:IF FE=0 THEN2400 2350 PRINT"{RVSON}NICHT MOEGLICH!":FOR X=1 TO2000:NEXT X:GOTO 2250 2400 GOSUB 12000:GOSUB 26000:GOTO 2250 3000 FE=0:IF K$="LIST" THEN7000 3005 X0=0:FOR X=1 TOLEN (K$):IF MID$ (K$,X,1)=" " THENX0=X 3010 NEXT X:IF X0=0 THENFE=1:RETURN 3015 K1$=LEFT$ (K$,X0-1):K2$=MID$ (K$,X0+1,LEN (K$)-X0) 3020 X0=0:FOR X=1 TO39:IF K2$=G$(X)OR K2$="SESAMOOPERA" THENX0=X 3030 NEXT X:IF X0=0 THENFE=1:RETURN 3040 X0=0:FOR X=1 TO14:IF K1$=B$(X) THENX0=X 3050 NEXT X:IF X0=0 THENFE=1:RETURN 3060 IF X0>8 THEN3090 3070 ON X0GOSUB 3500,4000,4500,5000,5500,6000,6500 3080 RETURN 3090 X0=X0-8:ON X0GOSUB 7500,8000,8500,9000,9500,13000 3100 RETURN 3500 FE=0:S=0:GOSUB 26000 3510 IF K2$=G$(1)AND (F1(X1,X2,X3)AND 16384)=16384 THEN3530 3511 IF K2$=G$(2)AND (F2(X1,X2,X3)AND 2048)=2048 THEN3545 3512 IF K2$=G$(4)AND (B1(X1,X2,X3)AND 32)=32 THEN3555 3513 IF K2$=G$(13)AND (B2(X1,X2,X3)AND 256)=256 THEN3570 3514 IF K2$=G$(20)AND (F2(X1,X2,X3)AND 32)=32 THEN3610 3515 IF K2$=G$(22)AND (F2(X1,X2,X3)AND 256)=256 THEN3630 3516 IF K2$=G$(29)AND (F1(X1,X2,X3)AND 8192)=8192 THEN3670 3517 IF K2$=G$(30)AND (F1(X1,X2,X3)AND 1024)=1024 THEN3705 3518 IF K2$=G$(31)OR K2$=G$(32)AND (F1(X1,X2,X3)AND 128)=128 THEN3745 3519 IF K2$=G$(34)AND (F1(X1,X2,X3)AND 2048)=2048 THEN3860 3521 IF K2$=G$(7)AND (F1(X1,X2,X3)AND 4096)=4096 THEN3925 3522 IF K2$=G$(26)AND (F2(X1,X2,X3)AND 128)=128 THEN3960 3525 FE=1:RETURN 3530 GOSUB 3990:POKE V+21,0:PRINT"{CLR,2DOWN}DER BAER HAT SICH AUF KEINEN LANGEN" 3540 PRINT"KAMPF EINGELASSEN." 3542 PRINT"MIT EINEM EINZIGEN PRANKENHIEB HAT ER" 3543 PRINT"DICH INS JENSEITS BEFOERDERT.":GOTO 55000 3545 GOSUB 3990:POKE V+21,0:PRINT"{CLR,2DOWN}":X0=0:FOR X=1 TO4:IF TR$(X)=G$(19) THENX0=X 3546 NEXT X:IF X0=0 THEN3550 3547 PRINT"DER PFEIL DES BOGENSCHUETZEN HAT NUR DEN SCHILD GETROFFEN." 3548 FOR X=1 TO1500:NEXT X:RETURN 3550 PRINT"LEIDER WAR DER UNHEIMLICHE BOGENSCHUETZE";:PRINT"SCHNELLER." 3552 PRINT"SEIN MAGISCHER PFEIL HAT DICH GETROFFEN.":GOTO 55000 3555 GOSUB 3990:POKE V+21,0:PRINT"{CLR,2DOWN}" 3556 PRINT"DA DU DEN ";G$(4);" GEREIZT HAST," 3560 PRINT"IST ES NUR SELBSTVERSTAENDLICH, DASS ER" 3565 PRINT"DICH WIE EIN LAESTIGES INSEKT IN DER" 3566 PRINT"LUFT ZERRISSEN HAT.":GOTO 55000 3570 GOSUB 3990:POKE V+21,0:PRINT"{CLR,2DOWN}DER KOBOLD HAT ES VORGEZOGEN ZU VER-":PRINT"SCHWINDEN." 3575 FOR X=1 TO4:IF TR$(X)=G$(8) THEN3590 3580 NEXT 3581 IF X1=0 THENB2(1,2,1)=B2(1,2,1)+256 3582 IF X1=1 THENB2(2,3,3)=B2(2,3,3)+256 3583 IF X1=2 THENB2(0,1,2)=B2(0,1,2)+256 3586 B2(X1,X2,X3)=B2(X1,X2,X3)-256:FOR X=1 TO2000:NEXT X:RETURN 3590 PRINT"LEIDER HAT ER DEIN GOLD MITGENOMMEN." 3591 IF X1=0 THENB2(1,2,1)=B2(1,2,1)+256 3592 IF X1=1 THENB2(2,3,3)=B2(2,3,3)+256 3593 IF X1=2 THENB2(0,1,2)=B2(0,1,2)+256 3595 FOR X=1 TO4:IF TR$(X)=G$(8) THENTR$(X)="" 3600 NEXT X:X0=X:GOSUB 23200:GOTO 3586 3610 GOSUB 3990:POKE V+21,0:PRINT"{CLR,2DOWN}" 3611 PRINT"DIE SCHLANGEN HABEN DICH GEBISSEN." 3615 PRINT"DU BIST VERGIFTET.":PRINT"WENN DU NICHT BALD ETWAS DAGEGEN" 3620 PRINT"UNTERNIMMST, IST ES AUS.":G=1 3625 FOR X=1 TO2500:NEXT X:RETURN 3630 GOSUB 3990:POKE V+21,0:IF K$=G$(37) THEN3655 3635 PRINT"{CLR,2DOWN}DER GEHEIMNISVOLLE SHADOW HAT DIR" 3640 PRINT"SAEMTLICHE LEBENSENERGIE GENOMMEN." 3645 PRINT"UM DEINE LEBLOSE HUELLE WERDEN SICH DIE" 3650 PRINT"RATTEN KUEMMERN.":GOTO 55000 3655 X0=0:FOR X=1 TO4:IF TR$(X)=G$(37) THENX0=X 3656 NEXT X:IF X0=0 THEN3635 3657 F2(X1,X2,X3)=F2(X1,X2,X3)-256:PRINT"{CLR,2DOWN}DU HAST DEN GEHEIMNISVOLLEN SHADOW" 3660 PRINT"VERNICHTET." 3661 PRINT"LEIDER IST DABEI DER ";G$(37);" AUCH" 3662 PRINT"VERNICHTET WORDEN.":GOSUB 23200:FOR X=1 TO3000:NEXT :RETURN 3670 GOSUB 3990:POKE V+21,0:PRINT"{CLR,2DOWN}":IF K$=G$(39) THEN3685 3675 PRINT"DAS SCHRECKLICHE UNGEHEUER HAT DICH MIT" 3680 PRINT"HAUT UND HAAREN GEFRESSEN.":GOTO 55000 3685 X0=0:FOR X=1 TO4:IF TR$(X)=G$(39) THENX0=X 3686 NEXT X:IF X0=0 THEN3675 3688 F1(X1,X2,X3)=F1(X1,X2,X3)-8192 3690 PRINT"DAS ";G$(39);" HAT DAS SCHRECKLICHE" 3695 PRINT"UNGEHEUER VERNICHTET.":FOR X=1 TO2000:NEXT X:RETURN 3705 GOSUB 3990:POKE V+21,0:PRINT"{CLR,2DOWN}":IF K$=G$(11) THEN3725 3710 PRINT"DER BLUTRUENSTIGE VAMPIR HAT DICH GEBIS-";:PRINT"SEN...{DOWN}" 3715 PRINT"DA DU NUN EBENFALLS ZUM VAMPIR WIRST," 3720 PRINT"KANNST DU NICHT WEITERSPIELEN.":GOTO 55000 3725 X0=0:FOR X=1 TO4:IF TR$(X)=G$(11) THENX0=X 3730 NEXT X:IF X0=0 THEN3710 3735 F1(X1,X2,X3)=F1(X1,X2,X3)-1024:PRINT"DU HAST DEN VAMPIR GEPFAEHLT." 3740 PRINT"ER IST ZU STAUB ZERFALLEN.":FOR X=1 TO2000:NEXT X:RETURN 3745 GOSUB 3990:POKE V+21,0:PRINT"{CLR,2DOWN}":GOSUB 33000 3750 IF (F1(X1,X2,X3)AND 256)=256 THEN3815 3755 IF (K$=G$(21)AND S=1)OR (K$=G$(37)AND S=2)OR (K$=G$(24)AND S=0) THEN3775 3760 IF (F2(X1,X2,X3)AND 2)=2 THENGOSUB 23100:RETURN 3761 PRINT"DIE WACHE HAT DICH GEFANGEN UND DICH" 3765 PRINT"IN DEN KERKER GEBRACHT.":X1=0:X2=1:X3=0:FOR X=1 TO2000:NEXT X:A(0)=-1 3770 RETURN 3775 PRINT"DIE WACHE HAT ES VORGEZOGEN, ZU VER-" 3780 PRINT"SCHWINDEN.":IF K$=G$(24)AND S=0 THENGOSUB 23400 3781 IF K$=G$(37)AND S=2 THENGOSUB 29100 3782 FOR X=0 TO3:IF (F1(X,1,3)AND 128)=128 THEN3784 3783 F1(X,1,3)=F1(X,1,3)+128 3784 NEXT X:F1(X1,X2,X3)=F1(X1,X2,X3)-128 3785 IF X1=0AND X2=1AND X3=0 THEN3795 3790 FOR X=1 TO1500:NEXT X:RETURN 3795 PRINT"{DOWN}DU HAST DIE WACHE, DIE DIR UNTER UM-" 3800 PRINT"STAENDEN HAETTE HELFEN KOENNEN, VERJAGT."; 3805 PRINT"NUN MUSST DU BIS AN DEIN LEBENSENDE IM":PRINT"KERKER BLEIBEN.":GOTO 55000 3815 IF K$=G$(37)AND S=2 THEN3825 3820 GOTO 3760 3825 X0=0:FOR X=1 TO4:IF TR$(X)=G$(37) THENX0=X 3830 NEXT X:IF X0=0 THEN3760 3835 PRINT"DU HAST DIE WACHEN VERJAGT." 3840 PRINT"DABEI IST ABER DER ";G$(37);" ZU" 3845 PRINT"STAUB ZERBROESELT.":GOSUB 23200:F1(X1,X2,X3)=F1(X1,X2,X3)-384 3850 FOR X=1 TO3000:NEXT :RETURN 3860 GOSUB 3990:POKE V+21,0:PRINT"{CLR,2DOWN}":IF K$=G$(23) THEN3875 3870 PRINT"DER WERWOLF HAT DICH ZERRISSEN.":GOTO 55000 3875 X0=0:FOR X=1 TO4:IF TR$(X)=G$(23) THENX0=X 3880 NEXT X:IF X0=0 THEN3870 3885 PRINT"DU HAST DEN WERWOLF VERNICHTET.":PRINT"DABEI WURDE ABER AUCH DER ";G$(23) 3886 F1(X1,X2,X3)=F1(X1,X2,X3)-2048 3890 PRINT"ZERSTOERT.":GOSUB 23200:FOR X=1 TO3000:NEXT :RETURN 3925 GOSUB 3990:POKE V+21,0:PRINT"{CLR,2DOWN}":IF K$=G$(23) THEN3940 3930 PRINT"LEIDER WAR DER GHOUL HUNGRIG, UND HAT" 3935 PRINT"DICH SOMIT VERSPEIST.":GOTO 55000 3940 X0=0:FOR X=1 TO4:IF TR$(X)=G$(23) THENX0=X 3945 NEXT X:IF X0=0 THEN3930 3950 PRINT"DU HAST DEN GHOUL GETOETET.":PRINT"LEIDER IST DABEI AUCH DER ";G$(23) 3952 PRINT"VERNICHTET WORDEN.":GOSUB 23200:F1(X1,X2,X3)=F1(X1,X2,X3)-4096 3955 FOR X=1 TO3000:NEXT :RETURN 3960 GOSUB 3990:POKE V+21,0:PRINT"{CLR,2DOWN}":IF K$=G$(17) THEN3970 3965 PRINT"DER STEINERNE HAT DICH MIT EINEM SCHLAG" 3967 PRINT"SEINER STEINERNEN FAUST ERSCHLAGEN.":GOTO 55000 3970 X0=0:FOR X=1 TO4:IF TR$(X)=G$(17) THENX0=X 3972 NEXT X:IF X0=0 THEN3965 3975 PRINT"DIE ";G$(17);" HAT DEN STEINERNEN AUF-" 3977 PRINT"GELOEST.":GOSUB 23200:F2(X1,X2,X3)=F2(X1,X2,X3)-128 3980 FOR X=1 TO3000:NEXT :RETURN 3990 INPUT"WOMIT";K$:X0=0:FOR X=1 TO39:IF K$=G$(X) THENX0=X 3995 NEXT X:IF X0=0 THEN2350 3999 RETURN 4000 POKE V+21,0:PRINT"{CLR,2DOWN}":IF K2$=G$(5) THEN4040 4010 IF K2$=G$(16) THEN4090 4020 IF K2$=G$(36) THEN4190 4030 FE=1:RETURN 4040 IF (F2(X1,X2,X3)AND 32)=32 THEN4060 4050 GOTO 4030 4060 PRINT"DIE MUSIK HAT DIE SCHLANGEN BERUHIGT." 4070 PRINT"SIE WERDEN DICH NICHT BEISSEN.":A(7)=-4:FOR X=1 TO3000:NEXT :RETURN 4090 X0=0:FOR X=1 TO4:IF TR$(X)=G$(16) THENX0=X 4100 NEXT X:IF X0=0 THENFE=1:RETURN 4101 IF X1=3 THENFE=1:RETURN 4102 IF (F2(X1+1,X2,X3)AND 16)=0 THENFE=1:RETURN 4110 PRINT"DIE PEITSCHENSCHNUR HAT SICH AN EINEM" 4120 PRINT"BALKEN AN DER DECKE VERFANGEN. DU BIST" 4130 PRINT"DARAN NACH OBEN GEKLETTERT.":X1=X1+1 4140 F2(X1,X2,X3)=F2(X1,X2,X3)-16:FOR X=1 TO3000:NEXT :RETURN 4190 X0=0:FOR X=1 TO4:IF TR$(X)=G$(36) THENX0=X 4200 NEXT X:IF X0=0 THENFE=1:RETURN 4210 PRINT"UM DICH HERUM WIRD ALLES DUNKEL." 4211 PRINT"EINE FREMDE MACHT REISST DICH FORT." 4212 PRINT"DU BIST ENTMATERIALISIERT.{DOWN}" 4220 PRINT"LEIDER HAT SICH DABEI DER ";G$(36):PRINT"IN RAUCH AUFGELOEST." 4221 X1=INT (RND (1)*3+0):X2=INT (RND (2)*4+0):X3=INT (RND (3)*4+0):K=0 4230 FOR X=1 TO5000:NEXT :GOSUB 23200:GOSUB 26000:RETURN 4500 POKE V+21,0:IF (F2(X1,X2,X3)AND 2)=2AND (F1(X1,X2,X3)AND 128)=128 THEN4520 4510 FE=1:RETURN 4520 X0=0:FOR X=1 TO4:IF TR$(X)=G$(8) THENX0=X 4530 NEXT X:IF X0=0 THEN4590 4540 PRINT"{CLR,2DOWN}DIE WACHE HAT DAS GOLD GENOMMEN UND HAT":PRINT"DICH FREIGELASSEN." 4550 GOSUB 23200:K=0:IF X2=1 THENX3=1 4570 IF X2=4 THENX2=3 4580 FOR X=1 TO3000:NEXT X:RETURN 4590 PRINT"{CLR,2DOWN}DU HAST NICHTS, WOMIT DU DIE WACHE" 4600 PRINT"BESTECHEN KOENNTEST.":FOR X=1 TO3000:NEXT :RETURN 5000 POKE V+21,0:PRINT"{CLR}":IF K2$=G$(9)OR K2$=G$(12) THEN5020 5010 FE=1:RETURN 5020 X0=0:FOR X=1 TO4:IF TR$(X)=G$(9)OR TR$(X)=G$(12) THENX0=X 5040 NEXT :IF X0=0 THENFE=1:RETURN 5050 IF K2$=G$(9) THENE$="DIE "+G$(9):GOTO 5070 5060 IF K2$=G$(12) THENE$="DEN "+G$(12) 5070 GOSUB 23200:PRINT"{2DOWN}DU HAST ";E$;" WIE EIN TIER":PRINT"VERSCHLUNGEN." 5080 PRINT"{3DOWN}PFUI!!!":FOR X=1 TO3000:NEXT :RETURN 5500 POKE V+21,0:PRINT"{CLR,2DOWN}":IF K2$=G$(13)AND (B2(X1,X2,X3)AND 256)=256 THEN5530 5520 FE=1:RETURN 5530 X0=0:FOR X=1 TO4:IF TR$(X)=G$(15) THENX0=X 5540 NEXT X:IF X0=0 THEN5590 5550 PRINT"DU HAST DEN KOBOLD GEFANGEN, BEVOR ER" 5560 PRINT"VERSCHWINDEN KONNTE.":PRINT"DU HAST IHN ABER WIEDER FREIGELASSEN," 5570 PRINT"DA ER DIR GOLD GEGEBEN HAT.":B2(X1,X2,X3)=B2(X1,X2,X3)-256 5580 B1(X1,X2,X3)=B1(X1,X2,X3)+4:FOR X=1 TO2000:NEXT X:GOSUB 5620:RETURN 5590 PRINT"DU HATTEST NICHTS, WOMIT DU DEN FLINKEN" 5600 PRINT"KOBOLD HAETTEST FANGEN KOENNEN.":PRINT"ER IST VERSCHWUNDEN." 5601 FOR X=1 TO4:IF TR$(X)=G$(8) THENGOSUB 5700 5602 NEXT 5610 B2(X1,X2,X3)=B2(X1,X2,X3)-256:FOR X=1 TO2000:NEXT X:GOSUB 5620:RETURN 5620 IF X1=0 THENB2(1,2,1)=B2(1,2,1)+256 5630 IF X1=1 THENB2(2,3,3)=B2(2,3,3)+256 5640 IF X1=2 THENB2(3,3,2)=B2(3,3,2)+256 5650 IF X1=3 THENB2(0,1,2)=B2(0,1,2)+256 5660 RETURN 5700 PRINT"{DOWN}LEIDER HAT ER DEIN GOLD MIGENOMMEN.":X0=X:GOSUB 23200:RETURN 6000 POKE V+21,0:PRINT"{CLR,2DOWN}":IF K2$=G$(14) THEN6020 6010 FE=1:RETURN 6020 X0=0:FOR X=1 TO4:IF TR$(X)=G$(14) THENX0=X 6030 NEXT X:IF X0=0 THEN6010 6040 PRINT"LEIDER HAT SICH DIE KROETE IN KEINE" 6050 PRINT"SCHOENE PRINZESSIN VERWANDELT." 6060 PRINT"{DOWN}DAFUER HAT SIE DICH GEBISSEN, UND DA ES" 6070 PRINT"SICH UM EINE GIFTIGE ART HANDELTE, HAST" 6080 PRINT"DU DAS ZEITLICHE GESEGNET.":GOTO 55000 6500 POKE V+21,0:PRINT"{CLR,2DOWN}":IF K2$=G$(27) THEN6520 6510 FE=1:RETURN 6520 X0=0:FOR X=1 TO4:IF TR$(X)=G$(27) THENX0=X 6530 NEXT X:IF X0=0 THEN6510 6540 PRINT"{4DOWN,8RIGHT}S E S A M O O P E R A":FOR X=1 TO3000:NEXT X 6550 PRINT"{CLR,2DOWN}DIE ";G$(27);" IST ZU STAUB ZER-" 6560 PRINT"FALLEN.":GOSUB 23200:FOR X=1 TO3000:NEXT :RETURN 7000 POKE V+21,0:PRINT"{CLR,2DOWN}DU TRAEGST:":X0=0:FOR X=1 TO4:IF TR$(X)<>"" THENX0=X 7010 NEXT X:IF X0=0 THENPRINTTAB( 13)"{DOWN}NICHTS":FOR X=1 TO2000:NEXT X:RETURN 7020 PRINT"{DOWN}":FOR X=1 TO4:PRINTTAB( 13)TR$(X):NEXT X 7030 GET A$:IF A$="" THEN7030 7040 RETURN 7500 POKE V+21,0:PRINT"{CLR}":X0=0:FOR X=1 TO4:IF TR$(X)="" THENX0=X 7502 NEXT X:IF X0=0 THENFE=1:RETURN 7505 B1=B1(X1,X2,X3):B2=B2(X1,X2,X3) 7507 IF K2$=G$(10)AND (B2AND 1)=1 THEN23300 7508 IF K2$=G$(21)AND (B2AND 32)=32 THENGOSUB 23500:GOTO 7780 7509 IF K2$=G$(8)AND (B1AND 4)=4 THEN29500 7510 IF K2$=G$(37)AND (B1AND 1)=1 THENB1=B1-1:GOTO 7770 7520 IF K2$=G$(5)AND (B1AND 2)=2 THENB1=B1-2:GOTO 7770 7530 IF K2$=G$(8)AND (B1AND 4)=4 THENB1=B1-4:GOTO 7770 7540 IF K2$=G$(12)AND (B1AND 8)=8 THENB1=B1-8:GOTO 7770 7550 IF K2$=G$(3)AND (B1AND 16)=16 THENB1=B1-16:GOTO 7770 7560 IF K2$=G$(4)AND (B1AND 32)=32 THENB1=B1-32:GOTO 7770 7570 IF K2$=G$(17)AND (B1AND 64)=64 THENB1=B1-64:GOTO 7770 7580 IF K2$=G$(14)AND (B1AND 128)=128 THENB1=B1-128:GOTO 7770 7590 IF K2$=G$(27)AND (B1AND 256)=256 THENB1=B1-256:GOTO 7770 7600 IF K2$=G$(24)AND (B1AND 512)=512 THENB1=B1-512:GOTO 7770 7610 IF K2$=G$(9)AND (B1AND 1024)=1024 THENB1=B1-1024:GOTO 7770 7620 IF K2$=G$(15)AND (B1AND 2048)=2048 THENB1=B1-2048:GOTO 7770 7630 IF K2$=G$(33)AND (B1AND 4096)=4096 THENB1=B1-4096:GOTO 7770 7640 IF K2$=G$(23)AND (B1AND 8192)=8192 THENB1=B1-8192:GOTO 7770 7650 IF K2$=G$(25)AND (B1AND 16384)=16384 THENB1=B1-16384:GOTO 7770 7670 IF K2$=G$(39)AND (B2AND 2)=2 THENB2=B2-2:GOTO 7780 7680 IF K2$=G$(38)AND (B2AND 4)=4 THENB2=B2-4:GOTO 7780 7690 IF K2$=G$(18)AND (B2AND 8)=8 THENB2=B2-8:GOTO 7780 7700 IF K2$=G$(11)AND (B2AND 16)=16 THENB2=B2-16:GOTO 7780 7710 IF K2$=G$(21)AND (B2AND 2048)=2048 THENB2=B2-2048:GOTO 7780 7720 IF K2$=G$(6)AND (B2AND 64)=64 THENB2=B2-64:GOTO 7780 7730 IF K2$=G$(36)AND (B2AND 128)=128 THENB2=B2-128:GOTO 7780 7740 IF K2$=G$(16)AND (B2AND 512)=512 THENB2=B2-512:GOTO 7780 7750 IF K2$=G$(19)AND (B2AND 1024)=1024 THENB2=B2-1024:GOTO 7780 7760 FE=1:RETURN 7770 B1(X1,X2,X3)=B1:TR$(X0)=K2$:RETURN 7780 B2(X1,X2,X3)=B2:TR$(X0)=K2$:RETURN 8000 POKE V+21,0:PRINT"{CLR,2DOWN}":IF K2$=G$(3) THEN8040 8010 IF K2$=G$(28) THEN8190 8030 FE=1:RETURN 8040 X0=0:FOR X=1 TO4:IF TR$(X)=G$(3) THENX0=X 8050 NEXT X:IF X0=0 THEN8030 8055 TR$(X0)="":GOSUB 23200 8060 IF (F1(X1,X2,X3)AND 128)=128 THEN8090 8070 PRINT"DU HAST DIE FLASCHE GEOEFFNET.":PRINT"LEIDER BEFAND SICH EIN FLASCHENGEIST" 8080 PRINT"DARIN, DER DICH GEFRESSEN HAT.":GOTO 55000 8090 PRINT"DU HAST DIE FLASCHE GEOEFFNET.":IF (F1(X1,X2,X3)AND 384)=384 THEN8150 8100 PRINT"IN DER FLASCHE BEFAND SICH EIN FLASCHEN-"; 8110 PRINT"GEIST, DER HERAUSKAM UND DIE WACHE VER-":PRINT"JAGTE." 8120 PRINT"{DOWN}LEIDER HAT ER IMMER NOCH HUNGER, UND DU" 8130 PRINT"BIST DAS EINZIG ESSBARE WESEN IN DER":PRINT"UMGEBUNG.":FOR X=1 TO5000:NEXT :A(11)=0 8140 B1(X1,X2,X3)=B1(X1,X2,X3)+32:F1(X1,X2,X3)=F1(X1,X2,X3)-128:A(0)=0:RETURN 8150 PRINT"IN DER FLASCHE BEFAND SICH EIN GEIST,":PRINT"DER DIE WACHEN VERJAGTE." 8160 PRINT"{DOWN}LEIDER HAT ER IMMER NOCH HUNGER, UND DU" 8170 PRINT"BIST DAS EINZIG ESSBARE WESEN IN DER":PRINT"UMGEBUNG.":FOR X=1 TO4000:NEXT :A(11)=0 8180 B1(X1,X2,X3)=B1(X1,X2,X3)+32:F1(X1,X2,X3)=F1(X1,X2,X3)-384:A(0)=0:RETURN 8190 IF (F1(X1,X2,X3)AND 64)=64AND TU=0 THENPRINT"DIE TUER IST VERSCHLOSSEN.":GOTO 8260 8191 IF (F1(X1,X2,X3)AND 64)=64AND TU=1 THENPRINT"O.K.":F1(X1,X2,X3)=F1(X1,X2,X3)-63:GOTO 8260 8200 IF (F2(X1,X2,X3)AND 8)=8 THEN22000 8210 IF (F2(X1,X2,X3)AND 64)=64 THEN8240 8220 IF (F2(X1,X2,X3)AND 512)=512 THEN8250 8225 IF (F2(X1,X2,X3)AND 4096)=4096 THEN8270 8230 FE=1:RETURN 8240 PRINT"DU BIST IN DEN WASSERGRABEN GESTUERZT,":PRINT"UND ERTRUNKEN.":GOTO 55000 8250 PRINT"DIE TUER IST ZUGEMAUERT WORDEN." 8260 FOR X=1 TO3000:NEXT X:RETURN 8270 PRINT"DIESE TUER FUEHRTE INS FREIE.":PRINT"LEIDER KAM GERADE EIN RUDEL HUNGRIGER" 8271 PRINT"WOELFE VORBEI...":PRINT"{DOWN}DEIN ENDE WAR SCHRECKLICH.":GOTO 55000 8500 POKE V+21,0:PRINT"{CLR,2DOWN}":IF K2$="SESAMOOPERA" THEN8520 8510 FE=1:RETURN 8520 IF (F2(X1,X2,X3)AND 1024)=1024 THEN8550 8525 IF (F1(X1,X2,X3)AND 64)=0 THEN8510 8530 PRINT"DER ZAUBERSPRUCH HAT DIE MAGISCHE SPERRE"; 8540 PRINT"DER TUER BESEITIGT.":TU=1:GOTO 8260 8550 PRINT"DURCH DEN MAGISCHEN SPRUCH HAT SICH EIN" 8560 PRINT"GEHEIMGANG GEOEFFNET.":F2(X1,X2,X3)=F2(X1,X2,X3)-1024 8570 F1(X1,X2,X3)=F1(X1,X2,X3)+1:GOTO 8260 9000 POKE V+21,0:PRINT"{CLR,2DOWN}":IF K2$=G$(6) THEN9050 9020 IF K2$=G$(33) THEN9070 9025 IF K2$=G$(17) THEN9110 9030 IF K2$=G$(38) THEN9090 9040 FE=1:RETURN 9050 TR$=K2$:GOSUB 9400:IF G>0 THENPRINT"DU BIST GEHEILT.":G=0:GOSUB 23200:GOTO 8260 9070 TR$=K2$:GOSUB 9400:PRINT"DU BIST DURCH DEN WEIN EINGESCHLAFEN." 9071 FOR X=0 TO11:IF A(X)>0 THEN9430 9072 NEXT 9080 GOSUB 23200:PRINT"DIE WACHE HAT DICH GEFUNDEN UND DICH":GOSUB 3765:RETURN 9090 TR$=K2$:GOSUB 9400:ZT=1:GOSUB 23200 9100 PRINT"DU FUEHLST DICH SEHR STARK.":FOR X=1 TO2000:NEXT :RETURN 9110 TR$=K2$:GOSUB 9400:PRINT"DIE ";G$(17);" SCHMECKTE AETZEND..." 9120 PRINT"{DOWN}LEIDER HAT SICH DEIN MAGEN AUFGELOEST.":GOTO 55000 9400 X0=0:FOR X=1 TO4:IF TR$(X)=TR$ THENX0=X 9410 NEXT X:IF X0=0 THEN2350 9420 RETURN 9430 FOR X=1 TO3000:NEXT :IF (F2(X1,X2,X3)AND 2)=2 THEN31000 9435 IF (F2(X1,X2,X3)AND 32)=32 THEN9450 9440 RETURN 9450 PRINT"{CLR,2DOWN}DA DU EINGESCHLAFEN BIST, KONNTEN DICH" 9460 PRINT"DIE SCHLANGEN IN ALLER RUHE BEISSEN...":GOTO 55000 9500 POKE V+21,0:PRINT"{CLR}":X0=0:FOR X=1 TO39:IF G$(X)=K2$ THENX0=X 9510 NEXT X:IF X0=0 THENFE=1:RETURN 9512 IF X7=8 THENFE=1:RETURN 9515 IF K2$=G$(9)AND (F1(X1,X2,X3)AND 2048)=2048 THENGOSUB 12700:RETURN 9517 IF K2$=G$(33)AND (B1(X1,X2,X3)AND 32)=32 THENGOSUB 12800:RETURN 9520 B1=B1(X1,X2,X3):B2=B2(X1,X2,X3) 9521 IF K2$=G$(8)AND (B1AND 4)=4 THENB1=B1-4 9522 IF K2$=G$(24)AND (B1AND 512)=512 THENB1=B1-512 9523 IF K2$=G$(9)AND (F1(X1,X2,X3)AND 16384)=16384 THENGOSUB 9800:GOSUB 28100:GOTO 9660 9525 IF K2$=G$(12)AND (F1(X1,X2,X3)AND 16384)=16384 THENGOSUB 9800:GOSUB 28000:GOTO 9660 9526 IF K2$=G$(8)AND (F1(X1,X2,X3)AND 128)=128 THENGOSUB 9800:GOSUB 32000:RETURN 9527 IF K2$=G$(8)AND (B2AND 256)=256 THENGOSUB 9800:GOSUB 32020:RETURN 9530 IF K2$=G$(37) THENGOSUB 9800:B1=B1+1:GOTO 9660 9535 IF K2$=G$(5) THENGOSUB 9800:B1=B1+2:GOTO 9660 9540 IF K2$=G$(8) THENGOSUB 9800:B1=B1+4:GOTO 9660 9545 IF K2$=G$(12) THENGOSUB 9800:B1=B1+8:GOTO 9660 9550 IF K2$=G$(3) THENGOSUB 9800:B1=B1+16:GOTO 9660 9555 IF K2$=G$(4) THENGOSUB 9800:B1=B1+32:GOTO 9660 9560 IF K2$=G$(17) THENGOSUB 9800:B1=B1+64:GOTO 9660 9565 IF K2$=G$(14) THENGOSUB 9800:B1=B1+128:GOTO 9660 9570 IF K2$=G$(27) THENGOSUB 9800:B1=B1+256:GOTO 9660 9575 IF K2$=G$(24) THENGOSUB 9800:B1=B1+512:GOTO 9660 9580 IF K2$=G$(9) THENGOSUB 9800:B1=B1+1024:GOTO 9660 9585 IF K2$=G$(15) THENGOSUB 9800:B1=B1+2048:GOTO 9660 9590 IF K2$=G$(33) THENGOSUB 9800:B1=B1+4096:GOTO 9660 9595 IF K2$=G$(23) THENGOSUB 9800:B1=B1+8192:GOTO 9660 9600 IF K2$=G$(25) THENGOSUB 9800:B1=B1+16384:GOTO 9660 9610 IF K2$=G$(39) THENGOSUB 9800:B2=B2+2:GOTO 9670 9615 IF K2$=G$(38) THENGOSUB 9800:B2=B2+4:GOTO 9670 9620 IF K2$=G$(18) THENGOSUB 9800:B2=B2+8:GOTO 9670 9625 IF K2$=G$(11) THENGOSUB 9800:B2=B2+16:GOTO 9670 9630 IF K2$=G$(21) THENGOSUB 9800:B2=B2+2048:GOTO 9670 9635 IF K2$=G$(6) THENGOSUB 9800:B2=B2+64:GOTO 9670 9640 IF K2$=G$(36) THENGOSUB 9800:B2=B2+128:GOTO 9670 9645 IF K2$=G$(16) THENGOSUB 9800:B2=B2+512:GOTO 9670 9650 IF K2$=G$(19) THENGOSUB 9800:B2=B2+1024:GOTO 9670 9655 FE=1:RETURN 9660 B1(X1,X2,X3)=B1:RETURN 9670 B2(X1,X2,X3)=B2:RETURN 9800 X0=0:FOR X=1 TO4:IF TR$(X)=K2$ THENX0=X 9810 NEXT X:IF X0=0 THEN2350 9820 GOSUB 23200:RETURN 9900 R$="MOEGLICHE RICHTUNGEN: " 9910 IF (FGAND 1)=1 THENR$=R$+"-N" 9920 IF (FGAND 2)=2 THENR$=R$+"-S" 9930 IF (FGAND 4)=4 THENR$=R$+"-W" 9940 IF (FGAND 8)=8 THENR$=R$+"-O" 9950 IF (FGAND 16)=16 THENR$=R$+"-H" 9960 IF (FGAND 32)=32 THENR$=R$+"-R" 9970 R$=R$+"-":PRINT"{HOME,21DOWN}"I$:PRINTR$:RETURN 10000 PRINT"{CLR}":FG=F1(X1,X2,X3):SYS 704 10002 GOSUB 10700 10003 IF (FGAND 64)=64 THENGOSUB 10100 10004 IF (F2(X1,X2,X3)AND 512)=512 THENGOSUB 10100 10005 IF (FGAND 1)=1 THENGOSUB 10100 10006 IF (F2(X1,X2,X3)AND 64)=64 THENGOSUB 10300 10007 IF (F2(X1,X2,X3)AND 4096)=4096 THENGOSUB 10300 10015 IF (FGAND 4)=4 THENGOSUB 10200 10020 IF (FGAND 8)=8 THENGOSUB 10300 10025 IF (FGAND 16)=16 THENGOSUB 10400 10030 IF (FGAND 32)=32 THENGOSUB 10500 10040 RETURN 10100 FOR X=49678 TO49690:POKE X,100:NEXT X:POKE 49678,76 10110 S=0:POKE 49690,122:FOR X=1 TO5:POKE 49650-S,103:S=S+40:NEXT X 10120 FOR X=49451 TO49453:POKE X,100:NEXT X 10130 S=0:FOR X=1 TO5:POKE 49654-S,101:S=S+40:NEXT X 10140 POKE 49694,76:FOR X=49695 TO49705:POKE X,100:NEXT X:POKE 49705,122 10150 RETURN 10200 POKE 49717,78:POKE 49756,78:POKE 49873,78:POKE 49912,78 10210 S=0:FOR X=1 TO13:POKE 49833-S,103:S=S+40:NEXT X 10220 S=0:POKE 49354,77:POKE 49395,77:FOR X=1 TO9:POKE 49435+S,103:S=S+40:NEXT X 10230 POKE 49755,122:POKE 49754,100 10240 POKE 49435,80:POKE 49434,99 10250 RETURN 10300 POKE 49746,77:POKE 49787,77:POKE 49910,77:POKE 49951,77 10310 S=0:FOR X=1 TO13:POKE 49870-S,101:S=S+40:NEXT X:POKE 49389,78:POKE 49428,78 10320 S=0:FOR X=1 TO9:POKE 49468+S,101:S=S+40:NEXT X 10330 POKE 49788,76:POKE 49789,100:POKE 49468,79:POKE 49469,99 10340 R=0:RETURN 10400 FOR X=49202 TO49208:POKE X,100:NEXT X 10410 POKE 49242,77:POKE 49283,77:POKE 49248,78:POKE 49287,78 10420 POKE 49243,77:POKE 49247,78 10430 S=0:FOR X=1 TO7:POKE 49244+S,93:POKE 49244+S+40,107:S=S+80:NEXT X 10440 S=0:FOR X=1 TO7:POKE 49246+S,93:POKE 49246+S+40,115:S=S+80:NEXT X 10450 S=0:FOR X=1 TO7:POKE 49245+S+40,67:S=S+80:NEXT X 10460 RETURN 10500 FOR X=49937 TO49943:POKE X,99:NEXT X 10510 POKE 49897,78:POKE 49858,78:POKE 49903,77:POKE 49862,77:POKE 49898,78:POKE 49902,77 10520 S=0:FOR X=1 TO2:POKE 49899-S,66:POKE 49899-S-40,107:S=S+80:NEXT X 10530 S=0:FOR X=1 TO2:POKE 49901-S,66:POKE 49901-S-40,115:S=S+80:NEXT X 10540 S=0:FOR X=1 TO2:POKE 49900-S-40,67:S=S+80:NEXT X 10550 RETURN 10700 S=0:FOR X=1 TO6:POKE 49152+S,77:S=S+41:NEXT 10702 S=0:FOR X=1 TO6:POKE 49191+S,78:S=S+39:NEXT X 10704 FOR X=49398 TO49425:POKE X,99:NEXT X 10710 S=0:FOR X=1 TO8:POKE 49398+S,101:S=S+40:NEXT X 10715 S=0:FOR X=1 TO8:POKE 49425+S,103:S=S+40:NEXT X:POKE 49398,79:POKE 49425,80 10720 IF (FGAND 1)=1 THEN10730 10725 FOR X=49678 TO49705:POKE X,100:NEXT X:POKE 49678,76:POKE 49705,122 10730 IF (FGAND 4)=4 THEN10740 10735 S=0:FOR X=1 TO6:POKE 49717+S,78:S=S+39:NEXT X 10740 IF (FGAND 8)=8 THEN10750 10745 S=0:FOR X=1 TO6:POKE 49746+S,77:S=S+41:NEXT X 10750 RETURN 11000 POKE V+21,0:FG=F1(X1,X2,X3):F2=F2(X1,X2,X3):B1=B1(X1,X2,X3):B2=B2(X1,X2,X3) 11001 POKE V+23,0:POKE V+29,0 11005 I$="":S7=50168:X7=0:M=0 11010 IF (FGAND 64)=64 THENI$=I$+" "+G$(28) 11020 IF (FGAND 128)=128 THENI$=I$+" "+G$(31):M=20:F=0:GOSUB 11500:A(0)=A(0)+1 11030 IF (FGAND 256)=256 THENM=20:F=0:GOSUB 11500 11040 IF (FGAND 512)=512 THENI$=I$+" "+G$(35):M=22:F=0:GOSUB 11530:GOTO 29000 11050 IF (FGAND 1024)=1024 THENI$=I$+" "+G$(30):M=18:F=0:GOSUB 11530:A(2)=A(2)+1 11060 IF (FGAND 2048)=2048 THENI$=I$+" "+G$(34):M=24:F=0:GOSUB 11530:A(3)=A(3)+1 11070 IF (FGAND 4096)=4096 THENI$=I$+" "+G$(7):M=26:F=7:GOSUB 11500:A(4)=A(4)+1 11080 IF (FGAND 8192)=8192 THENI$=I$+" "+G$(29):M=33:F=5:GOSUB 11550:A(5)=A(5)+1 11090 IF (FGAND 16384)=16384 THENI$=I$+" "+G$(1):M=31:F=0:GOSUB 11500:A(6)=A(6)+1 11100 IF (F2AND 1)=1 THENI$=I$+"KOBOLDHOEHLE"+" "+G$(8):M=29:F=7:GOSUB 11520:RETURN 11110 IF (F2AND 2)=2 THENI$=I$+" "+"KERKER":K=K+1:IF K=4 THEN31000 11120 IF (F2AND 4)=4 THENI$=I$+"SCHATZKAMMER"+" "+G$(8):M=29:F=7:GOSUB 11520:RETURN 11130 IF (F2AND 8)=8 THENI$=I$+" "+G$(28) 11140 IF (F2AND 16)=16 THENX1=X1-1:GOSUB 27000:GOTO 11005 11150 IF (F2AND 32)=32 THENI$=I$+" "+G$(20):M=32:F=0:GOSUB 11520:A(7)=A(7)+1 11160 IF (F2AND 64)=64 THENI$=I$+" "+G$(28) 11170 IF (F2AND 128)=128 THENI$=I$+" "+G$(26):M=41:F=0:GOSUB 11530:A(8)=A(8)+1 11175 IF (F2AND 256)=256 THENI$=I$+" "+G$(22):M=37:F=1:GOSUB 11530:A(9)=A(9)+1 11180 IF (F2AND 512)=512 THENI$=I$+" "+G$(28) 11190 IF (F2AND 2048)=2048 THENI$=I$+" "+G$(2):M=35:F=5:GOSUB 11500:A(10)=A(10)+1 11200 IF (F2AND 4096)=4096 THENI$=I$+" "+G$(28):RETURN 11210 IF (B1AND 1)=1 THENI$=I$+" "+G$(37):M=36:F=11:GOSUB 11580 11220 IF (B1AND 2)=2 THENI$=I$+" "+G$(5):M=39:F=0:GOSUB 11500 11230 IF (B1AND 4)=4 THENI$=I$+" "+G$(8):M=29:F=7:GOSUB 11500 11240 IF (B1AND 8)=8 THENI$=I$+" "+G$(12):M=40:F=7:GOSUB 11580 11245 IF (B1AND 16)=16 THENI$=I$+" "+G$(3):M=30:F=1:GOSUB 11580 11250 IF (B1AND 32)=32 THENI$=I$+" "+G$(4):M=47:F=5:GOSUB 11500:A(11)=A(11)+1 11260 IF (B1AND 64)=64 THENI$=I$+" "+G$(17):M=46:F=0:GOSUB 11500 11270 IF (B1AND 128)=128 THENI$=I$+" "+G$(14):M=44:F=5:GOSUB 11580 11280 IF (B1AND 256)=256 THENI$=I$+" "+G$(27):M=58:F=11:GOSUB 11580 11290 IF (B1AND 512)=512 THENI$=I$+" "+G$(24):M=61:F=0:GOSUB 11500 11300 IF (B1AND 1024)=1024 THENI$=I$+" "+G$(9):M=56:F=0:GOSUB 11500 11310 IF (B1AND 2048)=2048 THENI$=I$+" "+G$(15):M=57:F=1:GOSUB 11500 11320 IF (B1AND 4096)=4096 THENI$=I$+" "+G$(33):M=28:F=2:GOSUB 11500 11330 IF (B1AND 8192)=8192 THENI$=I$+" "+G$(23):M=59:F=11:GOSUB 11500 11340 IF (B1AND 16384)=16384 THENI$=I$+" "+G$(25):M=49:F=7:GOSUB 11500 11345 IF (B2AND 1)=1 THENI$=I$+" "+G$(10):F=2:M=48:GOSUB 11580 11350 IF (B2AND 2)=2 THENI$=I$+" "+G$(39):M=50:F=1:GOSUB 11500 11360 IF (B2AND 4)=4 THENI$=I$+" "+G$(38):M=60:F=0:GOSUB 11500 11370 IF (B2AND 8)=8 THENI$=I$+" "+G$(18):M=51:F=0:GOSUB 11500 11380 IF (B2AND 16)=16 THENI$=I$+" "+G$(11):M=54:F=0:GOSUB 11580 11390 IF (B2AND 32)=32 THENI$=I$+" "+G$(21):M=45:F=11:GOSUB 11500 11400 IF (B2AND 64)=64 THENI$=I$+" "+G$(6):M=52:F=0:GOSUB 11500 11410 IF (B2AND 128)=128 THENI$=I$+" "+G$(36):M=53:F=1:GOSUB 11580 11420 IF (B2AND 256)=256 THENI$=I$+" "+G$(13):M=21:F=0:GOSUB 11580 11430 IF (B2AND 512)=512 THENI$=I$+" "+G$(16):M=43:F=0:GOSUB 11500 11440 IF (B2AND 1024)=1024 THENI$=I$+" "+G$(19):M=27:F=0:GOSUB 11500 11445 IF (B2AND 2048)=2048 THENI$=I$+" "+G$(21):M=55:F=0:GOSUB 11500 11450 RETURN 11500 POKE V+29,PEEK (V+29)+2^X7:POKE V+23,PEEK (V+29) 11501 POKE S7+X7,M+176:POKE V+21,PEEK (V+21)+2^X7:POKE V+39+X7,F:X7=X7+1:RETURN 11520 POKE V+29,0:POKE V+23,0:FOR ZZ=1 TO8:GOSUB 11501:NEXT :RETURN 11530 POKE S7+X7,M+1+176:POKE S7+X7+1,M+176:POKE V+29,3:POKE V+23,3 11531 POKE V+2,210:POKE V+3,185:POKE V,210:POKE V+1,148 11535 POKE V+21,PEEK (V+21)+2^X7+2^(X7+1):POKE V+39+X7,F:POKE V+39+X7+1,F 11540 POKE V+X7+2,PEEK (V+X7):POKE V+X7+3,PEEK (V+X7+1)-42:X7=X7+2:J1=1:RETURN 11550 POKE S7,M+176:POKE S7+1,M+1+176:POKE S7+2,238:POKE S7+3,239:POKE V+23,255:POKE V+29,255 11560 POKE V+21,15:FOR X=0 TO3:POKE V+39+X,5:NEXT :POKE V+6,250:POKE V+7,167 11570 POKE V+4,202:POKE V+5,167:POKE V+2,154:POKE V+3,167:POKE V,154:POKE V+1,125:RETURN 11580 GOSUB 11501:RETURN 12000 X0=0:FOR X=0 TO11:IF A(X)>0 THENX0=X+1 12010 NEXT X:IF X0=0 THENRETURN 12015 POKE V+21,0:PRINT"{CLR,2DOWN}" 12020 ON X0GOSUB 12900,3910,3710,3870,3930,3675,12500,3611,3965,3635,12600,3556 12025 FOR X=0 TO11:A(X)=0:NEXT :RETURN 12500 PRINT"DER BAER HAT DICH GEFRESSEN.":GOTO 55000 12600 X0=0:FOR X=1 TO4:IF TR$(X)=G$(19) THENX0=X 12610 NEXT :IF X0=0 THEN3550 12620 GOSUB 3547:RETURN 12700 X0=0:FOR X=1 TO4:IF TR$(X)=K2$ THENX0=X 12710 NEXT :IF X0=0 THENRETURN 12720 PRINT"{2DOWN}DER ";G$(34);" HAT DIE ";G$(9);" GE-" 12730 PRINT"FRESSEN. EINSTWEILEN IST ER SATT.":PRINT"ER WIRD DICH NICHT BEHELLIGEN." 12740 TR$(X0)="":FOR X=1 TO4:IF TR$(X)="" THENTR$(X)=TR$(X+1) 12750 NEXT :A(3)=-4:FOR X=1 TO3000:NEXT :RETURN 12800 X0=0:FOR X=1 TO4:IF TR$(X)=K2$ THENX0=X 12810 NEXT :IF X0=0 THENRETURN 12820 PRINT"DER FLASCHENGEIST HAT DEN WEIN GEROCHEN," 12830 PRINT"UND IST IN DER FLASCHE VERSCHWUNDEN." 12840 PRINT"ER IST ZUM WEINGEIST GEWORDEN.":GOSUB 23200 12850 PRINT"{2DOWN}NUN IST ER IN ASBACH URALT ANZUFINDEN!" 12860 B1(X1,X2,X3)=B1(X1,X2,X3)-32:A(11)=-1:FOR X=1 TO4000:NEXT :RETURN 12900 IF (X1=0AND X2=1AND X3=1)OR (X1=0AND X2=3AND X3=3) THENA(0)=0:RETURN 12910 GOSUB 3760:RETURN 13000 POKE V+21,0:PRINT"{CLR,2DOWN}":IF K2$=G$(18) THEN13025 13010 IF K2$=G$(25) THEN 13050 13015 IF K2$=G$(28) THEN13100 13020 FE=1:RETURN 13025 X0=0:FOR X=1 TO4:IF TR$(X)=G$(18) THENX0=X 13026 NEXT X:IF X0=0 THENFE=1:RETURN 13027 GOSUB 23200 13030 PRINT"DU HAST DEN ";G$(18);" ZERSCHLAGEN.":B2(X1,X2,X3)=B2(X1,X2,X3)+16 13040 FOR X=1 TO3000:NEXT X:RETURN 13050 X0=0:FOR X=1 TO4:IF TR$(X)=G$(25) THENX0=X 13060 NEXT X:IF X0=0 THENFE=1:RETURN 13070 PRINT"DU HAST DEN ";G$(25);" ZERSCHLAGEN." 13080 GOSUB 23200:FOR X=1 TO3000:NEXT :RETURN 13100 IF ZT=0 THENPRINT"DAZU FEHLT DIR LEIDER DIE NOETIGE KRAFT.";:GOTO 13080 13110 PRINT"DANK DEINER STAERKE KONNTEST DU DIE":PRINT"MAUER ZERSCHLAGEN." 13120 F2(X1,X2,X3)=F2(X1,X2,X3)-512:F1(X1,X2,X3)=F1(X1,X2,X3)+1:GOTO 13080 15000 POKE V+21,0:PRINT"{CLR,2DOWN}DER MAGISCHE BLITZ DES ZAUBERES IST VON" 15010 PRINT"DEINEM ";G$(25);" ABGEPRALLT, UND HAT DEN" 15020 PRINT"ZAUBERER SELBER GETROFFEN.":PRINT"{DOWN}EIN FUERCHTERLICHER SCHREI, EINE GRELLE" 15030 PRINT"LICHEXPLOSION...":PRINT"{2DOWN}DER ZAUBERER IST VERNICHTET!!!" 15040 F1(X1,X2,X3)=F1(X1,X2,X3)-512 15050 FOR X=1 TO8000:NEXT :GOTO 2250 20000 POKE V+21,0:POKE 887,9:SYS 828:PRINT"{CLR,BLACK,2DOWN}DURCH DAS ZERSCHLAGEN DER FLASCHE HAST" 20010 PRINT"DU EINE MAGISCHE KETTENREAKTION AUSGE-" 20020 PRINT"LOEST." 20030 PRINT"EIN WIRBELWIND ERGREIFT DICH UND TRAEGT" 20040 PRINT"DICH FORT." 20050 PRINT"{4DOWN,5RIGHT}MOEGE DIE MACHT MIT DIR SEIN...":GOTO 2100 21000 POKE V,255:POKE V+1,165:POKE V+2,205:POKE V+3,165:POKE V+4,155:POKE V+5,165 21010 POKE V+6,105:POKE V+7,165:POKE V+8,55:POKE V+9,165:POKE V+10,230:POKE V+11,170 21020 POKE V+12,180:POKE V+13,170:POKE V+14,130:POKE V+15,170:RETURN 22000 POKE V+21,0:PRINT"{CLR,BLACK}":GOSUB 25000:FOR X=1 TO40:PRINT"{RVSON,SPACE}";:NEXT :PRINT"{RVOFF,DOWN}DU BIST IM FREIEN." 22005 FOR X=0 TO4000:NEXT 22010 PRINT"DICHTE NEBEL UMWALLEN DAS SCHLOSS," 22020 FOR X=1 TO1000:POKE 49152+INT (RND (1)*799+0),102:NEXT 22030 PRINT"DIE DAS ALTE GEMAEUER ZERFRESSEN UND IN":PRINT"RAUCH AUFLOESEN." 22040 FOR X=1 TO1000:POKE 49152+INT (RND (1)*799+0),32:NEXT :FOR X=1 TO1000:NEXT :PRINT"{CLR,2DOWN}" 22050 PRINT"{RVOFF}DAS ADVENTURE IST GELOEST." 22055 PRINT"{2DOWN}DU HAST DEIN VOLK GERETTET UND HAST" 22056 PRINT"DICH ALS WAHRER KOENIG ERWIESEN." 22060 PRINT"{2DOWN}ES WURDEN"ZA"SCHRITTE BENOETIGT.":END 23000 POKE V+21,0:PRINT"{CLR,2DOWN}DAS SCHLANGENGIFT HAT DICH GETOETET.":GOTO 55000 23100 IF K1$<>"BEKAEMPFE" THENRETURN 23105 PRINT"VORSICHT!":PRINT"DIE WACHE IST SEHR SCHLECHT GELAUNT." 23110 PRINT"WENN DU SIE WEITER SO AERGERST, WAERE ES"; 23120 PRINT"MOEGLICH, DASS DU IN DER FOLTERKAMMER":PRINT"LANDEST." 23130 FOR X=1 TO4000:NEXT :RETURN 23200 TR$(X0)="":FOR X=1 TO3:FOR Y=X+1 TO4:IF TR$(X)>TR$(Y) THEN23220 23210 V$=TR$(X):TR$(X)=TR$(Y):TR$(Y)=V$ 23220 NEXT Y:NEXT X:GOSUB 23600:RETURN 23300 PRINT"{2DOWN}DIE MAGISCHEN KRAEFTE DES FLAMMENDEN" 23310 PRINTG$(10);:PRINT"S HABEN DICH VERNICHTET.":GOTO 55000 23400 PRINT"{DOWN}LEIDER ZERBRACH DABEI AUCH DER ";G$(24);".":GOSUB 23200:RETURN 23500 IF ZT>0 THEN23540 23510 PRINT"{2DOWN}DAS ";G$(21);" STECKT ZU TIEF.":K2$="" 23520 PRINT"DU BIST ZU SCHWACH, UM ES RAUSZUZIEHEN.":FOR X=1 TO3000:NEXT :RETURN 23540 B2=B2-32:PRINT"DANK DEINER STAERKE KONNTEST DU DAS" 23550 PRINTG$(21);:PRINT" HERAUSZIEHEN.":FOR X=1 TO2500:NEXT :RETURN 23600 FOR X=1 TO3:FOR Y=X+1 TO4:IF TR$(X)=TR$(Y) THENTR$(Y)="" 23610 NEXT :NEXT :RETURN 24000 POKE V+21,0:PRINT"{CLR,2DOWN}DIE WIRKUNG DES ZAUBERTRANKS HAT NACHGE-":PRINT"LASSEN." 24010 PRINT"DU BIST WIEDER SCHWACH.":FOR X=1 TO3000:NEXT :RETURN 25000 PRINT"{HOME,5DOWN}","{SPACE,RVSON}£*",,"{LEFT,RVSON}£*":PRINT,"{RVSON}£{2SPACE}*"SPC( 14)"£{SPACE,SPACE}*" 25010 PRINT,"{RVSON}K{SPACE,SPACE}L"SPC( 14)"{RVSON}K{SPACE,SPACE}L" 25020 PRINT,"{RVSON}K KL"SPC( 14)"{RVSON}K KL" 25030 PRINT,"{RVSON}K KL"SPC( 14)"{RVSON}K KL" 25035 PRINT,"{RVSON}K{SPACE,SPACE}L{RVOFF}DFDFDFDFDFDFDF{RVSON}K{SPACE,SPACE}L" 25040 PRINT,"{RVSON}K{SPACE,19SPACE}L" 25045 PRINT,"{RVSON}K{SPACE,19SPACE}L" 25050 PRINT,"{RVSON}K{SPACE,19SPACE}L" 25055 PRINT,"{RVSON}K{SPACE,19SPACE}L" 25060 PRINT,"{RVSON}K{SPACE,8SPACE}L{RIGHT}K{SPACE,7SPACE}L" 25065 PRINT,"{RVSON}K{SPACE,8SPACE}L{RIGHT}K{SPACE,7SPACE}L" 25070 PRINT,"{RVSON}K{SPACE,8SPACE}L{RIGHT}K{SPACE,7SPACE}L":FOR X=1 TO40:PRINT"{RVSON,SPACE}";:NEXT X:RETURN 26000 FOR X=0 TO11:IF A(X)>0 THENA(X)=0 26010 NEXT :RETURN 27000 POKE V+21,0:PRINT"{CLR,2DOWN}DU BIST AUF EINE FALLTUER GETRETEN." 27010 PRINT"ZUM GLUECK HAST DU DEN STURZ GUT UEBER-":PRINT"STANDEN." 27020 FG=F1(X1,X2,X3):F2=F2(X1,X2,X3):FOR X=1 TO3000:NEXT :RETURN 28000 PRINT"{2DOWN}DER BAER HAT SICH UEBER DEN HONIG HER-":PRINT"GEMACHT.":GOSUB 23200 28010 PRINT"ER IST ZU SEHR MIT DEM HONIG BESCHAEF-" 28020 PRINT"TIGT, ALS DASS DU FUER IHN INTERESSANT":PRINT"WAERST.":A(6)=-5 28030 FOR X=1 TO3500:NEXT :RETURN 28100 PRINT"{2DOWN}DER BAER HAT DIE ";G$(9) 28110 PRINT"GEFRESSEN.":PRINT"{DOWN}EINSTWEILEN IST ER SATT.":A(6)=-3:GOTO 28030 29000 GOSUB 10000:GOSUB 9900 29001 FOR X=1 TO5000:NEXT :X0=0:FOR X=1 TO4:IF TR$(X)=G$(25) THENX0=X 29010 NEXT :IF X0=0 THEN29030 29020 GOTO 15000 29030 POKE V+21,0:PRINT"{CLR,2DOWN}DER ZAUBERER HAT DICH MIT EINEM" 29040 PRINT"MAGISCHEN BLITZ GETOETET.":GOTO 55000 29100 PRINT"{DOWN}DABEI IST ABER DER ";G$(37);" ZU" 29110 PRINT"STAUB ZERBROESELT.":GOSUB 23200:RETURN 29500 IF (F2(X1,X2,X3)AND 1)=1OR (F2(X1,X2,X3)AND 4)=4 THEN29520 29510 GOTO 7510 29520 GOTO 7770 30000 PRINT"{HOME,15DOWN,10RIGHT}";:PRINT"↑←#":PRINT"{10RIGHT}$%&" 30010 PRINT"{10RIGHT}'()":J1=0:PRINT"{HOME,17DOWN,18RIGHT}"; 30020 PRINT"↑←#":PRINT"{18RIGHT}$%&":PRINT"{18RIGHT}'()":RETURN 31000 POKE V+21,0:POKE 50168,240:POKE 50169,241:POKE 50170,242:POKE V+21,7:POKE V+29,7:POKE V+23,7 31010 POKE V+2,150:POKE V+3,165:POKE V,150:POKE V+1,123:POKE V+4,198:POKE V+5,165 31020 POKE V+39,0:POKE V+40,0:POKE V+41,0 31030 PRINT"{CLR,DOWN}DIE WACHE HAT DICH DEM HENKER UEBERGE-":PRINT"BEN.":GOTO 55000 32000 POKE V+21,0:PRINT"{CLR,2DOWN}DIE WACHE HAT SICH DAS GOLD UNTER DEN" 32010 PRINT"NAGEL GERISSEN.":GOSUB 26000:FOR X=1 TO3000:NEXT :RETURN 32020 POKE V+21,0:PRINT"{CLR,2DOWN}DER KOBOLD HAT DAS GOLD AN SICH GENOM-" 32030 PRINT"MEN.":GOSUB 26000:FOR X=1 TO3000:NEXT :RETURN 33000 X0=0:FOR X=1 TO4:IF TR$(X)=G$(21)AND K$=G$(21) THENX0=X:S=1 33010 NEXT :IF X0<>0 THENRETURN 33020 X0=0:FOR X=1 TO4:IF TR$(X)=G$(24)AND K$=G$(24) THENX0=X:S=0 33030 NEXT :IF X0<>0 THENRETURN 33040 X0=0:FOR X=1 TO4:IF TR$(X)=G$(37)AND K$=G$(37) THENX0=X:S=2 33050 NEXT :IF X0<>0 THENRETURN 33060 GOTO 2350 55000 PRINT"{3DOWN}SO SCHNELL KANN EIN ABENTEUER ENDEN.":END
Diesen Artikel als PDF herunterladen
Diesen Artikel auf Mastodon teilen