Dark Tower — Abenteuer im Dreistromland
Das Abenteuerspiel Dark Tower ist ein deutschsprachiges Adventure mit der Aufgabenstellung, das landschaftlich so schöne Dreistromland von der Schreckensherrschaft des Bösen zu befreien und damit die geknechtete Bevölkerung zu erlösen.
Der Computer braucht geraume Zeit, bis er sich nach dem Einlesen der Daten mit der Spielanleitung meldet. Durch Tastendruck gelangt man über die Spielanleitung zur Frage, ob man ein begonnenes Abenteuer weiterspielen oder lieber ein neues beginnen möchte. Gibt man ein A ein, so kann man zwischen Kassette und Diskette als Speichermedium wählen und das bereits begonnene Programm wird geladen; gibt man ein N ein, so beginnt man ein neues Spiel. Der Bildschirm ist folgendermaßen aufgebaut:
Links oben befindet sich ein Ausschnitt einer Landkarte, in dem die eigene Position durch ein weißes Rechteck gekennzeichnet wird. Rechts oben befindet sich die Anzeigentafel, in der fast alle Angaben und Anmerkungen des Computers erscheinen. Unten ist das Feld für die Kommandoeingabe, kombiniert mit einer weiteren Anzeigetafel, in der jedoch nur längere Texte eingeblendet werden.
Mit den Tasten N, S, W und 0 kann man sich nun im Dreistromland bewegen und dabei seine Reise auf der Landkarte verfolgen, wobei zum Beispiel Siedlungen durch eine Hütte und Wälder durch einzelne Bäume dargestellt werden. Vorsicht ist immer geboten, besonders bei jeglicher Art von Gewässer, denn die Fähigkeit zu schwimmen ist durchaus nicht selbstverständlich. Sie kann jedoch durch einen Zauberspruch erworben werden.
Überhaupt spielen in dem Adventure Dark Tower Zaubersprüche eine große Rolle; doch man muß lernen, zwischen Gut und Böse zu unterscheiden, denn der Gebrauch von bösen Zaubersprüchen kann bisweilen auch schlimme Folgen mit sich bringen und sämtliche vorangegangenen guten Taten zunichte machen.
(Robert Valentiner / rg)| 20 | Ausschalten der STOP-Taste und des Bildschirms Schreiben und aktivieren des Maschinenprogramms zur Verschiebung des Zeichensatzes |
| 30 - 50 | DATA-Zeilen für Maschinenprogramm |
| 100 | Verschieben des Zeichensatzes, Setzen der Farben und der Lage des Bildschirmspeichers |
| 230 | Lesen des neuen Zeichensatzes |
| 240 - 580 | DATA-Zeilen für Zeichensatz |
| 600 - 990 | Einlesen des Sprites, DATA-Zeilen für Spritedaten und Definition des Sprite |
| 1000 - 1090 | Lesen der Landschaftselemente |
| 1091 - 1096 | Lesen von möglichen Reaktionen |
| 1100 - 1350 | Lesen der Landkarte, DATA-Zeilen für Landkarte |
| 1400 - 1440 | Lesen von Gegenständen und Zaubersprüchen, DATA-Zeilen |
| 1500 - 1690 | Lesen von Labyrinthdaten, DATA-Zeilen für Labyrinthdaten |
| 2000 - 2600 | Spielanleitung |
| 2605 - 2800 | Einlesen von vorangegangenen Spielen von Diskette oder Kassette |
| 3000 | Anfangsbedingungen |
| 3500 - 3800 | Zeichnen der Räume des Labyrinths und des dunklen Turms |
| 3810 - 4220 | Befehlsverarbeitung im Labyrinth |
| 20000 - 20410 | Ausgabe der Landschaft |
| 20412 - 24000 | Befehlsverarbeitung im Dreistromland |
| 25000 - 25290 | Einleitung und Daten für den dunklen Turm |
| 25300 - 26050 | Befehlsverarbeitung im dunklen Turm |
| 26100 - 40270 | Spielende in verschiedenen Versionen |
| 40300 - 40640 | Kommentare zu verschiedenen Spielsituationen |
| Variable | Bedeutung |
| K,I | Laufvariablen |
| A,P | Zwischenspeicher |
| CG | Lage des neuen Zeichensatzes |
| VC | VIC-Adresse |
| A$(12), B$(12) | Landschaftselemente und Bezeichnungen |
| L(38,38) | Daten für Landschaft |
| C$(7), D$(7) | Ausrüstung |
| H(17,12) | Räume des Labyrinths |
| T(3,4,4) | Räume im Turm |
| K$ | Kommando |
| G$ | Zeichen bei GET |
| X,Y,XX,YY | Koordinaten |
| VE | Verpflegung |
| ZB,HB,HA,EI | Flags für Gegenstände |
| KR | Kraftanteil |
| GE | Anzahl der Goldstücke |
| RI | Anzahl der Ringe |
| T$,DO$ | Zwischen- und Endzeit |
| E$ | HOME oder CLR |
| PX,PY | Koordinaten im Labyrinth |
| J$ | Ausgabe von Reaktionen |
| L | Momentanes Landschaftselement |
| C | Kampfstärke |
| TX,TY,S | Koordinaten im Turm |
| KI | Stockwerk mit gefüllter Kiste |
| TT$ | Kassette oder Diskette |
| R$ | Mögliche Richtungen im Labyrinth und im Turm |
| FO,AU,LO,AN,AT, BE,TC,EB,IR,FO, DD,TD,HO,OH,U, F,T | Flags für Ereignisse |
|
20 poke53265,11:fork=828to875:reada:pokek,a:next:poke785,60:poke786,3:poke788,52
30 data165,20,72,165,21,72,32,247,183,165,1,72,165,21,201,208,144,7,201,224,176
40 data3,169,49,44,169,52,120,133,1,160,,177,20,168,104,133,1,88,104,133,21,104
50 data133,20,76,162,179
100 fork=13*4096to14*4096-1:pokek+4096,usr(k):next:poke53272,24:poke56576,148:poke648,196
230 cg=58368:p=36:fork=cgtocg+8*p-1:reada:pokek,a:next
240 data 227,127,156,197,127,156,227,127,231, 25,254,231, 25,254,231, 25
260 data 156,227,127,156,227,127,156,227,254,231, 25,254,231, 25,254,231
280 data 187,119,238,221,187,119,238,221, 1, 3, 6, 12, 31, 63,127,255
300 data ,128,192, 96,240,248,252,254,127,127, 70, 70, 70, 71, 71, 71
320 data 252,252,100,100,100,252,252,252,160,224,224,160,224,160,224,160
340 data 10, 14, 14, 10, 14, 10, 14, 10,234,255,255,254,252,252,252,252
360 data 174,254,254,126, 62, 62, 62, 62, 1, 3, 3, 7, 15, 15, 31, 31
380 data , ,128,192,128,224,240,240, 63, 31,127, 63, 15, 3, 3, 3
400 data 248,240,252,248,224, , , , 13, 15, 31, 15, 9, 9, 9, 15
420 data 176,240,248,240,144,144,144,240, 15, 15, 31, 62, 60, 60, 60, 60
440 data 240,240,248,124, 60, 60, 60, 60,255,255,255,255,255,255,255,255
460 data , 64, 4, , 32, 2, , 8, 3, 15, 3, 3, 1, 31, 23, 23
480 data 128,226,130,130, 2,242,210,210, 31, 7, 3, 7, 6, 6, 6, 30
500 data 222,194,130,194,194,194,194,242, 1, 7, 4, 71, 99, 49, 31, 1
520 data 192,240,144,241, 99,198,252,192, 71,125, 1, 7, 28,112, ,
540 data 241,223,192,240,156,135,128, ,255,255,255,255,254,252,248,252
560 data 255,255,255,255,207, 7, 3, 3,248,240,240,224,240,240,224,224
580 data , , , , , , , , 3, 1, 3, 3, 1, 1, 1,
600 fork=0to62:reada:pokek+49152,a:next
610 data 255,255,192,128,,64,128,,64
620 data 128,,64,128,,64,128,,64
630 data 128,,64,128,,64,128,,64
640 data 128,,64,128,,64,128,,64
650 data 128,,64,128,,64,128,,64
660 data 128,,64,128,,64,255,255,192
670 data ,,,,,,,,
990 vc=53248:poke51192,0:pokevc+1,97:pokevc,71:pokevc+21,0
1000 dima$(12),b$(12)
1010 a$(0)="{blu}{rvon}@a{down}{left}{left}bc{rvof}{up}":b$(0)="{blu} > meer < "
1020 a$(8)="{lblu}{rvon}dd{down}{left}{left}dd{rvof}{up}":b$(8)="{blu} > fluss < "
1030 a$(9)="{brn}{rvon}ef{down}{left}{left}gh{rvof}{up}":b$(9)="{blu} > siedlung < "
1040 a$(1)="{gry2}{rvon}ij{down}{left}{left}kl{rvof}{up}":b$(1)="{blu} > burg < "
1050 a$(4)="{grn}{rvon}mn{down}{left}{left}op{rvof}{up}":b$(4)="{blu} > wald < "
1060 a$(5)="{blk}{rvon}qr{down}{left}{left}st{rvof}{up}"
1070 a$(6)="{gry1}{rvon}uu{down}{left}{left}uu{rvof}{up}"
1080 a$(7)="{brn}{rvon}vv{down}{left}{left}vv{rvof}{up}":b$(7)="{blu} > ebene < "
1085 a$(2)=a$(1):a$(3)=a$(1):b$(2)=b$(1):b$(3)=b$(1)
1086 a$(11)="{blk}UI{down}{left}{left}JK{up}":b$(11)="{blu} > boje < "
1087 a$(12)=a$(0):b$(12)=b$(0)
1090 a$(10)="{gry1}{rvon}_ {down}{left}{left}!#{rvof}{up}":b$(10)="{blu} > hoehle < "
1091 a$="{home}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{blk}{rvon}wx{down}{left}{left}yz{rvof}{up}":b$="{home}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{blk}{rvon}[\{down}{left}{left}]^{rvof}{up}"
1092 c$="{home}{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}zug nicht moeglich"
1093 d$="{home}{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} "
1094 f$="{home}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{blk}du wirst von jaegern"
1095 h$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}des daemons attackiert"
1096 i$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}des daemons umzingelt."
1100 diml(30+2*4,30+2*4)
1110 fork=10to32:fori=10to30:reada:l(k,i)=a:next:next
1120 data ,,,,,,,7,7,7,,,,,,,,,,,
1130 data ,,,,,7,7,7,1,7,7,7,7,,,,,,,,
1140 data ,,,,4,7,7,7,7,7,7,7,7,7,8,7,,,,,
1150 data ,,,,4,7,7,7,7,7,7,7,7,7,8,7,7,,,,
1160 data ,,7,4,4,4,7,7,7,7,7,7,7,7,8,7,7,7,7,,
1170 data ,7,7,7,4,4,4,7,7,4,4,4,7,7,8,9,7,7,7,,
1180 data ,8,8,4,4,4,7,7,4,4,4,4,4,7,8,7,7,7,7,,
1190 data ,7,8,8,4,7,7,4,4,4,6,6,8,8,8,7,7,7,7,,
1200 data 7,7,9,8,7,7,7,4,4,10,6,6,4,4,4,7,7,7,7,7,
1210 data 7,7,7,8,7,7,7,4,6,6,6,6,6,4,4,7,7,7,7,7,
1220 data ,7,7,8,8,8,8,8,6,6,5,6,6,4,4,4,7,7,7,7,
1230 data ,7,7,7,7,7,7,4,4,6,6,6,4,4,7,7,7,7,7,7,7
1240 data ,,,7,7,7,7,7,4,4,4,8,8,8,7,7,7,7,7,2,7
1250 data ,,,7,7,7,7,7,7,4,4,4,4,8,7,7,7,7,4,4,7
1260 data ,,,7,4,4,7,7,7,7,7,7,7,8,7,7,7,4,4,4,
1270 data ,,7,7,4,4,4,7,7,7,7,7,9,8,4,4,4,4,4,4,
1280 data ,,7,7,9,4,4,7,7,8,8,8,8,8,4,4,4,4,4,,
1290 data ,7,7,7,4,4,4,7,8,8,7,7,7,7,7,7,4,4,4,,
1300 data ,7,7,4,4,4,4,4,8,7,7,7,7,7,7,7,4,,,,
1310 data ,,4,4,4,4,4,,,,,7,7,7,7,7,7,,,,
1320 data ,,4,4,4,4,,,,,,,,,,,,,,,
1330 data ,,4,3,4,,,,,,,,,,,,,,,,
1340 data ,,4,4,4,,,,,,,,,,,,,,,,
1350 fork=0to12:l(22,k)=12:next:l(22,33)=11
1400 dimc$(7),d$(7)
1410 fork=0to7:readg$:c$(k)=g$:next
1420 fork=0to7:readg$:d$(k)=g$:next
1430 data boot,ruestung,lanze,schwert,harpune,kompass,leiter,buch
1440 data swim,beem,kill,help,fill,klau,anti,bomb
1500 dimh(17,12)
1510 fork=0to17:fori=0to12:reada:h(k,i)=a:next:next
1520 data 80,48,48,48,48,48,48,48,48,48,48,48,40
1530 data 24,40,24,48,48,48,48,56,48,48,48,32,12
1540 data 28,44,12,24,48,48,40,12,24,48,48,40,12
1550 data 28,44,12,12,16,48,36,12,12,24,40,12,12
1560 data 28,44,12,20,48,48,48,36,12,12,20,36,12
1570 data 28,44,28,48,48,48,48,48,36,20,48,48,36
1580 data 28,44,12,24,48,48,48,56,56,48,48,48,40
1590 data 28,44,12,12,24,48,40,12,12,24,48,48,36
1600 data 28,44,12,12,12, 8,12,12,12,20,48,48,40
1610 data 20,44,20,36,12,12,12,12,20,40,24,40,12
1620 data 24,52,32,24,36,12,12,12,24,62,36,12,12
1630 data 20,48,40,12,24,52,36,12,12,12,24,52,36
1640 data 24,48,36,12,12,24,48,36,12,12,20,48,40
1650 data 20,48,40,12,12,12,24,48,36,12,24,48,36
1660 data 24,48,36,12,12,12,12,16,40,12,20,48,40
1670 data 20,48,40,12,12,12,20,48,36,12,24,40,12
1680 data 24,48,36,12, 4,20,48,48,48,36,12,12,12
1690 data 20,48,48,52,48,48,48,48,48,48,36,20,36
2000 poke53281,15:poke53280,14
2010 printchr$(8);chr$(14);chr$(147);"{blu} DIE LEGENDE:"
2020 print" Es geschah vor sehr langer Zeit in"
2030 print" einem kleinen Land, dass Dreistromland"
2040 print" genannt wurde. Da riss ein boeser"
2050 print" Daemon die Macht an sich,indem er die"
2060 print" drei Fluesse, die zuvor das Land ge-"
2070 print" recht regiert hatten, mit Hilfe von"
2080 print" drei grausamen Ringen unterjochte."
2090 print" Die Macht der Ringe kann nur gebrochen"
2100 print" werden, wenn sie in die Haende der "
2110 print" Fluesse kommen. Und erst wenn dies ge-"
2120 print" schehen ist, kann der Daemon mit Hilfe"
2130 print" der drei Fluesse vertrieben werden."
2140 print" Denn nur durch das Wasser der Fluesse"
2150 print" kann der Daemon wehrlos und nur durch"
2160 print" das Wasser des Meeres unschaedlich ge-"
2170 print" macht gemacht werden."
2180 print" Weiter heisst es, dass derjenige, der"
2190 print" dies vollbringt, aufs reichste belohnt"
2200 print" werden wuerde, denn er haette das Volk"
2210 print" befreit. Es heisst der Lohn bestaende"
2220 print" aus etwas unendlich Kostbaren aus sehr"
2230 print" fernen und noch immer geheimnisum-"
2240 print" wobenen Gegenden der Erde. - So lautet"
2250 print" DIE LEGENDE. >>";:poke53265,27
2260 poke 198,0:wait 198,1:get g$:poke53265,11
2270 print"{clr}{down}{blu} Das Adventure-Game {blk}D A R K T O W E R{blu} "
2280 print" von {red}Robert Valentiner{blu} baut auf diese "
2290 print" Legende auf. Ziel des Spiels ist es "
2300 print" demnach den Daemon zu vertreiben und "
2310 print" das Dreistromland zu befreien. Dazu "
2320 print" versteht der Computer verschiedene Be- "
2330 print" fehle,die im folgenden erklaert werden "
2340 print"{red} LIST - Gibt eine Uebersicht ueber"
2345 print" Hab und Gut. Stopt die Zeit"
2350 print" SAVE - Speichert bisherige Erfolge"
2355 print" oder Miserfolge auf Band/Disk."
2360 print" EINTRETEN - Du betrittst eine Burg,...";
2370 print" WEGWERFEN,XY - Wegwerfen des Gegen-"
2380 print" standes XY."
2390 print" ISS - Staerkt dich solange du noch"
2395 print" Verpflegung hast."
2400 print" >>";
2405 poke53265,27:poke198,0:wait198,1:getg$:poke53265,11
2410 print"{clr}{down}";
2420 print" FUELLE,XY - Fuellt den Gegenstand XY"
2430 print" m. Wasser,falls vorhanden"
2440 print" LIES,XY - Du liest z.B. ein Buch."
2450 print" ANGREIFEN - Du greifst an."
2460 print" ABWEHREN - Du verteidigst dich."
2470 print"{down} H-R-N-S-W-O fuer d. Richtungsangaben "
2471 print"{red}Gesagt sei noch, dass SAVE nur ausser-"
2472 print"halb von Burgen, Siedlungen , ... ver-"
2473 print"wendet werden kann.{blk}TIP: Suche die Ringe"
2474 print" hinter Mauern ...!"
2480 print"{down}{blu}Waehrend du spielst siehst du links oben";
2490 print"den Ausschnitt des Dreistromlandes, in";
2500 print"dem du dich gerade befindest. Der weisse";
2510 print"Rahmen zeigt deine genaue Position.Neben";
2520 print"dem Landschaftsausschnitt findest du die";
2530 print"Anzeige fuer Verpflegungseinheiten,Kraft";
2540 print"Goldstuecke und Anzahl der Ringe, die du";
2550 print"bereits erbeutet hast.Darunter und unter";
2560 print"der Eingabezeile befindet sich je ein";
2570 print"Ausgabefenster zur Ausgabe von Daten."
2580 print"Altes oder neues Spiel (a/n)?-";:poke53265,27
2590 poke198,0:wait198,1:getg$:ifg$<>"a"andg$<>"n"then2590
2600 printg$;:ifg$="n"then3000
2605 gosub2610:goto2680
2610 printchr$(14);"{clr}{down} Kassette oder Diskette ?-";
2620 gettt$:iftt$<>"k"andtt$<>"d"then2620
2630 printchr$(asc(tt$)+32):print
2640 print" Filename: {down}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{up}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";:k$=""
2645 fork=1to16:poke198,0:wait198,1:getg$
2650 ifg$=chr$(13)thenk=16:next:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":return
2660 if(g$<"a"org$>"z")and(g$<"A"org$>"Z")andg$<>" "thenk=k-1:next
2670 k$=k$+g$:printg$;:next:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":return
2680 iftt$="k"thenopen1,1,0,k$
2685 iftt$="d"thenk$=k$+",s,r":open1,8,2,k$
2690 input#1,x:input#1,y:input#1,ve:input#1,kr:input#1,ge:input#1,ri:input#1,ir
2700 input#1,t$:input#1,zb:input#1,hb:input#1,ha:input#1,ei:input#1,fo
2710 input#1,au:input#1,lo:input#1,an:input#1,be:input#1,g$
2715 close1:iftt$="k"then2720
2717 open15,8,15:input#15,a,g$,k,k:close15:ifa<>0then2605
2718 goto2800
2720 print"Habe ";chr$(34);g$;chr$(34);" gefunden."
2730 print"{down}Willst du dieses Spiel fortsetzen (J/N)?"
2740 getg$:ifg$<>"n"andg$<>"j"then2740
2750 ifg$="n"then2605
2800 ti$=t$:e$="{clr}"+chr$(142):goto20000
3000 x=17:y=15:ve=3500:kr=100:ge=0:ri=0:ti$="000000":e$="{clr}"+chr$(142):goto20000
3500 ifpx=-1thenp=1:goto3520
3510 p=h(py,px)
3520 r$="richtungen":pokevc+17,11:gosub3530:goto3760
3530 print"{clr}":fork=2to5:printtab(k)"{blk}M"spc(35-2*k)"N":next
3540 print" O{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}P"
3550 fork=1to8:print" {CBM-G}"spc(23)"{CBM-M}":next
3560 print" L{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{SHIFT-@}"
3570 fork=5to2step-1:printtab(k)"N"spc(35-2*k)"M":next:if(pand8)=8thenr$=r$+"-s"
3580 if(pand4)<>4then3620
3590 r$=r$+"-n":print"{home}{down}{down}{down}{down}{down}{down}"," {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}":print," {CBM-M}M{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}N{CBM-G}"
3600 fork=1to6:print,"{rght}{rght}{rght}{rght}{CBM-M}{CBM-M} {CBM-G}{CBM-G}":next:print,"{rght}{rght}{rght}{rght}{SHIFT-@}N ML"
3610 poke214,10:print:print,"{rght}{rght}{rght}{rght}{rght}{rght}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}"
3620 if(pand32)<>32then3660
3630 r$=r$+"-w":print"{home}{down}{down}{down}{down} {CBM-M}M ":print" {CBM-M} M"
3640 print" {CBM-M}{CBM-Y}P":fork=1to9:print" {CBM-M} {CBM-M}":next
3650 print" {CBM-M}{CBM-P}{SHIFT-@}":print" {CBM-M} ":print" {CBM-M} ":print" N"
3660 if(pand16)<>16then3700
3670 r$=r$+"-o":print"{home}{down}{down}{down}{down}",,,"{rght}{rght}{rght}{rght}N{CBM-G}":print,,,"{rght}{rght}{rght}N {CBM-G}"
3680 print,,,"{rght}{rght}{rght}O{CBM-Y}{CBM-G}":fork=1to9:print,,,"{rght}{rght}{rght}{CBM-G} {CBM-G}":next:print,,," ML{CBM-P}{CBM-G}"
3690 print,,," {CBM-G}":print,,," {CBM-G}{down}{left}M"
3700 if(pand2)<>2then3730
3710 r$=r$+"-h":print"{home}":print,,"{left}{left}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}":print,,"{left}{left}MM{SHIFT--}{CBM-P}{CBM-P}{SHIFT--}NN"
3720 print,,"{left}M{CBM-Q}{SHIFT-*}{SHIFT-*}{CBM-W}N":fork=1to7:print,,"{SHIFT--}{rght}{rght}{SHIFT--}":print,,"{CBM-Q}{SHIFT-*}{SHIFT-*}{CBM-W}":next
3730 if(pand1)<>1then3755
3740 r$=r$+"-r":poke214,15:print:print,," L{CBM-P}{SHIFT-@}":print,," L{CBM-P}{SHIFT-@}":print,,"N{CBM-G} {CBM-M}M"
3750 print,,"{left}NNO{CBM-Y}PMM":print,,"{left}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}"
3755 return
3760 f=20:if(pand64)<>64then3800
3770 f=21:poke214,15:print:print," {CBM-P}{CBM-P}{CBM-P}{CBM-P}":print,"N N":print,"{left}N NN"
3780 print,"{left}{left}N{CBM-P}{CBM-P}{CBM-P}NN":print,"{left}{left}{left}{CBM-N} ==(N":print,"{left}{left}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}"
3790 r$=r$+";-lies,buch"
3800 poke214,f:print:printr$
3810 pokevc+17,27:gosub20410:print"{up}{up}{up}{up}{up}"
3850 ifk$="n"and(pand4)=4thenpy=py-1:goto 3500
3860 ifk$="s"and(pand8)=8thenpy=py+1:goto 3500
3870 ifk$="o"and(pand16)=16thenpx=px+1:goto 3500
3880 ifk$="w"and(pand32)=32thenpx=px-1:goto4000
3890 ifk$="r"and(pand1)=1thenpy=10:px=9:goto 3500
3900 ifk$="h"and(pand2)=2thenpx=-1:goto 3500
3910 ifk$<>"lies,buch"then4020
3920 if(pand64)<>64thenk$="":goto3910
3930 zb=255:print"{clr}{down} das buch des magiers:{down}"
3940 print" swim-faehikeit zu scwimmen"
3942 print" beem-zufaelliger standortwechsel"
3943 print" kill-toetet jeden in sichtweite"
3944 print" help-gespraechspartner w. hilfsbereit"
3945 print" fill-fuelt einen raum mit beton aus"
3946 print" klau-bewirkt einen diebstal"
3947 print" anti-verwandelt zu stein"
3948 print" bomb-laesst explodieren"
3950 print"{down} doch denk daran: benutze sie nur um{down}"
3960 print" gutes zu tun !!!"
3970 fork=1to30000:next
3980 h(0,0)=h(0,0)-64:print"{down}{down} das buch loest sich langsam auf..."
3990 fork=1to4000:next:goto3500
4000 ifpx<>0orpy<>0then3500
4005 print:print" du kommst in den raum des magiers, als dieser ploetzlich";
4007 print" verschwindet...";
4010 fork=1to5000:next:goto3500
4020 fork=0to7:ifk$<>d$(k)orzb<>255thennext:gosub40360:goto3500
4030 ifk=0ork=1ork=4then4100
4040 pokevc+21,0:print"{clr}{blk}{down} du hast einen spruch des hasses be-"
4050 print"{down} nutzt. du bist des todes! der meister{down}"
4060 print" persoenlich wird dich richten..."
4070 fork=1to6000:next:goto40000
4100 ifk=1then4200
4110 print" der spruch zeigt keine wirkung !!!";:fork=1to2000:next:goto3500
4200 x=int(30*rnd(0))+8:y=int(30*rnd(0))+8
4220 ifl(y,x)<>4andl(y,x)<>7then4200
20000 yy=y:xx=x:ifkr<0thenkr=0
20010 print"{home}";e$;:e$=""
20020 fork=y-3toy+3
20030 fori=x-3tox+3
20040 printa$(l(k,i));
20050 next:print:print:next:printb$(l(y,x)):pokevc+21,1
20060 print"{lblu}{home}";:fork=1to15:printtab(16);"{SHIFT--}":next:print"{home}";
20070 printtab(18);"{red}verpflegung :";ve;"{left} "
20080 printtab(18);"kraft in % :";kr;"{left} "
20090 printtab(18);"gold :";ge;"{left} "
20100 printtab(18);"ringe :";ri:print
20300 ifrnd(0)>(.1+an)orat=1then20400
20310 at=1:printf$:ifrnd(0)>.7thenu=1:printi$:goto20320
20315 printh$
20320 ifl(y,x)<>8andl(y,x)<>0andl(y,x)<>11andl(y,x)<>12thenj$=a$:goto20400
20330 j$=b$
20400 ifat=1thenprintj$
20402 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{lblu}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";
20404 ifkr=0then40000
20406 iftc=1then26100
20408 gosub20410:goto20420
20410 print"{red}kommando : {up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-@}{left}";:k$=""
20412 poke198,0:wait198,1:getg$:ifg$=chr$(13)thenprint" {blk}":return
20414 ifasc(g$)=20andlen(k$)>0thenk$=left$(k$,len(k$)-1):print" {left}{left} {left}{CBM-@}{left}";:goto20412
20416 if(asc(g$)<65orasc(g$)>90)andasc(g$)<>44then20412
20417 iflen(k$)>20then20412
20418 printg$;"{CBM-@}{left}";:k$=k$+g$:goto20412
20420 ifk$<>"n"andk$<>"s"andk$<>"w"andk$<>"o"then20600
20425 ifu=1thenprintc$:fork=1to1000:next:printd$:goto20000
20430 kr=kr-2-ha:ifk$="n"andy>4theny=y-1:goto20500
20440 ifk$="s"andy<35theny=y+1:goto20500
20450 ifk$="w"andx>4thenx=x-1:goto20500
20460 ifk$="o"andx<35thenx=x+1:goto20500
20470 print" dein boot ist nicht hochseetauglich ! {blk}du bist ertrunken.{blu}"
20480 goto40000
20500 l=l(y,x):ifl<>0andeb=0andl<>11andl<>12thenbe=0
20510 ifl=0and(hband1)=0thenprint"{blk} du bist ertrunken.{blu}":goto40000
20520 ifl=8and(zband1)=0then30000
20530 ifl=6thenprintc$:fork=1to1000:next:printd$:y=yy:x=xx:kr=kr-8:goto20000
20540 an=0:ifl=4thenan=.15
20550 ifl<>11then 20560
20553 if be=0 thenbe=1:goto 20000
20556 if be=2 thenbe=3:eb=1:goto 20000
20560 if l=12 and be=1 then be=2:goto20000
20590 goto 20000
20600 ifk$=""thenprintc$:fork=1to1000:next:printd$:goto20000
20605 ifat=1then23000
20610 ifk$<>"list"then20700
20620 print"{home}{down}{down}{down}{down}":e$="{clr}":t$=ti$:fork=0to7:if(hband2^k)thenprinttab(18);c$(k)
20625 next:ifei=1thenprinttab(18);"eimer"
20630 print"{home}{down}{down}{down}{down}":fork=0to7:if(zband2^k)thenprinttab(32);d$(k)
20635 next:print"{home}{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}druecke eine taste"
20660 poke198,0:wait198,1:ti$=t$:goto20000
20700 ifk$<>"iss"then20800
20710 a=kr:kr=kr-1:ve=ve+31:fork=ato100:ve=ve-31
20720 ifve<=0thenk=100:ve=ve+31:next:goto20000
20730 kr=kr+1:next:goto20000
20800 ifk$<>"eintreten"then22000
20805 ifl(y,x)=10then21100
20810 ifl(y,x)<>9and(l(y,x)>3orl(y,x)=0)thenprintc$:fork=1to1000:next:printd$:goto20000
20820 ifl(y,x)<>9then21300
20822 ifge<20thenprintc$:fork=1to1000:next:printd$:goto20000
20824 ify=11andx=18then40500
20830 pokevc+21,0:e$="{clr}":print"{clr}{down} die siedler heissen dich herzlichst"
20840 print" willkommen und bieten dir folgendes an"
20850 print" je 20 goldstuecke fuer:{up}"
20860 f=0:ifl(y,x+1)=4thenprinttab(24);c$(0):f=1
20865 ifl(y,x-1)=8thenprinttab(24);"eimer":f=2
20870 fork=1to7:printtab(24);c$(k):next:printtab(24);"verpflegung*1500"
20880 print"{down}{down} du hast";ge;"goldstuecke.":print"{down} was wuenschst du ?-";:k$=""
20890 poke198,0:wait198,1:getg$:ifg$=chr$(13)then20920
20900 k=asc(g$):ifk<65ork>90then20890
20910 k$=k$+g$:printg$;:goto20890
20920 ifk$=""thengoto20000
20925 ifk$="eimer"andf=2thenei=1:ha=ha+1:ge=ge-20:goto20000
20930 ifk$=c$(0)andf=0then20830
20940 fork=0to7:ifk$=c$(k)thenk=7:next:goto21030
20950 next:ifleft$(k$,3)<>"ver"then21030
20960 print:print" wieviel ?-";:k$=""
20970 poke198,0:wait198,1:getg$:ifg$=chr$(13)then21010
20980 ifval(g$)=0andg$<>"0"then20970
20990 k$=k$+g$:printg$;:goto20970
21010 f=val(k$):fork=1tof:ifge-20>-1thenve=ve+1500:ge=ge-20:next:goto20000
21020 k=f+1:next:goto20000
21030 f=8:fork=0to7:ifk$=c$(k)thenf=k:k=8
21040 next:iff=8or(hband2^f)then20830
21050 ge=ge-20:ha=ha+1:hb=hb+2^f:gosub40400:goto20000
21100 ift=1then25000
21110 pokevc+21,0:print"{clr}{down} {blk}du hast die hoehle des m a g i e r s "
21120 print" betreten,-eines dieners des daemons !! "
21130 print"{down} es gibt kein zurueck, denn in diesem "
21140 print" augenblick schliesst sich die hohle. "
21150 print" es gibt nur einen ausweg:{down}"
21160 print" -ein schmaler schacht im boden.{down}":fork=1to8000:next
21170 ifhband64thenh(0,0)=80:px=-1:e$="{clr}":goto3500
21180 print" da du keine! leiter mitgebracht hast "
21190 print" lautet dein urteil:{down}"
21200 print" -tod durch sturz aus 20 metern hoehe "
21210 print" oder{down}"
21220 print" -tod durch verdursten.":goto40000
21300 e$="{clr}":l=l(y,x)-1:if(irand2^l)thenprintc$:fork=1to1000:next:printd$:goto20000
21315 if(loand2^l)=2^lthen21800
21320 if(auand2^l)=2^lthen21700
21330 e$="":ifl<>0then21400
21340 print" {red}der koenig erteilt dir die aufgabe,die"
21350 print" erde zu erforschen.":fork=1to6000:next
21360 print"{up}{up} du sollst mit einem boot weit weg "
21370 print" fahren und berichten was du siehst. ":fork=1to6000:next
21380 print"{up}{up} als einziges hilfsmittel gibt dir der "
21385 print" koenig eine leiter mit !!! ":hb=hb+64:ha=ha+1:fork=1to6000:next
21390 print"{up}{up} "
21395 print" ":au=au+1:lo=lo+1:goto20000
21400 ifl<>1then21460
21405 print"{red} ich koenig der ptolemaeen gebe dir die"
21410 print" aufgabe,die insel einmal auf dem see-":fork=1to6000:next
21420 print"{up}{up} weg zu umrunden. starte bei der boje "
21430 print" vor der kueste. viel glueck ! ":fork=1to6000:next
21440 print"{up}{up} "
21450 print" ":au=au+2:lo=lo+2:goto 20000
21460 print" {red}der koenig weigert sich dir den ring"
21470 print" fuer eine aufgabe zu ueberlassen":fork=1to6000:next
21480 print"{up}{up} er gibt dir eine moeglichkeit, dich zu"
21490 print" rechtfertigen u. dadurch zu ueberleben":fork=1to6000:next
21500 print"{up}{up} "
21510 print" "
21520 print"{up}{up} du sagst: ";:k$=""
21530 fork=1to4
21540 poke198,0:wait198,1:getg$:ifasc(g$)<65orasc(g$)>90then21540
21545 k$=k$+g$:printg$;:next:print:fork=1to1000:next
21550 ifk$<>d$(3)thenprint" {blk}die chance ist vertan !!!":goto40000
21560 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down} "
21570 print" "
21580 print"{red}{up}{up} der koenig wird ploetzlich ungemein"
21590 print" hilfsbereit und gibt dir den ring":fork=1to6000:next
21600 print"{up}{up} "
21610 print" "
21620 lo=lo+4:au=au+4:ri=ri+1:ir=ir+4:goto20000
21700 print" {red}der koenig ist wuetend,da du zurueck-"
21710 print" kehrtest ohne die aufgabe zu loesen.":fork=1to6000:next
21720 print"{up}{up} {red}ueber dein weiteres schicksal wird "
21730 print" der {blk}daemon{red} entscheiden !!! ":goto40000
21800 ifl=2thenprintc$:fork=1to1000:next:printd$:goto20000
21805 if(hband1)<>1then40300
21810 ifl<>0then21980
21820 print"{red}berichte mir nun,welche aussage zutrifft";
21830 print" {rvon}1{rvof} - erde,-eine kugel die sich dreht."
21840 print" {rvon}2{rvof} - erde,-eine scheibe."
21850 print" {rvon}3{rvof} - erde,-kugel, mittelpunkt des alls."
21860 print" {rvon}4{rvof} - erde,-ein quadrat mit a=20000 km^2"
21870 print"wir schreiben das jahr 1607, ein grosser";
21880 print"augenblick. gib die nummer an: ";
21890 poke198,0:wait198,1:getg$:if val(g$)<1 or val(g$)>4 then21890
21900 printg$:ifval(g$)=(peek(2050)-5) then e$="{clr}":ri=ri+1:ir=ir+1:goto20000
21910 fork=1to2000:next
21920 print"{clr}{down}{down}{down}{down}";:pokevc+21,0
21930 print"{blk} die inquisition hat ein neues opfer"
21940 print" gefunden. du wirst dein ende auf dem"
21950 print" scheiterhaufen finden. nur so finden"
21960 print" ketzer ihre gerechte strafe !!!":fork=1to2000:next:goto 40000
21980 ifbe=3thenri=ri+1:ir=ir+2:lo=lo+2:goto20000
21990 goto21700
22000 ifleft$(k$,9)<>"wegwerfen"then22500
22010 ifmid$(k$,10,1)="," then22030
22020 print" syntax error":fork=1to1000:next:print"{up} ":goto20000
22030 k$=mid$(k$,11)
22040 f=8:fork=0to7:ifk$=c$(k)thenf=k:k=8
22050 next:iff<>8and(hband2^f)<>2^fthen20620
22060 iff<>8thenha=ha-1:hb=hb-2^f:goto20000
22070 ifk$="eimer"andei=1thenha=ha-1:ei=0:fo=0:goto20000
22080 ifk$="eimer"then20620
22090 ifk$<>"ring"then22020
22100 ifir=7andri>0then22120
22110 printc$:fork=1to1000:next:printd$:goto20000
22120 ifl(y,x)<>8andl(y-1,x)<>8andl(y+1,x)<>8andl(y,x-1)<>8andl(y,x+1)<>8then22110
22130 f=0:ify<19andx>20thenf=2:goto22160
22140 ify<22andx<18thenf=1:goto22160
22150 f=4
22160 ifddandfthen22110
22170 ri=ri-1:dd=dd+f:ifdd=7then22200
22180 print" der fluss bedankt sich bei dir.":fork=1to3000:next
22190 print"{up} ":goto20000
22200 ifei=1then22260
22210 print" der fluss ist wuetend, -du nicht daran"
22220 print" gedacht ein gefaess mitzubringen, um"
22230 print" wasser zum daemon bringen zu koennen."
22240 print" {blk}der fluss kann seinen zorn nicht zu-"
22250 print" rueckhalten und ertraenkt dich !!!":fork=1to3000:next:goto40000
22260 pokevc+21,0:print"{clr}{red}{down}{down}{down}{down}{down}{down} im wasser ist folgendes zu lesen"
22270 fork=1to2000:next:print"{clr}";chr$(14):pokevc+21,0
22280 print"Die Legende,die dir vermutlich gelaeufig"
22290 print"ist, ist bereits vor 764 Jahren verfasst"
22300 print"worden.Seitdem hat der {blk}D A E M O N{red} seine"
22310 print"Macht um ein Vielfaches vergroessert ..."
22320 print"Er laesst sich also nicht mehr so leicht"
22330 print"vertreiben.Es ist sogar so,dass uns kein"
22340 print"Mittel bekannt ist ihn zu beseitigen ..."
22350 print"Doch haben wir gehoert, dass es in einer"
22360 print"der Siedlungen eine Zeitreise 764 Jahre"
22370 print"zurueck zu kaufen gibt. Dies scheint der"
22380 print"einzige Weg zu sein.Gehe also und suche!"
22390 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}Viel Glueck !!!{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}>>";:poke198,0:wait198,1:getg$
22400 print"{clr}{down}Noch eins: Bist du in der Zeit der Sage"
22410 print" angekommen, dann musst du versuchen in "
22420 print" den {blk}D U N K L E N T U R M{red} zu kommen "
22425 l(11,18)=9
22430 fork=1to8000:next:print"{clr}";chr$(142):goto20000
22500 ifk$<>"lies,buch"then22700
22510 if(hband2^7)<>2^7then20620
22520 print"{clr}";chr$(14):pokevc+21,0
22530 print"{red} G{$a0}E{$a0}O{$a0}R{$a0}G{$a0}E{$a0}{$a0}O{$a0}R{$a0}W{$a0}E{$a0}L{$a0}L 1 9 8 4 {down}"
22540 print"{blk}Es war ein klarer, kalter Tag im April, "
22550 print"und die Uhren schlugen gerade dreizehn, "
22560 print"als Winson Smith, das Kinn an die Brust "
22570 print"gepresst, um den rauhen Wind ... "
22580 fork=1to9999:next:print
22590 print" ... nun war es gut, war alles gut, der "
22600 print"Kampf war beendet. Er hatte den Sieg "
22610 print"ueber sich selbst errungen. Er liebte "
22620 print"den Grossen Bruder.":fork=1to9999:next:print"{clr}";chr$(142):goto20000
22700 ifk$<>"lies,kompass"then22800
22710 if(hband2^5)<>2^5then20620
22720 print" der kompass zeigt in richtung norden !":fork=1to3000:next
22730 print"{up} ":goto20000
22800 ifleft$(k$,6)<>"fuelle"then22900
22810 ifmid$(k$,8)<>"eimer"thenprintc$:fork=1to1000:next:printd$:goto20000
22820 ifl(y,x)<>8andl(y-1,x)<>8andl(y+1,x)<>8andl(y,x+1)<>8andl(y,x-1)<>8then22110
22825 fo=1
22830 print" der eimer ist voll.":fork=1to1000:next:print"{up} ":goto20000
22900 f=8:fork=0to7:ifk$=d$(k)and(zband2^k)thenf=k:k=8:goto22920
22910 ifk$=d$(k)thenk=8:next:goto20620
22920 next:iff=8then23000
22930 iff>1andf<>3then4040
22940 ifk$="swim"thenzb=zb+2^f
22950 zb=zb-2^f:iff=1then4200
22952 print" der zauberspruch zeigt keine wirkung.":fork=1to3000:next
22954 print"{up} ":goto 20000
23000 ifk$<>"abwehren"then23100
23001 ifat=0thenprintc$:fork=1to1000:next:printd$:goto20000
23003 c=0:ifl(y,x)=0and(hband16)=16thenc=c+.5:goto23006
23004 if(hband8)=8thenc=c+.5
23005 if(hband4)=4thenc=c+1
23006 if(hband2)=2thenc=c+1
23007 f=rnd(0):iff>.3+c*.1thenc=0
23008 c=1:kr=kr-int(5*f)
23010 ifu=0then23050
23020 print" die jaeger haben dich nur umzingelt."
23025 print" es ist also nichts abzuwehren."
23030 fork=1to6000:next:print"{up}{up} "
23040 print" ":goto20000
23050 ifc=0then20000
23060 at=0:ge=ge+int(20*f)+1:kr=kr+int(2.5*f)
23070 print" erfolgreich abgewehrt,";int(20*f)+1;"goldstuecke":fork=1to2000:next
23080 print"{up} ":gosub40440:goto20000
23100 ifk$<>"angreifen"then23200
23110 ifl(y,x)=0and(hband16)=16thenc=1:goto23140
23120 if(hband4)=4thenc=1
23130 if(hband8)=8thenc=c+1
23140 if(hband2)=2thenc=c+1
23150 f=1:ifrnd(0)>(.3+c*.1)thenf=0
23160 c=f*(int(10*rnd(0)+1)):kr=kr-0^f*ha-1:iff=0then20000
23165 at=0:u=0
23170 print" erfolgreich abgeschlossen.":printc;"goldstuecke":ge=ge+c
23175 fork=1to6000:next
23176 print"{up}{up} "
23180 print" ":gosub40440:goto20000
23200 ifk$<>"save"then24000
23210 ifdd=0then23240
23220 print" nicht moeglich. du bist schon in der"
23230 print" schlussphase des spiels !":fork=1to5000:next:e$="{clr}":goto20000
23240 pokevc+21,0:t$=ti$:gosub2610
23250 iftt$="k"thenopen1,1,2,k$:goto23260
23255 k$="@:"+k$+",s,w":open1,8,2,k$
23260 print#1,x:print#1,y:print#1,ve:print#1,kr:print#1,ge:print#1,ri:print#1,ir
23270 print#1,t$:print#1,zb:print#1,hb:print#1,ha:print#1,ei:print#1,fo
23280 print#1,au:print#1,lo:print#1,an:print#1,be:print#1,k$
23290 close1:print:print"{up} "
23295 print" ":e$="{clr}"+chr$(142):goto20000
23395 print" ":goto20000
24000 printc$:fork=1to1000:next:printd$:goto20000
25000 pokevc+21,0:iftd=1thentx=0:goto25300
25012 printchr$(14);"{clr}{down}{red} Du hast den {blk}D U N K L E N T U R M{red} ":poke198,0
25014 print" betreten. Hier gelten andere Gesetze "
25016 print" als ausserhalb, denn es herrscht der "
25018 print" {blk}Daemon{red}. Niemand ausser {blk}ihm{red} darf sog. "
25020 print" Zaubersprueche verwenden, - vergesse "
25022 print" deine Zaubersprueche oder du bist am "
25024 print" Ende deiner Reise angelangt.Befehle: "
25026 print" {blu}NIMM,WEGWERFEN,OEFFNE,SCHLIESSE,LIST "
25028 print" LEEREN,DRUECKEN,VERGESSEN. Alle Bef. "
25030 print" bis auf LIST / VERGESSEN muessen von "
25032 print" ";chr$(34);",Ding";chr$(34);" gefolgt werden.":print
25034 print" {blk}Daemonen lieben es Gott nahe zu sein{red}{left}{left}{down}>>";
25074 dimt(3,4,4):td=1:forf=0to4:forc=0to4:reada:fork=0to3:t(k,f,c)=a:nextk,c,f
25075 data 24,48,56,48,40
25076 data 12,24,52,40,12
25077 data 28,44,16,28,44
25078 data 12,20,56,36,12
25079 data 20,48,52,48,36
25080 t(1,2,2)=4:t(2,2,2)=32:t(3,2,2)=8:t(1,2,0)=60
25100 t(0,2,3)=60:t(3,3,2)=60:t(2,2,1)=60:t(1,1,2)=60:ki=int(3*rnd(0)+1)
25230 gosub25290:t(3,ty,tx)=t(3,ty,tx)+1:t(2,ty,tx)=t(2,ty,tx)+2
25240 gosub25290:t(2,ty,tx)=t(2,ty,tx)+1:t(1,ty,tx)=t(1,ty,tx)+2
25245 gosub25290:t(1,ty,tx)=t(1,ty,tx)+1:t(0,ty,tx)=t(0,ty,tx)+2
25250 gosub25290:t(0,ty,tx)=t(0,ty,tx)+64
25260 gosub25290:t(1,ty,tx)=t(1,ty,tx)+64
25270 gosub25290:t(2,ty,tx)=t(2,ty,tx)+64
25280 gosub25290:t(3,ty,tx)=t(3,ty,tx)+64:s=1:ty=2:tx=0:wait198,1:goto25300
25290 tx=int(5*rnd(0)):ty=int(5*rnd(0)):return
25300 getg$:print"{clr}";chr$(142):goto25330
25320 fork=1to4000:next
25325 iftx<0thenprint"{clr}":goto20000
25330 r$="":p=t(s,ty,tx):pokevc+17,11:gosub 3530
25335 ifs=0andtx=0andty=0thenprint"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{red}Q{blk}"
25340 if(pand64)<>64then25400
25350 poke214,14:print:print,"{rght}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}":print,"N N{CBM-G}"
25360 print,"{left}N N {CBM-G}":print,"{left}O{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}P {CBM-G}":print,"{left}{CBM-G} {CBM-M} N"
25370 print,"{left}L{CBM-P}{CBM-P}{CBM-P}{CBM-P}{SHIFT-@}N"
25380 if(pand128)=128thenpoke214,15:print:print,"{rght}{CBM-G}":print,"{rght}{CBM-G}"
25400 if(s<>3ortx<>2orty<>2)and(s=1orzb=0)then25430
25410 pokevc+17,27:print:print"der daemon hat dich wie einen wurm zer-"
25420 print"treten...";:fork=1to6000:next:goto40000
25430 iftc=0then25470
25440 ifval(ti$)<31then25600
25450 pokevc+17,27:poke214,21:print:print"das gewoelbe hat dich"
25460 print" unter sich begraben...";:fork=1to6000:next:goto40000
25470 ifho=0oroh=1ors<>3orty<>3ortx<>2then25600
25480 pokevc+17,27:printchr$(34);"passt mir gut auf,dass der fremde ein-"
25490 print"dringling nicht auf {red}den{blk} knopf drueckt,"
25500 print"das waere unser aller ende...";chr$(34):oh=1
25510 fork=1to8000:next:goto25320
25600 poke214,21:print:print"{red}";mid$(r$,2);"/";:l=11:pokevc+17,27:gosub20410
25610 print"{up}{up}{up}{up}"
25630 ifk$="n"and(pand4)=4thenty=ty-1:goto25330
25640 ifk$="s"and(pand8)=8thenty=ty+1:goto25330
25650 ifk$="o"and(pand16)=16thentx=tx+1:goto25330
25660 ifk$="w"and(pand32)=32thentx=tx-1:goto25325
25670 ifk$="r"and(pand1)=1thens=s-1:goto25330
25680 ifk$="h"and(pand2)=2thens=s+1:goto25330
25690 ifk$<>"oeffne,kiste"then25740
25695 if(pand64)<>64then25740
25700 if(pand128)=128thenprint"die kiste ist bereits offen.":goto25320
25710 poke214,15:print:print,"{rght}{CBM-G}":print,"{rght}{CBM-G}":poke214,22:print:t(s,ty,tx)=p+128
25720 ifs<>kiorho=1thenprint"{up}die kiste ist leer.":goto25320
25730 print"{up}in der kiste liegt ein stueck pergament":goto25320
25740 ifk$<>"nimm,pergament"then25760
25745 if(pand128)=0or(pand64)=0orho=1ors<>kithen25760
25750 print"{down} auf dem pergament steht ein zauberwort: horch";:ho=1:goto25320
25760 ifk$="vergessen"thenzb=0:ho=0:print"du hast alle sprueche vergessen":goto25320
25770 ifk$="schliesse,kiste"and(pand128)thent(s,ty,tx)=p-128:goto25320
25780 ifk$<>"list"then25860
25790 t$=ti$:print"{clr}{down}{down} liste ueber hab und gut:{down}"
25800 fork=0to7:if(hband2^7)thenprint" ";c$(k)
25810 next:ifei=1thenprint" eimer"
25820 ifho=1thenprint" pergament"
25830 print"{home}{down}{down}{down}{down}":fork=0to7:if(zband2^k)thenprint,,d$(k)
25840 next:ifho=1thenprint,,"horch"
25850 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down} bitte druecke eine taste"
25855 poke198,0:wait198,1:ti$=t$:goto25330
25860 ifleft$(k$,10)<>"wegwerfen,"then25900
25870 print"du wolltest eigentlich nur einen gegen-":zb=0:hb=0
25880 print"stand wegwerfen,bist aber so gut drauf"
25890 print"und wirfst alles weg;-es verschwindet.":fork=1to6000:next:goto25320
25900 ifk$<>"leeren,eimer"then25970
25905 iffo=0then26050
25910 ei=0:print"beim ausleeren des eimers gleitet er dir";
25920 print"ploetzlich aus den haenden und faellt"
25930 print"scheppernd zu boden...":fork=1to6000:next
25940 print"{up}{up}{up}sofort erscheint der daemon,um dich zu ";
25950 print"vernichten.er bekommt jedoch rasch nasse";
25960 print"fuesse und verschwindet wimmernd.":fork=1to6000:next:goto25330
25970 ifk$<>"druecken,knopf"then26050
25980 ifs<>0ortx<>0orty<>0thenprint"hier ist kein knopf.":goto25320
26000 ifei=1oroh=0thenprint"er laesst sich nicht druecken.":goto25320
26010 print"das gesamte gewolbe bebt ploetzlich und"
26020 print"du spuerst,dass es in einer halben min."
26030 print"{up}einstuerzen wird...renn um dein leben...";
26040 fork=1to7000:next:t0$=ti$:ti$="000000":tc=1:l(20,20)=0:goto25330
26050 print"nicht moeglich!":fork=1to1000:next:goto25330
26100 print
26110 print"{red} {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} {CBM-+} {CBM-+} {CBM-+}{CBM-+}{CBM-+}{CBM-+} {CBM-+}{CBM-+}{CBM-+}{CBM-+} {CBM-+} {CBM-+} {CBM-+}{CBM-+}{CBM-+}"
26120 print" {CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+}{CBM-+} {CBM-+} {CBM-+} {CBM-+}"
26130 print" {CBM-+} {CBM-+} {CBM-+} {CBM-+} {gry1}{rvon}qr{rvof}{red} {CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+}"
26140 print" {CBM-+} {CBM-+}{CBM-+}{CBM-+}{CBM-+} {CBM-+}{CBM-+}{CBM-+} {gry1}{rvon}st{rvof}{red} {CBM-+}{CBM-+}{CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+}"
26150 print" {CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+}"
26160 print" {CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+}{CBM-+} {CBM-+} {CBM-+}"
26170 print" {CBM-+} {CBM-+} {CBM-+} {CBM-+}{CBM-+}{CBM-+}{CBM-+} {CBM-+}{CBM-+}{CBM-+}{CBM-+} {CBM-+} {CBM-+} {CBM-+}{CBM-+}{CBM-+}"
26180 print"{home}{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}{rght}{rght}";left$(t0$,2);":";mid$(t0$,3,2);
26190 print":";right$(t0$,2);" zeit{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}{down}druecke eine taste"
26200 poke198,0:wait198,1:run40270
30000 print" als nichtschwimmer ist es nicht ratsam ein bad im fluss zu nehmen."
30010 print" {blk}du bist ertrunken.{blu}":goto 40000
40000 fork=1to8000:next:pokevc+21,0
40020 print"{blk}{clr}":ifkr<=0thenprint" du bist an entkraeftung gestorben !!!{down}"
40050 printtab(19)"O{CBM-Y}P"
40060 printtab(18)"O {SHIFT-+} P"
40070 printtab(17)"O {SHIFT--} P"
40080 printtab(16)"O P"
40090 printtab(16)"{CBM-G}er ruhe{CBM-M}"
40100 printtab(16)"{CBM-G} {CBM-M}"
40110 printtab(16)"{CBM-G} in {CBM-M}"
40120 printtab(16)"{CBM-G} {CBM-M}"
40130 printtab(16)"{CBM-G}frieden{CBM-M}"
40140 printtab(16)"{CBM-G} {CBM-M}"
40150 printtab(16)"{CBM-G} {CBM-M}"
40160 printtab(16)"{CBM-G}mdcviii{CBM-M}"
40170 printtab(16)"{CBM-G} {CBM-M}"
40175 printtab(15)"{CBM-D}{rvon}uuuuuuuuu{rvof}{CBM-F}"
40180 printtab(14)"{CBM-D}{rvon}uuuuuuuuuuu{rvof}{CBM-F}"
40190 printtab(13)"{CBM-D}{rvon}uuuuuuuuuuuuu{rvof}{CBM-F}"
40200 printtab(12)"{CBM-D}{rvon}uuuuuuuuuuuuuuu{rvof}{CBM-F}"
40210 printtab(12)"{rvon}uuuuuuuuuuuuuuuuu"
40220 printtab(12)"{rvon}uuuuuuuuuuuuuuuuu"
40230 print"{down}{red} moechtest du noch mal spielen (j/n)?-";
40240 poke198,0:wait198,1:getg$:ifg$<>"j"andg$<>"n"then40240
40250 printg$:ifg$="n"thensys 64738
40260 run40270
40270 fork=1to(48+36*8):reada:next:goto600
40300 print" ich sehe, du hast kein boot bei dir."
40310 print" daraus schliesse ich, dass du deine"
40320 print" aufgabe noch nicht erfuellt hast. doch"
40330 print" ich lasse gnade vor recht ergehen und"
40340 print" verlange zur strafe lediglich die 1/2"
40350 print" deiner verpflegung";:fork=1to12000:next:ve=int(.5*ve):e$="{clr}":goto20000
40360 print:print"nicht moeglich ! ":fork=1to1000:next:return
40400 if f<>0 then return
40410 print:print"{down} ein bewohner der siedlung kommt vorbei"
40420 print" und hetzt ueber die ";chr$(34);"nuss-schale";chr$(34);", die"
40430 print" du gerade erworben hast !!!":fork=1to10000:next:return
40440 print"{home}{down}{down}{down}{down}{down}",,"{left}{left}{left} "
40450 print,,"{left}{left}{left} ":return
40500 ifge<200thenprintc$:fork=1to1000:next:printd$:goto20000
40510 pokevc+21,0:print"{clr}{blu}"
40520 print" der koenig hat, nachdem er keinen ring "
40530 print" mehr hat,seine krone abgelegt und sich "
40540 print" auf die produktion von zeit-maschienen "
40550 print" konzentriert. er verlangt fuer eine "
40560 print" reise 200 goldstuecke, wobei es keine "
40570 print" rolle spielt wie weit sie geht ! "
40580 print"{down} nimmst du das angebot an (j/n)?-";
40590 poke198,0:wait198,1:getg$:ifg$<>"n"andg$<>"j"then40590
40600 printg$:ifg$="n"thene$="{clr}":fork=1to1000:next:goto20000
40605 ge=ge-200
40610 print" wieviel jahre moechtest du zurueck- reisen ?-";:k$="":fork=1to3
40620 poke198,0:wait198,1:getg$:ifg$<>"0"andval(g$)=0then40620
40630 printg$;:k$=k$+g$:next:ifk$="764"thent=1:l(11,18)=7:fork=1to2000:next:e$="{clr}":goto20000
40640 print"{blk}{down} die zahl war falsch, -du hast versagt!":goto40000
20 POKE 53265,11:FOR K=828 TO875:READ A:POKE K,A:NEXT :POKE 785,60:POKE 786,3:POKE 788,52 30 DATA 165,20,72,165,21,72,32,247,183,165,1,72,165,21,201,208,144,7,201,224,176 40 DATA 3,169,49,44,169,52,120,133,1,160,,177,20,168,104,133,1,88,104,133,21,104 50 DATA 133,20,76,162,179 100 FOR K=13*4096 TO14*4096-1:POKE K+4096,USR (K):NEXT :POKE 53272,24:POKE 56576,148:POKE 648,196 230 CG=58368:P=36:FOR K=CG TOCG+8*P-1:READ A:POKE K,A:NEXT 240 DATA 227,127,156,197,127,156,227,127,231, 25,254,231, 25,254,231, 25 260 DATA 156,227,127,156,227,127,156,227,254,231, 25,254,231, 25,254,231 280 DATA 187,119,238,221,187,119,238,221, 1, 3, 6, 12, 31, 63,127,255 300 DATA ,128,192, 96,240,248,252,254,127,127, 70, 70, 70, 71, 71, 71 320 DATA 252,252,100,100,100,252,252,252,160,224,224,160,224,160,224,160 340 DATA 10, 14, 14, 10, 14, 10, 14, 10,234,255,255,254,252,252,252,252 360 DATA 174,254,254,126, 62, 62, 62, 62, 1, 3, 3, 7, 15, 15, 31, 31 380 DATA , ,128,192,128,224,240,240, 63, 31,127, 63, 15, 3, 3, 3 400 DATA 248,240,252,248,224, , , , 13, 15, 31, 15, 9, 9, 9, 15 420 DATA 176,240,248,240,144,144,144,240, 15, 15, 31, 62, 60, 60, 60, 60 440 DATA 240,240,248,124, 60, 60, 60, 60,255,255,255,255,255,255,255,255 460 DATA , 64, 4, , 32, 2, , 8, 3, 15, 3, 3, 1, 31, 23, 23 480 DATA 128,226,130,130, 2,242,210,210, 31, 7, 3, 7, 6, 6, 6, 30 500 DATA 222,194,130,194,194,194,194,242, 1, 7, 4, 71, 99, 49, 31, 1 520 DATA 192,240,144,241, 99,198,252,192, 71,125, 1, 7, 28,112, , 540 DATA 241,223,192,240,156,135,128, ,255,255,255,255,254,252,248,252 560 DATA 255,255,255,255,207, 7, 3, 3,248,240,240,224,240,240,224,224 580 DATA , , , , , , , , 3, 1, 3, 3, 1, 1, 1, 600 FOR K=0 TO62:READ A:POKE K+49152,A:NEXT 610 DATA 255,255,192,128,,64,128,,64 620 DATA 128,,64,128,,64,128,,64 630 DATA 128,,64,128,,64,128,,64 640 DATA 128,,64,128,,64,128,,64 650 DATA 128,,64,128,,64,128,,64 660 DATA 128,,64,128,,64,255,255,192 670 DATA ,,,,,,,, 990 VC=53248:POKE 51192,0:POKE VC+1,97:POKE VC,71:POKE VC+21,0 1000 DIM A$(12),B$(12) 1010 A$(0)="{BLUE,RVSON}@A{DOWN,2LEFT}BC{RVOFF,UP}":B$(0)="{BLUE,3SPACE}> MEER <{3SPACE}" 1020 A$(8)="{LIG.BLUE,RVSON}DD{DOWN,2LEFT}DD{RVOFF,UP}":B$(8)="{BLUE,2SPACE}> FLUSS <{3SPACE}" 1030 A$(9)="{BROWN,RVSON}EF{DOWN,2LEFT}GH{RVOFF,UP}":B$(9)="{BLUE,SPACE}> SIEDLUNG < " 1040 A$(1)="{GREY2,RVSON}IJ{DOWN,2LEFT}KL{RVOFF,UP}":B$(1)="{BLUE,3SPACE}> BURG <{3SPACE}" 1050 A$(4)="{GREEN,RVSON}MN{DOWN,2LEFT}OP{RVOFF,UP}":B$(4)="{BLUE,3SPACE}> WALD <{3SPACE}" 1060 A$(5)="{BLACK,RVSON}QR{DOWN,2LEFT}ST{RVOFF,UP}" 1070 A$(6)="{GREY1,RVSON}UU{DOWN,2LEFT}UU{RVOFF,UP}" 1080 A$(7)="{BROWN,RVSON}VV{DOWN,2LEFT}VV{RVOFF,UP}":B$(7)="{BLUE,2SPACE}> EBENE <{3SPACE}" 1085 A$(2)=A$(1):A$(3)=A$(1):B$(2)=B$(1):B$(3)=B$(1) 1086 A$(11)="{BLACK}UI{DOWN,2LEFT}JK{UP}":B$(11)="{BLUE,3SPACE}> BOJE <{3SPACE}" 1087 A$(12)=A$(0):B$(12)=B$(0) 1090 A$(10)="{GREY1,RVSON}←{SPACE,DOWN,2LEFT}!#{RVOFF,UP}":B$(10)="{BLUE,2SPACE}> HOEHLE <{2SPACE}" 1091 A$="{HOME,6DOWN,6RIGHT,BLACK,RVSON}WX{DOWN,2LEFT}YZ{RVOFF,UP}":B$="{HOME,6DOWN,6RIGHT,BLACK,RVSON}[£{DOWN,2LEFT}]↑{RVOFF,UP}" 1092 C$="{HOME,14DOWN,17RIGHT}ZUG NICHT MOEGLICH" 1093 D$="{HOME,14DOWN,17RIGHT,18SPACE}" 1094 F$="{HOME,5DOWN,17RIGHT,BLACK}DU WIRST VON JAEGERN" 1095 H$="{17RIGHT}DES DAEMONS ATTACKIERT" 1096 I$="{17RIGHT}DES DAEMONS UMZINGELT." 1100 DIM L(30+2*4,30+2*4) 1110 FOR K=10 TO32:FOR I=10 TO30:READ A:L(K,I)=A:NEXT :NEXT 1120 DATA ,,,,,,,7,7,7,,,,,,,,,,, 1130 DATA ,,,,,7,7,7,1,7,7,7,7,,,,,,,, 1140 DATA ,,,,4,7,7,7,7,7,7,7,7,7,8,7,,,,, 1150 DATA ,,,,4,7,7,7,7,7,7,7,7,7,8,7,7,,,, 1160 DATA ,,7,4,4,4,7,7,7,7,7,7,7,7,8,7,7,7,7,, 1170 DATA ,7,7,7,4,4,4,7,7,4,4,4,7,7,8,9,7,7,7,, 1180 DATA ,8,8,4,4,4,7,7,4,4,4,4,4,7,8,7,7,7,7,, 1190 DATA ,7,8,8,4,7,7,4,4,4,6,6,8,8,8,7,7,7,7,, 1200 DATA 7,7,9,8,7,7,7,4,4,10,6,6,4,4,4,7,7,7,7,7, 1210 DATA 7,7,7,8,7,7,7,4,6,6,6,6,6,4,4,7,7,7,7,7, 1220 DATA ,7,7,8,8,8,8,8,6,6,5,6,6,4,4,4,7,7,7,7, 1230 DATA ,7,7,7,7,7,7,4,4,6,6,6,4,4,7,7,7,7,7,7,7 1240 DATA ,,,7,7,7,7,7,4,4,4,8,8,8,7,7,7,7,7,2,7 1250 DATA ,,,7,7,7,7,7,7,4,4,4,4,8,7,7,7,7,4,4,7 1260 DATA ,,,7,4,4,7,7,7,7,7,7,7,8,7,7,7,4,4,4, 1270 DATA ,,7,7,4,4,4,7,7,7,7,7,9,8,4,4,4,4,4,4, 1280 DATA ,,7,7,9,4,4,7,7,8,8,8,8,8,4,4,4,4,4,, 1290 DATA ,7,7,7,4,4,4,7,8,8,7,7,7,7,7,7,4,4,4,, 1300 DATA ,7,7,4,4,4,4,4,8,7,7,7,7,7,7,7,4,,,, 1310 DATA ,,4,4,4,4,4,,,,,7,7,7,7,7,7,,,, 1320 DATA ,,4,4,4,4,,,,,,,,,,,,,,, 1330 DATA ,,4,3,4,,,,,,,,,,,,,,,, 1340 DATA ,,4,4,4,,,,,,,,,,,,,,,, 1350 FOR K=0 TO12:L(22,K)=12:NEXT :L(22,33)=11 1400 DIM C$(7),D$(7) 1410 FOR K=0 TO7:READ G$:C$(K)=G$:NEXT 1420 FOR K=0 TO7:READ G$:D$(K)=G$:NEXT 1430 DATA BOOT,RUESTUNG,LANZE,SCHWERT,HARPUNE,KOMPASS,LEITER,BUCH 1440 DATA SWIM,BEEM,KILL,HELP,FILL,KLAU,ANTI,BOMB 1500 DIM H(17,12) 1510 FOR K=0 TO17:FOR I=0 TO12:READ A:H(K,I)=A:NEXT :NEXT 1520 DATA 80,48,48,48,48,48,48,48,48,48,48,48,40 1530 DATA 24,40,24,48,48,48,48,56,48,48,48,32,12 1540 DATA 28,44,12,24,48,48,40,12,24,48,48,40,12 1550 DATA 28,44,12,12,16,48,36,12,12,24,40,12,12 1560 DATA 28,44,12,20,48,48,48,36,12,12,20,36,12 1570 DATA 28,44,28,48,48,48,48,48,36,20,48,48,36 1580 DATA 28,44,12,24,48,48,48,56,56,48,48,48,40 1590 DATA 28,44,12,12,24,48,40,12,12,24,48,48,36 1600 DATA 28,44,12,12,12, 8,12,12,12,20,48,48,40 1610 DATA 20,44,20,36,12,12,12,12,20,40,24,40,12 1620 DATA 24,52,32,24,36,12,12,12,24,62,36,12,12 1630 DATA 20,48,40,12,24,52,36,12,12,12,24,52,36 1640 DATA 24,48,36,12,12,24,48,36,12,12,20,48,40 1650 DATA 20,48,40,12,12,12,24,48,36,12,24,48,36 1660 DATA 24,48,36,12,12,12,12,16,40,12,20,48,40 1670 DATA 20,48,40,12,12,12,20,48,36,12,24,40,12 1680 DATA 24,48,36,12, 4,20,48,48,48,36,12,12,12 1690 DATA 20,48,48,52,48,48,48,48,48,48,36,20,36 2000 POKE 53281,15:POKE 53280,14 2010 PRINTCHR$ (8);CHR$ (14);CHR$ (147);"{BLUE,14SPACE}DIE LEGENDE:" 2020 PRINT" ES GESCHAH VOR SEHR LANGER ZEIT IN" 2030 PRINT" EINEM KLEINEN LAND, DASS DREISTROMLAND" 2040 PRINT" GENANNT WURDE. DA RISS EIN BOESER" 2050 PRINT" DAEMON DIE MACHT AN SICH,INDEM ER DIE" 2060 PRINT" DREI FLUESSE, DIE ZUVOR DAS LAND GE-" 2070 PRINT" RECHT REGIERT HATTEN, MIT HILFE VON" 2080 PRINT" DREI GRAUSAMEN RINGEN UNTERJOCHTE." 2090 PRINT" DIE MACHT DER RINGE KANN NUR GEBROCHEN" 2100 PRINT" WERDEN, WENN SIE IN DIE HAENDE DER " 2110 PRINT" FLUESSE KOMMEN. UND ERST WENN DIES GE-" 2120 PRINT" SCHEHEN IST, KANN DER DAEMON MIT HILFE" 2130 PRINT" DER DREI FLUESSE VERTRIEBEN WERDEN." 2140 PRINT" DENN NUR DURCH DAS WASSER DER FLUESSE" 2150 PRINT" KANN DER DAEMON WEHRLOS UND NUR DURCH" 2160 PRINT" DAS WASSER DES MEERES UNSCHAEDLICH GE-" 2170 PRINT" MACHT GEMACHT WERDEN." 2180 PRINT"{2SPACE}WEITER HEISST ES, DASS DERJENIGE, DER" 2190 PRINT" DIES VOLLBRINGT, AUFS REICHSTE BELOHNT" 2200 PRINT" WERDEN WUERDE, DENN ER HAETTE DAS VOLK" 2210 PRINT" BEFREIT. ES HEISST DER LOHN BESTAENDE" 2220 PRINT" AUS ETWAS UNENDLICH KOSTBAREN AUS SEHR" 2230 PRINT" FERNEN UND NOCH IMMER GEHEIMNISUM-" 2240 PRINT" WOBENEN GEGENDEN DER ERDE. - SO LAUTET" 2250 PRINT"{14SPACE}DIE LEGENDE.{11SPACE}>>";:POKE 53265,27 2260 POKE 198,0:WAIT 198,1:GET G$:POKE 53265,11 2270 PRINT"{CLR,DOWN,BLUE,SPACE}DAS ADVENTURE-GAME{2SPACE,BLACK}D A R K{2SPACE}T O W E R{BLUE,SPACE}" 2280 PRINT" VON{2SPACE,RED}ROBERT VALENTINER{BLUE,2SPACE}BAUT AUF DIESE " 2290 PRINT" LEGENDE AUF. ZIEL DES SPIELS IST ES{4SPACE}" 2300 PRINT" DEMNACH DEN DAEMON ZU VERTREIBEN UND{3SPACE}" 2310 PRINT" DAS DREISTROMLAND ZU BEFREIEN. DAZU{4SPACE}" 2320 PRINT" VERSTEHT DER COMPUTER VERSCHIEDENE BE- " 2330 PRINT" FEHLE,DIE IM FOLGENDEN ERKLAERT WERDEN " 2340 PRINT"{RED,2SPACE}LIST - GIBT EINE UEBERSICHT UEBER" 2345 PRINT"{9SPACE}HAB UND GUT. STOPT DIE ZEIT" 2350 PRINT"{2SPACE}SAVE - SPEICHERT BISHERIGE ERFOLGE" 2355 PRINT"{9SPACE}ODER MISERFOLGE AUF BAND/DISK." 2360 PRINT"{2SPACE}EINTRETEN - DU BETRITTST EINE BURG,..."; 2370 PRINT"{2SPACE}WEGWERFEN,XY - WEGWERFEN DES GEGEN-" 2380 PRINT"{17SPACE}STANDES XY." 2390 PRINT"{2SPACE}ISS - STAERKT DICH SOLANGE DU NOCH" 2395 PRINT"{8SPACE}VERPFLEGUNG HAST." 2400 PRINT"{37SPACE}>>"; 2405 POKE 53265,27:POKE 198,0:WAIT 198,1:GET G$:POKE 53265,11 2410 PRINT"{CLR,DOWN}"; 2420 PRINT"{2SPACE}FUELLE,XY - FUELLT DEN GEGENSTAND XY" 2430 PRINT"{14SPACE}M. WASSER,FALLS VORHANDEN" 2440 PRINT"{2SPACE}LIES,XY{3SPACE}- DU LIEST Z.B. EIN BUCH." 2450 PRINT"{2SPACE}ANGREIFEN - DU GREIFST AN." 2460 PRINT"{2SPACE}ABWEHREN{2SPACE}- DU VERTEIDIGST DICH." 2470 PRINT"{DOWN,2SPACE}H-R-N-S-W-O FUER D. RICHTUNGSANGABEN{2SPACE}" 2471 PRINT"{RED}GESAGT SEI NOCH, DASS SAVE NUR{SPACE,SPACE}AUSSER-" 2472 PRINT"HALB{2SPACE}VON BURGEN, SIEDLUNGEN , ... VER-" 2473 PRINT"WENDET WERDEN KANN.{BLACK}TIP: SUCHE DIE RINGE" 2474 PRINT"{11SPACE}HINTER MAUERN ...!" 2480 PRINT"{DOWN,BLUE}WAEHREND DU SPIELST SIEHST DU LINKS OBEN"; 2490 PRINT"DEN{2SPACE}AUSSCHNITT DES{2SPACE}DREISTROMLANDES, IN"; 2500 PRINT"DEM DU DICH GERADE BEFINDEST. DER WEISSE"; 2510 PRINT"RAHMEN ZEIGT DEINE GENAUE POSITION.NEBEN"; 2520 PRINT"DEM LANDSCHAFTSAUSSCHNITT FINDEST DU DIE"; 2530 PRINT"ANZEIGE FUER VERPFLEGUNGSEINHEITEN,KRAFT"; 2540 PRINT"GOLDSTUECKE UND ANZAHL DER RINGE, DIE DU"; 2550 PRINT"BEREITS ERBEUTET HAST.DARUNTER UND UNTER"; 2560 PRINT"DER{2SPACE}EINGABEZEILE BEFINDET{2SPACE}SICH JE{2SPACE}EIN"; 2570 PRINT"AUSGABEFENSTER ZUR AUSGABE VON DATEN." 2580 PRINT"ALTES ODER NEUES SPIEL (A/N)?-";:POKE 53265,27 2590 POKE 198,0:WAIT 198,1:GET G$:IF G$<>"A"AND G$<>"N" THEN2590 2600 PRINTG$;:IF G$="N" THEN3000 2605 GOSUB 2610:GOTO 2680 2610 PRINTCHR$ (14);"{CLR,DOWN,7SPACE}KASSETTE ODER DISKETTE ?-"; 2620 GET TT$:IF TT$<>"K"AND TT$<>"D" THEN2620 2630 PRINTCHR$ (ASC (TT$)+32):PRINT 2640 PRINT"{7SPACE}FILENAME:{SPACE,DOWN}TTTTTTTTTTTTTTTT{UP,16LEFT}";:K$="" 2645 FOR K=1 TO16:POKE 198,0:WAIT 198,1:GET G$ 2650 IF G$=CHR$ (13) THENK=16:NEXT :PRINT"{HOME,11DOWN}":RETURN 2660 IF (G$<"A"OR G$>"Z")AND (G$<"A"OR G$>"Z")AND G$<>" " THENK=K-1:NEXT 2670 K$=K$+G$:PRINTG$;:NEXT :PRINT"{HOME,10DOWN}":RETURN 2680 IF TT$="K" THENOPEN 1,1,0,K$ 2685 IF TT$="D" THENK$=K$+",S,R":OPEN 1,8,2,K$ 2690 INPUT#1,X:INPUT#1,Y:INPUT#1,VE:INPUT#1,KR:INPUT#1,GE:INPUT#1,RI:INPUT#1,IR 2700 INPUT#1,T$:INPUT#1,ZB:INPUT#1,HB:INPUT#1,HA:INPUT#1,EI:INPUT#1,FO 2710 INPUT#1,AU:INPUT#1,LO:INPUT#1,AN:INPUT#1,BE:INPUT#1,G$ 2715 CLOSE 1:IF TT$="K" THEN2720 2717 OPEN 15,8,15:INPUT#15,A,G$,K,K:CLOSE 15:IF A<>0 THEN2605 2718 GOTO 2800 2720 PRINT"HABE ";CHR$ (34);G$;CHR$ (34);" GEFUNDEN." 2730 PRINT"{DOWN}WILLST DU DIESES SPIEL FORTSETZEN (J/N)?" 2740 GET G$:IF G$<>"N"AND G$<>"J" THEN2740 2750 IF G$="N" THEN2605 2800 TI$=T$:E$="{CLR}"+CHR$ (142):GOTO 20000 3000 X=17:Y=15:VE=3500:KR=100:GE=0:RI=0:TI$="000000":E$="{CLR}"+CHR$ (142):GOTO 20000 3500 IF PX=-1 THENP=1:GOTO 3520 3510 P=H(PY,PX) 3520 R$="RICHTUNGEN":POKE VC+17,11:GOSUB 3530:GOTO 3760 3530 PRINT"{CLR}":FOR K=2 TO5:PRINTTAB( K)"{BLACK}M"SPC( 35-2*K)"N":NEXT 3540 PRINT"{6SPACE}OYYYYYYYYYYYYYYYYYYYYYYYP" 3550 FOR K=1 TO8:PRINT"{6SPACE}G"SPC( 23)"M":NEXT 3560 PRINT"{6SPACE}LPPPPPPPPPPPPPPPPPPPPPPP@" 3570 FOR K=5 TO2STEP -1:PRINTTAB( K)"N"SPC( 35-2*K)"M":NEXT :IF (PAND 8)=8 THENR$=R$+"-S" 3580 IF (PAND 4)<>4 THEN3620 3590 R$=R$+"-N":PRINT"{HOME,6DOWN}","{5SPACE}PPPPPPP":PRINT,"{4SPACE}MMPPPPPNG" 3600 FOR K=1 TO6:PRINT,"{4RIGHT}MM{5SPACE}GG":NEXT :PRINT,"{4RIGHT}@N{5SPACE}ML" 3610 POKE 214,10:PRINT:PRINT,"{6RIGHT}PPPPP" 3620 IF (PAND 32)<>32 THEN3660 3630 R$=R$+"-W":PRINT"{HOME,4DOWN,SPACE}MM ":PRINT" M M" 3640 PRINT" MYP":FOR K=1 TO9:PRINT" M M":NEXT 3650 PRINT" MP@":PRINT" M{3SPACE}":PRINT" M ":PRINT" N" 3660 IF (PAND 16)<>16 THEN3700 3670 R$=R$+"-O":PRINT"{HOME,4DOWN}",,,"{4RIGHT}NG":PRINT,,,"{3RIGHT}N G" 3680 PRINT,,,"{3RIGHT}OYG":FOR K=1 TO9:PRINT,,,"{3RIGHT}G G":NEXT :PRINT,,,"{2SPACE}MLPG" 3690 PRINT,,,"{5SPACE}G":PRINT,,,"{5SPACE}G{DOWN,LEFT}M" 3700 IF (PAND 2)<>2 THEN3730 3710 R$=R$+"-H":PRINT"{HOME}":PRINT,,"{2LEFT}PPPPPPPP":PRINT,,"{LEFT,LEFT}MM-PP-NN" 3720 PRINT,,"{LEFT}MQ**WN":FOR K=1 TO7:PRINT,,"-{RIGHT,RIGHT}-":PRINT,,"Q**W":NEXT 3730 IF (PAND 1)<>1 THEN3755 3740 R$=R$+"-R":POKE 214,15:PRINT:PRINT,," LP@":PRINT,," LP@":PRINT,,"NG MM" 3750 PRINT,,"{LEFT}NNOYPMM":PRINT,,"{LEFT}YYYYYYY" 3755 RETURN 3760 F=20:IF (PAND 64)<>64 THEN3800 3770 F=21:POKE 214,15:PRINT:PRINT," PPPP":PRINT,"N{3SPACE}N":PRINT,"{LEFT}N{SPACE,2SPACE}NN" 3780 PRINT,"{2LEFT}NPPPNN":PRINT,"{3LEFT}N ==(N":PRINT,"{2LEFT}YYYY" 3790 R$=R$+";-LIES,BUCH" 3800 POKE 214,F:PRINT:PRINTR$ 3810 POKE VC+17,27:GOSUB 20410:PRINT"{5UP}" 3850 IF K$="N"AND (PAND 4)=4 THENPY=PY-1:GOTO 3500 3860 IF K$="S"AND (PAND 8)=8 THENPY=PY+1:GOTO 3500 3870 IF K$="O"AND (PAND 16)=16 THENPX=PX+1:GOTO 3500 3880 IF K$="W"AND (PAND 32)=32 THENPX=PX-1:GOTO 4000 3890 IF K$="R"AND (PAND 1)=1 THENPY=10:PX=9:GOTO 3500 3900 IF K$="H"AND (PAND 2)=2 THENPX=-1:GOTO 3500 3910 IF K$<>"LIES,BUCH" THEN4020 3920 IF (PAND 64)<>64 THENK$="":GOTO 3910 3930 ZB=255:PRINT"{CLR,DOWN,SPACE}DAS BUCH DES MAGIERS:{DOWN}" 3940 PRINT"{2SPACE}SWIM-FAEHIKEIT ZU SCWIMMEN" 3942 PRINT"{2SPACE}BEEM-ZUFAELLIGER STANDORTWECHSEL" 3943 PRINT"{2SPACE}KILL-TOETET JEDEN IN SICHTWEITE" 3944 PRINT"{2SPACE}HELP-GESPRAECHSPARTNER W. HILFSBEREIT" 3945 PRINT"{2SPACE}FILL-FUELT EINEN RAUM MIT BETON AUS" 3946 PRINT"{2SPACE}KLAU-BEWIRKT EINEN DIEBSTAL" 3947 PRINT"{2SPACE}ANTI-VERWANDELT ZU STEIN" 3948 PRINT"{2SPACE}BOMB-LAESST EXPLODIEREN" 3950 PRINT"{DOWN,SPACE}DOCH DENK DARAN: BENUTZE SIE NUR UM{DOWN}" 3960 PRINT"{13SPACE}GUTES ZU TUN !!!" 3970 FOR K=1 TO30000:NEXT 3980 H(0,0)=H(0,0)-64:PRINT"{2DOWN,SPACE}DAS BUCH LOEST SICH LANGSAM AUF..." 3990 FOR K=1 TO4000:NEXT :GOTO 3500 4000 IF PX<>0OR PY<>0 THEN3500 4005 PRINT:PRINT" DU KOMMST IN DEN RAUM DES MAGIERS, ALS{2SPACE}DIESER PLOETZLICH"; 4007 PRINT" VERSCHWINDET..."; 4010 FOR K=1 TO5000:NEXT :GOTO 3500 4020 FOR K=0 TO7:IF K$<>D$(K)OR ZB<>255 THENNEXT :GOSUB 40360:GOTO 3500 4030 IF K=0OR K=1OR K=4 THEN4100 4040 POKE VC+21,0:PRINT"{CLR,BLACK,DOWN,SPACE}DU HAST EINEN SPRUCH DES HASSES BE-" 4050 PRINT"{DOWN,SPACE}NUTZT. DU BIST DES TODES! DER MEISTER{DOWN}" 4060 PRINT" PERSOENLICH WIRD DICH RICHTEN..." 4070 FOR K=1 TO6000:NEXT :GOTO 40000 4100 IF K=1 THEN4200 4110 PRINT" DER SPRUCH ZEIGT KEINE WIRKUNG !!!";:FOR K=1 TO2000:NEXT :GOTO 3500 4200 X=INT (30*RND (0))+8:Y=INT (30*RND (0))+8 4220 IF L(Y,X)<>4AND L(Y,X)<>7 THEN4200 20000 YY=Y:XX=X:IF KR<0 THENKR=0 20010 PRINT"{HOME}";E$;:E$="" 20020 FOR K=Y-3 TOY+3 20030 FOR I=X-3 TOX+3 20040 PRINTA$(L(K,I)); 20050 NEXT :PRINT:PRINT:NEXT :PRINTB$(L(Y,X)):POKE VC+21,1 20060 PRINT"{LIG.BLUE,HOME}";:FOR K=1 TO15:PRINTTAB( 16);"-":NEXT :PRINT"{HOME}"; 20070 PRINTTAB( 18);"{RED}VERPFLEGUNG :";VE;"{LEFT,2SPACE}" 20080 PRINTTAB( 18);"KRAFT IN %{2SPACE}:";KR;"{LEFT,SPACE}" 20090 PRINTTAB( 18);"GOLD{8SPACE}:";GE;"{LEFT,SPACE}" 20100 PRINTTAB( 18);"RINGE{7SPACE}:";RI:PRINT 20300 IF RND (0)>(.1+AN)OR AT=1 THEN20400 20310 AT=1:PRINTF$:IF RND (0)>.7 THENU=1:PRINTI$:GOTO 20320 20315 PRINTH$ 20320 IF L(Y,X)<>8AND L(Y,X)<>0AND L(Y,X)<>11AND L(Y,X)<>12 THENJ$=A$:GOTO 20400 20330 J$=B$ 20400 IF AT=1 THENPRINTJ$ 20402 PRINT"{HOME,15DOWN,LIG.BLUE}****************E***********************"; 20404 IF KR=0 THEN40000 20406 IF TC=1 THEN26100 20408 GOSUB 20410:GOTO 20420 20410 PRINT"{RED}KOMMANDO :{SPACE,29SPACE,UP,10RIGHT}@{LEFT}";:K$="" 20412 POKE 198,0:WAIT 198,1:GET G$:IF G$=CHR$ (13) THENPRINT"{SPACE,BLACK}":RETURN 20414 IF ASC (G$)=20AND LEN (K$)>0 THENK$=LEFT$ (K$,LEN (K$)-1):PRINT"{SPACE,2LEFT,SPACE,LEFT}@{LEFT}";:GOTO 20412 20416 IF (ASC (G$)<65OR ASC (G$)>90)AND ASC (G$)<>44 THEN20412 20417 IF LEN (K$)>20 THEN20412 20418 PRINTG$;"@{LEFT}";:K$=K$+G$:GOTO 20412 20420 IF K$<>"N"AND K$<>"S"AND K$<>"W"AND K$<>"O" THEN20600 20425 IF U=1 THENPRINTC$:FOR K=1 TO1000:NEXT :PRINTD$:GOTO 20000 20430 KR=KR-2-HA:IF K$="N"AND Y>4 THENY=Y-1:GOTO 20500 20440 IF K$="S"AND Y<35 THENY=Y+1:GOTO 20500 20450 IF K$="W"AND X>4 THENX=X-1:GOTO 20500 20460 IF K$="O"AND X<35 THENX=X+1:GOTO 20500 20470 PRINT" DEIN BOOT IST NICHT HOCHSEETAUGLICH !{3SPACE,BLACK}DU BIST ERTRUNKEN.{BLUE}" 20480 GOTO 40000 20500 L=L(Y,X):IF L<>0AND EB=0AND L<>11AND L<>12 THENBE=0 20510 IF L=0AND (HBAND 1)=0 THENPRINT"{BLACK,SPACE}DU BIST ERTRUNKEN.{BLUE}":GOTO 40000 20520 IF L=8AND (ZBAND 1)=0 THEN30000 20530 IF L=6 THENPRINTC$:FOR K=1 TO1000:NEXT :PRINTD$:Y=YY:X=XX:KR=KR-8:GOTO 20000 20540 AN=0:IF L=4 THENAN=.15 20550 IF L<>11 THEN 20560 20553 IF BE=0 THENBE=1:GOTO 20000 20556 IF BE=2 THENBE=3:EB=1:GOTO 20000 20560 IF L=12 AND BE=1 THEN BE=2:GOTO 20000 20590 GOTO 20000 20600 IF K$="" THENPRINTC$:FOR K=1 TO1000:NEXT :PRINTD$:GOTO 20000 20605 IF AT=1 THEN23000 20610 IF K$<>"LIST" THEN20700 20620 PRINT"{HOME,4DOWN}":E$="{CLR}":T$=TI$:FOR K=0 TO7:IF (HBAND 2^K) THENPRINTTAB( 18);C$(K) 20625 NEXT :IF EI=1 THENPRINTTAB( 18);"EIMER" 20630 PRINT"{HOME,4DOWN}":FOR K=0 TO7:IF (ZBAND 2^K) THENPRINTTAB( 32);D$(K) 20635 NEXT :PRINT"{HOME,14DOWN,18RIGHT}DRUECKE EINE TASTE" 20660 POKE 198,0:WAIT 198,1:TI$=T$:GOTO 20000 20700 IF K$<>"ISS" THEN20800 20710 A=KR:KR=KR-1:VE=VE+31:FOR K=A TO100:VE=VE-31 20720 IF VE<=0 THENK=100:VE=VE+31:NEXT :GOTO 20000 20730 KR=KR+1:NEXT :GOTO 20000 20800 IF K$<>"EINTRETEN" THEN22000 20805 IF L(Y,X)=10 THEN21100 20810 IF L(Y,X)<>9AND (L(Y,X)>3OR L(Y,X)=0) THENPRINTC$:FOR K=1 TO1000:NEXT :PRINTD$:GOTO 20000 20820 IF L(Y,X)<>9 THEN21300 20822 IF GE<20 THENPRINTC$:FOR K=1 TO1000:NEXT :PRINTD$:GOTO 20000 20824 IF Y=11AND X=18 THEN40500 20830 POKE VC+21,0:E$="{CLR}":PRINT"{CLR,DOWN,SPACE}DIE SIEDLER HEISSEN DICH HERZLICHST" 20840 PRINT" WILLKOMMEN UND BIETEN DIR FOLGENDES AN" 20850 PRINT" JE 20 GOLDSTUECKE FUER:{UP}" 20860 F=0:IF L(Y,X+1)=4 THENPRINTTAB( 24);C$(0):F=1 20865 IF L(Y,X-1)=8 THENPRINTTAB( 24);"EIMER":F=2 20870 FOR K=1 TO7:PRINTTAB( 24);C$(K):NEXT :PRINTTAB( 24);"VERPFLEGUNG*1500" 20880 PRINT"{2DOWN,SPACE}DU HAST";GE;"GOLDSTUECKE.":PRINT"{DOWN,SPACE}WAS WUENSCHST DU ?-";:K$="" 20890 POKE 198,0:WAIT 198,1:GET G$:IF G$=CHR$ (13) THEN20920 20900 K=ASC (G$):IF K<65OR K>90 THEN20890 20910 K$=K$+G$:PRINTG$;:GOTO 20890 20920 IF K$="" THENGOTO 20000 20925 IF K$="EIMER"AND F=2 THENEI=1:HA=HA+1:GE=GE-20:GOTO 20000 20930 IF K$=C$(0)AND F=0 THEN20830 20940 FOR K=0 TO7:IF K$=C$(K) THENK=7:NEXT :GOTO 21030 20950 NEXT :IF LEFT$ (K$,3)<>"VER" THEN21030 20960 PRINT:PRINT" WIEVIEL ?-";:K$="" 20970 POKE 198,0:WAIT 198,1:GET G$:IF G$=CHR$ (13) THEN21010 20980 IF VAL (G$)=0AND G$<>"0" THEN20970 20990 K$=K$+G$:PRINTG$;:GOTO 20970 21010 F=VAL (K$):FOR K=1 TOF:IF GE-20>-1 THENVE=VE+1500:GE=GE-20:NEXT :GOTO 20000 21020 K=F+1:NEXT :GOTO 20000 21030 F=8:FOR K=0 TO7:IF K$=C$(K) THENF=K:K=8 21040 NEXT :IF F=8OR (HBAND 2^F) THEN20830 21050 GE=GE-20:HA=HA+1:HB=HB+2^F:GOSUB 40400:GOTO 20000 21100 IF T=1 THEN25000 21110 POKE VC+21,0:PRINT"{CLR,DOWN,SPACE,BLACK}DU HAST DIE HOEHLE DES{3SPACE}M A G I E R S " 21120 PRINT" BETRETEN,-EINES DIENERS DES DAEMONS !! " 21130 PRINT"{DOWN,2SPACE}ES GIBT KEIN ZURUECK, DENN IN DIESEM{2SPACE}" 21140 PRINT"{2SPACE}AUGENBLICK SCHLIESST SICH DIE HOHLE.{2SPACE}" 21150 PRINT"{2SPACE}ES GIBT NUR EINEN AUSWEG:{DOWN}" 21160 PRINT"{2SPACE}-EIN SCHMALER SCHACHT IM BODEN.{DOWN}":FOR K=1 TO8000:NEXT 21170 IF HBAND 64 THENH(0,0)=80:PX=-1:E$="{CLR}":GOTO 3500 21180 PRINT"{2SPACE}DA DU KEINE! LEITER MITGEBRACHT HAST{3SPACE}" 21190 PRINT"{2SPACE}LAUTET DEIN URTEIL:{DOWN}" 21200 PRINT"{2SPACE}-TOD DURCH STURZ AUS 20 METERN HOEHE{2SPACE}" 21210 PRINT"{2SPACE}ODER{DOWN}" 21220 PRINT"{2SPACE}-TOD DURCH VERDURSTEN.":GOTO 40000 21300 E$="{CLR}":L=L(Y,X)-1:IF (IRAND 2^L) THENPRINTC$:FOR K=1 TO1000:NEXT :PRINTD$:GOTO 20000 21315 IF (LOAND 2^L)=2^L THEN21800 21320 IF (AUAND 2^L)=2^L THEN21700 21330 E$="":IF L<>0 THEN21400 21340 PRINT"{SPACE,RED}DER KOENIG ERTEILT DIR DIE AUFGABE,DIE" 21350 PRINT" ERDE ZU ERFORSCHEN.":FOR K=1 TO6000:NEXT 21360 PRINT"{2UP,SPACE}DU SOLLST MIT EINEM BOOT WEIT WEG{5SPACE}" 21370 PRINT" FAHREN UND BERICHTEN WAS DU SIEHST.{3SPACE}":FOR K=1 TO6000:NEXT 21380 PRINT"{2UP,SPACE}ALS EINZIGES HILFSMITTEL GIBT DIR DER " 21385 PRINT" KOENIG EINE LEITER MIT !!!{12SPACE}":HB=HB+64:HA=HA+1:FOR K=1 TO6000:NEXT 21390 PRINT"{2UP,39SPACE}" 21395 PRINT"{39SPACE}":AU=AU+1:LO=LO+1:GOTO 20000 21400 IF L<>1 THEN21460 21405 PRINT"{RED,SPACE}ICH KOENIG DER PTOLEMAEEN GEBE DIR DIE" 21410 PRINT" AUFGABE,DIE INSEL EINMAL AUF DEM SEE-":FOR K=1 TO6000:NEXT 21420 PRINT"{2UP,SPACE}WEG ZU UMRUNDEN. STARTE BEI DER BOJE{2SPACE}" 21430 PRINT" VOR DER KUESTE. VIEL GLUECK !{9SPACE}":FOR K=1 TO6000:NEXT 21440 PRINT"{2UP,39SPACE}" 21450 PRINT"{39SPACE}":AU=AU+2:LO=LO+2:GOTO 20000 21460 PRINT"{SPACE,RED}DER KOENIG WEIGERT SICH DIR DEN RING" 21470 PRINT" FUER EINE AUFGABE ZU UEBERLASSEN":FOR K=1 TO6000:NEXT 21480 PRINT"{2UP,SPACE}ER GIBT DIR EINE MOEGLICHKEIT, DICH ZU" 21490 PRINT" RECHTFERTIGEN U. DADURCH ZU UEBERLEBEN":FOR K=1 TO6000:NEXT 21500 PRINT"{2UP,39SPACE}" 21510 PRINT"{39SPACE}" 21520 PRINT"{2UP,SPACE}DU SAGST: ";:K$="" 21530 FOR K=1 TO4 21540 POKE 198,0:WAIT 198,1:GET G$:IF ASC (G$)<65OR ASC (G$)>90 THEN21540 21545 K$=K$+G$:PRINTG$;:NEXT :PRINT:FOR K=1 TO1000:NEXT 21550 IF K$<>D$(3) THENPRINT"{SPACE,BLACK}DIE CHANCE IST VERTAN !!!":GOTO 40000 21560 PRINT"{HOME,17DOWN,39SPACE}" 21570 PRINT"{39SPACE}" 21580 PRINT"{RED,2UP,SPACE}DER KOENIG WIRD PLOETZLICH UNGEMEIN" 21590 PRINT" HILFSBEREIT UND GIBT DIR DEN RING":FOR K=1 TO6000:NEXT 21600 PRINT"{2UP,39SPACE}" 21610 PRINT"{39SPACE}" 21620 LO=LO+4:AU=AU+4:RI=RI+1:IR=IR+4:GOTO 20000 21700 PRINT"{SPACE,RED}DER KOENIG IST WUETEND,DA DU ZURUECK-" 21710 PRINT" KEHRTEST OHNE DIE AUFGABE ZU LOESEN.":FOR K=1 TO6000:NEXT 21720 PRINT"{2UP,SPACE,RED}UEBER DEIN WEITERES SCHICKSAL WIRD{2SPACE}" 21730 PRINT" DER{SPACE,BLACK}DAEMON{RED,SPACE}ENTSCHEIDEN !!!{12SPACE}":GOTO 40000 21800 IF L=2 THENPRINTC$:FOR K=1 TO1000:NEXT :PRINTD$:GOTO 20000 21805 IF (HBAND 1)<>1 THEN40300 21810 IF L<>0 THEN21980 21820 PRINT"{RED}BERICHTE MIR NUN,WELCHE AUSSAGE ZUTRIFFT"; 21830 PRINT"{SPACE,RVSON}1{RVOFF,SPACE}- ERDE,-EINE KUGEL DIE SICH DREHT." 21840 PRINT"{SPACE,RVSON}2{RVOFF,SPACE}- ERDE,-EINE SCHEIBE." 21850 PRINT"{SPACE,RVSON}3{RVOFF,SPACE}- ERDE,-KUGEL, MITTELPUNKT DES ALLS." 21860 PRINT"{SPACE,RVSON}4{RVOFF,SPACE}- ERDE,-EIN QUADRAT MIT A=20000 KM↑2" 21870 PRINT"WIR SCHREIBEN DAS JAHR 1607, EIN GROSSER"; 21880 PRINT"AUGENBLICK. GIB DIE NUMMER AN: "; 21890 POKE 198,0:WAIT 198,1:GET G$:IF VAL (G$)<1 OR VAL (G$)>4 THEN21890 21900 PRINTG$:IF VAL (G$)=(PEEK (2050)-5) THEN E$="{CLR}":RI=RI+1:IR=IR+1:GOTO 20000 21910 FOR K=1 TO2000:NEXT 21920 PRINT"{CLR,4DOWN}";:POKE VC+21,0 21930 PRINT"{BLACK,SPACE}DIE INQUISITION HAT EIN NEUES OPFER" 21940 PRINT" GEFUNDEN. DU WIRST DEIN ENDE AUF DEM" 21950 PRINT" SCHEITERHAUFEN FINDEN. NUR SO FINDEN" 21960 PRINT" KETZER IHRE GERECHTE STRAFE !!!":FOR K=1 TO2000:NEXT :GOTO 40000 21980 IF BE=3 THENRI=RI+1:IR=IR+2:LO=LO+2:GOTO 20000 21990 GOTO 21700 22000 IF LEFT$ (K$,9)<>"WEGWERFEN" THEN22500 22010 IF MID$ (K$,10,1)="," THEN22030 22020 PRINT" SYNTAX ERROR":FOR K=1 TO1000:NEXT :PRINT"{UP,13SPACE}":GOTO 20000 22030 K$=MID$ (K$,11) 22040 F=8:FOR K=0 TO7:IF K$=C$(K) THENF=K:K=8 22050 NEXT :IF F<>8AND (HBAND 2^F)<>2^F THEN20620 22060 IF F<>8 THENHA=HA-1:HB=HB-2^F:GOTO 20000 22070 IF K$="EIMER"AND EI=1 THENHA=HA-1:EI=0:FO=0:GOTO 20000 22080 IF K$="EIMER" THEN20620 22090 IF K$<>"RING" THEN22020 22100 IF IR=7AND RI>0 THEN22120 22110 PRINTC$:FOR K=1 TO1000:NEXT :PRINTD$:GOTO 20000 22120 IF L(Y,X)<>8AND L(Y-1,X)<>8AND L(Y+1,X)<>8AND L(Y,X-1)<>8AND L(Y,X+1)<>8 THEN22110 22130 F=0:IF Y<19AND X>20 THENF=2:GOTO 22160 22140 IF Y<22AND X<18 THENF=1:GOTO 22160 22150 F=4 22160 IF DDAND F THEN22110 22170 RI=RI-1:DD=DD+F:IF DD=7 THEN22200 22180 PRINT" DER FLUSS BEDANKT SICH BEI DIR.":FOR K=1 TO3000:NEXT 22190 PRINT"{UP,32SPACE}":GOTO 20000 22200 IF EI=1 THEN22260 22210 PRINT" DER FLUSS IST WUETEND, -DU NICHT DARAN" 22220 PRINT" GEDACHT EIN GEFAESS MITZUBRINGEN, UM" 22230 PRINT" WASSER ZUM DAEMON BRINGEN ZU KOENNEN." 22240 PRINT"{SPACE,BLACK}DER FLUSS KANN SEINEN ZORN NICHT ZU-" 22250 PRINT" RUECKHALTEN UND ERTRAENKT DICH !!!":FOR K=1 TO3000:NEXT :GOTO 40000 22260 POKE VC+21,0:PRINT"{CLR,RED,6DOWN,4SPACE}IM WASSER IST FOLGENDES ZU LESEN" 22270 FOR K=1 TO2000:NEXT :PRINT"{CLR}";CHR$ (14):POKE VC+21,0 22280 PRINT"DIE LEGENDE,DIE DIR VERMUTLICH GELAEUFIG" 22290 PRINT"IST, IST BEREITS VOR 764 JAHREN VERFASST" 22300 PRINT"WORDEN.SEITDEM HAT DER{SPACE,BLACK}D A E M O N{RED,SPACE}SEINE" 22310 PRINT"MACHT UM EIN VIELFACHES VERGROESSERT ..." 22320 PRINT"ER LAESST SICH ALSO NICHT MEHR SO LEICHT" 22330 PRINT"VERTREIBEN.ES IST SOGAR SO,DASS UNS KEIN" 22340 PRINT"MITTEL BEKANNT IST IHN ZU BESEITIGEN ..." 22350 PRINT"DOCH HABEN WIR GEHOERT, DASS ES IN EINER" 22360 PRINT"DER SIEDLUNGEN EINE ZEITREISE{2SPACE}764 JAHRE" 22370 PRINT"ZURUECK ZU KAUFEN GIBT. DIES SCHEINT DER" 22380 PRINT"EINZIGE WEG ZU SEIN.GEHE ALSO UND SUCHE!" 22390 PRINT"{13RIGHT}VIEL GLUECK !!!{DOWN,9RIGHT}>>";:POKE 198,0:WAIT 198,1:GET G$ 22400 PRINT"{CLR,DOWN}NOCH EINS:{2SPACE}BIST DU IN DER ZEIT DER SAGE" 22410 PRINT" ANGEKOMMEN, DANN MUSST DU VERSUCHEN IN " 22420 PRINT" DEN{SPACE,BLACK}D U N K L E N{2SPACE}T U R M{RED,SPACE}ZU KOMMEN " 22425 L(11,18)=9 22430 FOR K=1 TO8000:NEXT :PRINT"{CLR}";CHR$ (142):GOTO 20000 22500 IF K$<>"LIES,BUCH" THEN22700 22510 IF (HBAND 2^7)<>2^7 THEN20620 22520 PRINT"{CLR}";CHR$ (14):POKE VC+21,0 22530 PRINT"{RED,3SPACE}G{SHIFT-SPACE}E{SHIFT-SPACE}O{SHIFT-SPACE}R{SHIFT-SPACE}G{SHIFT-SPACE}E{SHIFT-SPACE,SHIFT-SPACE}O{SHIFT-SPACE}R{SHIFT-SPACE}W{SHIFT-SPACE}E{SHIFT-SPACE}L{SHIFT-SPACE}L{SPACE,2SPACE}1 9 8 4{3SPACE,DOWN}" 22540 PRINT"{BLACK}ES WAR EIN KLARER, KALTER TAG IM APRIL, " 22550 PRINT"UND DIE UHREN SCHLUGEN GERADE DREIZEHN, " 22560 PRINT"ALS WINSON SMITH, DAS KINN AN DIE BRUST " 22570 PRINT"GEPRESST, UM DEN RAUHEN WIND ...{8SPACE}" 22580 FOR K=1 TO9999:NEXT :PRINT 22590 PRINT" ... NUN WAR ES GUT, WAR ALLES GUT, DER " 22600 PRINT"KAMPF WAR BEENDET. ER HATTE DEN SIEG{4SPACE}" 22610 PRINT"UEBER SICH SELBST ERRUNGEN. ER LIEBTE{3SPACE}" 22620 PRINT"DEN GROSSEN BRUDER.":FOR K=1 TO9999:NEXT :PRINT"{CLR}";CHR$ (142):GOTO 20000 22700 IF K$<>"LIES,KOMPASS" THEN22800 22710 IF (HBAND 2^5)<>2^5 THEN20620 22720 PRINT" DER KOMPASS ZEIGT IN RICHTUNG NORDEN !":FOR K=1 TO3000:NEXT 22730 PRINT"{UP,39SPACE}":GOTO 20000 22800 IF LEFT$ (K$,6)<>"FUELLE" THEN22900 22810 IF MID$ (K$,8)<>"EIMER" THENPRINTC$:FOR K=1 TO1000:NEXT :PRINTD$:GOTO 20000 22820 IF L(Y,X)<>8AND L(Y-1,X)<>8AND L(Y+1,X)<>8AND L(Y,X+1)<>8AND L(Y,X-1)<>8 THEN22110 22825 FO=1 22830 PRINT" DER EIMER IST VOLL.":FOR K=1 TO1000:NEXT :PRINT"{UP,20SPACE}":GOTO 20000 22900 F=8:FOR K=0 TO7:IF K$=D$(K)AND (ZBAND 2^K) THENF=K:K=8:GOTO 22920 22910 IF K$=D$(K) THENK=8:NEXT :GOTO 20620 22920 NEXT :IF F=8 THEN23000 22930 IF F>1AND F<>3 THEN4040 22940 IF K$="SWIM" THENZB=ZB+2^F 22950 ZB=ZB-2^F:IF F=1 THEN4200 22952 PRINT" DER ZAUBERSPRUCH ZEIGT KEINE WIRKUNG.":FOR K=1 TO3000:NEXT 22954 PRINT"{UP,38SPACE}":GOTO 20000 23000 IF K$<>"ABWEHREN" THEN23100 23001 IF AT=0 THENPRINTC$:FOR K=1 TO1000:NEXT :PRINTD$:GOTO 20000 23003 C=0:IF L(Y,X)=0AND (HBAND 16)=16 THENC=C+.5:GOTO 23006 23004 IF (HBAND 8)=8 THENC=C+.5 23005 IF (HBAND 4)=4 THENC=C+1 23006 IF (HBAND 2)=2 THENC=C+1 23007 F=RND (0):IF F>.3+C*.1 THENC=0 23008 C=1:KR=KR-INT (5*F) 23010 IF U=0 THEN23050 23020 PRINT" DIE JAEGER HABEN DICH NUR UMZINGELT." 23025 PRINT" ES IST ALSO NICHTS ABZUWEHREN." 23030 FOR K=1 TO6000:NEXT :PRINT"{2UP,39SPACE}" 23040 PRINT"{39SPACE}":GOTO 20000 23050 IF C=0 THEN20000 23060 AT=0:GE=GE+INT (20*F)+1:KR=KR+INT (2.5*F) 23070 PRINT" ERFOLGREICH ABGEWEHRT,";INT (20*F)+1;"GOLDSTUECKE":FOR K=1 TO2000:NEXT 23080 PRINT"{UP,39SPACE}":GOSUB 40440:GOTO 20000 23100 IF K$<>"ANGREIFEN" THEN23200 23110 IF L(Y,X)=0AND (HBAND 16)=16 THENC=1:GOTO 23140 23120 IF (HBAND 4)=4 THENC=1 23130 IF (HBAND 8)=8 THENC=C+1 23140 IF (HBAND 2)=2 THENC=C+1 23150 F=1:IF RND (0)>(.3+C*.1) THENF=0 23160 C=F*(INT (10*RND (0)+1)):KR=KR-0^F*HA-1:IF F=0 THEN20000 23165 AT=0:U=0 23170 PRINT" ERFOLGREICH ABGESCHLOSSEN.":PRINTC;"GOLDSTUECKE":GE=GE+C 23175 FOR K=1 TO6000:NEXT 23176 PRINT"{2UP,39SPACE}" 23180 PRINT"{39SPACE}":GOSUB 40440:GOTO 20000 23200 IF K$<>"SAVE" THEN24000 23210 IF DD=0 THEN23240 23220 PRINT" NICHT MOEGLICH. DU BIST SCHON IN DER" 23230 PRINT" SCHLUSSPHASE DES SPIELS !":FOR K=1 TO5000:NEXT :E$="{CLR}":GOTO 20000 23240 POKE VC+21,0:T$=TI$:GOSUB 2610 23250 IF TT$="K" THENOPEN 1,1,2,K$:GOTO 23260 23255 K$="@:"+K$+",S,W":OPEN 1,8,2,K$ 23260 PRINT#1,X:PRINT#1,Y:PRINT#1,VE:PRINT#1,KR:PRINT#1,GE:PRINT#1,RI:PRINT#1,IR 23270 PRINT#1,T$:PRINT#1,ZB:PRINT#1,HB:PRINT#1,HA:PRINT#1,EI:PRINT#1,FO 23280 PRINT#1,AU:PRINT#1,LO:PRINT#1,AN:PRINT#1,BE:PRINT#1,K$ 23290 CLOSE 1:PRINT:PRINT"{UP,30SPACE}" 23295 PRINT"{26SPACE}":E$="{CLR}"+CHR$ (142):GOTO 20000 23395 PRINT"{26SPACE}":GOTO 20000 24000 PRINTC$:FOR K=1 TO1000:NEXT :PRINTD$:GOTO 20000 25000 POKE VC+21,0:IF TD=1 THENTX=0:GOTO 25300 25012 PRINTCHR$ (14);"{CLR,DOWN,RED,2SPACE}DU HAST DEN{2SPACE,BLACK}D U N K L E N{3SPACE}T U R M{RED,2SPACE}":POKE 198,0 25014 PRINT"{2SPACE}BETRETEN. HIER GELTEN ANDERE GESETZE{2SPACE}" 25016 PRINT"{2SPACE}ALS AUSSERHALB, DENN ES HERRSCHT DER{2SPACE}" 25018 PRINT"{2SPACE,BLACK}DAEMON{RED}. NIEMAND AUSSER{SPACE,BLACK}IHM{RED,SPACE}DARF SOG.{2SPACE}" 25020 PRINT"{2SPACE}ZAUBERSPRUECHE VERWENDEN, - VERGESSE{2SPACE}" 25022 PRINT"{2SPACE}DEINE ZAUBERSPRUECHE ODER DU BIST AM{2SPACE}" 25024 PRINT"{2SPACE}ENDE DEINER REISE ANGELANGT.BEFEHLE:{2SPACE}" 25026 PRINT"{2SPACE,BLUE}NIMM,WEGWERFEN,OEFFNE,SCHLIESSE,LIST{2SPACE}" 25028 PRINT"{2SPACE}LEEREN,DRUECKEN,VERGESSEN. ALLE BEF.{2SPACE}" 25030 PRINT"{2SPACE}BIS AUF LIST / VERGESSEN MUESSEN VON{2SPACE}" 25032 PRINT"{8SPACE}";CHR$ (34);",DING";CHR$ (34);" GEFOLGT WERDEN.":PRINT 25034 PRINT"{2SPACE,BLACK}DAEMONEN LIEBEN ES GOTT NAHE ZU SEIN{RED,2LEFT,DOWN}>>"; 25074 DIM T(3,4,4):TD=1:FOR F=0 TO4:FOR C=0 TO4:READ A:FOR K=0 TO3:T(K,F,C)=A:NEXT K,C,F 25075 DATA 24,48,56,48,40 25076 DATA 12,24,52,40,12 25077 DATA 28,44,16,28,44 25078 DATA 12,20,56,36,12 25079 DATA 20,48,52,48,36 25080 T(1,2,2)=4:T(2,2,2)=32:T(3,2,2)=8:T(1,2,0)=60 25100 T(0,2,3)=60:T(3,3,2)=60:T(2,2,1)=60:T(1,1,2)=60:KI=INT (3*RND (0)+1) 25230 GOSUB 25290:T(3,TY,TX)=T(3,TY,TX)+1:T(2,TY,TX)=T(2,TY,TX)+2 25240 GOSUB 25290:T(2,TY,TX)=T(2,TY,TX)+1:T(1,TY,TX)=T(1,TY,TX)+2 25245 GOSUB 25290:T(1,TY,TX)=T(1,TY,TX)+1:T(0,TY,TX)=T(0,TY,TX)+2 25250 GOSUB 25290:T(0,TY,TX)=T(0,TY,TX)+64 25260 GOSUB 25290:T(1,TY,TX)=T(1,TY,TX)+64 25270 GOSUB 25290:T(2,TY,TX)=T(2,TY,TX)+64 25280 GOSUB 25290:T(3,TY,TX)=T(3,TY,TX)+64:S=1:TY=2:TX=0:WAIT 198,1:GOTO 25300 25290 TX=INT (5*RND (0)):TY=INT (5*RND (0)):RETURN 25300 GET G$:PRINT"{CLR}";CHR$ (142):GOTO 25330 25320 FOR K=1 TO4000:NEXT 25325 IF TX<0 THENPRINT"{CLR}":GOTO 20000 25330 R$="":P=T(S,TY,TX):POKE VC+17,11:GOSUB 3530 25335 IF S=0AND TX=0AND TY=0 THENPRINT"{HOME,11DOWN,8RIGHT,RED}Q{BLACK}" 25340 IF (PAND 64)<>64 THEN25400 25350 POKE 214,14:PRINT:PRINT,"{RIGHT}PPPPPP":PRINT,"N{SPACE,4SPACE}NG" 25360 PRINT,"{LEFT}N{SPACE,4SPACE}N G":PRINT,"{LEFT}OYYYYP{SPACE,SPACE}G":PRINT,"{LEFT}G{SPACE,3SPACE}M N" 25370 PRINT,"{LEFT}LPPPP@N" 25380 IF (PAND 128)=128 THENPOKE 214,15:PRINT:PRINT,"{RIGHT}G":PRINT,"{RIGHT}G" 25400 IF (S<>3OR TX<>2OR TY<>2)AND (S=1OR ZB=0) THEN25430 25410 POKE VC+17,27:PRINT:PRINT"DER DAEMON HAT DICH WIE EINEN WURM ZER-" 25420 PRINT"TRETEN...";:FOR K=1 TO6000:NEXT :GOTO 40000 25430 IF TC=0 THEN25470 25440 IF VAL (TI$)<31 THEN25600 25450 POKE VC+17,27:POKE 214,21:PRINT:PRINT"DAS GEWOELBE HAT DICH" 25460 PRINT"{17SPACE}UNTER SICH BEGRABEN...";:FOR K=1 TO6000:NEXT :GOTO 40000 25470 IF HO=0OR OH=1OR S<>3OR TY<>3OR TX<>2 THEN25600 25480 POKE VC+17,27:PRINTCHR$ (34);"PASST MIR GUT AUF,DASS DER FREMDE EIN-" 25490 PRINT"DRINGLING NICHT AUF{SPACE,RED}DEN{BLACK,SPACE}KNOPF DRUECKT," 25500 PRINT"DAS WAERE UNSER ALLER ENDE...";CHR$ (34):OH=1 25510 FOR K=1 TO8000:NEXT :GOTO 25320 25600 POKE 214,21:PRINT:PRINT"{RED}";MID$ (R$,2);"/";:L=11:POKE VC+17,27:GOSUB 20410 25610 PRINT"{4UP}" 25630 IF K$="N"AND (PAND 4)=4 THENTY=TY-1:GOTO 25330 25640 IF K$="S"AND (PAND 8)=8 THENTY=TY+1:GOTO 25330 25650 IF K$="O"AND (PAND 16)=16 THENTX=TX+1:GOTO 25330 25660 IF K$="W"AND (PAND 32)=32 THENTX=TX-1:GOTO 25325 25670 IF K$="R"AND (PAND 1)=1 THENS=S-1:GOTO 25330 25680 IF K$="H"AND (PAND 2)=2 THENS=S+1:GOTO 25330 25690 IF K$<>"OEFFNE,KISTE" THEN25740 25695 IF (PAND 64)<>64 THEN25740 25700 IF (PAND 128)=128 THENPRINT"DIE KISTE IST BEREITS OFFEN.":GOTO 25320 25710 POKE 214,15:PRINT:PRINT,"{RIGHT}G":PRINT,"{RIGHT}G":POKE 214,22:PRINT:T(S,TY,TX)=P+128 25720 IF S<>KIOR HO=1 THENPRINT"{UP}DIE KISTE IST LEER.":GOTO 25320 25730 PRINT"{UP}IN DER KISTE LIEGT EIN STUECK PERGAMENT":GOTO 25320 25740 IF K$<>"NIMM,PERGAMENT" THEN25760 25745 IF (PAND 128)=0OR (PAND 64)=0OR HO=1OR S<>KI THEN25760 25750 PRINT"{DOWN,SPACE}AUF DEM PERGAMENT STEHT EIN ZAUBERWORT: HORCH";:HO=1:GOTO 25320 25760 IF K$="VERGESSEN" THENZB=0:HO=0:PRINT"DU HAST ALLE SPRUECHE VERGESSEN":GOTO 25320 25770 IF K$="SCHLIESSE,KISTE"AND (PAND 128) THENT(S,TY,TX)=P-128:GOTO 25320 25780 IF K$<>"LIST" THEN25860 25790 T$=TI$:PRINT"{CLR,2DOWN,2SPACE}LISTE UEBER HAB UND GUT:{DOWN}" 25800 FOR K=0 TO7:IF (HBAND 2^7) THENPRINT"{2SPACE}";C$(K) 25810 NEXT :IF EI=1 THENPRINT"{2SPACE}EIMER" 25820 IF HO=1 THENPRINT"{2SPACE}PERGAMENT" 25830 PRINT"{HOME,4DOWN}":FOR K=0 TO7:IF (ZBAND 2^K) THENPRINT,,D$(K) 25840 NEXT :IF HO=1 THENPRINT,,"HORCH" 25850 PRINT"{HOME,15DOWN,2SPACE}BITTE DRUECKE EINE TASTE" 25855 POKE 198,0:WAIT 198,1:TI$=T$:GOTO 25330 25860 IF LEFT$ (K$,10)<>"WEGWERFEN," THEN25900 25870 PRINT"DU WOLLTEST EIGENTLICH NUR EINEN GEGEN-":ZB=0:HB=0 25880 PRINT"STAND WEGWERFEN,BIST ABER SO GUT DRAUF" 25890 PRINT"UND WIRFST ALLES WEG;-ES VERSCHWINDET.":FOR K=1 TO6000:NEXT :GOTO 25320 25900 IF K$<>"LEEREN,EIMER" THEN25970 25905 IF FO=0 THEN26050 25910 EI=0:PRINT"BEIM AUSLEEREN DES EIMERS GLEITET ER DIR"; 25920 PRINT"PLOETZLICH AUS DEN HAENDEN UND FAELLT" 25930 PRINT"SCHEPPERND ZU BODEN...":FOR K=1 TO6000:NEXT 25940 PRINT"{3UP}SOFORT ERSCHEINT DER DAEMON,UM DICH ZU{2SPACE}"; 25950 PRINT"VERNICHTEN.ER BEKOMMT JEDOCH RASCH NASSE"; 25960 PRINT"FUESSE UND VERSCHWINDET WIMMERND.":FOR K=1 TO6000:NEXT :GOTO 25330 25970 IF K$<>"DRUECKEN,KNOPF" THEN26050 25980 IF S<>0OR TX<>0OR TY<>0 THENPRINT"HIER IST KEIN KNOPF.":GOTO 25320 26000 IF EI=1OR OH=0 THENPRINT"ER LAESST SICH NICHT DRUECKEN.":GOTO 25320 26010 PRINT"DAS GESAMTE GEWOLBE BEBT PLOETZLICH UND" 26020 PRINT"DU SPUERST,DASS ES IN EINER HALBEN MIN." 26030 PRINT"{UP}EINSTUERZEN WIRD...RENN UM DEIN LEBEN..."; 26040 FOR K=1 TO7000:NEXT :T0$=TI$:TI$="000000":TC=1:L(20,20)=0:GOTO 25330 26050 PRINT"NICHT MOEGLICH!":FOR K=1 TO1000:NEXT :GOTO 25330 26100 PRINT 26110 PRINT"{RED,SPACE}+++++ +{2SPACE}+ ++++{8SPACE}++++ +{3SPACE}+ +++" 26120 PRINT"{3SPACE}+{3SPACE}+{2SPACE}+ +{11SPACE}+{4SPACE}++{2SPACE}+ +{2SPACE}+" 26130 PRINT"{3SPACE}+{3SPACE}+{2SPACE}+ +{6SPACE,GREY1,RVSON}QR{RVOFF,RED,3SPACE}+{4SPACE}+ + + +{2SPACE}+" 26140 PRINT"{3SPACE}+{3SPACE}++++ +++{4SPACE,GREY1,RVSON}ST{RVOFF,RED,3SPACE}+++{2SPACE}+ + + +{2SPACE}+" 26150 PRINT"{3SPACE}+{3SPACE}+{2SPACE}+ +{11SPACE}+{4SPACE}+ + + +{2SPACE}+" 26160 PRINT"{3SPACE}+{3SPACE}+{2SPACE}+ +{11SPACE}+{4SPACE}+{2SPACE}++ +{2SPACE}+" 26170 PRINT"{3SPACE}+{3SPACE}+{2SPACE}+ ++++{8SPACE}++++ +{3SPACE}+ +++" 26180 PRINT"{HOME,12DOWN,20RIGHT}";LEFT$ (T0$,2);":";MID$ (T0$,3,2); 26190 PRINT":";RIGHT$ (T0$,2);"{2SPACE}ZEIT{16LEFT,2DOWN}DRUECKE EINE TASTE" 26200 POKE 198,0:WAIT 198,1:RUN 40270 30000 PRINT" ALS NICHTSCHWIMMER IST ES NICHT RATSAM{2SPACE}EIN BAD IM FLUSS ZU NEHMEN." 30010 PRINT"{SPACE,BLACK}DU BIST ERTRUNKEN.{BLUE}":GOTO 40000 40000 FOR K=1 TO8000:NEXT :POKE VC+21,0 40020 PRINT"{BLACK,CLR}":IF KR<=0 THENPRINT" DU BIST AN ENTKRAEFTUNG GESTORBEN !!!{DOWN}" 40050 PRINTTAB( 19)"OYP" 40060 PRINTTAB( 18)"O + P" 40070 PRINTTAB( 17)"O{2SPACE}-{2SPACE}P" 40080 PRINTTAB( 16)"O{7SPACE}P" 40090 PRINTTAB( 16)"GER RUHEM" 40100 PRINTTAB( 16)"G{7SPACE}M" 40110 PRINTTAB( 16)"G{2SPACE}IN{3SPACE}M" 40120 PRINTTAB( 16)"G{7SPACE}M" 40130 PRINTTAB( 16)"GFRIEDENM" 40140 PRINTTAB( 16)"G{7SPACE}M" 40150 PRINTTAB( 16)"G{7SPACE}M" 40160 PRINTTAB( 16)"GMDCVIIIM" 40170 PRINTTAB( 16)"G{7SPACE}M" 40175 PRINTTAB( 15)"D{RVSON}UUUUUUUUU{RVOFF}F" 40180 PRINTTAB( 14)"D{RVSON}UUUUUUUUUUU{RVOFF}F" 40190 PRINTTAB( 13)"D{RVSON}UUUUUUUUUUUUU{RVOFF}F" 40200 PRINTTAB( 12)"D{RVSON}UUUUUUUUUUUUUUU{RVOFF}F" 40210 PRINTTAB( 12)"{RVSON}UUUUUUUUUUUUUUUUU" 40220 PRINTTAB( 12)"{RVSON}UUUUUUUUUUUUUUUUU" 40230 PRINT"{DOWN,RED,SPACE}MOECHTEST DU NOCH MAL SPIELEN (J/N)?-"; 40240 POKE 198,0:WAIT 198,1:GET G$:IF G$<>"J"AND G$<>"N" THEN40240 40250 PRINTG$:IF G$="N" THENSYS 64738 40260 RUN 40270 40270 FOR K=1 TO(48+36*8):READ A:NEXT :GOTO 600 40300 PRINT" ICH SEHE, DU HAST KEIN BOOT BEI DIR." 40310 PRINT" DARAUS SCHLIESSE ICH, DASS DU DEINE" 40320 PRINT" AUFGABE NOCH NICHT ERFUELLT HAST. DOCH" 40330 PRINT" ICH LASSE GNADE VOR RECHT ERGEHEN UND" 40340 PRINT" VERLANGE ZUR STRAFE LEDIGLICH DIE 1/2" 40350 PRINT" DEINER VERPFLEGUNG";:FOR K=1 TO12000:NEXT :VE=INT (.5*VE):E$="{CLR}":GOTO 20000 40360 PRINT:PRINT"NICHT MOEGLICH !{10SPACE}":FOR K=1 TO1000:NEXT :RETURN 40400 IF F<>0 THEN RETURN 40410 PRINT:PRINT"{DOWN,SPACE}EIN BEWOHNER DER SIEDLUNG KOMMT VORBEI" 40420 PRINT" UND HETZT UEBER DIE ";CHR$ (34);"NUSS-SCHALE";CHR$ (34);", DIE" 40430 PRINT" DU GERADE ERWORBEN HAST !!!":FOR K=1 TO10000:NEXT :RETURN 40440 PRINT"{HOME,5DOWN}",,"{3LEFT,20SPACE}" 40450 PRINT,,"{3LEFT,22SPACE}":RETURN 40500 IF GE<200 THENPRINTC$:FOR K=1 TO1000:NEXT :PRINTD$:GOTO 20000 40510 POKE VC+21,0:PRINT"{CLR,BLUE}" 40520 PRINT" DER KOENIG HAT, NACHDEM ER KEINEN RING " 40530 PRINT" MEHR HAT,SEINE KRONE ABGELEGT UND SICH " 40540 PRINT" AUF DIE PRODUKTION VON ZEIT-MASCHIENEN " 40550 PRINT" KONZENTRIERT.{4SPACE}ER VERLANGT FUER EINE " 40560 PRINT" REISE 200 GOLDSTUECKE,{2SPACE}WOBEI ES KEINE " 40570 PRINT" ROLLE{2SPACE}SPIELT{2SPACE}WIE{2SPACE}WEIT{2SPACE}SIE{2SPACE}GEHT{2SPACE}! " 40580 PRINT"{DOWN,SPACE}NIMMST DU DAS ANGEBOT AN (J/N)?-"; 40590 POKE 198,0:WAIT 198,1:GET G$:IF G$<>"N"AND G$<>"J" THEN40590 40600 PRINTG$:IF G$="N" THENE$="{CLR}":FOR K=1 TO1000:NEXT :GOTO 20000 40605 GE=GE-200 40610 PRINT" WIEVIEL JAHRE MOECHTEST DU ZURUECK-{5SPACE}REISEN ?-";:K$="":FOR K=1 TO3 40620 POKE 198,0:WAIT 198,1:GET G$:IF G$<>"0"AND VAL (G$)=0 THEN40620 40630 PRINTG$;:K$=K$+G$:NEXT :IF K$="764" THENT=1:L(11,18)=7:FOR K=1 TO2000:NEXT :E$="{CLR}":GOTO 20000 40640 PRINT"{BLACK,DOWN,SPACE}DIE ZAHL WAR FALSCH, -DU HAST VERSAGT!":GOTO 40000
Diesen Artikel als PDF herunterladen
Diesen Artikel auf Mastodon teilen