The Sword – die Magierprüfung
Entfliehen Sie ins Land der Träume. Haben Sie teil am Treiben der Zauberer und Dämonen. Bestehen Sie die Aufnahmeprüfung des dunklen Zirkels.
Machen Sie es sich zur Aufgabe, von dem kleinen Zauberlehrling, der Sie gerade sind, zum Meister der Schwarzen Magie aufzusteigen. Absolvieren Sie den letzten Test der hohen Mächte. »The Sword« ist ein deutsches Textadventure, das ein wenig nach dem Vorbild der Infocom-Adventures gestaltet wurde. Der Sprachschatz enthält über 100 Wörter, die auch als ganze Sätze eingegeben werden können. Zur Auflockerung kann zwischen dem normalen und einem geänderten Zeichensatz gewählt werden.
Neben den allgemein üblichen Befehlen sind allerdings auch noch ein paar unübliche enthalten. So zum Beispiel:
»FARBE« – Damit läßt sich die Schrift- und Bildschirmfarbe Ihren Wünschen gemäß einstellen.
»NORMAL« – Schaltet von dem neuen auf den Commodore-Zeichensatz zurück.
»NEU« – Dies ist das Gegenstück zu »NORMAL«.
»HILFE« – Dieser Befehl sollte nur eingegeben werden, wenn man kurz vor dem Verzweifeln ist.
»ANLEITUNG« – Hier erhalten Sie einige Tips zum Spiel.
»SAVE«, »STORE«, »SPEICHERN« – Mit diesen Befehlen kann man drei verschiedene Spielstände speichern.
»LOAD«, »LADE«, »RESTORE« – Diese Befehle laden einen alten Spielstand.
Bitte geben Sie zuerst die Programme »A« (Listing 1) und »B« (Listing 2) mit Hilfe des MSE ein (zu finden in diesem Heft), und speichern Sie diese auf Ihrem Datenträger. Anschließend tippen Sie bitte das Hauptprogramm (Listing 3) ein, speichern es ebenfalls und starten es mit »RUN«. Auf dem Bildschirm erscheint dann die Meldung »LOADING...«, und der neue Zeichensatz sowie die Maschinenroutinen werden nachgeladen. Sodann erscheint das Titelbild, und die Daten werden eingelesen. Hier werden Sie nun gefragt, ob Sie mit dem normalen oder dem neu definierten Zeichensatz spielen wollen. Geben Sie bitte nur »J« oder »N« ein. Ist dies geschehen, befinden Sie sich schon mitten im Spiel.
(A. Sommer/S. Adomat/dm)PROGRAMM : A C800 D000 ----------------------------------- C800 : 3C 42 99 A1 99 42 3C 00 94 C808 : 00 40 3C 02 3E 42 3E 00 67 C810 : 20 40 40 7C 42 22 1C 00 96 C818 : 00 00 3C 42 40 40 3C 02 6B C820 : 04 02 02 3E 42 42 3C 00 95 C828 : 00 00 3C 42 7E 40 3C 02 5F C830 : 01 0E 10 3E 08 08 08 10 05 C838 : 00 00 38 44 44 3E 02 7C 06 C840 : 20 40 40 7C 42 42 24 00 E7 C848 : 04 18 00 38 08 08 0E 00 58 C850 : 01 06 00 04 02 02 04 38 86 C858 : 00 40 60 2C 38 28 66 00 74 C860 : 00 30 08 08 08 10 3C 00 6D C868 : 00 00 42 77 5D 49 41 00 0D C870 : 00 00 58 64 42 44 44 00 6A C878 : 00 00 3D 4E 42 42 3C 00 B9 C880 : 00 00 7C 22 44 78 40 40 6D C888 : 00 00 3C 44 22 1E 02 02 3F C890 : 00 00 5C 62 40 40 40 00 FB C898 : 00 01 3E 40 3C 04 78 00 76 C8A0 : 00 11 7E 08 10 10 0E 00 83 C8A8 : 00 01 42 42 42 42 3E 00 31 C8B0 : 00 00 42 42 42 24 18 00 2F C8B8 : 00 00 41 69 6B 3E 32 00 A7 C8C0 : 00 00 46 2C 18 34 46 00 14 C8C8 : 00 00 44 44 22 1E 0C 78 96 C8D0 : 00 00 7E 04 18 21 7E 00 75 C8D8 : 1C 20 20 20 20 20 1C 00 84 C8E0 : 10 10 10 10 7C 10 38 00 28 C8E8 : 38 04 04 04 04 04 38 00 E5 C8F0 : 00 18 24 66 18 18 18 00 75 C8F8 : 00 10 30 4F 4F 30 10 00 AD C900 : 00 00 00 00 00 00 00 00 01 C908 : 3C 3C 18 18 00 18 18 00 8D C910 : EE 66 77 00 00 00 00 00 0F C918 : 42 42 FF 24 FF 42 42 00 1B C920 : 08 3E 50 3C 0A 7C 10 00 A8 C928 : 22 64 08 10 20 46 44 00 C6 C930 : 3C 42 24 28 47 42 3F 00 1F C938 : 0E 0E 1C 00 00 00 00 00 55 C940 : 0C 08 10 20 10 08 0C 00 CA C948 : 30 10 08 04 08 10 30 00 C5 C950 : 00 66 18 E7 18 66 00 00 3B C958 : 00 18 18 66 18 18 00 00 7A C960 : 00 00 00 00 1C 1C 1C 38 E4 C968 : 00 00 02 3C 40 00 00 00 75 C970 : 00 00 00 00 08 14 08 00 B2 C978 : 00 03 04 08 10 20 40 00 FF C980 : 3D 4E 4A 52 62 62 3C 00 EB C988 : 18 38 78 18 18 1A 3C 40 A1 C990 : 38 44 02 0C 30 40 7E 00 EB C998 : 3C 42 04 18 04 42 3C 00 3D C9A0 : 06 0A 12 22 7F 06 06 00 B4 C9A8 : 7E 40 7C 02 04 44 38 00 E9 C9B0 : 3C 42 40 7C 42 44 38 00 D4 C9B8 : 3E 42 04 08 08 10 10 00 5B C9C0 : 1C 22 44 38 44 22 1C 00 CB C9C8 : 3C 42 22 1E 04 62 3C 00 B6 C9D0 : 00 08 18 10 00 18 10 00 DE C9D8 : 00 00 1C 00 1C 1C 1C 38 63 C9E0 : 0E 18 30 50 30 18 0E 00 0C C9E8 : 00 42 3C 00 3C 42 00 00 EE C9F0 : 70 18 0C 0A 0C 18 70 00 F4 C9F8 : 3C 42 02 04 18 00 18 00 38 CA00 : 00 00 00 FF FF 00 00 00 00 CA08 : 18 3C 42 7E 24 42 42 00 FC CA10 : 7C 22 24 58 24 22 3C 00 F6 CA18 : 3C 42 20 20 20 42 3C 00 87 CA20 : 78 44 22 22 22 44 78 00 AD CA28 : 7E 40 20 38 40 20 1E 00 53 CA30 : 1E 20 40 78 40 40 40 00 85 CA38 : 3C 42 40 6C 22 24 18 00 D7 CA40 : 66 22 22 3E 22 22 66 00 D5 CA48 : 3C 00 18 18 18 18 3C 00 C1 CA50 : 1E 00 0C 04 08 48 30 00 76 CA58 : 66 24 28 30 28 28 66 00 3E CA60 : 40 40 20 20 20 40 7E 00 CA CA68 : 63 77 5D 49 21 22 41 00 30 CA70 : 62 72 4A 4A 46 46 42 00 87 CA78 : 3D 4E 42 42 42 42 3C 00 DC CA80 : 7C 02 62 3C 40 20 20 00 A3 CA88 : 1C 22 24 24 44 38 0E 00 81 CA90 : 1C 22 44 78 50 4C 46 00 5E CA98 : 3C 42 20 18 04 42 3C 00 44 CAA0 : 7E 10 08 08 10 10 10 00 EB CAA8 : 44 44 22 22 22 44 38 00 00 CAB0 : 44 44 42 22 22 14 08 00 CE CAB8 : 41 41 41 29 2D 37 63 00 29 CAC0 : 42 66 3C 18 3C 66 42 00 47 CAC8 : 42 62 22 14 18 18 18 00 E9 CAD0 : 7E 02 0C 10 20 22 7C 00 5A CAD8 : 18 18 18 FF FF 18 18 18 54 CAE0 : C0 C0 30 30 C0 C0 30 30 46 CAE8 : 18 18 18 18 18 18 18 18 E8 CAF0 : 33 33 CC CC 33 33 CC CC 23 CAF8 : 33 99 CC 66 33 99 CC 66 F8 CB00 : 00 00 00 00 00 00 00 00 01 CB08 : F0 F0 F0 F0 F0 F0 F0 F0 07 CB10 : 00 00 00 00 FF FF FF FF 10 CB18 : FF 00 00 00 00 00 00 00 18 CB20 : 00 00 00 00 00 00 00 FF 20 CB28 : C0 C0 C0 C0 C0 C0 C0 C0 27 CB30 : CC CC 33 33 CC CC 33 33 FC CB38 : 03 03 03 03 03 03 03 03 38 CB40 : 00 00 00 00 CC CC 33 33 A7 CB48 : CC 99 33 66 CC 99 33 66 AE CB50 : 03 03 03 03 03 03 03 03 50 CB58 : 18 18 18 1F 1F 18 18 18 AA CB60 : 00 00 00 00 0F 0F 0F 0F 24 CB68 : 18 18 18 1F 1F 00 00 00 68 CB70 : 00 00 00 F8 F8 18 18 18 70 CB78 : 00 00 00 00 00 00 FF FF 78 CB80 : 00 00 00 1F 1F 18 18 18 A8 CB88 : 18 18 18 FF FF 00 00 00 B2 CB90 : 00 00 00 FF FF 18 18 18 E2 CB98 : 18 18 18 F8 F8 18 18 18 C2 CBA0 : C0 C0 C0 C0 C0 C0 C0 C0 9F CBA8 : E0 E0 E0 E0 E0 E0 E0 E0 A7 CBB0 : 07 07 07 07 07 07 07 07 B0 CBB8 : FF FF 00 00 00 00 00 00 B7 CBC0 : FF FF FF 00 00 00 00 00 BF CBC8 : 00 00 00 00 00 FF FF FF C8 CBD0 : 01 03 06 6C 78 70 60 00 EF CBD8 : 00 00 00 00 F0 F0 F0 F0 15 CBE0 : 0F 0F 0F 0F 00 00 00 00 1D CBE8 : 18 18 18 F8 F8 00 00 00 C1 CBF0 : F0 F0 F0 F0 00 00 00 00 B3 CBF8 : F0 F0 F0 F0 0F 0F 0F 0F 7E CC00 : C3 BD 66 5E 66 BD C3 FF 6B CC08 : FF FF C3 FD C1 BD C1 FF C8 CC10 : FF BF BF 83 BD BD 83 FF 27 CC18 : FF FF C3 BF BF BF C3 FF 09 CC20 : FF FD FD C1 BD BD C1 FF A6 CC28 : FF FF C3 BD 81 BF C3 FF F4 CC30 : FF F1 EF C3 EF EF EF FF DA CC38 : FF FF C1 BD BD C1 FD 83 48 CC40 : FF BF BF 83 BD BD BD FF 40 CC48 : FF E7 FF E7 F7 F7 E3 FF 06 CC50 : FF FD FF FD FD FD FD C3 5D CC58 : FF BF BF BB 87 B7 B9 FF BB CC60 : FF E7 F7 F7 F7 F7 E3 FF 1E CC68 : FF FF DD 88 A2 B6 BE FF CA CC70 : FF FF 83 BD BD BD BD FF C8 CC78 : FF FF C3 BD BD BD C3 FF F8 CC80 : FF FF 83 BD BD 83 BF BF 8E CC88 : FF FF C1 BD BD C1 FD FD 8D CC90 : FF FF 83 BD BF BF BF FF 20 CC98 : FF FF C1 BF C3 FD 83 FF 39 CCA0 : FF EF 83 EF EF EF F1 FF BC CCA8 : FF FF BD BD BD BD C1 FF 9F CCB0 : FF FF BD BD BD DB E7 FF 30 CCB8 : FF FF BE B6 A2 C1 C9 FF 9D CCC0 : FF FF BD DB E7 DB BD FF FE CCC8 : FF FF BD BD BD C1 FB 87 D7 CCD0 : FF FF 83 F7 EF DF 81 FF B3 CCD8 : C3 CF CF CF CF CF C3 FF FB CCE0 : F3 ED CF 83 CF 9D 03 FF 24 CCE8 : C3 F3 F3 F3 F3 F3 C3 FF 0E CCF0 : FF E7 C3 81 E7 E7 E7 E7 31 CCF8 : FF EF CF 80 80 CF EF FF 39 CD00 : FF FF FF FF FF FF FF FF FF CD08 : E7 E7 E7 E7 FF FF F7 FF B9 CD10 : 99 99 99 FF FF FF FF FF DC CD18 : 99 99 00 99 00 99 99 FF E4 CD20 : E7 C1 9F C3 F9 83 E7 FF A3 CD28 : 9D 99 F3 E7 CF 99 B9 FF 3C CD30 : C3 99 C3 C7 98 99 C0 FF 03 CD38 : F9 F3 E7 FF FF FF FF FF 25 CD40 : F3 E7 CF CF CF E7 F3 FF 21 CD48 : CF E7 F3 F3 F3 E7 CF FF 44 CD50 : FF 99 C3 00 C3 99 FF FF 16 CD58 : FF E7 E7 81 E7 E7 FF FF 33 CD60 : FF FF FF FF FF E7 E7 CF DD CD68 : FF FF FF 81 FF FF FF FF 97 CD70 : FF FF FF FF FF E7 E7 FF 4D CD78 : FF FC F9 F3 E7 CF 9F FF 6E CD80 : C3 99 91 89 99 99 C3 FF 1B CD88 : E7 E7 C7 E7 E7 E7 81 FF 15 CD90 : C3 99 F9 F3 CF 9F 81 FF 1D CD98 : C3 99 F9 E3 F9 99 C3 FF 9E CDA0 : F9 F1 E1 99 80 F9 F9 FF FD CDA8 : 81 9F 83 F9 F9 99 C3 FF 94 CDB0 : C3 99 9F 83 99 99 C3 FF 0E CDB8 : 81 99 F3 E7 E7 E7 E7 FF 5D CDC0 : C3 99 99 C3 99 99 C3 FF A4 CDC8 : C3 99 99 C1 F9 99 C3 FF 72 CDD0 : FF FF E7 FF FF E7 FF FF 08 CDD8 : FF FF E7 FF FF E7 E7 CF 4F CDE0 : F1 E7 CF 9F CF E7 F1 FF B1 CDE8 : FF FF 81 FF 81 FF FF FF 5F CDF0 : 8F E7 F3 F9 F3 E7 8F FF 6C CDF8 : C3 99 F9 F3 E7 FF E7 FF A3 CE00 : FF FF FF 00 00 FF FF FF FF CE08 : C3 BD BD 81 BD BD BD FF 0A CE10 : 83 BD BD 83 BD BD 83 FF 29 CE18 : C3 BD BF BF BF BD C3 FF 9B CE20 : 87 BB BD BD BD BB 87 FF 84 CE28 : C1 BF BF 87 BF BF C1 FF AB CE30 : C1 BF BF 87 BF BF BF FF AB CE38 : C3 BD BF B1 BD BD C3 FF D9 CE40 : BD BD BD 81 BD BD BD FF 3C CE48 : E3 F7 F7 F7 F7 F7 E3 FF F2 CE50 : F1 FB FB FB FB BB C7 FF 7A CE58 : BB B7 AF 9F AF B7 BB FF 76 CE60 : BF BF BF BF BF BF C1 FF E8 CE68 : BE 9C AA B6 BE BE BE FF D3 CE70 : BD 9D 8D A5 B1 B9 BD FF F4 CE78 : C3 BD BD BD BD BD C3 FF 1A CE80 : 83 BD BD 83 BF BF BF FF BB CE88 : C3 BD BD BD BD C3 F1 FF 13 CE90 : 83 BD BD BB 87 BB BD FF 26 CE98 : C3 BD BF C3 FD BD C3 FF 7F CEA0 : C1 F7 F7 F7 F7 F7 F7 FF 79 CEA8 : BD BD BD BD BD BD C3 FF 44 CEB0 : BD BD BD BD BD DB E7 FF CD CEB8 : BE BE BE B6 A2 88 9C FF 3D CEC0 : BD DB E7 E7 E7 DB BD FF B6 CEC8 : BD BD BD C3 F7 F7 EF FF 4B CED0 : 81 FD FB E7 DF BF 81 FF 4E CED8 : E7 E7 E7 00 00 E7 E7 E7 5B CEE0 : 3F 3F CF CF 3F 3F CF CF 79 CEE8 : E7 E7 E7 E7 E7 E7 E7 E7 E7 CEF0 : CC CC 33 33 CC CC 33 33 BC CEF8 : CC 66 33 99 CC 66 33 99 F7 CF00 : FF FF FF FF FF FF FF FF FF CF08 : 0F 0F 0F 0F 0F 0F 0F 0F 08 CF10 : FF FF FF FF 00 00 00 00 0F CF18 : 00 FF FF FF FF FF FF FF 18 CF20 : FF FF FF FF FF FF FF 00 1F CF28 : 3F 3F 3F 3F 3F 3F 3F 3F 28 CF30 : 33 33 CC CC 33 33 CC CC 63 CF38 : FC FC FC FC FC FC FC FC 37 CF40 : FF FF FF FF 33 33 CC CC D8 CF48 : 33 66 CC 99 33 66 CC 99 E1 CF50 : FC FC FC FC FC FC FC FC 4F CF58 : E7 E7 E7 E0 E0 E7 E7 E7 05 CF60 : FF FF FF FF F0 F0 F0 F0 9B CF68 : E7 E7 E7 E0 E0 FF FF FF 67 CF70 : FF FF FF 07 07 E7 E7 E7 6F CF78 : FF FF FF FF FF FF 00 00 77 CF80 : FF FF FF E0 E0 E7 E7 E7 57 CF88 : E7 E7 E7 00 00 FF FF FF 5D CF90 : FF FF FF 00 00 E7 E7 E7 3D CF98 : E7 E7 E7 07 07 E7 E7 E7 6D CFA0 : 3F 3F 3F 3F 3F 3F 3F 3F A0 CFA8 : 1F 1F 1F 1F 1F 1F 1F 1F A8 CFB0 : F8 F8 F8 F8 F8 F8 F8 F8 AF CFB8 : 00 00 FF FF FF FF FF FF B8 CFC0 : 00 00 00 FF FF FF FF FF C0 CFC8 : FF FF FF FF FF 00 00 00 C7 CFD0 : FE FC F9 93 87 8F 9F FF B1 CFD8 : FF FF FF FF 0F 0F 0F 0F 9A CFE0 : F0 F0 F0 F0 FF FF FF FF A2 CFE8 : E7 E7 E7 07 07 FF FF FF 0E CFF0 : 0F 0F 0F 0F FF FF FF FF 2D CFF8 : 0F 0F 0F 0F F0 F0 F0 F0 71
PROGRAMM : B 0334 0404 ----------------------------------- 0334 : AD 02 DD 09 03 8D 02 DD DB 033C : AD 00 DD 29 FC 09 00 8D B9 0344 : 00 DD AD 18 D0 29 0F 09 46 034C : 00 8D 18 D0 A9 C0 8D 88 1B 0354 : 02 AD 18 D0 29 F0 09 02 8F 035C : 8D 18 D0 20 44 E5 60 AD 7E 0364 : 02 DD 09 03 8D 02 DD AD B3 036C : 00 DD 29 FC 09 03 8D 00 24 0374 : DD AD 18 D0 29 0F 09 10 97 037C : 8D 18 D0 A9 04 8D 88 02 51 0384 : AD 18 D0 29 F0 09 04 8D 19 038C : 18 D0 20 44 E5 60 00 00 FE 0394 : 00 00 00 00 00 00 00 00 95 039C : 00 00 00 00 00 00 00 00 9D 03A4 : 00 00 00 00 00 00 00 00 A5 03AC : 00 00 00 00 00 00 00 00 AD 03B4 : 00 00 00 00 00 00 00 00 B5 03BC : 00 00 00 00 00 00 00 00 BD 03C4 : 00 00 00 00 00 00 00 00 C5 03CC : 00 00 00 00 00 00 00 00 CD 03D4 : 00 00 00 00 00 00 00 00 D5 03DC : 00 00 00 00 00 00 00 00 DD 03E4 : 00 00 00 00 00 00 00 00 E5 03EC : 00 00 00 00 00 00 00 00 ED 03F4 : 00 00 00 00 00 00 00 00 F5 03FC : 00 00 00 00 20 31 FF FF 88
|
10 poke808,234
14 print"{clr}{down} loading..."
15 sys57812"a",8,1:poke780,0:sys65493
16 sys57812"b",8,1:poke780,0:sys65493
20 poke53280,6:poke53281,6:printchr$(147)chr$(8)chr$(14):poke650,0:poke53269,0
21 sys820
50 print"{clr}{down}{down}{down}{down}{lred} Pink Arts proudly presents:"
60 print"{down}{down} {wht}>{blk} The Sword {wht}<{blk}"
65 print"{down} @ 1986 A.Sommer"
67 print"{down} and S.Adomat"
70 fort=1to1000:next
75 print"{down}{down}{down} Thanks to"
80 print"{down} Birthe,Claudia,the girls..."
90 fort=1to1000:next
95 print"{down}{down} (waiting)"
100 av=15:dimve$(av)
101 ao=32:dimno$(ao),o$(ao),o(ao)
102 ar=41:dimra$(ar),du(ar,6),kr$(ar)
103 au=18:dimau$(au)
104 af=9:dimfl(af)
105 sp=1:f1=0:f2=15:f3=15:f0=6:zu=0:po=0
106 a2=28:dimv2$(a2)
107 az=4:dimza$(az)
131 datanimm,lege,gehe,betrete,verlasse,toete,rudere,leg
132 dataverliere,lese,lies,heirate,geh,besteige,untersuche
141 data"/","norden",0
142 data"/","sueden",0
143 data"/","westen",0
144 data"/","osten",0
145 data"/","oben",0
146 data"/","unten",0
147 data"/","mir",0
148 data"/","mich",0
149 data"den heiligen Mann","mann",2
150 data"ein Boot","boot",3
151 data"kein Boot","boot",9
152 data"die liebliche Birthe","birthe",10
153 data"die niedliche Claudia","claudia",10
154 data"die heissbluetige Christiane","christiane",10
155 data"die reservierte Meike","meike",10
156 data"die nette Sandra","sandra",10
157 data"viele grosse und kleine Steine","steine",11
158 data"Baeume","baueme",14
159 data"Baeume","baeume",15
160 data"eine kleine,alte Huette","huette",16
161 data"einen Morgenstern","morgenstern",19
162 data"einen kostbaren Schild","schild",19
163 data"ein vergilbtes Blatt Papier","blatt",24
164 data"einen (den!) Zwerg","zwerg",32
165 data"den Drachen,den ich toeten muss","drachen",33
166 data"gar nichts,nur lauter uebelrichenden Nebel","nebel",35
167 data"keine Rettung fuer mich","rettung",41
168 data"/","papier",0
169 data"/","frau",0
170 data"/","alles",0
171 data"das Zauberschwert","zauberschwert",33
172 data"eine Lampe","lampe",-1
201 data"vor dem heiligen Turm.","Vorm heiligen Turm",2,0,0,0,0,0
202 data"im heiligen Turm.Kalt hier...","Im Turm",9,1,5,6,10,3
203 data"im Keller.Hier fliesst ein Fluss.","Keller",0,0,0,0,2,0
204 data"im Boot.","Im Boot",0,0,0,0,0,0
205 data"im Moor.","Moor",8,0,0,2,0,0
206 data"am Meer.","Am Meer",0,0,2,0,0,0
207 data"im Boot.","Im Boot",0,0,0,0,0,0
208 data"im Moor.","Moor",0,0,0,0,0,0
209 data"am Fluss.","Am Fluss",11,2,0,0,0,0
210 data"im Harem des heiligen Mannes.","Im Harem",0,0,0,0,0,2
211 data"im Gebirge.","Gebirge",11,11,11,11,12,9
212 data"auf dem Gipfel der Genuesse.","Gipfel",0,0,0,0,0,0
213 data"auf einer Sandbank.(Mist!)","Sandbank",0,0,0,0,0,0
214 data"im Wald.","Wald",15,0,14,14,0,0
215 data"im Wald.","Wald",16,14,15,14,0,0
216 data"im Wald vor einer Huette.","Vor einer Huette",15,15,15,14,0,0
217 data"in der kleinen Huette.","Huette",0,0,0,0,0,0
218 data"am See Kaltor.","Kaltor",21,0,41,19,0,0
219 data"auf einer Ebene.","Ebene",0,0,18,0,0,0
220 data"auf einer weiten Ebene.","Ebene",0,0,0,21,0,0
221 data"an einem Fluss.","Fluss",22,18,20,0,0,0
222 data"am Fluss.","Fluss",23,21,20,0,0,0
223 data"am Fluss.","Fluss",24,22,20,0,0,0
224 data"am Rand des Gebirges.","Gebirgsrand",26,23,23,23,0,0
225 data"im Gebirge.","Gebirge",28,0,39,26,0,0
226 data"im Gebirge.","Gebirge",29,24,25,27,0,0
227 data"in einem Tal.","Tal",30,0,26,0,0,0
228 data"im Gebirge.","Gebirge",0,25,39,29,0,0
229 data"in einem Tal.","Tal",31,26,28,30,0,0
230 data"im Gebirge.","Gebirge",0,27,30,0,0,0
231 data"in einem Tal.","Tal",0,29,0,0,0,32
232 data"in einer duesteren Hoehle.","Hoehle",0,0,0,0,31,0
233 data"tief in der Hoehle des Loewen...aehh Drachen,natuerlich!"
234 data"Hoehle",0,0,0,0,34,0
235 data"in der Hoehle des Drachen.","Hoehle",0,0,0,35,0,33
236 data"am Fusse des Vetus.","Vetus",0,40,34,36,0,0
237 data"auf einer Ebene.Fern im Westen raucht der Vetus.","Ebene"
238 data0,0,35,37,0,0
239 data"auf einer Ebene.","Ebene",39,38,36,38,0,0
240 data"auf einer Ebene.","Ebene",39,37,37,39,0,0
241 data"auf einer Ebene.","Ebene",38,25,38,28,0,0
242 data"auf einer Ebene.","Ebene",35,40,40,40,0,0
243 data"unter Wasser...","Unter Wasser",0,0,0,0,0,0
300 datader,die,das,den, ,ueber,unter,auf,in,mit,dem,durch,und,nach
301 databitte,doch,heiligen,zur
501 data0,0,0,0,0,0,0,0,0
601 datainventory,hilfe,ende,sieh,look,danke,save,load,store,restore,farbe
602 datanorden,sueden,westen,osten,oben,unten,score,spielstand,sage,schlafe
603 dataspeichere,lade,anleitung,spielanleitung,normal,neu,warte
650 rem zaubersprueche
651 dataemmiwhcs,kceuruz,"ehcard eteot","thcil"
700 data133,95,134,96,76,191,163
800 fort=1toav:readve$(t):next
801 fort=1toao:readno$(t),o$(t),o(t)
802 next
803 fort=1toar:readra$(t),kr$(t)
804 forx=1to6:readdu(t,x):nextx,t
805 fort=1toau:readau$(t):next
806 fort=1toaf:readfl(t):next
807 fort=1toa2:readv2$(t):next
808 fort=1toaz:readza$(t):za$(t)=chr$(34)+za$(t)+chr$(34):next
810 fort=704to710:reada:poket,a:next
820 poke88,0:poke89,192:poke90,0:poke91,192:poke780,0:poke781,160:sys704
825 poke88,0:poke89,0:poke90,0:poke91,0:poke780,0:poke781,224:sys704
830 poke1,53
900 print"{up} Normaler Zeichensatz? {CBM-@}{left}";
920 geta$:ifa$<>"n"anda$<>"j"then920
930 printa$
931 fort=1to500:next
940 ifa$="j"thengosub56000:printchr$(14):f0=0:f1=5:f2=3:f3=5
945 poke53280,f0:poke53281,f0
1000 poke59639,0
1005 print"{clr}"
1006 data"Norden","Sueden","Westen","Osten","Oben","Unten"
1010 fort=1to6:readri$(t):next
1020 printchr$(147)
1080 gosub53000:print:poke646,f1:ifsp=2thenfl(2)=-1
1090 print"Ich bin ";ra$(sp)
1100 print"I can see:"
1110 fl(1)=-1:fort=1toao
1120 ifo(t)=spthenprintno$(t)".":fl(1)=0
1130 next
1140 iffl(1)thenprint"nichts."
1150 print"Hier geht's nach:"
1160 g=0:fort=1to6
1170 ifdu(sp,t)<>0thenprintri$(t)",";:g=g+1
1180 next
1190 ifg<1thenprint"nirgendwohin ";
1200 print"{left}."
1230 iffl(2)ando(9)=2theno(9)=0:gosub57000:goto1080
1300 ifsp=8thenprint"{down}Hilfe,ich versinke im Moor...{down}":goto54000
1310 ifsp=13thenprint"{down}Tja,das Abenteuer ist leider zuende."
1320 ifsp=13thenprint"Ich verhungere langsam,und denke"
1330 ifsp=13thenprint"an die Zeit,die ich mit Birthe haette"
1340 ifsp=13thenprint"verbringen koennen.":print:goto54000
1370 :
1500 zu=zu+1:iffl(5)andnotfl(8)thenpo=po+1:fl(8)=-1
1501 ifsp<>41thenfl(7)=0
1502 ifsp=41thenfl(7)=fl(7)+1
1503 iffl(7)>2thenprint"Ich ertrinke...Blubb...":print:goto54000
1505 gosub50000:poke646,f2
1510 iflen(x$)>2then1600
1520 ifx$="n"anddu(sp,1)<>0thensp=du(sp,1):print"Bitte.":goto1080
1521 ifx$="s"anddu(sp,2)<>0thensp=du(sp,2):print"Na Gut.":goto1080
1523 ifx$="w"anddu(sp,3)<>0thensp=du(sp,3):print"Gooood.":goto1080
1524 ifx$="o"anddu(sp,4)<>0thensp=du(sp,4):print"Na Klar.":goto1080
1525 ifx$="ob"anddu(sp,5)<>0thensp=du(sp,5):print"Aber Bitte.":goto1080
1526 ifx$="u"anddu(sp,6)<>0thensp=du(sp,6):print"Bitteschoen.":goto1080
1527 ifx$="i"then31000
1599 print"Wrong Input!":goto1500
1600 er=0:gosub51000
1610 ifer=1then1500
1615 er=0:gosub52000
1616 ifer=1then1500
1620 ifv2<>0then30000
1630 ifo1=28theno1=23
1640 ifo1=18andsp=15theno1=19
1650 ifo1=10andsp=9theno1=11
1700 onvgoto2500,2000,3000,3500,4000,4500,5000,2000,6500,7000,7000,7500
1710 onv-12goto3000,6000,8000
1800 goto1500
2000 ifo2<>0thenprint"Immer der Reihe nach!":goto1500
2005 ifo1=30then2100
2010 ifnoto(o1)thenprint"Habe ich nicht dabei!":goto1500
2020 o(o1)=sp:print"Gelegt!":goto1500
2100 gl=0:fort=1toao
2110 ifo(t)=-1theno(t)=sp:printo$(t)":gelegt":gl=1
2120 next
2130 ifgl=1then1500
2140 print"Hatte leider nothing dabei!":goto1500
2500 ifo1=30then2800
2501 ifo2=29theno2=0:goto7500
2502 ifo1=8thenprint"Du hasst dich doch schon!":goto1500
2503 ifo1=7thenprint"Lern erstmal Deutsch!":goto1500
2504 ifo(o1)=-1thenprint"Hab ich doch schon!":goto1500
2505 ifo(o1)<>spthenprint"Sehe ich hier nicht!":goto1500
2506 ifo1=11thenprint"Da oben steht KEIN Boot!":goto1500
2507 ifo1<12thenprint"Das geht nun wirklich nicht!":goto1500
2508 ifo1<17thenprint"Du denkst auch nur an das eine!":goto1500
2509 ifo1=17thenprint"So viele...kann mich nicht entscheiden!":goto1500
2510 ifo1=18oro1=19thenprint"Bin doch kein Riese,nur ein kleiner C64!";:goto1500
2511 ifo1=20thenprint"Das solltest du dir nochmal ueberlegen!":goto1500
2512 ifo1>23ando1<31thenprint"Nein,das uebersteigt meine Kompetenzen!":goto1500
2530 ifo1=31andnotfl(6)thenprint"Der Drache Verfeuert dich im Vulkan!":goto54000
2600 o(o1)=-1:print"Allright,getaket!"
2610 ifo(31)thenfl(5)=-1
2630 goto1500
2800 gn=0:fort=1toao
2810 ifo(t)=spthengosub2850
2820 next
2830 ifgn=0thenprint"Nichts da!"
2840 goto1500
2850 ift<>21andt<>22andt<>23andt<>32then2900
2860 printo$(t)":genommen":o(t)=-1:gn=1:return
2900 ift=31andfl(6)=-1thenfl(5)=-1:goto2860
2905 ift=31andnotfl(6)theno1=31:goto2530
2910 return
3000 ifo2<>0thenprint"Eins auf einmal!":goto1500
3010 ifo1=1thenx$="n":goto1520
3020 ifo1=2thenx$="s":goto1521
3030 ifo1=3thenx$="w":goto1523
3040 ifo1=4thenx$="o":goto1524
3050 ifo1=5thenx$="ob":goto1525
3060 ifo1=6thenx$="u":goto1526
3070 print"Nit moeglich...":goto1500
3500 ifo2<>0thenprint"No,man!":goto1500
3510 ifo1=10then6000
3520 ifo(o1)<>spthenprint"Seh ick nich!":goto1500
3530 ifo1<>20thenprint"Sowas kann ich nicht betreten!":goto1500
3540 print"Bin drin!":sp=17:po=po+1:goto1080
4000 ifo2<>0thenprint"SO NICHT!":goto1500
4010 ifo1<>10ando1<>20thenprint"Das geht nicht!":goto1500
4020 ifo1=20andsp=17thenprint"Sie laesst mich nicht raus!":goto1500
4030 ifsp<>4andsp<>7ando1<>10thenprint"Versteh' dich nicht!":goto1500
4040 ifsp=4thenprint"Hilfe,ich ertrinke...":goto54000
4050 sp=14:print"Gute Wahl!":goto1080
4100 print"Leider unmoeglich!":goto1500
4500 ifo1=8thenprint"Selbstmord ist unter Strafe verboten!":goto1500
4501 ifo1=7thenprint"Lern erstmal richtig Deutsch!":goto1500
4505 ifo(o1)<>sporo2<>0ando2<>21thenprint"Verstehe ich nicht.":goto1500
4510 ifo1=9oro1=24oro1=25oro1>11ando1<17then4600
4530 print"Ein DIng kann man NICHT toeten!":goto1500
4600 ifo2=21thenprint"Dami gehts nicht!":goto1500
4609 print"Womit denn?"
4610 print"Und ueberhaupt:Morden ist gar nicht "
4620 print"fein!":goto1500
5000 ifo1>4oro2<>0thenprint"So ein Bloedsinn!":goto1500
5010 ifsp<>7andsp<>4thenprint"Ohne Boot und ohne Wasser???":goto1500
5020 ifsp=7ando1=2thensp=4:print"Allright!":goto1080
5030 ifsp=4ando1=1thensp=7:print"Bitteschoen!":goto1080
5040 ifo1=3thensp=13:print"Selbst schuld!":goto1080
5050 print"Dahin kann ich nicht rudern!":goto1500
6000 ifsp<>3thenprint"Das geht nicht!":goto1500
6010 ifo1<>10thenprint"Wie bitte?":goto1500
6020 sp=4:print"O.K.":po=po+1:goto1080
6100 print"Leider unmoeglich!":goto1500
6500 ifo1=0thenprint"Was denn?":goto1500
6510 ifnoto(o1)thenprint"Hab isch nisch!":goto1500
6520 print"Ich bin doch nicht so bloed und ver-"
6530 print"lier was!"
6540 print"Schon aus Prinzip nicht!":goto1500
7000 ifo2<>28ando2<>0thenprint"What,to the Donnerwetter?":goto1500
7005 ifnoto(o1)thenprint"Hab ich nicht!":goto1500
7010 ifo1<>23thenprint"Voellig unleserlich!":goto1500
7020 print"Ohh nein,ein Werbe-Zettel..."
7030 print"Soll ich ihn wirklich lesen?":gosub50000:poke646,f2
7040 ifleft$(x$,1)="n"thenprint"Gut so!":goto1500
7041 ifleft$(x$,1)<>"j"then7030
7050 print"Dort steht:"
7080 printchr$(34);:poke646,f1
7090 print"Pink Schwertputzer fuer ihr Schwert,"
7100 print" jetzt im Sonderangebot by Arthurs "
7110 print" Ritter- und Knappenshop!"
7111 print" Nur 19,50.-";
7119 poke646,f2
7120 printchr$(34):goto1500
7500 ifo1=9thenprint"Was bist du denn fuer einer?":goto1500
7510 ifo(o1)<>spthenprint"Sehe ich hier nicht!":goto1500
7520 ifo1<12oro1>16thenprint"So ein schwachsinn!":goto1500
7530 ifo1=15then7700
7535 ifo1=14then7900
7540 iffl(5)=0then7800
7550 print"Gut,"no$(o1)" ist nun meine":print"Frau,";:po=po+1
7555 print"und ihr liebt euch und werdet"
7556 print"gluecklich sein bis an euer Lebensende!"
7557 print"Oder?":print
7560 poke646,f1
7570 print"Bravo,du hasst mich geschlagen,das"
7580 print"Adventure ist geloest!"
7585 print"Du erhaelst"po"von 9 Punkten!"
7590 print"Aber freu dich nicht zu frueh,"
7595 print"Teil 2 ist schon in Arbeit!":print:goto54000
7700 print"Nils,der andere Zauberlehrling und"
7710 print"Meikes Freund,komm herein und er-"
7720 print"schlaegt mich aus Eifersucht!":print:goto54000
7800 print"Reizvoller Gedanke...Aber das Abenteuer"
7810 print"ruft.Also bestehe es und schaff dir"
7820 print"kein neues!":goto1500
7900 print"Sie reisst mir die Kleider vom Leibe."
7910 print"Ich sterbe an meiner Erregung!":print:goto54000
8000 ifo2<>0thenprint"Nicht alles auf einmal!":goto1500
8001 ifo(o1)<>spandnoto(o1)thenprint"Seh ich nicht,hab ich nicht!":goto1500
8002 ono1goto8010,8010,8010,8010,8010,8010,8020,8015,8300,8300,8050,8060,8070
8003 ono1-13goto8080,8090,8100,8110,8300,8300,8300,8300,8120,8130,8140
8004 ono1-24goto8150,8160,8300,8300,8140,8300,8180,8170
8010 print"Untersuch ihn doch selbst!":goto1500
8015 print"Kannst du nicht auf Deutsch reden!":goto1500
8020 print"Ich bin ein schoener,muskuloeser"
8021 print"Juengling.Mein Name ist Nevs Enra.":goto1500
8050 print"Ist nicht zu sehen!":goto1500
8060 print"Wie ich schon sagte:Lieblich!":goto1500
8070 print"Sie ist wirklich sehr,sehr niedlich!":goto1500
8080 print"Man,hat die ein Temperament!":goto1500
8090 print"Sie bleibt cool,und so sieht sie auch":print"aus!":goto1500
8100 print"Ein nettes Maedel":goto1500
8110 print"Die Huette ist klein und scheint"
8111 print"gemuetlich zu sein.":goto1500
8120 print"Es ist vergoldet und mit Edelsteinen":print"besetzt.":goto1500
8130 print"Ich solte es lesen!":goto1500
8140 print"Es ist ein eher freundlicher Zwerg!":goto1500
8150 print"Das ist er...":goto1500
8160 print"Du inhalierst zuviel Nebel...Es ist":print"Giftgas...Du Stirbst!":print
8161 goto54000
8170 print"Sie koennte noch nuetzlich sein!":goto1500
8180 print"Zauberhaft!":goto1500
8300 print"Sieht ganz normal aus!":goto1500
30000 onv2goto31000,31500,32000,32500,32500,33000,33500,34000,33500,34000,34500
30050 onv2-11goto35000,35010,35020,35030,35040,35050,35500,35500,36000,37000
30060 onv2-21goto33500,34000,38000,38000,39500,39700,40000
30100 goto1500
31000 print"Ich trage:"
31005 fl(3)=-1:fort=7toao
31010 ifo(t)=-1thenfl(3)=0:printno$(t)"."
31020 next
31030 iffl(3)thenprint"gar nichts!"
31040 goto1500
31500 ifsp=10thenprint"Die Maedels sehn zum anbeissen aus!":goto1500
31510 ifsp=17thenprint"Ich bin muede!":goto1500
31520 ifsp=5thenprint"Geh hier nicht weiter!":goto1500
31530 ifsp=14orsp=15thenprint"Man sieht den Wald vor Baeumen nicht!":goto1500
31540 ifsp=3thenprint"Ich wollt ich waer ein Seebaer,aeh -mann...":goto1500
31550 ifsp=31thenprint"Zwerge lieben Licht!":goto1500
31555 ifsp=7thenprint"Ich sollte das Boot besser verlassen!":goto1500
31560 ifsp=12thenprint"Gib auf,hier kommst du nicht mehr weg!":goto1500
31900 print"Hilf dir selbst,":zu=zu-1
31910 print"dann hilft dir Gott!"
31920 goto1500
32000 print"Willst du wirklich aufhoeren?"
32010 gosub50000:poke646,f2
32020 ifleft$(x$,1)="j"thenprint"Na gut!":goto54000
32030 print"Warum tippst du dann 'Ende'?":goto1500
32500 goto1080
33000 zu=zu-1:print"Nicht zu danken!":goto1500
33500 gosub56500:print"Please wait!":zu=zu-1
33510 open15,8,15,"s:"+n$
33520 close15
33530 open2,8,2,n$+",s,w"
33540 print#2,sp:print#2,zu:print#2,ra$(32):print#2,no$(25):print#2,po
33550 fort=1toao:print#2,o(t):next
33560 fort=1toaf:print#2,fl(t):next
33600 close2:print"Fertig."
33700 goto1500
34000 gosub56500:print"Please wait"
34030 open2,8,2,n$+",s,r"
34040 input#2,sp:input#2,zu:input#2,ra$(32):input#2,no$(25):input#2,po
34050 fort=1toao:input#2,o(t):next
34060 fort=1toaf:input#2,fl(t):next
34100 close2:print"Fertig."
34200 goto1080
34500 print"Bildschirmfarbe (F1+Return) < >":poke650,128
34510 geta$:ifa$="{f1}"thenf0=f0+1:iff0=15thenf0=0
34520 ifa$=chr$(13)then34540
34530 poke53280,f0:poke53281,f0:goto34510
34540 print"Schriftfarbe Eingabe (F1+Return) >{rvon} {rvof}<{left}{left}";
34545 geta$
34550 ifa$="{f1}"thenf1=f1+1:iff1=15thenf1=0
34560 ifa$=chr$(13)then34580
34570 poke646,f1:print"{rvon} {rvof}{left}";:goto34545
34580 poke646,f2:print:print"Schriftfarbe ausgabe (F1+Return) >{rvon} {rvof}<{left}{left}";
34585 geta$
34590 ifa$="{f1}"thenf2=f2+1:iff2=15thenf2=0
34595 ifa$=chr$(13)then34600
34598 poke646,f2:print"{rvon} {rvof}{left}";:goto34585
34600 print:print"Schriftfarbe Kopfzeile (F1+Return) >{rvon} {rvof}<{left}{left}";
34610 geta$
34620 ifa$="{f1}"thenf3=f3+1:iff3=15thenf3=0
34630 ifa$=chr$(13)then34650
34640 poke646,f3:print"{rvon} {rvof}{left}";:goto34610
34650 poke650,0:print:goto1080
35000 x$="n":goto1520
35010 x$="s":goto1520
35020 x$="w":goto1520
35030 x$="o":goto1520
35040 x$="ob":goto1520
35050 x$="u":goto1520
35500 print"Du hasst";:zu=zu-1
35510 ifzu=1thenprint" einen Befehl gegeben!":goto35525
35511 ifzu=0thenprint" noch keinen Befehl gegeben!":goto1500
35520 printzu"Befehle gegeben!"
35525 ifpo=1thenprint"Du hasst einen Punkt.":goto35560
35527 print"Du hasst"po"Punkte."
35560 print"Aber das Spiel hasst du noch nicht "
35570 print"gewonnen!":goto1500
36000 x$=right$(x$,len(x$)-5)
36010 ifleft$(x$,1)<>chr$(34)thenprint"Anfuehrungszeichen vergessen!":goto1500
36011 ifright$(x$,1)<>chr$(34)thenprint"Wrong Input!":goto1500
36020 forza=1toaz
36030 ifza$(za)=x$then36310
36040 next
36300 printx$",nichts passiert!":goto1500
36310 onzagoto36500,36600,36700,36800
36500 ifsp<>41thenprint"Hier gibt's nichts zum schwimmen!":goto1500
36505 iffl(9)thensp=18:fl(7)=0:print"Puh,bin doch gerettet!":goto1080
36510 sp=18:fl(7)=0:fl(9)=-1:print"Puh,bin doch gerettet!":po=po+1:goto1080
36600 ifsp<>33thenprint"Das geht leider nicht!":goto1500
36610 iffl(5)=0thenprint"Ich habe das Schwert noch nicht!":goto1500
36620 sp=2:print"Zwooochh...Wau,echt geil so'n Zauber!":po=po+1:goto1080
36700 ifsp<>33thenprint"Ich seh den Drachen ja gar nicht!":goto1500
36710 iffl(6)thenprint"Der Drache ist schon tot!":goto1500
36720 print:print:print:print"Peng,Zack,Buff..."
36730 print"Blitze zucken,Flammen lodern,der Drache"
36731 print"ist tot,endlich besiegt!"
36732 no$(25)="den toten Drachen":fl(6)=-1
36740 print"{down}Der heilige Mann erscheint.Er sagt:"
36750 printchr$(34);:poke646,f1
36760 print"Du hasst meine Erwartungen voll"
36761 print" erfuellt.Ich lege nun mein Amt nieder"
36762 print" und gebe alles an dich,mein Schueler."
36763 print" Leb wohl...";:poke646,f2:printchr$(34)
36770 print"Ich rufe ihm noch nach,doch er ist"
36771 print"schon weg.Nun bin ich der Zauberer und"
36772 print"heilige Mann."
36773 print"{down}An der Wand erscheint eine Schrift,die"
36774 print"besagt,dass das Adventure noch nicht":print"geschlagen ist!"
36776 po=po+1
36777 print"{down}{down}{down}{down}(More){up}{up}"
36780 geta$:ifa$=""then36780
36785 fl(6)=-1:goto1080
36800 ifnoto(32)thenprint"Hab' keine Lampe!":goto1500
36810 ifsp<>32thenprint"Bin doch nicht blind!":goto1500
36820 fl(4)=-1:print
36830 print"Der Zwerg freut sich ueber das Licht."
36840 print"Ich schenke ihm die Lampe."
36845 print"Er versteckt sie schnell in seiner"
36850 print"Hoehle.":o(32)=0
36860 print"Er beginnt zu erzaehlen:"
36861 printchr$(34);:poke646,f1
36862 print"Der Drache ist mit Magie einfach zu"
36863 print" besiegen...benutze dein Wissen!";
36864 poke646,f2:printchr$(34)
36865 print"Mehr will er nicht sagen!"
36866 print"Er verschwindet...":o(24)=0
36870 ra$(32)="in einer hellerleuchteten Hoehle.":po=po+1:goto1080
37000 ifsp<>17thenprint"Bin nicht muede!":goto1500
37010 print"Langsam sinke ich in den Schlaf...":sp=18
37020 fort=1to2000:next
37030 print"{down}Ich erwache,und sehe...WAS?"
37040 print"Ich bin ja ganz wo anders..."
37045 po=po+1:goto1080
38000 print"Eine komplette Anleitung kann ich"
38010 print"dir so auf die schnelle nicht geben,"
38020 print"aber ein paar Tricks:"
38030 print"Save immer alles ab,bevor du etwas ge-"
38040 print"faehrliches ausprobierst."
38050 print"Untersuche alles genau und lese alles"
38060 print"sorgfaelltig."
38070 print"'score' bzw. 'spielstand' sagt dir,wie-"
38080 print"viele Befehle du schon gegeben hasst,"
38090 print"und deine Punktzahl."
38095 print"Zaubersprueche werden angewendet,indem"
38100 print"man 'sage "chr$(34)"zauberspruch"chr$(34)"' tippt."
38110 print"Ein Zauberspruch ist ein Befehl,der"
38120 print"rueckwaerts eingegeben werden muss!":
38999 goto1500
39500 sys867:printchr$(14)
39510 f0=0:f1=5:f2=3:f3=5
39530 goto39800
39700 printchr$(142):sys820
39710 f0=6:f1=0:f2=15:f3=15
39800 :
39810 poke53280,f0:poke53281,f0
39830 goto1080
40000 print"Die Zeit vergeht...":goto1500
50000 x$="":a$="":poke646,f1:print:print"{CBM-@}{left}";
50030 geta$:ifa$=""then50030
50031 poke212,0
50033 ifa$=chr$(13)then50300
50034 ifa$="{home}"thengosub50500:goto50030
50035 ifa$=chr$(32)then50080
50036 ifa$=chr$(34)thenpoke212,1:goto50080
50037 ifa$=chr$(20)thengosub50400:goto50030
50038 iflen(x$)>78then50030
50050 ifa$<"a"ora$>"z"then50030
50080 printa$;"{CBM-@}{left}";:x$=x$+a$:goto50030
50300 iflen(x$)<1thengoto50030
50301 print" ":return
50400 l=len(x$):ifl<1thenreturn
50415 x$=left$(x$,l-1):print" {left}{left}{CBM-@}{left}";
50430 return
50500 iflen(x$)<1thenreturn
50501 print" {left}";:fors=1tolen(x$)
50510 print" {left}{left}";:next
50520 print"{CBM-@}{left}";:x$="":return
51000 fori=1to10:be$(i)="":next
51020 wz=1
51030 fori=1tolen(x$)
51040 ifmid$(x$,i,1)=" "thengosub51100:goto51060
51045 ifwz>10thenprint"Eingabe ist zu lang!":er=1:return
51050 be$(wz)=be$(wz)+mid$(x$,i,1)
51060 next:gosub51100:wz=wz-1
51070 return
51100 rem aussortieren
51110 ic=0:fori1=1toau
51120 ifbe$(wz)=au$(i1)thenic=1
51130 next
51140 ific=0thenwz=wz+1:return
51150 be$(wz)="":return
52000 ifbe$(1)="sage"thenv2=20:return
52001 o2=0:v2=0:ifwz>1then52008
52002 fort=1toa2:ifv2$(t)=be$(1)thenv2=t:return
52003 next
52008 ifwz>3thenprint"Was soll das bedeuten?":goto1500
52009 fort=1toav
52010 ifve$(t)=be$(1)thenv=t:goto52100
52020 next
52030 print"'"be$(1)"' kenne ich nicht!":er=1:return
52100 fort=1toao
52110 ifo$(t)=be$(2)theno1=t:goto52150
52120 next
52130 print"Kein Nomen gefunden!":er=1:return
52150 ifwz=2thenreturn
52200 fort=1toao
52210 ifo$(t)=be$(3)theno2=t:goto52300
52220 next
52230 print"'"be$(3)"' kenne ich nicht!":er=1
52300 return
53000 x=peek(211):y=peek(214):poke646,f3
53010 print"{home}{rvon} The Sword{rvof}"
53020 print"{home}{rvon}";kr$(sp);"{rvof}"
53030 poke211,x:poke214,y:sys58732
53050 return
54000 poke646,f2:print"Nochmal?"
54010 gosub50000:ifleft$(x$,1)="j"thenpoke53280,6:poke53281,6:run20
54020 goto60000
56000 sys867:return
56500 print"File-Nummer (1-3) {CBM-@}{left}";
56510 gete$:ife$<>"1"ande$<>"2"ande$<>"3"then56510
56511 ife$="1"thenn$="c"
56512 ife$="2"thenn$="d"
56513 ife$="3"thenn$="e"
56520 printe$"_":return
57000 poke646,f2:print
57010 print"Der heilige Mann erblickt seinen"
57020 print"Schueler (mich) und sagt:"
57030 printchr$(34);:poke646,f1
57040 print"Ich bin Stolz,mein Schueler!"
57050 print" Du wolltest Zauberer werden,und jetzt"
57060 print" stehst du vor der abschliessenden"
57070 print" Pruefung.Toete den Drachen,der in dem"
57080 print" Vulkan 'Vetus' lebt und nimm das"
57085 print" Zauberschwert,das er bewacht!"
57090 print"{$a0}Gelingt dir dies,bist du wahrlich"
57091 print" fuer wuerdig befunden,ein Zauberer"
57092 print" zu sein.";:poke646,f2:printchr$(34)
57093 print"Der heilige Mann,mein Lehrmeister,"
57094 print"scheint sich in Luft aufzuloesen!"
57095 print"Jetzt bin ich auf mich gestellt!"
57100 print"{down}{down}<More>{up}{up}"
57110 geta$:ifa$=""then57110
57120 return
60000 poke59639,16:poke53280,6:poke53281,6
60010 sys820
60020 print"{down}{down}{down}{down} {lred} Pink Arts:"
60030 print"{down}{down} {blk}\ T H E S W O R D \"
60031 print"{down}{down} @ 1986 by A.Sommer and S.Adomat"
60035 print"{down}{down}{down}{down}{down}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
60040 m$=" The Sword {wht}by {lred}Pink Arts{blk}":gosub61000
60050 m$=" Programing : Arne Sommer":gosub61000
60060 m$=" Idea : A.Sommer and S.Adomat":gosub61000
60065 m$=" Story and Map : A.Sommer + S.Adomat":gosub61000
60070 m$=" Special Effects : Sven Adomat":gosub61000
60080 m$=" Grafics : A.Sommer + S.Adomat":gosub61000
60090 m$=" Motivation : Birthe Nietmann":gosub61000
60100 m$=" Greetings to all our friends!":gosub61000
60110 m$="And coming soon : Ritter + Sword Part 2{left}":gosub61000
60120 m$=" Aehnlichkeiten mit wirklichen Begeben- heiten und Namen sind rein"
60130 m$=m$+" zufaellig!":gosub61000
60900 goto60040
61000 poke214,24:poke211,0:sys58732
61010 printm$:print:print:gosub62000
61020 print:gosub62000:print:gosub62000:print:gosub62000:print:goto62000
61030 return
62000 fort=1to600:next:return
10 POKE 808,234 14 PRINT"{CLR,DOWN,SPACE}LOADING..." 15 SYS 57812"A",8,1:POKE 780,0:SYS 65493 16 SYS 57812"B",8,1:POKE 780,0:SYS 65493 20 POKE 53280,6:POKE 53281,6:PRINTCHR$ (147)CHR$ (8)CHR$ (14):POKE 650,0:POKE 53269,0 21 SYS 820 50 PRINT"{CLR,4DOWN,LIG.RED,7SPACE}PINK ARTS PROUDLY PRESENTS:" 60 PRINT"{2DOWN,13SPACE,WHITE}>{BLACK,SPACE}THE SWORD{SPACE,WHITE}<{BLACK}" 65 PRINT"{DOWN,12SPACE}@ 1986 A.SOMMER" 67 PRINT"{DOWN,15SPACE}AND S.ADOMAT" 70 FOR T=1 TO1000:NEXT 75 PRINT"{3DOWN,15SPACE}THANKS TO" 80 PRINT"{DOWN,7SPACE}BIRTHE,CLAUDIA,THE GIRLS..." 90 FOR T=1 TO1000:NEXT 95 PRINT"{2DOWN,15SPACE}(WAITING)" 100 AV=15:DIM VE$(AV) 101 AO=32:DIM NO$(AO),O$(AO),O(AO) 102 AR=41:DIM RA$(AR),DU(AR,6),KR$(AR) 103 AU=18:DIM AU$(AU) 104 AF=9:DIM FL(AF) 105 SP=1:F1=0:F2=15:F3=15:F0=6:ZU=0:PO=0 106 A2=28:DIM V2$(A2) 107 AZ=4:DIM ZA$(AZ) 131 DATA NIMM,LEGE,GEHE,BETRETE,VERLASSE,TOETE,RUDERE,LEG 132 DATA VERLIERE,LESE,LIES,HEIRATE,GEH,BESTEIGE,UNTERSUCHE 141 DATA "/","NORDEN",0 142 DATA "/","SUEDEN",0 143 DATA "/","WESTEN",0 144 DATA "/","OSTEN",0 145 DATA "/","OBEN",0 146 DATA "/","UNTEN",0 147 DATA "/","MIR",0 148 DATA "/","MICH",0 149 DATA "DEN HEILIGEN MANN","MANN",2 150 DATA "EIN BOOT","BOOT",3 151 DATA "KEIN BOOT","BOOT",9 152 DATA "DIE LIEBLICHE BIRTHE","BIRTHE",10 153 DATA "DIE NIEDLICHE CLAUDIA","CLAUDIA",10 154 DATA "DIE HEISSBLUETIGE CHRISTIANE","CHRISTIANE",10 155 DATA "DIE RESERVIERTE MEIKE","MEIKE",10 156 DATA "DIE NETTE SANDRA","SANDRA",10 157 DATA "VIELE GROSSE UND KLEINE STEINE","STEINE",11 158 DATA "BAEUME","BAUEME",14 159 DATA "BAEUME","BAEUME",15 160 DATA "EINE KLEINE,ALTE HUETTE","HUETTE",16 161 DATA "EINEN MORGENSTERN","MORGENSTERN",19 162 DATA "EINEN KOSTBAREN SCHILD","SCHILD",19 163 DATA "EIN VERGILBTES BLATT PAPIER","BLATT",24 164 DATA "EINEN (DEN!) ZWERG","ZWERG",32 165 DATA "DEN DRACHEN,DEN ICH TOETEN MUSS","DRACHEN",33 166 DATA "GAR NICHTS,NUR LAUTER UEBELRICHENDEN{4SPACE}NEBEL","NEBEL",35 167 DATA "KEINE RETTUNG FUER MICH","RETTUNG",41 168 DATA "/","PAPIER",0 169 DATA "/","FRAU",0 170 DATA "/","ALLES",0 171 DATA "DAS ZAUBERSCHWERT","ZAUBERSCHWERT",33 172 DATA "EINE LAMPE","LAMPE",-1 201 DATA "VOR DEM HEILIGEN TURM.","VORM HEILIGEN TURM",2,0,0,0,0,0 202 DATA "IM HEILIGEN TURM.KALT HIER...","IM TURM",9,1,5,6,10,3 203 DATA "IM KELLER.HIER FLIESST EIN{6SPACE}FLUSS.","KELLER",0,0,0,0,2,0 204 DATA "IM BOOT.","IM BOOT",0,0,0,0,0,0 205 DATA "IM MOOR.","MOOR",8,0,0,2,0,0 206 DATA "AM MEER.","AM MEER",0,0,2,0,0,0 207 DATA "IM BOOT.","IM BOOT",0,0,0,0,0,0 208 DATA "IM MOOR.","MOOR",0,0,0,0,0,0 209 DATA "AM FLUSS.","AM FLUSS",11,2,0,0,0,0 210 DATA "IM HAREM DES HEILIGEN MANNES.","IM HAREM",0,0,0,0,0,2 211 DATA "IM GEBIRGE.","GEBIRGE",11,11,11,11,12,9 212 DATA "AUF DEM GIPFEL DER GENUESSE.","GIPFEL",0,0,0,0,0,0 213 DATA "AUF EINER SANDBANK.(MIST!)","SANDBANK",0,0,0,0,0,0 214 DATA "IM WALD.","WALD",15,0,14,14,0,0 215 DATA "IM WALD.","WALD",16,14,15,14,0,0 216 DATA "IM WALD VOR EINER HUETTE.","VOR EINER HUETTE",15,15,15,14,0,0 217 DATA "IN DER KLEINEN HUETTE.","HUETTE",0,0,0,0,0,0 218 DATA "AM SEE KALTOR.","KALTOR",21,0,41,19,0,0 219 DATA "AUF EINER EBENE.","EBENE",0,0,18,0,0,0 220 DATA "AUF EINER WEITEN EBENE.","EBENE",0,0,0,21,0,0 221 DATA "AN EINEM FLUSS.","FLUSS",22,18,20,0,0,0 222 DATA "AM FLUSS.","FLUSS",23,21,20,0,0,0 223 DATA "AM FLUSS.","FLUSS",24,22,20,0,0,0 224 DATA "AM RAND DES GEBIRGES.","GEBIRGSRAND",26,23,23,23,0,0 225 DATA "IM GEBIRGE.","GEBIRGE",28,0,39,26,0,0 226 DATA "IM GEBIRGE.","GEBIRGE",29,24,25,27,0,0 227 DATA "IN EINEM TAL.","TAL",30,0,26,0,0,0 228 DATA "IM GEBIRGE.","GEBIRGE",0,25,39,29,0,0 229 DATA "IN EINEM TAL.","TAL",31,26,28,30,0,0 230 DATA "IM GEBIRGE.","GEBIRGE",0,27,30,0,0,0 231 DATA "IN EINEM TAL.","TAL",0,29,0,0,0,32 232 DATA "IN EINER DUESTEREN HOEHLE.","HOEHLE",0,0,0,0,31,0 233 DATA "TIEF IN DER HOEHLE DES LOEWEN...AEHH DRACHEN,NATUERLICH!" 234 DATA "HOEHLE",0,0,0,0,34,0 235 DATA "IN DER HOEHLE DES DRACHEN.","HOEHLE",0,0,0,35,0,33 236 DATA "AM FUSSE DES VETUS.","VETUS",0,40,34,36,0,0 237 DATA "AUF EINER EBENE.FERN IM WESTEN{2SPACE}RAUCHT DER VETUS.","EBENE" 238 DATA 0,0,35,37,0,0 239 DATA "AUF EINER EBENE.","EBENE",39,38,36,38,0,0 240 DATA "AUF EINER EBENE.","EBENE",39,37,37,39,0,0 241 DATA "AUF EINER EBENE.","EBENE",38,25,38,28,0,0 242 DATA "AUF EINER EBENE.","EBENE",35,40,40,40,0,0 243 DATA "UNTER WASSER...","UNTER WASSER",0,0,0,0,0,0 300 DATA DER,DIE,DAS,DEN, ,UEBER,UNTER,AUF,IN,MIT,DEM,DURCH,UND,NACH 301 DATA BITTE,DOCH,HEILIGEN,ZUR 501 DATA 0,0,0,0,0,0,0,0,0 601 DATA INVENTORY,HILFE,ENDE,SIEH,LOOK,DANKE,SAVE,LOAD,STORE,RESTORE,FARBE 602 DATA NORDEN,SUEDEN,WESTEN,OSTEN,OBEN,UNTEN,SCORE,SPIELSTAND,SAGE,SCHLAFE 603 DATA SPEICHERE,LADE,ANLEITUNG,SPIELANLEITUNG,NORMAL,NEU,WARTE 650 REM ZAUBERSPRUECHE 651 DATA EMMIWHCS,KCEURUZ,"EHCARD ETEOT","THCIL" 700 DATA 133,95,134,96,76,191,163 800 FOR T=1 TOAV:READ VE$(T):NEXT 801 FOR T=1 TOAO:READ NO$(T),O$(T),O(T) 802 NEXT 803 FOR T=1 TOAR:READ RA$(T),KR$(T) 804 FOR X=1 TO6:READ DU(T,X):NEXT X,T 805 FOR T=1 TOAU:READ AU$(T):NEXT 806 FOR T=1 TOAF:READ FL(T):NEXT 807 FOR T=1 TOA2:READ V2$(T):NEXT 808 FOR T=1 TOAZ:READ ZA$(T):ZA$(T)=CHR$ (34)+ZA$(T)+CHR$ (34):NEXT 810 FOR T=704 TO710:READ A:POKE T,A:NEXT 820 POKE 88,0:POKE 89,192:POKE 90,0:POKE 91,192:POKE 780,0:POKE 781,160:SYS 704 825 POKE 88,0:POKE 89,0:POKE 90,0:POKE 91,0:POKE 780,0:POKE 781,224:SYS 704 830 POKE 1,53 900 PRINT"{UP,7SPACE}NORMALER ZEICHENSATZ?{2SPACE}@{LEFT}"; 920 GET A$:IF A$<>"N"AND A$<>"J" THEN920 930 PRINTA$ 931 FOR T=1 TO500:NEXT 940 IF A$="J" THENGOSUB 56000:PRINTCHR$ (14):F0=0:F1=5:F2=3:F3=5 945 POKE 53280,F0:POKE 53281,F0 1000 POKE 59639,0 1005 PRINT"{CLR}" 1006 DATA "NORDEN","SUEDEN","WESTEN","OSTEN","OBEN","UNTEN" 1010 FOR T=1 TO6:READ RI$(T):NEXT 1020 PRINTCHR$ (147) 1080 GOSUB 53000:PRINT:POKE 646,F1:IF SP=2 THENFL(2)=-1 1090 PRINT"ICH BIN ";RA$(SP) 1100 PRINT"I CAN SEE:" 1110 FL(1)=-1:FOR T=1 TOAO 1120 IF O(T)=SP THENPRINTNO$(T)".":FL(1)=0 1130 NEXT 1140 IF FL(1) THENPRINT"NICHTS." 1150 PRINT"HIER GEHT'S NACH:" 1160 G=0:FOR T=1 TO6 1170 IF DU(SP,T)<>0 THENPRINTRI$(T)",";:G=G+1 1180 NEXT 1190 IF G<1 THENPRINT"NIRGENDWOHIN "; 1200 PRINT"{LEFT}." 1230 IF FL(2)AND O(9)=2 THENO(9)=0:GOSUB 57000:GOTO 1080 1300 IF SP=8 THENPRINT"{DOWN}HILFE,ICH VERSINKE IM MOOR...{DOWN}":GOTO 54000 1310 IF SP=13 THENPRINT"{DOWN}TJA,DAS ABENTEUER IST LEIDER ZUENDE." 1320 IF SP=13 THENPRINT"ICH VERHUNGERE LANGSAM,UND DENKE" 1330 IF SP=13 THENPRINT"AN DIE ZEIT,DIE ICH MIT BIRTHE HAETTE" 1340 IF SP=13 THENPRINT"VERBRINGEN KOENNEN.":PRINT:GOTO 54000 1370 : 1500 ZU=ZU+1:IF FL(5)AND NOT FL(8) THENPO=PO+1:FL(8)=-1 1501 IF SP<>41 THENFL(7)=0 1502 IF SP=41 THENFL(7)=FL(7)+1 1503 IF FL(7)>2 THENPRINT"ICH ERTRINKE...BLUBB...":PRINT:GOTO 54000 1505 GOSUB 50000:POKE 646,F2 1510 IF LEN (X$)>2 THEN1600 1520 IF X$="N"AND DU(SP,1)<>0 THENSP=DU(SP,1):PRINT"BITTE.":GOTO 1080 1521 IF X$="S"AND DU(SP,2)<>0 THENSP=DU(SP,2):PRINT"NA GUT.":GOTO 1080 1523 IF X$="W"AND DU(SP,3)<>0 THENSP=DU(SP,3):PRINT"GOOOOD.":GOTO 1080 1524 IF X$="O"AND DU(SP,4)<>0 THENSP=DU(SP,4):PRINT"NA KLAR.":GOTO 1080 1525 IF X$="OB"AND DU(SP,5)<>0 THENSP=DU(SP,5):PRINT"ABER BITTE.":GOTO 1080 1526 IF X$="U"AND DU(SP,6)<>0 THENSP=DU(SP,6):PRINT"BITTESCHOEN.":GOTO 1080 1527 IF X$="I" THEN31000 1599 PRINT"WRONG INPUT!":GOTO 1500 1600 ER=0:GOSUB 51000 1610 IF ER=1 THEN1500 1615 ER=0:GOSUB 52000 1616 IF ER=1 THEN1500 1620 IF V2<>0 THEN30000 1630 IF O1=28 THENO1=23 1640 IF O1=18AND SP=15 THENO1=19 1650 IF O1=10AND SP=9 THENO1=11 1700 ON VGOTO 2500,2000,3000,3500,4000,4500,5000,2000,6500,7000,7000,7500 1710 ON V-12GOTO 3000,6000,8000 1800 GOTO 1500 2000 IF O2<>0 THENPRINT"IMMER DER REIHE NACH!":GOTO 1500 2005 IF O1=30 THEN2100 2010 IF NOT O(O1) THENPRINT"HABE ICH NICHT DABEI!":GOTO 1500 2020 O(O1)=SP:PRINT"GELEGT!":GOTO 1500 2100 GL=0:FOR T=1 TOAO 2110 IF O(T)=-1 THENO(T)=SP:PRINTO$(T)":GELEGT":GL=1 2120 NEXT 2130 IF GL=1 THEN1500 2140 PRINT"HATTE LEIDER NOTHING DABEI!":GOTO 1500 2500 IF O1=30 THEN2800 2501 IF O2=29 THENO2=0:GOTO 7500 2502 IF O1=8 THENPRINT"DU HASST DICH DOCH SCHON!":GOTO 1500 2503 IF O1=7 THENPRINT"LERN ERSTMAL DEUTSCH!":GOTO 1500 2504 IF O(O1)=-1 THENPRINT"HAB ICH DOCH SCHON!":GOTO 1500 2505 IF O(O1)<>SP THENPRINT"SEHE ICH HIER NICHT!":GOTO 1500 2506 IF O1=11 THENPRINT"DA OBEN STEHT KEIN BOOT!":GOTO 1500 2507 IF O1<12 THENPRINT"DAS GEHT NUN WIRKLICH NICHT!":GOTO 1500 2508 IF O1<17 THENPRINT"DU DENKST AUCH NUR AN DAS EINE!":GOTO 1500 2509 IF O1=17 THENPRINT"SO VIELE...KANN MICH NICHT ENTSCHEIDEN!":GOTO 1500 2510 IF O1=18OR O1=19 THENPRINT"BIN DOCH KEIN RIESE,NUR EIN KLEINER C64!";:GOTO 1500 2511 IF O1=20 THENPRINT"DAS SOLLTEST DU DIR NOCHMAL UEBERLEGEN!":GOTO 1500 2512 IF O1>23AND O1<31 THENPRINT"NEIN,DAS UEBERSTEIGT MEINE KOMPETENZEN!":GOTO 1500 2530 IF O1=31AND NOT FL(6) THENPRINT"DER DRACHE VERFEUERT DICH IM VULKAN!":GOTO 54000 2600 O(O1)=-1:PRINT"ALLRIGHT,GETAKET!" 2610 IF O(31) THENFL(5)=-1 2630 GOTO 1500 2800 GN=0:FOR T=1 TOAO 2810 IF O(T)=SP THENGOSUB 2850 2820 NEXT 2830 IF GN=0 THENPRINT"NICHTS DA!" 2840 GOTO 1500 2850 IF T<>21AND T<>22AND T<>23AND T<>32 THEN2900 2860 PRINTO$(T)":GENOMMEN":O(T)=-1:GN=1:RETURN 2900 IF T=31AND FL(6)=-1 THENFL(5)=-1:GOTO 2860 2905 IF T=31AND NOT FL(6) THENO1=31:GOTO 2530 2910 RETURN 3000 IF O2<>0 THENPRINT"EINS AUF EINMAL!":GOTO 1500 3010 IF O1=1 THENX$="N":GOTO 1520 3020 IF O1=2 THENX$="S":GOTO 1521 3030 IF O1=3 THENX$="W":GOTO 1523 3040 IF O1=4 THENX$="O":GOTO 1524 3050 IF O1=5 THENX$="OB":GOTO 1525 3060 IF O1=6 THENX$="U":GOTO 1526 3070 PRINT"NIT MOEGLICH...":GOTO 1500 3500 IF O2<>0 THENPRINT"NO,MAN!":GOTO 1500 3510 IF O1=10 THEN6000 3520 IF O(O1)<>SP THENPRINT"SEH ICK NICH!":GOTO 1500 3530 IF O1<>20 THENPRINT"SOWAS KANN ICH NICHT BETRETEN!":GOTO 1500 3540 PRINT"BIN DRIN!":SP=17:PO=PO+1:GOTO 1080 4000 IF O2<>0 THENPRINT"SO NICHT!":GOTO 1500 4010 IF O1<>10AND O1<>20 THENPRINT"DAS GEHT NICHT!":GOTO 1500 4020 IF O1=20AND SP=17 THENPRINT"SIE LAESST MICH NICHT RAUS!":GOTO 1500 4030 IF SP<>4AND SP<>7AND O1<>10 THENPRINT"VERSTEH' DICH NICHT!":GOTO 1500 4040 IF SP=4 THENPRINT"HILFE,ICH ERTRINKE...":GOTO 54000 4050 SP=14:PRINT"GUTE WAHL!":GOTO 1080 4100 PRINT"LEIDER UNMOEGLICH!":GOTO 1500 4500 IF O1=8 THENPRINT"SELBSTMORD IST UNTER STRAFE VERBOTEN!":GOTO 1500 4501 IF O1=7 THENPRINT"LERN ERSTMAL RICHTIG DEUTSCH!":GOTO 1500 4505 IF O(O1)<>SPOR O2<>0AND O2<>21 THENPRINT"VERSTEHE ICH NICHT.":GOTO 1500 4510 IF O1=9OR O1=24OR O1=25OR O1>11AND O1<17 THEN4600 4530 PRINT"EIN DING KANN MAN NICHT TOETEN!":GOTO 1500 4600 IF O2=21 THENPRINT"DAMI GEHTS NICHT!":GOTO 1500 4609 PRINT"WOMIT DENN?" 4610 PRINT"UND UEBERHAUPT:MORDEN IST GAR NICHT " 4620 PRINT"FEIN!":GOTO 1500 5000 IF O1>4OR O2<>0 THENPRINT"SO EIN BLOEDSINN!":GOTO 1500 5010 IF SP<>7AND SP<>4 THENPRINT"OHNE BOOT UND OHNE WASSER???":GOTO 1500 5020 IF SP=7AND O1=2 THENSP=4:PRINT"ALLRIGHT!":GOTO 1080 5030 IF SP=4AND O1=1 THENSP=7:PRINT"BITTESCHOEN!":GOTO 1080 5040 IF O1=3 THENSP=13:PRINT"SELBST SCHULD!":GOTO 1080 5050 PRINT"DAHIN KANN ICH NICHT RUDERN!":GOTO 1500 6000 IF SP<>3 THENPRINT"DAS GEHT NICHT!":GOTO 1500 6010 IF O1<>10 THENPRINT"WIE BITTE?":GOTO 1500 6020 SP=4:PRINT"O.K.":PO=PO+1:GOTO 1080 6100 PRINT"LEIDER UNMOEGLICH!":GOTO 1500 6500 IF O1=0 THENPRINT"WAS DENN?":GOTO 1500 6510 IF NOT O(O1) THENPRINT"HAB ISCH NISCH!":GOTO 1500 6520 PRINT"ICH BIN DOCH NICHT SO BLOED UND VER-" 6530 PRINT"LIER WAS!" 6540 PRINT"SCHON AUS PRINZIP NICHT!":GOTO 1500 7000 IF O2<>28AND O2<>0 THENPRINT"WHAT,TO THE DONNERWETTER?":GOTO 1500 7005 IF NOT O(O1) THENPRINT"HAB ICH NICHT!":GOTO 1500 7010 IF O1<>23 THENPRINT"VOELLIG UNLESERLICH!":GOTO 1500 7020 PRINT"OHH NEIN,EIN WERBE-ZETTEL..." 7030 PRINT"SOLL ICH IHN WIRKLICH LESEN?":GOSUB 50000:POKE 646,F2 7040 IF LEFT$ (X$,1)="N" THENPRINT"GUT SO!":GOTO 1500 7041 IF LEFT$ (X$,1)<>"J" THEN7030 7050 PRINT"DORT STEHT:" 7080 PRINTCHR$ (34);:POKE 646,F1 7090 PRINT"PINK SCHWERTPUTZER FUER IHR SCHWERT," 7100 PRINT" JETZT IM SONDERANGEBOT BY ARTHURS " 7110 PRINT" RITTER- UND KNAPPENSHOP!" 7111 PRINT" NUR 19,50.-"; 7119 POKE 646,F2 7120 PRINTCHR$ (34):GOTO 1500 7500 IF O1=9 THENPRINT"WAS BIST DU DENN FUER EINER?":GOTO 1500 7510 IF O(O1)<>SP THENPRINT"SEHE ICH HIER NICHT!":GOTO 1500 7520 IF O1<12OR O1>16 THENPRINT"SO EIN SCHWACHSINN!":GOTO 1500 7530 IF O1=15 THEN7700 7535 IF O1=14 THEN7900 7540 IF FL(5)=0 THEN7800 7550 PRINT"GUT,"NO$(O1)" IST NUN MEINE":PRINT"FRAU,";:PO=PO+1 7555 PRINT"UND IHR LIEBT EUCH UND WERDET" 7556 PRINT"GLUECKLICH SEIN BIS AN EUER LEBENSENDE!" 7557 PRINT"ODER?":PRINT 7560 POKE 646,F1 7570 PRINT"BRAVO,DU HASST MICH GESCHLAGEN,DAS" 7580 PRINT"ADVENTURE IST GELOEST!" 7585 PRINT"DU ERHAELST"PO"VON 9 PUNKTEN!" 7590 PRINT"ABER FREU DICH NICHT ZU FRUEH," 7595 PRINT"TEIL 2 IST SCHON IN ARBEIT!":PRINT:GOTO 54000 7700 PRINT"NILS,DER ANDERE ZAUBERLEHRLING UND" 7710 PRINT"MEIKES FREUND,KOMM HEREIN UND ER-" 7720 PRINT"SCHLAEGT MICH AUS EIFERSUCHT!":PRINT:GOTO 54000 7800 PRINT"REIZVOLLER GEDANKE...ABER DAS ABENTEUER" 7810 PRINT"RUFT.ALSO BESTEHE ES UND SCHAFF DIR" 7820 PRINT"KEIN NEUES!":GOTO 1500 7900 PRINT"SIE REISST MIR DIE KLEIDER VOM LEIBE." 7910 PRINT"ICH STERBE AN MEINER ERREGUNG!":PRINT:GOTO 54000 8000 IF O2<>0 THENPRINT"NICHT ALLES AUF EINMAL!":GOTO 1500 8001 IF O(O1)<>SPAND NOT O(O1) THENPRINT"SEH ICH NICHT,HAB ICH NICHT!":GOTO 1500 8002 ON O1GOTO 8010,8010,8010,8010,8010,8010,8020,8015,8300,8300,8050,8060,8070 8003 ON O1-13GOTO 8080,8090,8100,8110,8300,8300,8300,8300,8120,8130,8140 8004 ON O1-24GOTO 8150,8160,8300,8300,8140,8300,8180,8170 8010 PRINT"UNTERSUCH IHN DOCH SELBST!":GOTO 1500 8015 PRINT"KANNST DU NICHT AUF DEUTSCH REDEN!":GOTO 1500 8020 PRINT"ICH BIN EIN SCHOENER,MUSKULOESER" 8021 PRINT"JUENGLING.MEIN NAME IST NEVS ENRA.":GOTO 1500 8050 PRINT"IST NICHT ZU SEHEN!":GOTO 1500 8060 PRINT"WIE ICH SCHON SAGTE:LIEBLICH!":GOTO 1500 8070 PRINT"SIE IST WIRKLICH SEHR,SEHR NIEDLICH!":GOTO 1500 8080 PRINT"MAN,HAT DIE EIN TEMPERAMENT!":GOTO 1500 8090 PRINT"SIE BLEIBT COOL,UND SO SIEHT SIE AUCH":PRINT"AUS!":GOTO 1500 8100 PRINT"EIN NETTES MAEDEL":GOTO 1500 8110 PRINT"DIE HUETTE IST KLEIN UND SCHEINT" 8111 PRINT"GEMUETLICH ZU SEIN.":GOTO 1500 8120 PRINT"ES IST VERGOLDET UND MIT EDELSTEINEN":PRINT"BESETZT.":GOTO 1500 8130 PRINT"ICH SOLTE ES LESEN!":GOTO 1500 8140 PRINT"ES IST EIN EHER FREUNDLICHER ZWERG!":GOTO 1500 8150 PRINT"DAS IST ER...":GOTO 1500 8160 PRINT"DU INHALIERST ZUVIEL NEBEL...ES IST":PRINT"GIFTGAS...DU STIRBST!":PRINT 8161 GOTO 54000 8170 PRINT"SIE KOENNTE NOCH NUETZLICH SEIN!":GOTO 1500 8180 PRINT"ZAUBERHAFT!":GOTO 1500 8300 PRINT"SIEHT GANZ NORMAL AUS!":GOTO 1500 30000 ON V2GOTO 31000,31500,32000,32500,32500,33000,33500,34000,33500,34000,34500 30050 ON V2-11GOTO 35000,35010,35020,35030,35040,35050,35500,35500,36000,37000 30060 ON V2-21GOTO 33500,34000,38000,38000,39500,39700,40000 30100 GOTO 1500 31000 PRINT"ICH TRAGE:" 31005 FL(3)=-1:FOR T=7 TOAO 31010 IF O(T)=-1 THENFL(3)=0:PRINTNO$(T)"." 31020 NEXT 31030 IF FL(3) THENPRINT"GAR NICHTS!" 31040 GOTO 1500 31500 IF SP=10 THENPRINT"DIE MAEDELS SEHN ZUM ANBEISSEN AUS!":GOTO 1500 31510 IF SP=17 THENPRINT"ICH BIN MUEDE!":GOTO 1500 31520 IF SP=5 THENPRINT"GEH HIER NICHT WEITER!":GOTO 1500 31530 IF SP=14OR SP=15 THENPRINT"MAN SIEHT DEN WALD VOR BAEUMEN NICHT!":GOTO 1500 31540 IF SP=3 THENPRINT"ICH WOLLT ICH WAER EIN SEEBAER,AEH{6SPACE}-MANN...":GOTO 1500 31550 IF SP=31 THENPRINT"ZWERGE LIEBEN LICHT!":GOTO 1500 31555 IF SP=7 THENPRINT"ICH SOLLTE DAS BOOT BESSER VERLASSEN!":GOTO 1500 31560 IF SP=12 THENPRINT"GIB AUF,HIER KOMMST DU NICHT MEHR WEG!":GOTO 1500 31900 PRINT"HILF DIR SELBST,":ZU=ZU-1 31910 PRINT"DANN HILFT DIR GOTT!" 31920 GOTO 1500 32000 PRINT"WILLST DU WIRKLICH AUFHOEREN?" 32010 GOSUB 50000:POKE 646,F2 32020 IF LEFT$ (X$,1)="J" THENPRINT"NA GUT!":GOTO 54000 32030 PRINT"WARUM TIPPST DU DANN 'ENDE'?":GOTO 1500 32500 GOTO 1080 33000 ZU=ZU-1:PRINT"NICHT ZU DANKEN!":GOTO 1500 33500 GOSUB 56500:PRINT"PLEASE WAIT!":ZU=ZU-1 33510 OPEN 15,8,15,"S:"+N$ 33520 CLOSE 15 33530 OPEN 2,8,2,N$+",S,W" 33540 PRINT#2,SP:PRINT#2,ZU:PRINT#2,RA$(32):PRINT#2,NO$(25):PRINT#2,PO 33550 FOR T=1 TOAO:PRINT#2,O(T):NEXT 33560 FOR T=1 TOAF:PRINT#2,FL(T):NEXT 33600 CLOSE 2:PRINT"FERTIG." 33700 GOTO 1500 34000 GOSUB 56500:PRINT"PLEASE WAIT" 34030 OPEN 2,8,2,N$+",S,R" 34040 INPUT#2,SP:INPUT#2,ZU:INPUT#2,RA$(32):INPUT#2,NO$(25):INPUT#2,PO 34050 FOR T=1 TOAO:INPUT#2,O(T):NEXT 34060 FOR T=1 TOAF:INPUT#2,FL(T):NEXT 34100 CLOSE 2:PRINT"FERTIG." 34200 GOTO 1080 34500 PRINT"BILDSCHIRMFARBE{8SPACE}(F1+RETURN){2SPACE}< >":POKE 650,128 34510 GET A$:IF A$="{F1}" THENF0=F0+1:IF F0=15 THENF0=0 34520 IF A$=CHR$ (13) THEN34540 34530 POKE 53280,F0:POKE 53281,F0:GOTO 34510 34540 PRINT"SCHRIFTFARBE EINGABE{3SPACE}(F1+RETURN){2SPACE}>{RVSON,SPACE,RVOFF}<{2LEFT}"; 34545 GET A$ 34550 IF A$="{F1}" THENF1=F1+1:IF F1=15 THENF1=0 34560 IF A$=CHR$ (13) THEN34580 34570 POKE 646,F1:PRINT"{RVSON,SPACE,RVOFF,LEFT}";:GOTO 34545 34580 POKE 646,F2:PRINT:PRINT"SCHRIFTFARBE AUSGABE{3SPACE}(F1+RETURN){2SPACE}>{RVSON,SPACE,RVOFF}<{2LEFT}"; 34585 GET A$ 34590 IF A$="{F1}" THENF2=F2+1:IF F2=15 THENF2=0 34595 IF A$=CHR$ (13) THEN34600 34598 POKE 646,F2:PRINT"{RVSON,SPACE,RVOFF,LEFT}";:GOTO 34585 34600 PRINT:PRINT"SCHRIFTFARBE KOPFZEILE (F1+RETURN){2SPACE}>{RVSON,SPACE,RVOFF}<{2LEFT}"; 34610 GET A$ 34620 IF A$="{F1}" THENF3=F3+1:IF F3=15 THENF3=0 34630 IF A$=CHR$ (13) THEN34650 34640 POKE 646,F3:PRINT"{RVSON,SPACE,RVOFF,LEFT}";:GOTO 34610 34650 POKE 650,0:PRINT:GOTO 1080 35000 X$="N":GOTO 1520 35010 X$="S":GOTO 1520 35020 X$="W":GOTO 1520 35030 X$="O":GOTO 1520 35040 X$="OB":GOTO 1520 35050 X$="U":GOTO 1520 35500 PRINT"DU HASST";:ZU=ZU-1 35510 IF ZU=1 THENPRINT" EINEN BEFEHL GEGEBEN!":GOTO 35525 35511 IF ZU=0 THENPRINT" NOCH KEINEN BEFEHL GEGEBEN!":GOTO 1500 35520 PRINTZU"BEFEHLE GEGEBEN!" 35525 IF PO=1 THENPRINT"DU HASST EINEN PUNKT.":GOTO 35560 35527 PRINT"DU HASST"PO"PUNKTE." 35560 PRINT"ABER DAS SPIEL HASST DU NOCH NICHT " 35570 PRINT"GEWONNEN!":GOTO 1500 36000 X$=RIGHT$ (X$,LEN (X$)-5) 36010 IF LEFT$ (X$,1)<>CHR$ (34) THENPRINT"ANFUEHRUNGSZEICHEN VERGESSEN!":GOTO 1500 36011 IF RIGHT$ (X$,1)<>CHR$ (34) THENPRINT"WRONG INPUT!":GOTO 1500 36020 FOR ZA=1 TOAZ 36030 IF ZA$(ZA)=X$ THEN36310 36040 NEXT 36300 PRINTX$",NICHTS PASSIERT!":GOTO 1500 36310 ON ZAGOTO 36500,36600,36700,36800 36500 IF SP<>41 THENPRINT"HIER GIBT'S NICHTS ZUM SCHWIMMEN!":GOTO 1500 36505 IF FL(9) THENSP=18:FL(7)=0:PRINT"PUH,BIN DOCH GERETTET!":GOTO 1080 36510 SP=18:FL(7)=0:FL(9)=-1:PRINT"PUH,BIN DOCH GERETTET!":PO=PO+1:GOTO 1080 36600 IF SP<>33 THENPRINT"DAS GEHT LEIDER NICHT!":GOTO 1500 36610 IF FL(5)=0 THENPRINT"ICH HABE DAS SCHWERT NOCH NICHT!":GOTO 1500 36620 SP=2:PRINT"ZWOOOCHH...WAU,ECHT GEIL SO'N ZAUBER!":PO=PO+1:GOTO 1080 36700 IF SP<>33 THENPRINT"ICH SEH DEN DRACHEN JA GAR NICHT!":GOTO 1500 36710 IF FL(6) THENPRINT"DER DRACHE IST SCHON TOT!":GOTO 1500 36720 PRINT:PRINT:PRINT:PRINT"PENG,ZACK,BUFF..." 36730 PRINT"BLITZE ZUCKEN,FLAMMEN LODERN,DER DRACHE" 36731 PRINT"IST TOT,ENDLICH BESIEGT!" 36732 NO$(25)="DEN TOTEN DRACHEN":FL(6)=-1 36740 PRINT"{DOWN}DER HEILIGE MANN ERSCHEINT.ER SAGT:" 36750 PRINTCHR$ (34);:POKE 646,F1 36760 PRINT"DU HASST MEINE ERWARTUNGEN VOLL" 36761 PRINT" ERFUELLT.ICH LEGE NUN MEIN AMT NIEDER" 36762 PRINT" UND GEBE ALLES AN DICH,MEIN SCHUELER." 36763 PRINT" LEB WOHL...";:POKE 646,F2:PRINTCHR$ (34) 36770 PRINT"ICH RUFE IHM NOCH NACH,DOCH ER IST" 36771 PRINT"SCHON WEG.NUN BIN ICH DER ZAUBERER UND" 36772 PRINT"HEILIGE MANN." 36773 PRINT"{DOWN}AN DER WAND ERSCHEINT EINE SCHRIFT,DIE" 36774 PRINT"BESAGT,DASS DAS ADVENTURE NOCH NICHT":PRINT"GESCHLAGEN IST!" 36776 PO=PO+1 36777 PRINT"{4DOWN}(MORE){2UP}" 36780 GET A$:IF A$="" THEN36780 36785 FL(6)=-1:GOTO 1080 36800 IF NOT O(32) THENPRINT"HAB' KEINE LAMPE!":GOTO 1500 36810 IF SP<>32 THENPRINT"BIN DOCH NICHT BLIND!":GOTO 1500 36820 FL(4)=-1:PRINT 36830 PRINT"DER ZWERG FREUT SICH UEBER DAS LICHT." 36840 PRINT"ICH SCHENKE IHM DIE LAMPE." 36845 PRINT"ER VERSTECKT SIE SCHNELL IN SEINER" 36850 PRINT"HOEHLE.":O(32)=0 36860 PRINT"ER BEGINNT ZU ERZAEHLEN:" 36861 PRINTCHR$ (34);:POKE 646,F1 36862 PRINT"DER DRACHE IST MIT MAGIE EINFACH ZU" 36863 PRINT" BESIEGEN...BENUTZE DEIN WISSEN!"; 36864 POKE 646,F2:PRINTCHR$ (34) 36865 PRINT"MEHR WILL ER NICHT SAGEN!" 36866 PRINT"ER VERSCHWINDET...":O(24)=0 36870 RA$(32)="IN EINER HELLERLEUCHTETEN{7SPACE}HOEHLE.":PO=PO+1:GOTO 1080 37000 IF SP<>17 THENPRINT"BIN NICHT MUEDE!":GOTO 1500 37010 PRINT"LANGSAM SINKE ICH IN DEN SCHLAF...":SP=18 37020 FOR T=1 TO2000:NEXT 37030 PRINT"{DOWN}ICH ERWACHE,UND SEHE...WAS?" 37040 PRINT"ICH BIN JA GANZ WO ANDERS..." 37045 PO=PO+1:GOTO 1080 38000 PRINT"EINE KOMPLETTE ANLEITUNG KANN ICH" 38010 PRINT"DIR SO AUF DIE SCHNELLE NICHT GEBEN," 38020 PRINT"ABER EIN PAAR TRICKS:" 38030 PRINT"SAVE IMMER ALLES AB,BEVOR DU ETWAS GE-" 38040 PRINT"FAEHRLICHES AUSPROBIERST." 38050 PRINT"UNTERSUCHE ALLES GENAU UND LESE ALLES" 38060 PRINT"SORGFAELLTIG." 38070 PRINT"'SCORE' BZW. 'SPIELSTAND' SAGT DIR,WIE-" 38080 PRINT"VIELE BEFEHLE DU SCHON GEGEBEN HASST," 38090 PRINT"UND DEINE PUNKTZAHL." 38095 PRINT"ZAUBERSPRUECHE WERDEN ANGEWENDET,INDEM" 38100 PRINT"MAN 'SAGE "CHR$ (34)"ZAUBERSPRUCH"CHR$ (34)"' TIPPT." 38110 PRINT"EIN ZAUBERSPRUCH IST EIN BEFEHL,DER" 38120 PRINT"RUECKWAERTS EINGEGEBEN WERDEN MUSS!": 38999 GOTO 1500 39500 SYS 867:PRINTCHR$ (14) 39510 F0=0:F1=5:F2=3:F3=5 39530 GOTO 39800 39700 PRINTCHR$ (142):SYS 820 39710 F0=6:F1=0:F2=15:F3=15 39800 : 39810 POKE 53280,F0:POKE 53281,F0 39830 GOTO 1080 40000 PRINT"DIE ZEIT VERGEHT...":GOTO 1500 50000 X$="":A$="":POKE 646,F1:PRINT:PRINT"@{LEFT}"; 50030 GET A$:IF A$="" THEN50030 50031 POKE 212,0 50033 IF A$=CHR$ (13) THEN50300 50034 IF A$="{HOME}" THENGOSUB 50500:GOTO 50030 50035 IF A$=CHR$ (32) THEN50080 50036 IF A$=CHR$ (34) THENPOKE 212,1:GOTO 50080 50037 IF A$=CHR$ (20) THENGOSUB 50400:GOTO 50030 50038 IF LEN (X$)>78 THEN50030 50050 IF A$<"A"OR A$>"Z" THEN50030 50080 PRINTA$;"@{LEFT}";:X$=X$+A$:GOTO 50030 50300 IF LEN (X$)<1 THENGOTO 50030 50301 PRINT" ":RETURN 50400 L=LEN (X$):IF L<1 THENRETURN 50415 X$=LEFT$ (X$,L-1):PRINT"{SPACE,2LEFT}@{LEFT}"; 50430 RETURN 50500 IF LEN (X$)<1 THENRETURN 50501 PRINT"{SPACE,LEFT}";:FOR S=1 TOLEN (X$) 50510 PRINT"{SPACE,2LEFT}";:NEXT 50520 PRINT"@{LEFT}";:X$="":RETURN 51000 FOR I=1 TO10:BE$(I)="":NEXT 51020 WZ=1 51030 FOR I=1 TOLEN (X$) 51040 IF MID$ (X$,I,1)=" " THENGOSUB 51100:GOTO 51060 51045 IF WZ>10 THENPRINT"EINGABE IST ZU LANG!":ER=1:RETURN 51050 BE$(WZ)=BE$(WZ)+MID$ (X$,I,1) 51060 NEXT :GOSUB 51100:WZ=WZ-1 51070 RETURN 51100 REM AUSSORTIEREN 51110 IC=0:FOR I1=1 TOAU 51120 IF BE$(WZ)=AU$(I1) THENIC=1 51130 NEXT 51140 IF IC=0 THENWZ=WZ+1:RETURN 51150 BE$(WZ)="":RETURN 52000 IF BE$(1)="SAGE" THENV2=20:RETURN 52001 O2=0:V2=0:IF WZ>1 THEN52008 52002 FOR T=1 TOA2:IF V2$(T)=BE$(1) THENV2=T:RETURN 52003 NEXT 52008 IF WZ>3 THENPRINT"WAS SOLL DAS BEDEUTEN?":GOTO 1500 52009 FOR T=1 TOAV 52010 IF VE$(T)=BE$(1) THENV=T:GOTO 52100 52020 NEXT 52030 PRINT"'"BE$(1)"' KENNE ICH NICHT!":ER=1:RETURN 52100 FOR T=1 TOAO 52110 IF O$(T)=BE$(2) THENO1=T:GOTO 52150 52120 NEXT 52130 PRINT"KEIN NOMEN GEFUNDEN!":ER=1:RETURN 52150 IF WZ=2 THENRETURN 52200 FOR T=1 TOAO 52210 IF O$(T)=BE$(3) THENO2=T:GOTO 52300 52220 NEXT 52230 PRINT"'"BE$(3)"' KENNE ICH NICHT!":ER=1 52300 RETURN 53000 X=PEEK (211):Y=PEEK (214):POKE 646,F3 53010 PRINT"{HOME,RVSON,31SPACE}THE SWORD{RVOFF}" 53020 PRINT"{HOME,RVSON}";KR$(SP);"{RVOFF}" 53030 POKE 211,X:POKE 214,Y:SYS 58732 53050 RETURN 54000 POKE 646,F2:PRINT"NOCHMAL?" 54010 GOSUB 50000:IF LEFT$ (X$,1)="J" THENPOKE 53280,6:POKE 53281,6:RUN 20 54020 GOTO 60000 56000 SYS 867:RETURN 56500 PRINT"FILE-NUMMER (1-3) @{LEFT}"; 56510 GET E$:IF E$<>"1"AND E$<>"2"AND E$<>"3" THEN56510 56511 IF E$="1" THENN$="C" 56512 IF E$="2" THENN$="D" 56513 IF E$="3" THENN$="E" 56520 PRINTE$"←":RETURN 57000 POKE 646,F2:PRINT 57010 PRINT"DER HEILIGE MANN ERBLICKT SEINEN" 57020 PRINT"SCHUELER (MICH) UND SAGT:" 57030 PRINTCHR$ (34);:POKE 646,F1 57040 PRINT"ICH BIN STOLZ,MEIN SCHUELER!" 57050 PRINT" DU WOLLTEST ZAUBERER WERDEN,UND JETZT" 57060 PRINT" STEHST DU VOR DER ABSCHLIESSENDEN" 57070 PRINT" PRUEFUNG.TOETE DEN DRACHEN,DER IN DEM" 57080 PRINT" VULKAN 'VETUS' LEBT UND NIMM DAS" 57085 PRINT" ZAUBERSCHWERT,DAS ER BEWACHT!" 57090 PRINT"{SHIFT-SPACE}GELINGT DIR DIES,BIST DU WAHRLICH" 57091 PRINT" FUER WUERDIG BEFUNDEN,EIN ZAUBERER" 57092 PRINT" ZU SEIN.";:POKE 646,F2:PRINTCHR$ (34) 57093 PRINT"DER HEILIGE MANN,MEIN LEHRMEISTER," 57094 PRINT"SCHEINT SICH IN LUFT AUFZULOESEN!" 57095 PRINT"JETZT BIN ICH AUF MICH GESTELLT!" 57100 PRINT"{2DOWN}<MORE>{2UP}" 57110 GET A$:IF A$="" THEN57110 57120 RETURN 60000 POKE 59639,16:POKE 53280,6:POKE 53281,6 60010 SYS 820 60020 PRINT"{4DOWN,12SPACE,LIG.RED,2SPACE}PINK ARTS:" 60030 PRINT"{2DOWN,8SPACE,BLACK}£{2SPACE}T H E{2SPACE}S W O R D{2SPACE}£" 60031 PRINT"{2DOWN,5SPACE}@ 1986 BY A.SOMMER AND S.ADOMAT" 60035 PRINT"{5DOWN}****************************************" 60040 M$="{8SPACE}THE SWORD{SPACE,WHITE}BY{SPACE,LIG.RED}PINK ARTS{BLACK}":GOSUB 61000 60050 M$="{7SPACE}PROGRAMING : ARNE SOMMER":GOSUB 61000 60060 M$="{6SPACE}IDEA : A.SOMMER AND S.ADOMAT":GOSUB 61000 60065 M$="{2SPACE}STORY AND MAP : A.SOMMER + S.ADOMAT":GOSUB 61000 60070 M$="{5SPACE}SPECIAL EFFECTS : SVEN ADOMAT":GOSUB 61000 60080 M$="{5SPACE}GRAFICS : A.SOMMER + S.ADOMAT":GOSUB 61000 60090 M$="{5SPACE}MOTIVATION : BIRTHE NIETMANN":GOSUB 61000 60100 M$="{5SPACE}GREETINGS TO ALL OUR FRIENDS!":GOSUB 61000 60110 M$="AND COMING SOON : RITTER + SWORD PART 2{LEFT}":GOSUB 61000 60120 M$=" AEHNLICHKEITEN MIT WIRKLICHEN BEGEBEN-{2SPACE}HEITEN UND NAMEN SIND REIN" 60130 M$=M$+" ZUFAELLIG!":GOSUB 61000 60900 GOTO 60040 61000 POKE 214,24:POKE 211,0:SYS 58732 61010 PRINTM$:PRINT:PRINT:GOSUB 62000 61020 PRINT:GOSUB 62000:PRINT:GOSUB 62000:PRINT:GOSUB 62000:PRINT:GOTO 62000 61030 RETURN 62000 FOR T=1 TO600:NEXT :RETURN
Diesen Artikel als PDF herunterladen
Diesen Artikel auf Mastodon teilen