Odyssey – Kampf mit der Wildnis
Sie sind nach einem Schiffsunglück auf einer einsamen Insel gestrandet. Finden Sie den Weg zurück in die Zivilisation und entkommen Sie dem Abenteuer Wildnis.
Odyssey ist ein deutsches Textadventure, das von Hans-Günther Schreck, einem Freund von mir, geschrieben worden ist. Hans begann mit dem Programmieren dieses Spieles, als ich gerade mit der Fertigstellung meiner »Gordon Saga 1« beschäftigt war. Ich erwähne dies an dieser Stelle, da mir Hans bei der Fertigstellung von Gordon Saga viel geholfen hat – und zwar als Testspieler. Ich beobachtete ihn stundenlang beim Spielen von Gordon Saga und machte mir Notizen, wo das Spiel zu einfach oder zu schwer war und wo es am Parser mangelte. Ich kann ein solches Testen jedem Adventure-Autor wärmstens empfehlen. Ein Adventure zu programmieren nimmt viel Zeit in Anspruch. Wer eines fertiggestellt hat, kennt meist jede Szene in- und auswendig und hat keine Lust mehr zu langem Probespielen, da man dann meist auch schon an neue Projekte denkt. Läßt man jedoch einen Bekannten, der nichts mit dem Spiel zu tun hat, einmal probespielen, so merkt man schnell, ob am Programm noch etwas zu verbessern ist. Hier ein Beispiel:
In der Handlung der Gordon Saga muß an bestimmten Stellen eine Tür geöffnet werden. Ich hatte hierzu als Syntax »ÖFFNE DIE TÜR« vorgesehen. Einige Testspieler gaben »ÖFFNE DIE TÜRE« ein und konnten nicht verstehen, warum dieser Befehl nicht verstanden wurde, da es sich bei »TÜRE« um einen offensichtlich verbreiteten Rechtschreibfehler handelt. Ich nahm im Wortschatz für »TÜR« also auch »TÜRE« auf. Ein anderer gab »MACHE DIE TÜR AUF« ein. Auch hier verbesserte ich den Parser. Nach langen Teststunden war Gordon Saga endlich fertig. Besonders ratsam ist es auch, als Testpersonen Leute herzunehmen, die zuvor noch kein Adventure gespielt haben. Dann merkt man am besten, wie gut der Parser des Spieles ist.
Die Spielhandlung
Nun aber zu »Odyssey«. Das Spiel ist komplett in Basic geschrieben, die Grafik besteht aus dem Commodore-Standardzeichensatz, ist jedoch so gut, daß man dies bei manchen Bildern einfach nicht glauben kann. Der Parser entspricht keinesfalls dem in diesem Sonderheft gesetzten Standard. Trotzdem werden ganze deutsche Sätze verstanden, was deutlich über dem Standard gewöhnlicher Abtipp-Adventures liegt.
Sie sind nach einem Schiffsunglück auf einer einsamen Insel gestrandet und müssen sich in der Wildnis herumschlagen, Raubtiere bekämpfen oder sich mit Eingeborenen herumschlagen. Dabei begegnen Sie noch vielen anderen Geheimnissen wie Schätzen oder Botschaften. Das Spiel zeichnet sich durch viel Spielwitz und Originalität aus. Mehr wird nicht verraten – einfach abtippen und spielen.
(Michael Nickles/dm) |
0 print"{clr}":poke53280,0:poke53281,0:f=2:gosub20000:poke198,0:gosub750
10 dimt$(80):dimra$(20,10):wl=3:ti$="000000"
20 rem *** gegenstaende ********************************************************
22 g$(0)=" ":g$(1)="messer":g$(2)="metallbehaelter":g$(3)="buch":g$(4)="beil"
24 g$(5)="fruechte":g$(6)="verbandszeug":g$(7)="schlangenserum"
26 g$(8)="edelsteine":g$(9)="faltboot"
36 print"{clr}"chr$(14):gosub25000
80 rem *** sprung in raum ******************************************************
90 goto1000
100 ifun=1thengoto200
101 print"{wht}"
102 zv=rnd(1):ifzv<0.5thenprint"was nun ?":goto110
103 ifzv>0.5andzv<0.80thenprint"was jetzt ?":goto110
105 print"und jetzt ?"
110 print"{down}{up}":x$="":printchr$(114)
120 getb$
125 ifza=1thenifti-d>lithent=1:r=0:p$="":goto300
127 ifb$=""then120
130 ifasc(b$)=13then198
140 ifasc(b$)=20andx$<>""then160
142 ifasc(b$)=32then150
145 ifasc(b$)<65orasc(b$)>90then120
150 x$=x$+b$:goto180
160 x$=left$(x$,len(x$)-1)
170 iflen(x$)<41andlen(x$)>37thenprint"{up}{up}"x$+chr$(114)+chr$(32):ua=1:goto120
175 goto190
180 iflen(x$)<40and ua=0 thenprint"{up}"x$+chr$(114):ua=0:goto120
185 print"{up}{up}"x$+chr$(114):goto194
190 iflen(x$)<41and ua=0 thenprint"{up}"x$+chr$(114)+chr$(20):goto194
192 print"{up}{up}"x$+chr$(114)+chr$(20):goto194
194 iflen(x$)<79then120
195 getb$:ifb$<>chr$(20)andb$<>chr$(13)then195
196 print"{up}{up}":goto130
198 iflen(x$)<39thenprint"{up}"x$+chr$(46):goto200
199 print"{up}{up}"x$+chr$(46)
200 rem *** stringzerlegung ****************************************************
210 un=0:wo=0:sz=0:t$(0)=""
217 ifx$=""andun=0thengoto713
220 forx=1tolen(x$)
230 : ifmid$(x$,x,1)<>" "andwo=0thenwo=x
235 : ifmid$(x$,x,1)=" "andwo<>0thent$(sz)=mid$(x$,wo,x-wo):wo=0:sz=sz+1:goto280
240 :ifx=len(x$)andwo<>0thent$(sz)=mid$(x$,wo,x-wo+1):sz=sz+1
270 next:goto300
280 : ift$(sz-1)="und"thenx$=right$(x$,len(x$)-x):un=1:goto300
290 goto270
300 rem *** wortanalyse ********************************************************
305 s=0:v=0:r=0:g=0:q=0
310 fori=0tosz-1
315 ift$(0)=""thengosub704:return
320 : p$=t$(i):f=asc(p$)-64
330 : onfgoto350,360,370,380,390,400,410,420,430,440,450,460,470
340 : onf-13goto480,490,500,510,520,526,545,550,560,570,580,590,600
345 next
346 ifv=0ands=0andg=0andr=0thengosub702
347 gosub800
349 return
350 rem *** a-ber
351 ifp$="ast"thens=3:goto345
352 ifp$="alles"thens=1
353 ifp$="asche"thens=7
359 goto345
360 ifp$="betrete"orp$="betritt"thenv=27
361 ifleft$(p$,4)="baum"thens=2:goto345
362 ifp$="buch"theng=3:s=10
363 ifp$="beil"theng=4
364 ifp$="behaelter"theng=2
365 ifp$="bring"thenv=3
366 ifp$="beruehre"thenv=23
367 ifp$="bild"thens=25:goto345
368 ifp$="behandle"orp$="behandele"thenv=26
369 ifp$="boot"theng=9
370 rem *** c-ber
379 goto345
380 rem *** d-ber
381 ifp$="drehe"thenv=15
382 ifp$="druecke"thenv=23
389 goto345
390 rem *** e-ber
391 ifp$="edelsteine"theng=8
395 ifp$="essen"thenv=5
396 ifp$="entzuende"thenv=25
399 goto345
400 ifp$="fahre"thenv=31
401 ifp$="fruechte"theng=5:s=11
402 ifp$="fass"thens=8
403 ifp$="felswand"thens=14
404 ifp$="fuelle"thenv=11
405 ifp$="faelle"thenv=14
406 ifp$="fuenf"thenv=29
407 ifp$="faltboot"theng=9
408 ifp$="felseninsel"thens=32
409 goto345
410 rem *** g-ber
411 ifp$="goldschale"thens=13
412 ifp$="gorilla"thens=19
413 ifp$="goetzenbild"thens=25
414 ifp$="grabe"thenv=30
415 ifp$="gehe"thenv=27
419 goto345
420 rem *** h-ber
421 ifp$="h"orp$="hinauf"thenr=5
422 if p$="hinunter"thenr=6
423 if p$="hand"thens=20
424 if p$="haenge"thenv=17
425 if p$="hinueber"theng=10
426 if p$="hangle"orp$="hangele"thenv=22
427 if p$="huette"thens=30
429 goto345
430 rem *** i-ber
431 ifp$="insel"thens=32
435 ifp$="i"orp$="inventur"thens=4
436 ifp$="iss"thenv=5
439 goto345
440 rem *** j-ber
441 ifp$="jaguar"thens=29
449 goto345
450 rem *** k-ber
451 ifp$="kiste"thens=15
459 goto345
460 rem *** l-ber
461 ifp$="liane"thens=18
465 ifp$="lege"thenv=2
466 ifp$="leere"thenv=15
467 ifp$="lies"thenv=8
469 goto345
470 rem *** m-ber
471 ifp$="messer"theng=1
472 ifp$="metallbehaelter"theng=2
473 ifp$="metallkiste"thens=11
474 ifp$="maennchen"thens=22
475 ifp$="mache"thenv=12
479 goto345
480 rem *** n-ber
481 ifp$="n"orleft$(p$,3)="nor"thenr=1
485 ifp$="nimm"thenv=1
489 goto345
490 rem *** o-ber
491 ifp$="o"orleft$(p$,3)="ost"thenr=4
492 ifp$="oeffne"thenv=7
499 goto345
500 rem *** p-ber
501 ifp$="pulver"thens=21
502 ifp$="paddele"thenv=31
509 goto345
510 rem *** q-ber
519 goto345
520 rem *** r-ber
521 ifp$="r"orp$="runter"thenr=6
522 ifp$="rutsche"thenv=24
523 ifp$="rampe"thens=26
524 ifp$="rudere"thenv=31
525 goto345
526 ifp$="spritze"thenv=32
527 ifleft$(p$,6)="spalte"thens=33
530 ifp$="s"orleft$(p$,4)="sued"thenr=2
531 ifleft$(p$,4)="sing"thenv=19
532 ifp$="schlangenserum"orright$(p$,5)="serum"theng=7
533 ifp$="schau"thens=5
534 ifp$="schale"thens=13
535 ifp$="strand"thens=6
536 ifp$="strauch"thens=12
537 ifleft$(p$,6)="schuet"thenv=9
538 ifp$="schliesse"thenv=10
539 ifp$="schuette"thenv=11
540 ifp$="schiesspulver"thens=21
541 ifleft$(p$,6)="spring"thenv=13
542 ifp$="sand"thenkg=1
543 ifp$="spinne"thens=23
544 goto345
545 rem *** t-ber
546 ifp$="tisch"thens=9
547 ifp$="toete"thenv=20
549 goto345
550 rem *** u-ber
555 if p$="untersuche"thenv=6
559 goto345
560 rem *** v-ber
561 ifp$="verbandszeug"theng=6
562 ifp$="vogelspinne"thens=23
563 ifp$="vorsprung"orp$="vorspruenge"thens=24
564 ifp$="verbinde"thenv=26
565 ifleft$(p$,7)="verlier"thenv=2
566 ifp$="verlasse"thenv=28
567 ifp$="vernichte"thenv=20
569 goto345
570 rem *** w-ber
571 ifp$="w"orleft$(p$,4)="west"thenr=3
572 ifleft$(p$,5)="warte"thenv=4
573 ifp$="wand"thens=14
574 ifp$="wildstrauch"thens=12
575 ifp$="wirf"thenv=11
576 ifp$="wende"thenv=15
577 ifp$="weg"thens=27
578 ifp$="wasser"thens=31
579 goto345
580 rem *** x-ber
589 goto345
590 rem *** y-ber
599 goto345
600 rem *** z-ber
601 ifp$="zeug"theng=6
602 ifp$="zurueck"thenv=18
603 ifp$="zeichnung"thens=25
604 ifp$="zuendschnur"thens=28
605 ifp$="zuende"thenv=25
609 goto345
700 rem *** standard-antworten *************************************************
701 print"{down}kein weg in dieser richtung !":q=1:return
702 zv=rnd(1):ifzv<0.8thenprint"{down}das verstehe ich nicht!":q=1:return
703 print"{down}was soll den d a s bedeuten ? !":q=1:return
704 print"{up}bitte eine korrekte eingabe!":r=0:q=1:goto347
705 print"{wht}{down}ok":q=1:return
706 print"{down}hier gibt es nichts mehr zu nehmen!":q=1:goto989
707 print"{down}sie haben doch nichts mehr!":q=1:goto989
708 print"{down}sie entdecken nichts besonderes.":q=1:return
709 print"{down}ist schon offen!":q=1:return
710 print"{down}ist schon zu!":q=1:return
711 print"{down}sie warten.die zeit vergeht...":q=1:return
712 print"{down}soviele sachen koennen sie nicht tragen!{up}{up}":q=1:return
713 print"{up}wieso druecken sie 'return' ohne etwas e{down}inzugeben ?":ua=0:goto100
730 r=0:s=0:v=0:g=0:q=1:return
749 rem *** standard-reaktionen ************************************************
750 getb$:ifb$<>chr$(32)then750
751 x$="":return
760 fori=0to10:ifra$(ra,i)<>""thenprint"{down}{yel}"ra$(ra,i)
761 next:return
777 zv=rnd(1):ifq=0andzv<.7thenprint"{down}das geht nicht!"
778 ifq=0andzv>.7thenprint"{down}was wollen sie denn damit bezwecken?"
779 return
790 print"{down}die kannibalen drohen sie einzuholen!!
791 li=1200:d=ti:de=1:return
792 print"{down}sie hoeren den knall einer explosion!":za=0:t=0:zu=2:ra$(14,2)=""
793 ifka=1thenprint"{down}sie haben die kannibalen in die flucht gesclagen."
794 ra$(13,2)="":ra$(15,2)="":ra$(20,2)="":ra$(12,2)="":return
800 ift=1then870
801 ifra$(12,9)<>""thenwl=1
802 ifra$(12,9)=""thenwl=3
805 ifv=1andwi>wlthengosub712:goto838
810 ifv=1andra$(ra,g)<>""thengosub705:sp$(g)=g$(g):ra$(ra,g)="":wi=wi+1:goto849
815 ifv=1andg>0andsp$(g)=g$(g)thenprint"{down}das haben sie schon!":q=1:goto899
820 ifv=1andg>0andra$(ra,g)=""thenprint"{down}hier gibt es das nicht!":q=1:goto899
825 ifv=2andg>0andsp$(g)=""thenprint"{down}das haben sie doch gar nicht!":q=1:goto899
830 ifv=2andsp$(g)=g$(g)thengosub705:ra$(ra,g)=g$(g):sp$(g)="":wi=wi-1:goto849
832 ifv=1ands=1thengosub980:q=1:ifa=1thengosub705
835 ifv=2ands=1thengosub986:q=1:ifa=1thengosub705
838 ifs=4thengosub990:q=1
840 ifv=4thengosub711:goto899
842 ifv=5andsp$(5)<>""thengoto999
843 ifv=5andsp$(5)=""thenprint"{down}sie haben nichts zu essen!":q=1:goto899
844 ifv=6ands>og orv=6ands<ugthengosub708
845 ifv=8ands=15andsp$(3)=g$(3)andra<>3thengosub3600:q=1
846 ifv=7andsp$(2)=g$(2)andg=2andra<>3thengosub3800:q=1
847 ifv=19thenprint"{down}sie singen ein lied...":q=1
848 ifv=6ands=11andsp$(5)<>""thenprint"{down}sie stellen fest,dass sie giftig sind!":q=1
849 ifsp$(9)<>""thenwl=1
850 ifsp$(9)=""thenwl=3
869 return
870 gosub730:ifde=1thenra=15:goto900
871 ifka=1thengosub790
872 ifzu=1andsp$(2)<>""thenra=12:goto900
873 ifzu=1andsp$(2)=""thengosub792
899 return
900 rem *** todesanzeigen ******************************************************
901 gosub30000
902 onragoto905,907,909,911,913,915,917,919,922,923,925,927,929,931,933,935,937
903 onra-17goto939,941,943,945,947,949
905 print"sie sind von der palme gestuerzt und
906 print"haben sich dabei das genick gebrochen!":goto30100
907 print"die fleischfressende planze hat sie
908 print"verspeist!":goto30100
909 print"der skorpion hat sie gestochen!das gift
910 print"hat sie getoetet!!":goto30100
911 print"der gorilla hat ihnen das genick ge-
912 print"brochen!":goto30100
913 print"sie sind in den sumpf gestuerzt und
914 print"erstickt!":goto30100
915 print"die fruechte waren giftig!":goto30100
917 print"die grosse,schwarze spinne hat sie
918 print"gebissen!":goto30100
919 print"der steinhagel hat sie in die tiefe
920 print"gerissen!":goto30100
922 print"sie sind in die tiefe gestuerzt!!":goto30100
923 print"die waende haben sie zerquetscht!!":goto30100
925 print"die einstuerzende treppe hat sie unter
926 print"sich begraben!":goto30100
927 print"der explodierende behaelter hat sie in
928 print"stuecke gerissen!":goto30100
929 print"das gift der schlange hat ihre atmung{down}
930 print"gelaehmt.sie sind erstickt!":goto30100
931 print"der jaguar hat sie getoetet!":goto30100
933 print"die kannibalen haben sie mit einer keule
934 print"erschlagen!":goto30100
935 print"{rght}{rght}{rght}{rght}{rght}{rght}sie sind verblutet!":goto30100ready.
980 a=0:fori=0to10
981 : ifra$(12,9)<>""thenwl=1
982 : ifwi>wlthengosub712:return
983 : ifra$(ra,i)<>""thensp$(i)=ra$(ra,i):ra$(ra,i)="":a=1:wi=wi+1
984 next:ifa=0thengoto706
985 return
986 a=0:fori=0to10
987 : ifsp$(i)<>""thenra$(ra,i)=sp$(i):sp$(i)="":a=1:wi=wi-1
988 next:ifa=0thengoto707
989 return
990 a=0:print"{down}sie haben:":fori=0to10:ifsp$(i)<>""thenprint"{yel}{down}"sp$(i):a=1
991 next:ifa=0thenprint"{yel}{down}nichts"
992 return
999 print"{wht}{down}sie essen von den fruechten!":fori=0to3000:next:ra=6:goto900
1000 printspc(9)"{grn} {gry1}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@} "
1001 printspc(9)"{CBM-M}{grn} I {gry1}{CBM-G}"
1002 printspc(9)"{CBM-M}{grn} {CBM-O}{rvon}I{CBM-*}{rvof}{CBM-*}U{rvon}{SHIFT-POUND}{rvof}{CBM-I}{CBM-POUND}U {gry1}{CBM-G}"
1003 printspc(9)"{CBM-M}{grn} {rvon}{SHIFT-POUND}U I{CBM-*}{SHIFT-POUND}U{CBM-O} U{CBM-*}{rvof} {gry1}{CBM-G}"
1004 printspc(9)"{CBM-M}{grn}{CBM-D}{rvon}KI{rvof}{CBM-C}U{brn}{rvon}{CBM-POUND}{CBM-POUND}{grn}{rvof}{CBM-*}I{CBM-C}{rvon}IJ{rvof} {gry1}{CBM-G}"
1005 printspc(9)"{CBM-M}{grn}U{rvon}J{rvof}J {brn}{rvon}{CBM-POUND}{CBM-POUND}{rvof} {grn} U{rvon}U{rvof}{CBM-V} {gry1}{CBM-G}"
1006 printspc(9)"{CBM-N}{grn} {brn}{rvon}{CBM-POUND}{CBM-POUND}{grn}{rvof} I {gry1}{CBM-G}"
1007 printspc(9)"{CBM-M}{grn} {brn}{rvon}{CBM-POUND}{CBM-POUND}{grn}{rvof} {brn} {grn}{rvon}{SHIFT-POUND}U{CBM-*}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}I{CBM-*}{gry1}{rvof}{CBM-G}"
1008 printspc(9)"{CBM-M}{brn} {rvon}{CBM-POUND}{CBM-POUND}{rvof} {grn} {rvon}UU{rvof}U{brn}{rvon}{CBM-POUND}{grn}{rvof}JP{rvon}K{gry1}{rvof}{CBM-G}"
1009 printspc(9)"{CBM-M}{grn} {brn}{rvon}{CBM-POUND}{CBM-POUND}{grn}{rvof} {CBM-C}{CBM-Y} {brn}{rvon}{CBM-POUND}{grn}{rvof} K{gry1}{CBM-G}"
1010 printspc(9)"{CBM-M}{grn} {brn}{rvon}{CBM-POUND}{CBM-POUND}{grn}{rvof} {brn}{rvon}{CBM-POUND}{grn}{rvof} {gry1}{CBM-G}"
1011 printspc(9)"{CBM-M} {grn} {brn}{rvon}{CBM-POUND}{CBM-POUND}{grn}{rvof} {orng} {grn} {brn}{rvon}{CBM-POUND}{grn}{rvof} {gry1}{CBM-G}"
1012 printspc(9)"{CBM-M}{grn} {brn} {rvon}{CBM-POUND}{CBM-POUND}{grn}{rvof} {brn}{rvon}{CBM-POUND}{grn}{rvof} {gry1}{CBM-G}"
1013 printspc(9)"{CBM-M}{orng}{CBM-I}{rvon}{CBM-U}{CBM-Y}{CBM-T} {CBM-T}{CBM-Y}{CBM-U}{rvof}{CBM-I}{CBM-O}{CBM-P}{CBM-@} {brn}{rvon}{CBM-POUND}{orng}{rvof} {gry1}{CBM-G}"
1014 printspc(9)"{CBM-M}{orng}{rvon} U U K K {CBM-T}{CBM-Y}{gry1}{rvof}{CBM-G}"
1015 printspc(9)"{CBM-M}{orng}{rvon} U J U J I {gry1}{rvof}{CBM-G}"
1016 printspc(9)"{orng} {gry1}{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}{CBM-T}{CBM-T}{CBM-T}{CBM-T} "
1019 ra=1:og=6:ug=6
1020 print"{grn}sie befinden sich am suedstrand einer unbekannten insel.
1050 gosub760
1120 print"{wht}{down}moegliche richtungen : n"
1125 gosub750
1130 gosub100
1135 ifs=5thengoto1000
1140 onrgoto2000,1160,1160,1160,1600,1160
1150 goto1300
1160 gosub701
1300 ifv=6ands=6thenprint"{down}sie untersuchen den strand.":q=1:ifr1=0thengosub1500
1399 gosub777
1400 goto1130
1500 ifr1=0thenra$(1,1)=g$(1):r1=1
1510 gosub760:return
1600 print"{down}sie sitzen auf der palme."
1610 gosub100
1620 onrgoto900,900,900,900,900,1650
1630 ifv=4thengoto1610
1640 goto900
1650 gosub705:goto1130
2000 printspc(9)"{gry1} {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@} "
2001 printspc(9)"{CBM-M}{rvon} {CBM-G} {grn}{CBM-H}{gry1} {rvof} {rvon}{CBM-J} {grn}{CBM-H}{gry1} {CBM-L}{CBM-G} B {grn}{CBM-H}{gry1} {rvof}{CBM-G}"
2002 printspc(9)"{CBM-M}{rvon} {CBM-G} {grn}{CBM-N}{gry1} {rvof}{CBM-G}{rvon}{CBM-G} {CBM-M}{grn}{CBM-N}{gry1} H G {grn}{CBM-L}{gry1} {rvof}{CBM-G}"
2003 printspc(9)"{CBM-M}{rvon} G {grn}{CBM-L}{gry1} {rvof}{CBM-H}{rvon} {CBM-N}{grn}{CBM-L}{gry1} G {CBM-H} {grn}{rvof}{CBM-K}{gry1}{rvon}{CBM-G} {rvof}{CBM-G}"
2004 printspc(9)"{CBM-M}{rvon} H {grn}{rvof}{CBM-K}{gry1}{rvon}{CBM-G}{rvof}{CBM-J}{rvon}{CBM-G} {grn}{rvof}{CBM-K}{gry1}{rvon}{CBM-M} B {grn}{rvof}{CBM-K}{gry1}{rvon} {rvof}{CBM-G}"
2005 printspc(9)"{CBM-M}{rvon} {CBM-M} {grn}{rvof}{CBM-J}{gry1}{rvon} {rvof}{CBM-K}{rvon} {grn}{rvof}{CBM-K}{gry1}{rvon}HH {grn}{rvof}{CBM-J}{gry1}{rvon}{CBM-G} {rvof}{CBM-G}"
2006 printspc(9)"{CBM-M}{rvon} {CBM-M} {grn}{rvof}{CBM-J}{gry1}{rvon} {CBM-L} {grn}{rvof}{CBM-K}{gry1}{rvon}B {CBM-G} {grn}{rvof}{CBM-G}{gry1}{rvon} {CBM-N}{rvof}{CBM-G}"
2007 printspc(9)"{CBM-M}{rvon} {CBM-M} {grn}{rvof}{CBM-H}{gry1}{rvon} {CBM-N}{CBM-G} {grn}{rvof}{CBM-K}{gry1}{rvon}{CBM-G} {CBM-M} B B{rvof}{CBM-G}"
2008 printspc(9)"{CBM-M}{rvon} {CBM-G}G {CBM-M} G{grn}{rvof}{CBM-J}{gry1}{rvon} G {CBM-H}{rvof}{CBM-G}"
2009 printspc(9)"{CBM-M}{rvon} G{CBM-G} H{CBM-L}{grn}{rvof}{CBM-J}{gry1}{rvon} H {CBM-N}{CBM-G}{rvof}{CBM-G}"
2010 printspc(9)"{CBM-M}{rvon} B {CBM-G}{CBM-M}{grn}{rvof}{CBM-J}{gry1}{rvon}{CBM-H} {CBM-M}{CBM-G} {rvof}{CBM-K}{rvon}{CBM-G}{rvof}{CBM-G}"
2011 printspc(9)"{CBM-M}{rvon} H {CBM-M} {grn}{rvof}{CBM-H}{gry1}{rvon} {CBM-G} {CBM-L} {rvof}{CBM-G}"
2012 printspc(9)"{CBM-M}{rvon} {CBM-M} Y G T {rvof}{CBM-K}{rvon} {rvof}{CBM-G}"
2013 printspc(9)"{CBM-M}{rvon} {CBM-M}{CBM-H} H {CBM-G} G Y {rvof}{CBM-G}"
2014 printspc(9)"{CBM-M}{rvon} {CBM-M}{CBM-J} B {CBM-G} H B {rvof}{CBM-G}"
2015 printspc(9)"{CBM-M}{rvon} {CBM-L}{CBM-K} G B Y {CBM-G} {rvof}{CBM-G}"
2016 printspc(9)" {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}{CBM-T}{CBM-T}{CBM-T}{CBM-T} "
2019 ra=2:og=1:ug=1
2020 print"{grn}sie stehen an einer hoheh,mit lianen be-wachsenen felswand
2030 print"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}an deren fuss eine
2040 print"grosse,fleischfressende planze waechst.
2120 print"{wht}{down}moegliche richtungen : s,w,o"
2125 gosub750
2130 gosub100
2135 ifs=5thengoto2000
2140 onrgoto2160,1000,5000,2500,2200,2160
2150 goto2165
2160 gosub701
2165 gosub777
2170 goto2130
2200 print"{down}{grn}sie sind an einer liane hinaufgeklettert.
2222 print"{up}{rght}da diese in halber hoehe riss,sind sie"
2224 print"auf die erde zurueckgefallen!
2226 print"ausgerechnet in den schlund der fleisch-fressenden planze!!
2228 print"jetzt werden sie verdaut!!!
2300 gosub750:goto900
2500 rem *** raum 2500 *********************************************************
2510 print"{grn}{down}sie stehen auf dem westlichen vorplatz einer verlassenen huette.
2520 print"am boden sind abdruecke nackter fuesse und schleifspuren zu erkennen
2530 print"{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}."
2540 print"hier scheint ein kampf stattgefunden zu haben!
2545 ra=20:og=1:ug=1
2550 gosub760
2600 print"{wht}{down}moegliche richtungen : s,w,o{down}"
2610 gosub100
2620 onrgoto2640,4000,2000,3000,2640,2640
2625 ifs=5thengoto2500
2630 goto2645
2640 gosub701
2645 gosub777
2650 goto2610
3000 printspc(9)"{brn} {gry1}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{brn} "
3001 printspc(9)"{gry1}{CBM-M}{brn}{rvon}{CBM-M} {grn}{CBM-H}{brn}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-N}{CBM-M}{CBM-N}{CBM-M}B{gry1}{rvof}{CBM-G}"
3002 printspc(9)"{CBM-M}{brn}{rvon}{CBM-M}{CBM-M}{grn}{CBM-N}{brn}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{grn}{CBM-A}{CBM-R}{CBM-R}{SHIFT-*}{CBM-S}{brn}{CBM-M}{CBM-M}{CBM-M}{CBM-N}{CBM-M}{CBM-N}{CBM-M}B{gry1}{rvof}{CBM-G}"
3003 printspc(9)"{CBM-M}{brn}{rvon}{CBM-M}{CBM-L}{grn}{CBM-L}{brn}{CBM-M}{CBM-M}{CBM-N}{CBM-M}{grn}BG{CBM-Q}FB{brn}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-N}{CBM-M}B{gry1}{rvof}{CBM-G}"
3004 printspc(9)"{CBM-M}{brn}{rvon}{CBM-N}{CBM-M}{grn}{rvof}{CBM-J}{brn}{rvon}{CBM-M}{CBM-M}{CBM-N}{CBM-M}{grn}{CBM-Q}{CBM-G}{SHIFT-+}{SHIFT-*}{CBM-W}{brn}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-N}{CBM-M}B{gry1}{rvof}{CBM-G}"
3005 printspc(9)"{CBM-M}{brn}{rvon}{CBM-M}{CBM-N}{grn}{rvof}{CBM-J}{brn}{rvon}{CBM-M}{CBM-M}{CBM-N}{CBM-N}{grn}B.BQB{brn}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-N}{CBM-M}B{gry1}{rvof}{CBM-G}"
3006 printspc(9)"{CBM-M}{brn}{rvon}{CBM-M} {grn}{rvof}{CBM-H}{brn}{rvon}{CBM-M}{CBM-M}{CBM-M}{CBM-N}{grn}{CBM-Z}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-X}{brn}{CBM-M}{CBM-N}{CBM-M}{CBM-M}{CBM-M}{CBM-N}{CBM-M}B{gry1}{rvof}{CBM-G}"
3007 printspc(9)"{CBM-M}{brn}{rvon}{CBM-M} {CBM-G}{CBM-M}{CBM-N}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-N}{CBM-M}{CBM-M}{CBM-M}{CBM-N}{CBM-M}B{gry1}{rvof}{CBM-G}"
3008 printspc(9)"{CBM-M}{brn}{rvon}{CBM-M} {rvof}{SHIFT-POUND}{gry1}{CBM-A}{CBM-S} {brn} {wht}{rvon}{SHIFT-POUND}V{rvof}{SHIFT-POUND}{brn}{rvon}{SHIFT-POUND}{CBM-M}{CBM-M}{SHIFT-@}{SHIFT-@}{SHIFT-@}{CBM-M}{CBM-N}{CBM-M}B{gry1}{rvof}{CBM-G}"
3009 printspc(9)"{CBM-M}{brn}{rvon}{SHIFT-@}{rvof}{SHIFT-POUND} {gry1}JK {wht} {brn}{rvon}{SHIFT-POUND}{SHIFT-@}{SHIFT-@}{SHIFT-@}{CBM-Y}{CBM-U}{CBM-Y}L{SHIFT-@}{CBM-M}B{gry1}{rvof}{CBM-G}"
3010 printspc(9)"{CBM-M}{brn}{rvon} {CBM-J}{CBM-H} {CBM-J}{CBM-H} UY{CBM-@} {CBM-@}TUMB{gry1}{rvof}{CBM-G}"
3011 printspc(9)"{CBM-M}{brn}{rvon} U {CBM-J}{CBM-H} U {CBM-J}{CBM-H} H {wht}X{brn} G M{gry1}{rvof}{CBM-G}"
3012 printspc(9)"{CBM-M}{brn}{rvon} {CBM-J} I {CBM-J} U Y{CBM-@} {CBM-@}TI {gry1}{rvof}{CBM-G}"
3013 printspc(9)"{CBM-M}{brn}{rvon}I {CBM-J} {CBM-J} {CBM-M}{CBM-@}{CBM-T}{CBM-@}{CBM-H} {gry1}{rvof}{CBM-G}"
3014 printspc(9)"{CBM-M}{brn}{rvon} U I {CBM-T} U {gry1}{rvof}{CBM-H}"
3015 printspc(9)"{brn} {gry1}{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}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{brn} "
3019 ra=3:og=10:ug=8
3020 print"{grn}die huette scheint vor kurzem noch bewohnt gewesen zu sein.
3022 print"auf dem boden steht ein fass.
3024 gosub760
3120 print"{wht}{down}moegliche richtungen : w"
3125 gosub750
3130 gosub100
3135 ifs=5thengoto3000
3140 onrgoto3160,3160,2500,3160,3160,3160
3150 goto3300
3160 gosub701
3300 ifv=6ands=8thenprint"{down}es enthaelt schiesspulver.":q=1
3310 ifv=6ands=9andsp$(2)=""andsp$(3)=""thengosub3500
3320 ifv=6ands=10andr3=1thenprint"{down}es ist ein tagebuch.":q=1
3350 ifv=8ands=10andr3=1thengosub3600
3360 ifv=7ands=8thengosub3700
3375 ifv=7andg=2andr3=1thengosub3800
3380 ifv=11ands=21andra=3andof=1andob=1andg=2thengosub705:gosub3900:pa=1
3385 ifv=10ands=8andof=0thengosub710
3387 ifv=10andg=2andob=0thengosub710
3390 ifv=10ands=8andof=1thengosub705:of=0
3391 ifv=10andg=2andob=1thengosub705:ob=0
3392 ifv=6ands=9andq=0thengosub708:goto3130
3399 gosub777
3400 goto3130
3500 ifr3=0thenra$(3,3)=g$(3):ra$(3,2)=g$(2):r3=1
3505 print"{down}auf dem tisch liegen verschiedene sachen{up}"
3510 gosub760:q=1:return
3600 print"{down}als letzte eintragung finden sie:{down}
3602 print"...ich muss mich vor den wilden in acht
3604 print"nehmen.es sind wahrscheinlich kannibalen
3606 print"falls sie mich erwischen,ist nicht nur
3608 print"meine ganze forschungsarbeit umsonst
3610 print"gewesen,sondern ich kann auch nicht
3612 print"rechtzeitig am treffpunkt sein...
3620 q=1:return
3700 ifof=0andsa=1thengosub705:of=1:return
3703 ifof=0andsa=0thenprint"{down}im fass ist ein skorpion!er springt":of=1:goto3710
3705 ifsa=1andof=1thengosub709:return
3710 sa=1:print"ihnen auf die hand!!":gosub750:d=ti:li=2700:za=1:gosub100
3730 ifv=9ands=20then3740
3735 goto900
3740 print"{down}der skorpion faellt zu boden und laeuft
3750 print"weg.":za=0:q=1:return
3800 ifob=1thengosub709:return
3802 ifob=0thenprint"{down}der behaelter enthaelt eine zuendschnur":ob=1
3810 ifpa=1andob=1thenprint"und schiesspulver.
3830 q=1:return
3900 print"{down}pulver ist im behaelter.":q=1:return
4000 printspc(9)"{gry1} {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@} "
4001 printspc(9)"{CBM-M}{grn} {CBM-*}{rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{gry1}{rvof}{CBM-G}"
4002 printspc(9)"{CBM-M}{grn} {CBM-*}{rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{gry1}{rvof}{CBM-G}"
4003 printspc(9)"{CBM-M}{grn} {rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{gry1}{rvof}{CBM-G}"
4004 printspc(9)"{CBM-M}{grn} {CBM-*}{rvon}{CBM-+}{brn}{CBM-K}B{gry1}{rvof}{CBM-G}"
4005 printspc(9)"{CBM-M}{grn} {brn}{rvon}{CBM-K}B{gry1}{rvof}{CBM-G}"
4006 printspc(9)"{CBM-M}{grn} {brn}{rvon}{CBM-J}G{gry1}{rvof}{CBM-G}"
4007 printspc(9)"{CBM-N}{grn} {brn}{rvon}{CBM-J}G{gry1}{rvof}{CBM-G}"
4008 printspc(9)"{CBM-M}{grn} {brn}{rvon}{CBM-H}T{gry1}{rvof}{CBM-G}"
4009 printspc(9)"{CBM-N}{grn} {gry3} {brn}{rvon}{CBM-G}T{gry1}{rvof}{CBM-G}"
4010 printspc(9)"{CBM-N}{grn} {orng} {gry3} {gry1}{CBM-POUND}{CBM-POUND}{CBM-POUND}{grn} {gry3} {brn}{rvon}{CBM-G}T{gry1}{rvof}{CBM-G}"
4011 printspc(9)"{CBM-N}{grn} {gry2}{rvon}{CBM-B}{rvof}{CBM-B}{gry1}{CBM-+}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-+}{rvon}{CBM-B}{gry2}{rvof}{CBM-B}{grn} {gry3} {wht} {brn}{rvon} {CBM-G}{gry1}{rvof}{CBM-G}"
4012 printspc(9)"{CBM-M}{grn}{rvon} U I I I {gry1}{rvof}{CBM-G}"
4013 printspc(9)"{CBM-M}{grn}{rvon} I U U K I U {gry1}{rvof}{CBM-G}"
4014 printspc(9)"{CBM-M}{grn}{rvon} U U J I U I {gry1}{rvof}{CBM-G}"
4015 printspc(9)" {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}{CBM-T}{CBM-T}{CBM-T}{CBM-T} "
4019 ra=4:og=7:ug=7
4020 print"{grn}vor ihnen liegt ein verlassener lager-
4030 print"platz.in der feuerstelle befindet sich
4040 print"asche.
4080 gosub760
4120 print"{wht}{down}moegliche richtungen : n{down}"
4122 gosub750
4125 ifaa=0thengosub4600
4130 gosub100
4135 ifs=5thengoto4000
4140 onrgoto2500,4160,4160,4160,4160,4160
4150 goto4300
4160 gosub701
4300 ifv=6ands=7andr4=0thenra$(4,4)=g$(4):r4=1:q=1:gosub760
4499 gosub777
4500 goto4130
4600 print"{down}ein gorilla erscheint auf der lichtung.
4610 print"er rollt auf dem boden herum und macht
4620 print"maennchen!":aa=1
4630 gosub100:ifv=12ands=22thengoto4700
4635 ifv=20ands=19thengoto900
4637 ifr=1thenprint"{down}der gorilla versperrt ihnen den weg."
4640 print"{down}der gorilla hat aufgehoert und schaut
4650 print"sie grimmig an!
4670 gosub100:ifv=12ands=22thengoto4700
4680 goto900
4700 print"{down}der gorilla tippt sich an den kopf und
4710 print"verschwindet wieder im dschungel.":return
5000 printspc(9)"{grn} {gry1}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{grn} "
5001 printspc(9)"{gry1}{CBM-M}{brn}{rvon} {rvof}{CBM-Y}{CBM-U}{rvon}{CBM-O}{CBM-P}{CBM-O}{CBM-I}{rvof}{CBM-U}{CBM-Y}M{CBM-P} {grn} {gry1}{CBM-G}"
5002 printspc(9)"{CBM-M}{brn}{rvon} {grn}{rvof}{CBM-T}{CBM-Y}{CBM-U}M EFRN M{brn} {gry1}{CBM-G}"
5003 printspc(9)"{CBM-M}{brn}{rvon} {CBM-U}{rvof}{CBM-I}{CBM-O}{CBM-I}{CBM-I}{rvon}{CBM-U}{CBM-Y}{CBM-Y}{CBM-U}{rvof}{CBM-P}{CBM-@}{grn}{CBM-T}EDF{CBM-F} {gry1}{CBM-G}"
5004 printspc(9)"{CBM-M}{brn}{rvon} {CBM-@}{CBM-P}{CBM-O}{CBM-I}{CBM-I}{rvof}{CBM-Y}{CBM-U}{rvon}{CBM-P} {CBM-@}{CBM-P}{CBM-O}{CBM-I}{rvof}{CBM-Y}{grn}{CBM-J}{orng} {gry1}{CBM-G}"
5005 printspc(9)"{CBM-M}{brn}{rvon} {grn}{rvof} {yel} {grn} {CBM-K} {yel} {grn} {gry1}{CBM-G}"
5006 printspc(9)"{CBM-M}{brn}{rvon}{CBM-M}{yel}{rvof}HTGG{grn} {lgrn} {grn}{CBM-K} {yel}Y TY{gry1}{CBM-G}"
5007 printspc(9)"{CBM-M}{brn}{rvon} {yel}{rvof}BBBH {grn} {lgrn} {grn}{CBM-J} {yel}HYBBB{gry1}{CBM-G}"
5008 printspc(9)"{CBM-M}{brn}{rvon} {yel}{rvof}BHGB {grn} {CBM-G} {yel}HBBBB{gry1}{CBM-G}"
5009 printspc(9)"{CBM-M}{brn}{rvon}{CBM-M}{yel}{rvof}BBBBB{orng} {grn}{CBM-G}{orng} {yel}BBBBB{gry1}{CBM-G}"
5010 printspc(9)"{CBM-M}{brn}{rvon} {gry1}{rvof}{CBM-I}{rvon}{CBM-U}{CBM-U}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-T}{CBM-T}{CBM-T} {CBM-T}{CBM-T}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-U}{CBM-U}{rvof}{CBM-I}{CBM-O}{CBM-G}"
5011 printspc(9)"{CBM-M}{brn}{rvon} {gry1} {rvof}{CBM-G}"
5012 printspc(9)"{CBM-M}{brn}{rvon} {gry1}{rvof}{CBM-U}{rvon}{CBM-I}{CBM-I}{CBM-O}{CBM-O}{CBM-O}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-O}{CBM-O}{CBM-O}{CBM-I}{CBM-I}{rvof}{CBM-U}{CBM-Y}{CBM-G}"
5013 printspc(9)"{CBM-M}{brn}{rvon}{CBM-M}{grn}{rvof} {gry1}{CBM-G}"
5014 printspc(9)"{CBM-M}{brn}{rvon} {grn}{rvof} {gry1}{CBM-H}"
5015 printspc(9)"{CBM-M}{brn}{rvon} {grn}{rvof} {gry1}{CBM-G}"
5016 printspc(9)"{grn} {gry1}{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}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{grn} "
5019 ra=5:og=1:ug=1
5020 print"{grn}sie befinden sich am fuss eines baumes. noerdlich von ihnen liegt ein 6
5030 print"{left}{left}{left}{left}{left}{left}{left}{left}meter breiter,mit schilf bewachsener sumpf.
5040 print"an der mitte eines astes haengt eine liane mitten ueber dem sumpf.
5050 gosub760
5120 ifsc=0thenprint"{wht}{down}moegliche richtungen : o"
5122 ifsc=1thenprint"{wht}{down}moegliche richtungen : n,o"
5125 gosub750
5130 gosub100
5135 ifs=5thengoto5000
5140 onrgoto5600,5160,5160,2000,5160,5160
5150 goto5300
5160 gosub701
5300 ifv=13then900
5310 ifbu=0ands=2andsp$(4)<>""andv=14thengosub5700
5320 ifbu=1ands=18andv=11thengosub5710
5499 gosub777
5500 goto5130
5600 ifsc=1then5720
5610 goto5160
5700 print"{down}sie haben pech!der baum faellt entlang
5702 print"{down}des ufers.der ast mit der liane steht
5704 print"{down}senkrecht in die luft.":bu=1:q=1
5705 print"{down}das beil ist zerbrochen .":sp$(4)="":wi=wi-1
5706 return
5710 print"{down}die liane verfaengt sich im schilf!":sc=1:q=1:goto5122
5720 print"{down}geschafft!sie sind auf der anderen seite
5730 print"{down}{up}die liane ist aber abgerissen.":gosub750:goto6000
6000 printspc(9)"{grn} {gry1}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{grn}{gry1}"
6002 printspc(9)"{gry1}{CBM-M}{grn} {gry1}{CBM-G}"
6003 printspc(9)"{CBM-N} {gry1}{grn} {gry1}{CBM-G}"
6004 printspc(9)"{CBM-M}{grn} {rvon}{CBM-+}{rvof}{CBM--} {gry1}{CBM-G}"
6005 printspc(9)"{CBM-M}{grn} {CBM-POUND}{CBM-+}{rvon} {rvof}{CBM-+} {rvon}{CBM-POUND}{rvof}{CBM-POUND} {gry1}{CBM-G}"
6006 printspc(9)"{CBM-M}{grn} {yel}Q{grn} {rvon}{CBM-+}{CBM-POUND}{CBM--}{rvof} {CBM--}{yel}Q{grn} {gry1}{CBM-G}"
6007 printspc(9)"{CBM-M}{grn} {CBM-POUND}{rvon}{CBM-POUND}{CBM--}{CBM-POUND}{yel}{rvof}Q{grn}{rvon}{CBM--}{rvof}{CBM-POUND}{CBM-POUND} {gry1}{CBM-G}"
6008 printspc(9)"{CBM-M}{grn} {CBM--} {rvon}{CBM-+}{CBM-POUND}{CBM--}{CBM-POUND}{rvof} {CBM--} {gry1}{CBM-G}"
6009 printspc(9)"{CBM-M}{grn} {yel}Q {grn}{rvon}{CBM-POUND}{CBM-POUND}{yel}{rvof}Q{grn}{rvon}{CBM-+}{CBM--}{CBM-POUND}{rvof} {yel}Q{grn} {gry1}{CBM-G}"
6010 printspc(9)"{CBM-M}{grn} {rvon}{CBM-+}{rvof} {rvon}{CBM--}{CBM-+}{CBM-POUND}{rvof} {rvon}{CBM--}{rvof}{CBM-POUND} {gry1}{CBM-G}"
6011 printspc(9)"{CBM-M}{grn} {rvon}{CBM--}{rvof} {yel}Q{grn}{rvon}{CBM--}{CBM--}{CBM--}{rvof}{CBM-POUND} {CBM--} {gry1}{CBM-G}"
6012 printspc(9)"{CBM-M}{grn} {yel}Q{grn} {rvon}{CBM-+}{CBM--}{rvof} {CBM--}{yel}Q{grn} {gry1}{CBM-G}"
6013 printspc(9)"{CBM-M}{grn} {CBM-+}{rvon}{CBM-POUND}{CBM-+}{rvof} {yel}Q{grn} {gry1}{CBM-G}"
6014 printspc(9)"{CBM-M}{brn}{rvon}{CBM-Y}{CBM-T}U I{CBM-T}{CBM-Y}{CBM-U}{CBM-Y}{CBM-T}U I{CBM-T}{CBM-Y}{CBM-U}{CBM-U}{CBM-Y}{gry1}{rvof}{CBM-G}"
6015 printspc(9)"{CBM-M}{brn}{rvon} J U I K {gry1}{rvof}{CBM-G}"
6016 printspc(9)"{CBM-M}{brn}{rvon} K U I J {gry1}{rvof}{CBM-G}"
6017 printspc(9)"{brn} {gry1}{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}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{brn} "
6019 ra=6:og=12:ug=11
6020 print"{grn}sie stehen vor einem wildstrauch.
6030 gosub760
6120 print"{wht}{down}moegliche richtungen : w,o"
6130 gosub100
6135 ifs=5thengoto6000
6140 onrgoto6160,6160,7000,8000,6160,6160
6150 goto6300
6160 gosub701
6300 ifv=6ands=12thenra$(6,5)=g$(5):gosub760:q=1
6499 gosub777
6500 goto6130
7000 printspc(9)"{gry1} {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@} "
7001 printspc(9)"{CBM-M}{blu} {grn} {gry1}{CBM-G}"
7002 printspc(9)"{CBM-M}{blu} {grn} {blu} {orng}{CBM-@}{CBM-P}RF{gry1}{CBM-G}"
7003 printspc(9)"{CBM-M}{blu} {grn} {blu} {orng}{CBM-@}RF{SHIFT-*}CDE{CBM-T}{grn} {gry1}.{grn} {gry1}{CBM-G}"
7004 printspc(9)"{CBM-M}{orng}{CBM-@}RF{SHIFT-*}CDE{CBM-T}{gry1}.{orng} {blu} {gry1}.{blu} {gry1}.{blu} {gry1}.{blu} {gry1}.{blu} {grn} {gry1}{CBM-G}"
7005 printspc(9)"{CBM-M}.{grn} {gry1}.{gry3} {gry1}.{orng} {gry3} {orng} {gry3} {gry1}.{gry3} {gry1}.{gry3} {gry1}.{gry3} {gry1}{CBM-G}"
7006 printspc(9)"{CBM-M}{grn} {gry1}.{grn} {gry3} {grn} {gry1}.{gry3} {gry1}.{gry3} {grn} {gry1}.{grn} {gry1}.{grn} {gry1}{CBM-G}"
7007 printspc(9)"{CBM-M}{grn} {gry3} {gry1}.{gry3}{rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND}{grn} {gry1}. {grn} {gry1}.{grn} {gry1}{CBM-G}"
7008 printspc(9)"{CBM-M}{grn} {gry1} {gry3} {gry1}.{grn} {gry3}O{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{rvon} {rvof} {grn} {gry1}.{grn} {gry1} .{CBM-G}"
7009 printspc(9)"{CBM-M}{grn} {gry1}.{grn} {orng} {gry3}{CBM-H} {red}{SHIFT-+}{gry3} {rvon} {grn}{rvof} {gry1}.{grn} {gry1}.{grn} {gry1}{CBM-G}"
7010 printspc(9)"{CBM-M}{gry3} {gry1} {grn} {gry3}L{CBM-P}{CBM-P}{CBM-P}{CBM-P}{SHIFT-POUND}{grn} {gry1}.{grn} {gry1}.{grn} {orng}{CBM-@}{CBM-P}{CBM-O}{gry1}{CBM-G}"
7011 printspc(9)"{CBM-M}{orng} {gry1}.{orng} {gry1}.{orng} {gry1}.{orng}{CBM-@}{CBM-P}{CBM-O}{CBM-I}{rvon}{CBM-U}{CBM-T}{CBM-T} . {gry1}{rvof}{CBM-G}"
7012 printspc(9)"{CBM-M}{orng} {CBM-@}{CBM-P}{CBM-O}{CBM-I}{rvon}{CBM-U}{CBM-Y}{CBM-Y} . . . {gry1}{rvof}{CBM-G}"
7013 printspc(9)"{CBM-M}{orng}{rvon} . . . . . {gry1}{rvof}{CBM-G}"
7014 printspc(9)"{CBM-M}{orng}{rvon} . . . . {gry1}{rvof}{CBM-G}"
7015 printspc(9)" {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}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{orng} "
7019 ra=7:og=1:ug=1
7020 print"{grn}sie sind an der westkueste der insel.
7030 print"am strand steht eine an land geschwemmte
7040 print"{up}metallkiste.
7050 gosub760
7120 print"{wht}{down}moegliche richtungen : o"
7125 gosub750
7130 gosub100
7135 ifs=5thengoto7000
7140 onrgoto7160,7160,7160,6000,7160,7160
7150 goto7300
7160 gosub701
7300 ifv=7ands=15andok=1thengosub709
7310 ifv=7ands=15andok=0thengosub7600:ok=1:q=1
7320 ifv=10ands=15andok=0thengosub710
7330 ifv=10ands=15andok=1thengosub705:ok=0
7340 ifv=15ands=15andvs=0thengoto7700
7350 ifs=23andv=20andok=1andvs=0thengoto900
7360 ifs=23andvs=0andv=11andok=1andkg=1thengosub7800:q=1
7499 gosub777
7500 goto7130
7600 ifvs=0thenprint"{wht}{down}auf dem inhalt der kiste sitzt eine "
7610 ifvs=0thenprint"grosse,schwarze vogelspinne!":return
7620 gosub705:ok=1:return
7700 print"{down}der inhalt und die spinne fallen heraus.
7702 print"{up}die vogelspinne krabbelt an ihrem bein
7710 print"hoch!!":d=ti:li=500:za=1:gosub100:goto900
7800 print"{down}die spinne laeuft davon!":vs=1
7810 ra$(7,6)=g$(6):ra$(7,7)=g$(7):gosub760:return
8000 printspc(9)"{orng} {gry1}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{orng} "
8001 printspc(9)"{gry1}{CBM-M}{rvon} {rvof}{CBM-N}{rvon} {CBM-M} {CBM-G} {CBM-M} {CBM-G} {rvof}{CBM-G}"
8002 printspc(9)"{CBM-M}{rvon} {rvof}{CBM-L}{rvon} Y {gry2}JK{gry1} G {CBM-G} {CBM-H} G {rvof}{CBM-G}"
8003 printspc(9)"{CBM-M}{rvon} G HB {CBM-L} T{CBM-L}{CBM-G} B {rvof}{CBM-G}"
8004 printspc(9)"{CBM-M}{rvon} B {SHIFT--} {CBM-G} {gry2}JK{gry1} {CBM-B} G{CBM-M}{CBM-K} {CBM-M} {rvof}{CBM-G}"
8005 printspc(9)"{CBM-M}{rvon} T{CBM-G} B B B {CBM-H} Y {rvof}{CBM-G}"
8006 printspc(9)"{CBM-M}{rvon} {CBM-M}{CBM-G}{CBM-B} {CBM-J} H {gry2}JK{gry1} {rvof}{CBM-K}{rvon} G H {rvof}{CBM-G}"
8007 printspc(9)"{CBM-M}{rvon} {CBM-N}{CBM-J} B{CBM-H} {CBM-M}{CBM-H} H {rvof}{CBM-G}"
8008 printspc(9)"{CBM-M}{rvon} {CBM-L}{CBM-H} Y{CBM-J} {gry2}JK{gry1} {CBM-K} G {rvof}{CBM-G}"
8009 printspc(9)"{CBM-M}{rvon} {rvof}{CBM-K}{rvon}{CBM-G} {CBM-L}{CBM-G} {CBM-M} T {rvof}{CBM-G}"
8010 printspc(9)"{CBM-M}{rvon} {rvof}{CBM-J}{rvon} G {gry2}JK{gry1} {CBM-G} T {rvof}{CBM-G}"
8011 printspc(9)"{CBM-M}{rvon} B {CBM-G} HG {CBM-H} {rvof}{CBM-G}"
8012 printspc(9)"{CBM-M}{rvon} G {CBM-N}{CBM-G} {gry2}JK{gry1} {SHIFT--}B {CBM-H}{CBM-G}{rvof}{CBM-G}"
8013 printspc(9)"{CBM-M}{rvon} G {CBM-N}{CBM-B} {CBM-M} {gry2}JK{gry1} G{rvof}{CBM-K}{rvon}{CBM-M} {CBM-G}{rvof}{CBM-G}"
8014 printspc(9)"{CBM-M}{rvon} T Y G {rvof}{CBM-K}{rvon} {CBM-G}{CBM-M}{CBM-M} G{rvof}{CBM-G}"
8015 printspc(9)"{CBM-M}{rvon} {CBM-G} H {rvof}{CBM-J}{rvon} {rvof}{CBM-J}{rvon} {CBM-M}{CBM-G} {rvof}{CBM-N}{rvon} B{rvof}{CBM-G}"
8016 printspc(9)" {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}{CBM-T}{CBM-T}{CBM-T}{CBM-T} "
8019 ra=8:og=1:ug=1
8020 print"{grn}sie stehen vor einer felswand mit
8030 print"spalten ,an der fusstritte sind.
8050 gosub760
8120 print"{wht}{down}moegliche richtungen : w,hinauf"
8130 gosub100
8135 ifs=5thengoto8000
8140 onrgoto8160,8160,6000,8160,8600,8160
8150 goto8299
8160 gosub701
8299 gosub777
8300 goto8130
8600 iffh=1thengoto9000
8602 iffh=0thenprint"{down}{wht}sie steigen die wand hinauf.
8610 iffh=0thenprint"{down}ploetzlich kommt von oben ein hagel von
8620 iffh=0thenprint"felsbrocken auf sie zu!!":fh=1:d=ti:li=3600:za=1
8625 gosub100
8630 ifs=33thenprint"{down}der steinhagel faellt an ihnen vorbei!":goto8650
8640 goto900
8650 za=0:gosub100
8660 ifv=18thengosub705:goto8700
8665 ifv=13thengoto8680
8670 goto8650
8680 ra=9:goto900
8700 print"{down}sie stehen wieder in der wand."
8710 gosub100
8720 onrgoto8730,8730,8730,8730,9000,8000
8725 goto8735
8730 gosub701
8735 gosub777
8740 goto8710
9000 printspc(9)"{grn} {gry1}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{grn} "
9001 printspc(9)"{gry1}{CBM-M}{gry3} {gry2}{rvon}{SHIFT-POUND}N//NN / /N N {gry1}{rvof}{CBM-G}"
9002 printspc(9)"{CBM-M}{gry3} {gry2}{rvon}{SHIFT-POUND}NFDD{CBM-Y}DDC{CBM-P}N N {gry1}{rvof}{CBM-G}"
9003 printspc(9)"{CBM-M}{gry3} {gry2}{rvon}F{CBM-Y} {CBM-P}{CBM-I}{CBM-O}{CBM-P} {CBM-B} N {gry1}{rvof}{CBM-G}"
9004 printspc(9)"{CBM-M}{gry3} {gry2}{rvon}{SHIFT-POUND} {rvof}O {blu} Y {wht}{CBM--}{gry2}{CBM-C}{rvon} G N{gry1}{rvof}{CBM-G}"
9005 printspc(9)"{CBM-M}{gry3} {gry2}{CBM-D}{rvon} {rvof}{CBM-V} {blu} T{gry2} {wht}{CBM-Z}L{gry2}{CBM-L}{rvon} H N {gry1}{rvof}{CBM-G}"
9006 printspc(9)"{CBM-M}{gry3} {gry2}{rvon}{CBM-H} {CBM-L}{rvof} {blu}{CBM-M}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{gry2}{rvon} {CBM-G}N {gry1}{rvof}{CBM-G}"
9007 printspc(9)"{CBM-M}{gry3} {gry2}{rvon} {rvof} {blu}/ {yel}{rvon}{SHIFT-POUND}X{rvof}{SHIFT-POUND}M{gry2}{rvon}{CBM-J} B /{gry1}{rvof}{CBM-G}"
9008 printspc(9)"{CBM-M}{gry3} {gry2}{CBM-M}{rvon} {CBM-L}{yel}{rvof} {blu}/ {yel}{rvon}{SHIFT-POUND}{CBM-T}{CBM-T}{CBM-*}{rvof}N{gry2}{CBM-N}{rvon} H / {gry1}{rvof}{CBM-G}"
9009 printspc(9)"{CBM-M}{lred} {gry2}{CBM-L}{rvon} {rvof}{CBM-K}{yel} {blu}/ {gry2}{rvon} {CBM-M}/ {gry1}{rvof}{CBM-G}"
9010 printspc(9)"{CBM-M}{lred} {gry2}{CBM-L}{rvon} {rvof}{CBM-J}{yel} {blu}/{gry1} {gry2}{rvon}{CBM-H} {CBM-G} {gry1}{rvof}{CBM-G}"
9011 printspc(9)"{CBM-M}{lred} {gry2}{rvon}{CBM-K} {rvof}{CBM-G}{blu}/{gry1} {blu} {gry2} {rvon}{CBM-J} {CBM-H} /{gry1}{rvof}{CBM-G}"
9012 printspc(9)"{CBM-M}{lred} {gry2}{rvon}{CBM-K} {blu}{rvof}/{gry1} {blu} {gry2} {rvon}{CBM-K} G/ {gry1}{rvof}{CBM-G}"
9013 printspc(9)"{CBM-M}{rvon}{SHIFT-POUND}, . , , . , . ,{rvof}{CBM-G}"
9014 printspc(9)"{CBM-M}{rvon}. , . , . , . {rvof}{SHIFT-POUND}{CBM-G}"
9015 printspc(9)"{CBM-M}{rvon} . , . . , {rvof}{SHIFT-POUND} {CBM-G}"
9016 printspc(9)" {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}{CBM-T}{CBM-T}{CBM-T}{CBM-T} "
9019 ra=9:og=1:ug=1
9020 print"{grn}sie stehen vor dem eingang einer hoehle
9050 gosub760
9120 print"{wht}{down}moegliche richtungen : n,o,runter"
9130 gosub100
9135 ifs=5thengoto9000
9140 onrgoto10000,9160,9160,11000,9160,8000
9150 goto9299
9160 gosub701
9299 gosub777
9300 goto9130
10000 printspc(9)"{gry1} {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
10001 printspc(9)"{CBM-M}{blu} {wht} {CBM-G}{blu} {CBM-N} {gry1}{CBM-G}"
10002 printspc(9)"{CBM-M}{wht}{rvon}{CBM-POUND}{CBM-POUND}{rvof} {rvon}{CBM-POUND}{CBM-POUND}{rvof} B {blu}{CBM-M}{wht} {gry1}{CBM-G}"
10003 printspc(9)"{CBM-M}{blu} {wht}{rvon}{SHIFT-POUND} {CBM-*}{blu}{rvof} {wht}{CBM-G}{blu} {wht} {blu} {CBM-N} {gry1}{CBM-G}"
10004 printspc(9)"{CBM-M}{wht} M N B {blu}{CBM-M}{wht} {gry1}{CBM-G}"
10005 printspc(9)"{CBM-M}{wht}{CBM-G} {rvon}{CBM-R}{CBM-R}{CBM-R}{blu}{rvof} {wht}{CBM-G}{blu} {wht} {blu} {CBM-N} {gry1}{CBM-G}"
10006 printspc(9)"{CBM-M}{wht}{SHIFT--}{gry1}{CBM-M}{wht}{rvon}{CBM-E}{CBM-E}{CBM-E}{rvof} B{blu} {wht} {blu} {CBM-N} {wht} {gry1}{CBM-G}"
10007 printspc(9)"{CBM-M}{wht}{CBM-M}N M{CBM-G} {blu}{CBM-M}{wht} {gry1}{CBM-G}"
10008 printspc(9)"{CBM-M}{blu} {wht}EF{blu} {wht}FE{yel} {CBM-I}DE{CBM-T}{CBM-T}ED{CBM-I}{blu} {yel} {blu}{CBM-N}{yel} {gry1}{CBM-G}"
10009 printspc(9)"{CBM-M}{blu} {wht}{CBM-T}{blu} {yel} MEDCCDEN{blu} {yel} {blu}{CBM-N} {gry1}{CBM-G}"
10010 printspc(9)"{CBM-M}{blu} {yel} M{CBM-P}{CBM-@}{CBM-@}{CBM-P}N {blu} {yel} {blu}{CBM-N} {gry1}{CBM-G}"
10011 printspc(9)"{CBM-M}{blu}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{yel}{rvon}{SHIFT-POUND} {rvof}L {SHIFT-@}{rvon} {rvof}{SHIFT-POUND}M{blu}{CBM-P}{SHIFT-@} {gry1}{CBM-G}"
10012 printspc(9)"{CBM-M}{blu} {yel} {rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND} M{blu} M {gry1}{CBM-G}"
10013 printspc(9)"{CBM-M} {blu} {yel} {rvon}{SHIFT-POUND}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-*}{rvof} M{blu} M{gry1}{CBM-G}"
10014 printspc(9)"{CBM-M}{blu} {yel} {rvon}{SHIFT-POUND} ZZW WZZ {CBM-*}{blu}{rvof} {yel} N{blu} {gry1}{CBM-G}"
10015 printspc(9)"{CBM-M}{blu} {yel} {rvon}{SHIFT-POUND} W {CBM-*}{rvof}N{blu} {gry1}{CBM-G}"
10016 printspc(9)"{CBM-M} {CBM-G}"
10017 printspc(9)"{blu} {gry1}{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}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{blu} "
10019 ra=10:og=13:ug=13
10020 print"{grn}sie stehen in einem goetzentempel.
10030 print"auf dem altar befindet sich eine schale
10040 print"aus gold.
10100 gosub760
10120 print"{wht}{down}moegliche richtungen : s{down}"
10125 gosub750
10130 gosub100
10135 ifs=5thengoto10000
10140 onrgoto10160,9000,10160,10160,10160,1160
10150 goto10300
10160 gosub701
10300 ifv=6ands=13thengosub10600
10310 ifv=1andsp$(8)<>""andwa=0thengosub10700
10499 gosub777
10500 goto10130
10600 ifr8=0thenprint"{down}die schale enthaelt edelsteine.
10610 ifr8=0thenra$(10,8)=g$(8):gosub760:r8=1
10620 q=1:return
10700 ifwa=0thengosub10705
10702 q=1:return
10705 print"{down}der alter beginnt im boden zu verschwin-
10710 print"{up}den.vor den ausgang schiebt sich eine
10720 print"mauer!die waende beginnen sich auf ein-
10730 print"ander zu zubewegen!!":wa=1:d=ti:li=2400:za=1
10740 print"{down}moegliche richtungen: keine
10750 print"{down}sie sind gefangen!
10760 gosub100
10770 onrgoto10790,10790,10790,10790,10790,10790
10780 goto10800
10790 gosub701
10800 ifv=23ands=25thengoto10900
10805 ift=1thengoto900
10810 gosub777
10820 goto10760
10900 za=0:t=0
10910 print"{down}die waende gehen zurueck.der ausgang istfrei!":goto10120
11000 printspc(9)"{grn} {gry1}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@} "
11001 printspc(9)"{CBM-M}{grn}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P} {gry1}{CBM-G}"
11002 printspc(9)"{CBM-M}{grn} NM {gry1}{CBM-G}"
11003 printspc(9)"{CBM-M}{orng}I{grn} {orng}U U{grn} {orng}J{grn} N {gry2} {grn}M {gry1}{CBM-G}"
11004 printspc(9)"{CBM-M}{grn} {orng}U {grn} {orng}U{grn} N {gry2} {grn} M {gry1}{CBM-G}"
11005 printspc(9)"{CBM-M}{orng}XXXXXXXX{gry1}{CBM-P}{CBM-P}{grn} M {gry1}{CBM-G}"
11006 printspc(9)"{CBM-M}{grn} {gry1} N{CBM-H}{grn} M {gry1}{CBM-G}"
11007 printspc(9)"{CBM-M}{grn} {gry1}N{grn} {gry1}L{CBM-P}{grn} M {gry1}{CBM-G}"
11008 printspc(9)"{CBM-M}{grn} {gry1} N{grn} {gry1}/{grn} {gry1}N{CBM-H}{grn} M {gry1}{CBM-G}"
11009 printspc(9)"{CBM-N}{orng}XXXX{grn} {gry1} N{grn} {gry1}/{grn} {gry1}N{grn} {gry1}L{CBM-P}{grn} M{gry1}{CBM-G}"
11010 printspc(9)"{CBM-N}{orng}I{grn} N{gry1}{CBM-Y}P /{grn} {gry1}N{grn} {gry1}/ N{CBM-H}{grn} {gry1}{CBM-G}"
11011 printspc(9)"{CBM-N}{grn} {orng}U{grn}N{wht} {gry2} {gry1}{CBM-N}/ N /{grn} {gry1}N L{CBM-P}{grn} {gry1}{CBM-G}"
11012 printspc(9)"{CBM-N}{grn} N{lblu} {grn} {gry2} {grn} {gry1}{CBM-Y}P /{grn} {gry1}N / N{CBM-H}{grn} {gry1}{CBM-G}"
11013 printspc(9)"{CBM-N}{grn}N{gry1} {lblu} {grn} {gry2} {grn} {gry1}{CBM-M}/ N / N{grn} {gry1}L{CBM-P}{grn} {gry1}{CBM-G}"
11014 printspc(9)"{CBM-N}{grn} {gry2} {grn} {gry1}{CBM-Y}P / N / N{CBM-H}{grn} {gry1}{CBM-G}"
11015 printspc(9)"{CBM-M}{grn} {gry2} {grn} {gry1}{CBM-N}/ N{grn} {gry1}/{grn} {gry1}N{grn} {gry1}L{grn} {gry1}{CBM-G}"
11016 printspc(9)"{grn} {gry1}{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}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{grn} "
11019 ra=11:og=1:ug=1
11020 print"{grn}vor ihnen fuehrt eine treppe auf einer
11021 print"schraegen rampe nach unten.
11050 gosub760
11120 print"{wht}{down}moegliche richtungen : w,runter"
11125 gosub750
11130 gosub100
11135 ifs=5thengoto11000
11136 ifv=24ands=26andr=6thengoto11500
11137 ifv=11andg=8andsp$(8)<>""andr=6thengosub705:gosub11450
11138 ifv=11andr=6org<>0andr=6thenr=0
11140 onrgoto11160,11160,9000,11160,11160,11400
11150 goto11299
11160 gosub701
11299 gosub777
11300 goto11130
11400 print"{down}sie gehen die treppe hinunter.
11410 print"{down}ploetzlich beginnt die treppe unter
11420 print"{down}ihnen einzustuerzen!!
11430 d=ti:li=600:za=1:gosub100
11435 ifv=13thenza=0:t=0:goto11500
11440 goto900
11450 sp$(8)="":ra$(18,8)=g$(8):wi=wi-1:r=0:return
11500 rem *** raum 11500 *******************************************************
11519 ra=18:og=1:ug=1
11520 print"{grn}{down}{down}sie befinden sich am fuss der treppe.
11530 print"ein pfad verlaeuft nach norden.
11550 gosub760
11600 print"{wht}{down}moegliche richtungen : n{down}"
11610 gosub100
11620 onrgoto12000,11640,11640,11640,11640,11640
11625 ifs=5thengoto11500
11630 goto11645
11640 gosub701
11645 gosub777
11650 goto11610
12000 printspc(9)"{orng} {gry1}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{orng} "
12001 printspc(9)"{gry1}{CBM-M}{orng} {grn}{CBM-B}{rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-B}{rvof}{CBM-B}{orng} {gry1}{CBM-G}"
12002 printspc(9)"{CBM-M}{grn}{rvon}{CBM-B}{CBM-B}{rvof}{CBM-POUND}{rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvof}{CBM-POUND}{rvon}{CBM-B}{rvof}{CBM-B}{CBM-B}{orng} {gry1}{CBM-G}"
12003 printspc(9)"{CBM-M}{grn} {CBM-B}{rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-B}{CBM-B}{rvof} {gry1}{CBM-G}"
12004 printspc(9)"{CBM-M}{grn}{rvon}{CBM-B}{CBM-+}{rvof}{CBM--}{rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvof}{CBM--}{rvon}{CBM-+}{rvof}{CBM-B}{CBM-B} {gry1}{CBM-G}"
12005 printspc(9)"{CBM-M}{grn}{CBM-B}{rvon}{CBM-B}{CBM-B}{CBM-B}{brn}{CBM-K}{grn}{rvof}{CBM-B}{brn}{CBM-K}{grn}{CBM-B}{CBM-B}{CBM-B} {gry1}{CBM-G}"
12006 printspc(9)"{CBM-M}{grn} {CBM-B}{rvon}{CBM-B}{rvof} {CBM-B}{brn}{rvon}B{grn}{CBM-B}{rvof} {CBM-B}{rvon}{CBM-B}{rvof}{CBM-B} {gry1}{CBM-G}"
12007 printspc(9)"{CBM-M}{grn} {brn}{rvon}{CBM-J}B{CBM-L}{grn}{rvof} {gry1}{CBM-G}"
12008 printspc(9)"{CBM-M}{grn} {brn}{rvon}{CBM-J}B{CBM-L}{grn}{rvof} {orng} {gry1}{CBM-G}"
12009 printspc(9)"{CBM-M}{grn} {brn}{rvon}{CBM-J}B{CBM-L}{grn}{rvof} {gry1}{CBM-G}"
12010 printspc(9)"{CBM-M}{orng}{CBM-@}{grn} {brn}{rvon}{CBM-J}G{CBM-L}{grn}{rvof} {gry1}{CBM-G}"
12011 printspc(9)"{CBM-M}{orng}{CBM-T}{CBM-Y}ED{brn}{rvon}{CBM-H}G{CBM-M}{orng}{rvof}CDE{CBM-Y}EDC{SHIFT-*}FRFCD{gry1}{CBM-G}"
12012 printspc(9)"{CBM-M}{grn} {brn}{rvon}{CBM-H}T{CBM-N}{grn}{rvof} {gry1}{CBM-G}"
12013 printspc(9)"{CBM-M}{orng}{rvon} {CBM-T}{CBM-Y}{CBM-T}. .{CBM-T}{CBM-Y}{CBM-U}{rvof}{CBM-I}{CBM-O}{CBM-I}{rvon}{CBM-U}{rvof}{CBM-I}{CBM-O}{CBM-I}{rvon}{CBM-U}{CBM-Y}{gry1}{rvof}{CBM-H}"
12014 printspc(9)"{CBM-M}{orng}{rvon} . . . . .{gry1}{rvof}{CBM-G}"
12015 printspc(9)"{CBM-M}{orng}{rvon} . . . . {gry1}{rvof}{CBM-G}"
12016 printspc(9)"{grn} {gry1}{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}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{orng} "
12019 ra=12:og=1:ug=1:we=0
12020 print"{grn}hier steht ein baum der seltenen gattung
12030 print"{up}'zypressus jacaranda'.
12050 gosub760
12120 print"{wht}{down}moegliche richtungen : n,s,o"
12125 gosub750
12130 gosub100
12135 ifs=5thengoto12000
12137 ifv=29ands=2andr=3thengosub12400:r=0
12140 onrgoto17000,11500,12160,13000,12160,12160
12150 goto12200
12160 gosub701
12200 ifv=30andwe=1andma=1thengosub12500
12299 gosub777
12300 goto12130
12400 print"{down}sie stehen fuenf schritte westlich des
12410 print"baumes.":q=1:we=1:return
12500 print"{down}sie legen ein faltboot frei.":ra$(12,9)=g$(9):wl=1:gosub760
12510 q=1:return
13000 printspc(9)"{orng} {gry1}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{orng} "
13001 printspc(9)"{gry1}{CBM-M} {CBM-G} {CBM-G}"
13002 printspc(9)"{CBM-M} {CBM-P}{CBM-P}{SHIFT-@} {brn} {gry1}{CBM-G}"
13003 printspc(9)"{CBM-M}{CBM-M}M {CBM-T}DF{CBM-P}{CBM-@} {brn} {gry1} {brn} {gry1}{CBM-G}"
13004 printspc(9)"{CBM-M}{CBM-M} {CBM-T}DF{CBM-@} {brn}UDI{gry1}{CBM-@} {brn} {gry1}{CBM-G}"
13005 printspc(9)"{CBM-M}{orng} {gry1}{CBM-G}{orng} {gry1}{CBM-G}{orng} {gry1}E{brn}/{yel} {brn} /{gry1} {CBM-T}EDCFR{CBM-@}{CBM-@}{CBM-G}"
13006 printspc(9)"{CBM-M} G{orng} {gry1}T{orng} {brn}/{yel} {brn}/{gry1}{CBM-Y}DCFR{CBM-P}{CBM-@} {CBM-T}{CBM-G}"
13007 printspc(9)"{CBM-M}{orng} {gry1}B{orng} {gry1}G{orng} {brn}/{grn} {brn}/ {gry1}{CBM-G}{orng} {gry1}{CBM-Y}ED{CBM-G}"
13008 printspc(9)"{CBM-M}{orng} {gry1}Y{orng} {gry1}B{brn}/{grn} {brn}/ {pur} {gry1}T{brn} {orng} {gry1}T{orng} {gry1}{CBM-G}"
13009 printspc(9)"{CBM-M}{orng} {gry1}{CBM-M}{orng} {brn}/{grn} {brn}/ {gry1}T{orng} {gry1}T{orng} {gry1}{CBM-G}"
13010 printspc(9)"{CBM-M}{gry2}ED{brn}UDI/{orng} {brn} {gry1}G{brn} {orng} {gry1}G{orng} {gry1}{CBM-H}"
13011 printspc(9)"{CBM-M}{orng} {brn}JRK{gry2}EF{CBM-P}RFC{SHIFT-*}DEDCFRFC{gry1}{CBM-G}"
13012 printspc(9)"{CBM-M}{brn} {gry2}.{brn} {gry2}.{brn} {gry2}.{brn} {gry2}. .{gry1}{CBM-G}"
13013 printspc(9)"{CBM-M}{brn} {gry2}.{brn} {gry2}.{brn} {gry2}.{brn} {gry1}{CBM-G}"
13014 printspc(9)"{CBM-M}{brn} {gry2}. {brn} {gry2}.{brn} {gry2}.{brn} {gry2}.{brn} {gry2} .{gry1}{CBM-H}"
13015 printspc(9)"{CBM-M}{brn} {gry2}.{brn} {gry2}.{brn} {gry2}.{brn} {gry1}{CBM-G}"
13016 printspc(9)"{orng} {gry1}{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}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{orng} "
13017 ifsh=0thenprint"{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}"
13018 ifsh=0thenprintspc(17)"{yel}X{down}{left}{left}{grn}UK{down}{left}{left}{left}UK{down}{left}{left}{left}UK{down}{down}{down}{down}{down}{down}{down}{down}{down}"
13019 ra=13:og=1:ug=1
13020 print"{grn}sie stehen vor einem baumstamm,der quer
13030 print"ueber einer schlucht liegt.
13050 gosub760
13120 print"{wht}{down}moegliche richtungen : w,o"
13125 gosub750
13130 gosub100
13135 ifs=5thengoto13000
13140 onrgoto13160,13160,12000,13500,13160,13160
13150 goto13200
13160 gosub701
13200 ifsh=0andv=2ands=11andra$(13,5)=g$(5)thengosub13400:q=1
13210 ifsh=0andv=20thengoto13600
13299 gosub777
13300 goto13130
13400 print"{down}die schlange frisst von den fruechten.{down}
13410 print"sie kruemmt sich,verliert den halt und
13420 print"faellt in die schlucht!":sh=1:ra$(13,5)="":return
13500 ifsh=1thengoto14000
13510 goto13600
13600 print"{down}die auf dem baumstamm liegende schlange
13601 print"hat sie gebissen!!
13605 za=1:li=2000:d=ti:gosub100
13610 ifv=32thengosub777:print"{down}sie haben keine spritze!":goto13605
13620 goto900
14000 printspc(9)"{gry1} {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@} "
14001 printspc(9)"{CBM-M}{grn} {wht}{rvon}{SHIFT-POUND} {CBM-*}{grn}{rvof} {gry1}{CBM-G}"
14002 printspc(9)"{CBM-M}{grn} {gry1}/M{grn} {gry2}N{wht} {CBM-T}{CBM-T}{grn} {gry2}M{grn} {gry2} {grn} {gry1}/{CBM-G}"
14003 printspc(9)"{CBM-N}{grn} {gry1}/{grn} {gry1}M{gry2}N{grn} {gry2}MNM{grn} {gry1}/{grn} {gry1}{CBM-G}"
14004 printspc(9)"{CBM-N}{grn} {gry1}/{grn} {gry2}N{grn} {gry2}N {grn} {gry2}M{gry1}/{grn} {gry1}{CBM-G}"
14005 printspc(9)"{CBM-N}/{grn} {gry2}N{grn} {gry2}N{grn} {gry2}M{grn} {gry1}{CBM-H}"
14006 printspc(9)"{CBM-N}{grn}CFR{CBM-O}RFCFR{CBM-P}{CBM-@}{gry2}N{grn} {CBM-@}{CBM-P}RCDCR{gry1}{CBM-H}"
14007 printspc(9)"{CBM-N}{grn} {CBM-@}FD{CBM-T} {CBM-T}{CBM-Y}{CBM-T}ECR{CBM-@} {gry1}{CBM-H}"
14008 printspc(9)"{CBM-N}{grn}{CBM-@}{CBM-P}{CBM-I}{CBM-O}{CBM-I}{CBM-O}{CBM-P}{CBM-@}{CBM-@}{CBM-P}{CBM-@}{CBM-P}{CBM-O}{CBM-I}{rvon}{CBM-U}{CBM-U}{CBM-Y}{CBM-U}{rvof}{CBM-I}{CBM-O}{gry1}{CBM-H}"
14009 printspc(9)"{CBM-N}{grn} {CBM-T} {orng} NM {grn} {gry1}{CBM-H}"
14010 printspc(9)"{CBM-N}{grn} {orng} {grn} {orng}N M{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{gry1}{CBM-G}"
14011 printspc(9)"{CBM-N}{grn} {orng}N{grn} {orng}Q{grn} {orng}Q{grn} {orng}Q{gry1}{CBM-G}"
14012 printspc(9)"{CBM-N}{grn} {orng}N{grn} {orng}Q Q{grn} {orng}Q{grn} {orng}Q{grn} {gry1}{CBM-G}"
14013 printspc(9)"{CBM-N}{grn} {orng} N{grn} {orng}{rvon}{CBM-B}{grn}{rvof} {wht} {orng}{rvon}{CBM-B}{wht}{rvof} {orng}Q{grn} {orng} Q{gry1}{CBM-G}"
14014 printspc(9)"{CBM-N}{grn} {orng} N{grn} {orng}{rvon}{CBM-B}{rvof} {rvon}{CBM-B}{rvof} {CBM-P}{CBM-P}{CBM-P}{CBM-P}{gry1}{CBM-G}"
14015 printspc(9)"{CBM-M}{grn} {orng}N{grn} {orng} {grn} {orng}Q{grn} {orng}M{grn} {gry1}{CBM-G}"
14016 printspc(9)" {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}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{grn} "
14019 ra=14:og=27:ug=27
14020 print"{grn}hier teilt sich der weg.ein breiter weg
14030 print"mit vielen fussabdruecken fuehrt nach
14040 print"sueden,ein schmaler pfad nach osten.
14050 gosub760
14120 print"{wht}{down}moegliche richtungen : s,w,o"
14125 gosub750
14130 gosub100
14135 ifs=5thengoto14000
14140 onrgoto14160,15000,13000,14500,14160,14160
14150 goto14200
14160 gosub701
14200 ifv=6ands=27thengosub14400
14210 ifv=25andg=2orv=25ands=28thengosub14450
14299 gosub777
14300 goto14130
14400 print"{down}auf dem boden liegt ein glimmendes stue-ck holz!":q=1:return
14450 ifsp$(2)=""thenprint"{down}sie haben das nicht!":q=1:return
14460 gosub705:print"die zuendschnur brennt!"
14465 ifpa=0thenprint"{down}es ist aber kein pulver darin."
14470 ifpa=1thenq=1:za=1:d=ti:li=3600:zu=1
14480 return
14500 ra=19:og=1:ug=1
14520 print"{grn}{down}{down}sie stehen auf einer waldlichtung.
14550 gosub760
14600 print"{wht}{down}moegliche richtungen : s,w{down}"
14606 gosub750
14607 ifle=0thengoto14950
14608 ifle=1thenprint"{down}auf dem boden liegt ein toter jaguar."
14610 gosub100
14620 onrgoto14640,16000,14000,14640,14640,14640
14625 ifs=5thengoto14520
14630 goto14849
14640 gosub701
14849 gosub777
14850 goto14610
14950 print"{down}ein jaguar taucht auf die lichtung auf.
14951 print"{down}{down}er greift sie an!!":za=1:d=ti:li=3600:le=1
14952 gosub100
14953 ifv=20ands=29andsp$(1)<>""andg=1then14960
14954 ra=14:goto900
14960 print"{down}geschafft!aber der jaguar hat ihnen die
14961 print"{down}pulsadern der linken hand aufgerissen!"
14962 print"{down}sie drohen zu verbluten!!":d=ti
14963 gosub100
14964 ifv=26andg=6andsp$(6)<>""thengosub705:goto14970
14965 gosub777:fori=0to3000:next
14966 ra=16:goto900
14970 print"{down}die blutung kommt zum stillstand.sie sind gerettet!":za=0:goto14610
15000 printspc(9)"{yel} {gry1}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@} "
15001 printspc(9)"{CBM-M}{grn} {gry1}{CBM-G}"
15002 printspc(9)"{CBM-M}{grn} {gry1}{CBM-G}"
15003 printspc(9)"{CBM-M}{grn} {gry1}{CBM-G}"
15004 printspc(9)"{CBM-M}{grn} {gry1}{CBM-G}"
15005 printspc(9)"{CBM-M}{grn} {gry1}{CBM-G}"
15006 printspc(9)"{CBM-M}{grn} {gry2}AAA{yel}NM{gry2}AAAAAA{yel}NM{gry2}AAA{grn} {gry1}{CBM-G}"
15007 printspc(9)"{CBM-M}{grn} {gry2}ABB{yel}N {grn} {yel}M{gry2}BBBB{yel}N{grn} {yel}M{gry2}BBA{gry1}{CBM-G}"
15008 printspc(9)"{CBM-M}{grn} {gry2}AB{grn} {yel}N {grn} {yel}M{grn} {yel} PEEO{grn} {gry2}B{gry1}{CBM-G}"
15009 printspc(9)"{CBM-N}{gry2}ABB{grn} {yel}PEDDEO{grn} {yel}{CBM-N}UI{CBM-H}{grn} {gry1}{CBM-G}"
15010 printspc(9)"{CBM-M}{gry2}BB{grn} {yel}{CBM-N}{grn} {yel}UI{grn} {yel}{CBM-H}{grn} {brn} {yel}{CBM-T}{CBM-T}{grn} {gry1}{CBM-G}"
15011 printspc(9)"{CBM-M}{gry2}B{grn} I{yel}{CBM-M}{grn} {yel}BB{grn} {yel}{CBM-H}{grn}K {brn}Q{gry3} {grn} I K{gry1}{CBM-G}"
15012 printspc(9)"{CBM-M}{gry2}B{grn} U {yel}{CBM-T}EE{CBM-T}{grn} {brn}U{SHIFT-+}K{grn} J I {gry1}{CBM-G}"
15013 printspc(9)"{CBM-M}{grn} K I J {brn}{CBM-D}{CBM-E}{CBM-F}{grn}I J {gry1}{CBM-G}"
15014 printspc(9)"{CBM-M}{grn} K U I U K {gry1}{CBM-G}"
15015 printspc(9)"{CBM-M} {CBM-G}"
15016 printspc(9)"{grn} {gry1}{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}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{grn} "
15019 ra=15
15020 print"{grn}sie stehen vor dem eingang des kanniba-
15030 print"lendorfes.
15050 gosub760
15120 print"{wht}{down}moegliche richtungen : n{down}"
15125 gosub750
15127 ifka=0thenprint"{down}die kannibalen haben sie entdeckt und greifen sie an!"
15129 q=1:ka=1:za=1:d=ti:li=3600
15130 gosub100
15135 ifs=5thengoto15000
15140 onrgoto14000,15160,15160,15160,15160,15160
15150 goto15300
15160 gosub701
15300 goto15130
16000 printspc(9)"{grn} {gry1}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{grn} "
16001 printspc(9)"{gry1}{CBM-M}{grn} {gry1}{CBM-G}"
16002 printspc(9)"{CBM-M}{grn} {gry1}{CBM-G}"
16003 printspc(9)"{CBM-M}{grn} {yel} {grn} {gry1}{CBM-H}"
16004 printspc(9)"{CBM-M}{grn} {yel} {rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND}M{grn} {gry1}{CBM-G}"
16005 printspc(9)"{CBM-M}{grn} {yel} {rvon}{SHIFT-POUND}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-*}{grn}{rvof} {yel}M{grn} {gry1}{CBM-G}"
16006 printspc(9)"{CBM-M}{grn} {yel} {rvon}{SHIFT-POUND}ZZW WZZ{CBM-*}{grn}{rvof} {yel}M{grn} {gry1}{CBM-G}"
16007 printspc(9)"{CBM-M}{grn} {orng} {yel}{rvon}{SHIFT-POUND} W {CBM-*}{rvof}N{grn} {gry1}{CBM-G}"
16008 printspc(9)"{CBM-N}{gry2}AAAAAA{orng}PPPPPPPPPP {CBM-G}{gry2}AA{gry1}{CBM-G}"
16009 printspc(9)"{CBM-N}{gry2}BBBBBB{orng}{CBM-N}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{grn} {orng}{CBM-G}{gry2}HH{gry1}{CBM-H}"
16010 printspc(9)"{CBM-N}{gry2}BBBBBB{orng}{CBM-N}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{grn} {orng}{CBM-G}{gry2}HH{gry1}{CBM-G}"
16011 printspc(9)"{CBM-N}{orng}U{grn} {orng}J I{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}N{grn} {orng}J{grn} {gry1}{CBM-H}"
16012 printspc(9)"{CBM-N}{grn} {orng}I{grn} {orng}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{grn} {orng}J{gry1}{CBM-G}"
16013 printspc(9)"{CBM-N}{grn} {orng}I{grn} {orng}K{grn} {orng}I{grn} {orng}J{grn} {orng}U J{grn} {gry1}{CBM-G}"
16014 printspc(9)"{CBM-N}{grn} {orng}U{grn} {orng}K{grn} {orng}U{grn} {orng} K{grn} {orng}I{grn} {gry1}{CBM-G}"
16015 printspc(9)"{CBM-M}{grn} {orng}I{grn} {orng}U{grn} {orng}J{grn} {orng}J{grn} {gry1}{CBM-H}"
16016 printspc(9)"{grn} {gry1}{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}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{grn} "
16019 ra=16
16020 print"{grn}sie befinden sich an der rueckseite des
16030 print"dorfes.hier steht die opferhuette der
16040 print"kannibalen.sie ist anscheinend unbewacht
16050 gosub760
16120 print"{wht}{down}moegliche richtungen : n{down}"
16125 gosub750
16130 gosub100
16135 ifs=5thengoto16000
16140 onrgoto14500,16160,16160,16160,16160,16160
16150 goto16300
16160 gosub701
16300 ifv=28ands=30thengosub705:gosub16800
16310 ifv=27ands=30thengosub705:gosub16700
16499 gosub777
16500 goto16130
16700 print"{down}in der huette ist ein gefesselter weis-
16701 print"ser mann.er sagt zu ihnen:
16702 print"{down}"chr$(34)"wer sie auch immer sind,fliehen sie!
16703 print"die huette ist bewacht.gehen sie zum
16704 print"baum noerdlich vom fuss der treppe!fuenf
16705 print"{up}fuss westlich von ihm liegt mein falt-
16706 print"boot vergraben.fahren sie zur felsen-
16707 print"insel und holen sie hilfe!"chr$(34)
16710 q=1:ma=1:return
16800 print"{down}die kannibalen haben sie entdeckt und greifen sie an!"
16810 q=1:ka=1:za=1:d=ti:li=3600:return
17000 printspc(9)"{grn} {gry1}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{grn} "
17001 printspc(9)"{gry1}{CBM-M}{grn} {gry1}{CBM-G}"
17002 printspc(9)"{CBM-N} {grn} {gry1}{CBM-G}"
17003 printspc(9)"{CBM-M}{grn} {gry1}{CBM-G}"
17004 printspc(9)"{CBM-M}{grn} {gry1}{CBM-POUND} {grn} {gry1}{CBM-G}"
17005 printspc(9)"{CBM-N}{grn} {gry1} {CBM-POUND}{CBM-POUND}{rvon}{SHIFT-POUND} {CBM-*}{SHIFT-POUND}{CBM-*}{grn}{rvof} {gry1}{CBM-G}"
17006 printspc(9)"{CBM-N}{wht} {gry1}{rvon}{SHIFT-POUND} N M {CBM-*}{wht}{rvof} {gry1}{CBM-G}"
17007 printspc(9)"{CBM-N}{lblu}{rvon} {gry1}{rvof}{CBM-G}"
17008 printspc(9)"{CBM-M}{lblu}{rvon} {gry1}{rvof}{CBM-G}"
17009 printspc(9)"{CBM-N}{lblu}{rvon} {gry1}{rvof}{CBM-G}"
17010 printspc(9)"{CBM-N}{lblu}{rvon}{CBM-@}{CBM-O}{rvof}{CBM-U}{CBM-T} {CBM-Y}{rvon}{CBM-I}{CBM-P}{CBM-@} {CBM-P}{CBM-O}{CBM-I}{rvof}{CBM-Y}{CBM-T} {CBM-T}{grn} {lblu}{CBM-T}{CBM-Y}{gry1}{CBM-G}"
17011 printspc(9)"{CBM-N}{grn} {gry2}.{grn} {gry2}.{grn} {gry3} {gry2}.{gry3} {grn} {gry2}.{grn} {gry1}{CBM-G}"
17012 printspc(9)"{CBM-N}{gry2}.{grn} {gry2}.{grn} {gry2}.{grn} {gry2}.{grn} {gry2}.{grn} {gry2}.{gry1}{CBM-H}"
17013 printspc(9)"{CBM-N}{grn} {gry2}.{grn} {gry1}{CBM-G}"
17014 printspc(9)"{CBM-M}{grn} {gry2}.{grn} {gry2} .{grn} {gry2} {grn} {gry2}.{grn} {gry2}.{grn} {gry2}.{grn} {gry2}.{grn} {gry1}{CBM-H}"
17015 printspc(9)"{CBM-N}{grn} {gry1}{CBM-H}"
17016 printspc(9)"{grn} {gry1}{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}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{grn} "
17019 ra=17
17020 print"{grn}sie stehen an der nordkueste der insel.
17030 print"in der ferne ist eine felseninsel zu
17040 print"erkennen.
17050 gosub760
17120 print"{wht}{down}moegliche richtungen : s{down}"
17125 gosub750
17130 gosub100
17135 ifs=5thengoto17000
17140 onrgoto17160,12000,17160,17160,17160,17160
17150 goto17200
17160 gosub701
17200 ifs=31andsp$(9)<>""thengosub705:wa=1
17210 ifwa=1andv=31ands=32then17310
17300 goto17130
17310 dd=1:print"{clr}"spc(16)"{wht}das war"
17320 printspc(13)"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{yel}o d y s s e e
17330 printspc(14)"{down}{down}{down}{yel}t e i l 1
17340 fori=0to6000:next:print"{clr}"spc(10)"{wht}erleben sie demnaechst
17420 forx=0to2:gosub20060:goto20004
17430 printspc(14)"{yel}{down}{down}{down}{down}t e i l 2":gosub750:print"{wht}{clr}":end
20000 reads,b:ifs<>-1thenpoke55272+s,f:poke1000+s,b:fori=0to200:next:goto20000
20001 iff=2thenf=1:goto20000
20002 forx=0to2:restore:fori=0to24:reads,b:ifs=-1thennexti
20003 poke1000+s,128+b:poke1000+s,b:nexti:next::gosub20050:forx=0to2:gosub20060
20004 printspc(4-x)"{up}{yel} {CBM-@} {grn} {yel}{CBM-@}{CBM-@}{grn} {yel} {CBM-@} {CBM-@} {CBM-@}{CBM-@}{CBM-@}{grn} {yel}{CBM-@}{CBM-@}{CBM-@}{grn} {yel}{CBM-@}{CBM-@}{CBM-@}{grn} {yel}{CBM-@}{grn} {yel}{CBM-@}{grn} "
20005 gosub20050
20006 printspc(x)"{yel} //M /{grn} {yel}/M{grn} {yel}////{CBM-H}/{grn} {yel}/{CBM-G}/{grn} {yel}/{CBM-G}/{grn} {yel}/{CBM-G}////{CBM-H}"
20007 gosub20050
20008 printspc(4-x)"{rvon}{SHIFT-POUND} {CBM-*}{rvof}/{CBM-G}{rvon} {CBM-*}{rvof}/{CBM-G}{rvon} {rvof} {rvon} {rvof} {CBM-G}{rvon} {rvof}/ {rvon} {rvof}/ {rvon} {rvof}/ {rvon} {rvof} {rvon} {rvof} {CBM-G}"
20009 gosub20050
20010 printspc(x)"{rvon} {rvof} {yel}{rvon} {grn}{rvof} {yel}{CBM-H}{rvon} {rvof} {yel}{rvon} {grn}{rvof} {yel}{CBM-G}{rvon} {rvof} {rvon} {rvof} {CBM-G}{rvon} {rvof} L{CBM-P} {rvon} {rvof} L{CBM-P} {rvon} {grn}{rvof} {yel}L{CBM-P} {rvon} {rvof} {rvon} {rvof} {CBM-G}
20011 gosub20050
20012 printspc(4-x)"{rvon} {rvof} {rvon} {rvof} {CBM-H}{rvon} {rvof} {rvon} {rvof} {CBM-G}{rvon} {rvof}/{rvon} {rvof}/ {rvon} {rvof}/ /{CBM-H}{rvon} {rvof}/ /{CBM-G}{rvon} {rvof}/ /{CBM-G}{rvon} {rvof}/{rvon} {rvof}/ "
20013 gosub20050
20014 printspc(x)"{rvon} {rvof} {rvon} {rvof} {CBM-G}{rvon} {rvof} {rvon} {rvof} {CBM-G}{CBM-*}{rvon} {rvof}{SHIFT-POUND}{CBM-G} {rvon} {rvof} {CBM-H}{rvon} {rvof} {CBM-H}{rvon} {rvof}/ {CBM-*}{rvon} {rvof}{SHIFT-POUND}{CBM-G} "
20015 gosub20050
20016 printspc(4-x)"{rvon} {rvof}/{rvon} {grn}{rvof} {yel}{CBM-G}{rvon} {rvof}/{rvon} {rvof} {CBM-G} {rvon} {rvof} {CBM-H} /{grn} {yel}{rvon} {grn}{rvof} {yel}{CBM-H}/{grn} {yel}{rvon} {grn}{rvof} {yel}{CBM-G}{rvon} {rvof}/ /{CBM-G}{grn} {yel}{rvon} {rvof} {CBM-G}
20017 gosub20050
20018 printspc(x)"{rvon} {rvof}/ {rvon} {rvof}/ {rvon} {rvof} {CBM-G} {rvon} {rvof}/ {rvon} {rvof}/ {rvon} {rvof}/ {rvon} {rvof} {CBM-G} "
20019 gosub20050
20020 printspc(4-x)"{CBM-*}{rvon} {rvof}{SHIFT-POUND} {rvon} {rvof}{SHIFT-POUND} {rvon} {rvof}/ {rvon} {rvof}{SHIFT-POUND} {rvon} {rvof}{SHIFT-POUND} {rvon} {rvof}{SHIFT-POUND} {rvon} {rvof}/ "
20021 gosub20050
20030 gosub20060:print"{down} {down}{left}{left} {down}{left}{left} {down}{left}{left} {down}{left}{left} {down}{left}{left} {down}{left}{left} {down}{left}{left} {down}{left}{left}"
20035 gosub20060:print"{down}{left}{left}{left} {down}{left}{left} {down}{left}{left} {down}{left}{left} {down}{left}{left} {down}{left}{left}{left} {down}{left}{left} {down}{left}{left} "
20040 next
20049 goto20065
20050 fori=0to400:next:return
20060 print"{home}{down}{down}{down}{down}{down}{down}{down}":return
20065 ifdd=1thengoto17430
20070 printspc(10)"{blu}{down}{down}ein":gosub20050
20075 printspc(14)"{up}abenteuerspiel":gosub20050
20080 printspc(18)"{down}von":gosub20050
20090 printspc(9)"{lblu}{down}hans":gosub20050
20091 printspc(13)"{up}-guenther":gosub20050
20092 printspc(23)"{up}schreck":gosub20050
20100 data33,24,35,20,37,3,39,45,41,19,43,15,45,6,47,20,49,23,51,1,53,18
20101 data55,5,-1,-1,118,16,119,18,120,1,121,5,122,19,123,5,124,14,125,20
20102 data126,9,127,5,128,18,129,20,-1,-1
20103 return
25000 print"{wht}Sie erinnern sich:
25001 print"{down}Sie waren Passagier an Bord des Luxus-
25002 print"liners 'Queen Mary' gewesen.Der Taifun
25003 print"hatte die Besatzung vollkommen ueber- rascht.
25004 print"Das einzige brauchbare Rettungsboot war
25005 print"kurz nach dem Aussetzen gekentert.
25006 print"Was dann geschah, wissen Sie nicht mehr.
25007 print"Jetzt erwachen Sie langsam wieder aus
25008 print"Ihrer Bewusstlosigkeit.....
25009 :gosub750:print"{clr}"chr$(142):return
30000 print"{clr}"spc(17)"{wht} {rvon} {rvof}"
30002 printspc(17)"{rvon} {rvof}"
30003 printspc(17)" {rvon} {rvof}"
30004 printspc(17)" {rvon} {rvof}{down}"
30005 return
30100 print"{down}noch ein versuch? (j/n)"
30110 getb$:ifb$=chr$(74)thenclr:goto10
30120 ifb$=chr$(78)thenend
30130 goto30110
0 PRINT"{CLR}":POKE 53280,0:POKE 53281,0:F=2:GOSUB 20000:POKE 198,0:GOSUB 750 10 DIM T$(80):DIM RA$(20,10):WL=3:TI$="000000" 20 REM *** GEGENSTAENDE ******************************************************** 22 G$(0)=" ":G$(1)="MESSER":G$(2)="METALLBEHAELTER":G$(3)="BUCH":G$(4)="BEIL" 24 G$(5)="FRUECHTE":G$(6)="VERBANDSZEUG":G$(7)="SCHLANGENSERUM" 26 G$(8)="EDELSTEINE":G$(9)="FALTBOOT" 36 PRINT"{CLR}"CHR$ (14):GOSUB 25000 80 REM *** SPRUNG IN RAUM ****************************************************** 90 GOTO 1000 100 IF UN=1 THENGOTO 200 101 PRINT"{WHITE}" 102 ZV=RND (1):IF ZV<0.5 THENPRINT"WAS NUN ?":GOTO 110 103 IF ZV>0.5AND ZV<0.80 THENPRINT"WAS JETZT ?":GOTO 110 105 PRINT"UND JETZT ?" 110 PRINT"{DOWN,UP}":X$="":PRINTCHR$ (114) 120 GET B$ 125 IF ZA=1 THENIF TI-D>LI THENT=1:R=0:P$="":GOTO 300 127 IF B$="" THEN120 130 IF ASC (B$)=13 THEN198 140 IF ASC (B$)=20AND X$<>"" THEN160 142 IF ASC (B$)=32 THEN150 145 IF ASC (B$)<65OR ASC (B$)>90 THEN120 150 X$=X$+B$:GOTO 180 160 X$=LEFT$ (X$,LEN (X$)-1) 170 IF LEN (X$)<41AND LEN (X$)>37 THENPRINT"{2UP}"X$+CHR$ (114)+CHR$ (32):UA=1:GOTO 120 175 GOTO 190 180 IF LEN (X$)<40AND UA=0 THENPRINT"{UP}"X$+CHR$ (114):UA=0:GOTO 120 185 PRINT"{2UP}"X$+CHR$ (114):GOTO 194 190 IF LEN (X$)<41AND UA=0 THENPRINT"{UP}"X$+CHR$ (114)+CHR$ (20):GOTO 194 192 PRINT"{2UP}"X$+CHR$ (114)+CHR$ (20):GOTO 194 194 IF LEN (X$)<79 THEN120 195 GET B$:IF B$<>CHR$ (20)AND B$<>CHR$ (13) THEN195 196 PRINT"{2UP}":GOTO 130 198 IF LEN (X$)<39 THENPRINT"{UP}"X$+CHR$ (46):GOTO 200 199 PRINT"{2UP}"X$+CHR$ (46) 200 REM *** STRINGZERLEGUNG **************************************************** 210 UN=0:WO=0:SZ=0:T$(0)="" 217 IF X$=""AND UN=0 THENGOTO 713 220 FOR X=1 TOLEN (X$) 230 : IF MID$ (X$,X,1)<>" "AND WO=0 THENWO=X 235 : IF MID$ (X$,X,1)=" "AND WO<>0 THENT$(SZ)=MID$ (X$,WO,X-WO):WO=0:SZ=SZ+1:GOTO 280 240 :IF X=LEN (X$)AND WO<>0 THENT$(SZ)=MID$ (X$,WO,X-WO+1):SZ=SZ+1 270 NEXT :GOTO 300 280 : IF T$(SZ-1)="UND" THENX$=RIGHT$ (X$,LEN (X$)-X):UN=1:GOTO 300 290 GOTO 270 300 REM *** WORTANALYSE ******************************************************** 305 S=0:V=0:R=0:G=0:Q=0 310 FOR I=0 TOSZ-1 315 IF T$(0)="" THENGOSUB 704:RETURN 320 : P$=T$(I):F=ASC (P$)-64 330 : ON FGOTO 350,360,370,380,390,400,410,420,430,440,450,460,470 340 : ON F-13GOTO 480,490,500,510,520,526,545,550,560,570,580,590,600 345 NEXT 346 IF V=0AND S=0AND G=0AND R=0 THENGOSUB 702 347 GOSUB 800 349 RETURN 350 REM *** A-BER 351 IF P$="AST" THENS=3:GOTO 345 352 IF P$="ALLES" THENS=1 353 IF P$="ASCHE" THENS=7 359 GOTO 345 360 IF P$="BETRETE"OR P$="BETRITT" THENV=27 361 IF LEFT$ (P$,4)="BAUM" THENS=2:GOTO 345 362 IF P$="BUCH" THENG=3:S=10 363 IF P$="BEIL" THENG=4 364 IF P$="BEHAELTER" THENG=2 365 IF P$="BRING" THENV=3 366 IF P$="BERUEHRE" THENV=23 367 IF P$="BILD" THENS=25:GOTO 345 368 IF P$="BEHANDLE"OR P$="BEHANDELE" THENV=26 369 IF P$="BOOT" THENG=9 370 REM *** C-BER 379 GOTO 345 380 REM *** D-BER 381 IF P$="DREHE" THENV=15 382 IF P$="DRUECKE" THENV=23 389 GOTO 345 390 REM *** E-BER 391 IF P$="EDELSTEINE" THENG=8 395 IF P$="ESSEN" THENV=5 396 IF P$="ENTZUENDE" THENV=25 399 GOTO 345 400 IF P$="FAHRE" THENV=31 401 IF P$="FRUECHTE" THENG=5:S=11 402 IF P$="FASS" THENS=8 403 IF P$="FELSWAND" THENS=14 404 IF P$="FUELLE" THENV=11 405 IF P$="FAELLE" THENV=14 406 IF P$="FUENF" THENV=29 407 IF P$="FALTBOOT" THENG=9 408 IF P$="FELSENINSEL" THENS=32 409 GOTO 345 410 REM *** G-BER 411 IF P$="GOLDSCHALE" THENS=13 412 IF P$="GORILLA" THENS=19 413 IF P$="GOETZENBILD" THENS=25 414 IF P$="GRABE" THENV=30 415 IF P$="GEHE" THENV=27 419 GOTO 345 420 REM *** H-BER 421 IF P$="H"OR P$="HINAUF" THENR=5 422 IF P$="HINUNTER" THENR=6 423 IF P$="HAND" THENS=20 424 IF P$="HAENGE" THENV=17 425 IF P$="HINUEBER" THENG=10 426 IF P$="HANGLE"OR P$="HANGELE" THENV=22 427 IF P$="HUETTE" THENS=30 429 GOTO 345 430 REM *** I-BER 431 IF P$="INSEL" THENS=32 435 IF P$="I"OR P$="INVENTUR" THENS=4 436 IF P$="ISS" THENV=5 439 GOTO 345 440 REM *** J-BER 441 IF P$="JAGUAR" THENS=29 449 GOTO 345 450 REM *** K-BER 451 IF P$="KISTE" THENS=15 459 GOTO 345 460 REM *** L-BER 461 IF P$="LIANE" THENS=18 465 IF P$="LEGE" THENV=2 466 IF P$="LEERE" THENV=15 467 IF P$="LIES" THENV=8 469 GOTO 345 470 REM *** M-BER 471 IF P$="MESSER" THENG=1 472 IF P$="METALLBEHAELTER" THENG=2 473 IF P$="METALLKISTE" THENS=11 474 IF P$="MAENNCHEN" THENS=22 475 IF P$="MACHE" THENV=12 479 GOTO 345 480 REM *** N-BER 481 IF P$="N"OR LEFT$ (P$,3)="NOR" THENR=1 485 IF P$="NIMM" THENV=1 489 GOTO 345 490 REM *** O-BER 491 IF P$="O"OR LEFT$ (P$,3)="OST" THENR=4 492 IF P$="OEFFNE" THENV=7 499 GOTO 345 500 REM *** P-BER 501 IF P$="PULVER" THENS=21 502 IF P$="PADDELE" THENV=31 509 GOTO 345 510 REM *** Q-BER 519 GOTO 345 520 REM *** R-BER 521 IF P$="R"OR P$="RUNTER" THENR=6 522 IF P$="RUTSCHE" THENV=24 523 IF P$="RAMPE" THENS=26 524 IF P$="RUDERE" THENV=31 525 GOTO 345 526 IF P$="SPRITZE" THENV=32 527 IF LEFT$ (P$,6)="SPALTE" THENS=33 530 IF P$="S"OR LEFT$ (P$,4)="SUED" THENR=2 531 IF LEFT$ (P$,4)="SING" THENV=19 532 IF P$="SCHLANGENSERUM"OR RIGHT$ (P$,5)="SERUM" THENG=7 533 IF P$="SCHAU" THENS=5 534 IF P$="SCHALE" THENS=13 535 IF P$="STRAND" THENS=6 536 IF P$="STRAUCH" THENS=12 537 IF LEFT$ (P$,6)="SCHUET" THENV=9 538 IF P$="SCHLIESSE" THENV=10 539 IF P$="SCHUETTE" THENV=11 540 IF P$="SCHIESSPULVER" THENS=21 541 IF LEFT$ (P$,6)="SPRING" THENV=13 542 IF P$="SAND" THENKG=1 543 IF P$="SPINNE" THENS=23 544 GOTO 345 545 REM *** T-BER 546 IF P$="TISCH" THENS=9 547 IF P$="TOETE" THENV=20 549 GOTO 345 550 REM *** U-BER 555 IF P$="UNTERSUCHE" THENV=6 559 GOTO 345 560 REM *** V-BER 561 IF P$="VERBANDSZEUG" THENG=6 562 IF P$="VOGELSPINNE" THENS=23 563 IF P$="VORSPRUNG"OR P$="VORSPRUENGE" THENS=24 564 IF P$="VERBINDE" THENV=26 565 IF LEFT$ (P$,7)="VERLIER" THENV=2 566 IF P$="VERLASSE" THENV=28 567 IF P$="VERNICHTE" THENV=20 569 GOTO 345 570 REM *** W-BER 571 IF P$="W"OR LEFT$ (P$,4)="WEST" THENR=3 572 IF LEFT$ (P$,5)="WARTE" THENV=4 573 IF P$="WAND" THENS=14 574 IF P$="WILDSTRAUCH" THENS=12 575 IF P$="WIRF" THENV=11 576 IF P$="WENDE" THENV=15 577 IF P$="WEG" THENS=27 578 IF P$="WASSER" THENS=31 579 GOTO 345 580 REM *** X-BER 589 GOTO 345 590 REM *** Y-BER 599 GOTO 345 600 REM *** Z-BER 601 IF P$="ZEUG" THENG=6 602 IF P$="ZURUECK" THENV=18 603 IF P$="ZEICHNUNG" THENS=25 604 IF P$="ZUENDSCHNUR" THENS=28 605 IF P$="ZUENDE" THENV=25 609 GOTO 345 700 REM *** STANDARD-ANTWORTEN ************************************************* 701 PRINT"{DOWN}KEIN WEG IN DIESER RICHTUNG !":Q=1:RETURN 702 ZV=RND (1):IF ZV<0.8 THENPRINT"{DOWN}DAS VERSTEHE ICH NICHT!":Q=1:RETURN 703 PRINT"{DOWN}WAS SOLL DEN{2SPACE}D A S{SPACE,SPACE}BEDEUTEN ? !":Q=1:RETURN 704 PRINT"{UP}BITTE EINE KORREKTE EINGABE!":R=0:Q=1:GOTO 347 705 PRINT"{WHITE,DOWN}OK":Q=1:RETURN 706 PRINT"{DOWN}HIER GIBT ES NICHTS MEHR ZU NEHMEN!":Q=1:GOTO 989 707 PRINT"{DOWN}SIE HABEN DOCH NICHTS MEHR!":Q=1:GOTO 989 708 PRINT"{DOWN}SIE ENTDECKEN NICHTS BESONDERES.":Q=1:RETURN 709 PRINT"{DOWN}IST SCHON OFFEN!":Q=1:RETURN 710 PRINT"{DOWN}IST SCHON ZU!":Q=1:RETURN 711 PRINT"{DOWN}SIE WARTEN.DIE ZEIT VERGEHT...":Q=1:RETURN 712 PRINT"{DOWN}SOVIELE SACHEN KOENNEN SIE NICHT TRAGEN!{UP,UP}":Q=1:RETURN 713 PRINT"{UP}WIESO DRUECKEN SIE 'RETURN' OHNE ETWAS E{DOWN}INZUGEBEN ?":UA=0:GOTO 100 730 R=0:S=0:V=0:G=0:Q=1:RETURN 749 REM *** STANDARD-REAKTIONEN ************************************************ 750 GET B$:IF B$<>CHR$ (32) THEN750 751 X$="":RETURN 760 FOR I=0 TO10:IF RA$(RA,I)<>"" THENPRINT"{DOWN,YELLOW}"RA$(RA,I) 761 NEXT :RETURN 777 ZV=RND (1):IF Q=0AND ZV<.7 THENPRINT"{DOWN}DAS GEHT NICHT!" 778 IF Q=0AND ZV>.7 THENPRINT"{DOWN}WAS WOLLEN SIE DENN DAMIT BEZWECKEN?" 779 RETURN 790 PRINT"{DOWN}DIE KANNIBALEN DROHEN SIE EINZUHOLEN!! 791 LI=1200:D=TI:DE=1:RETURN 792 PRINT"{DOWN}SIE HOEREN DEN KNALL EINER EXPLOSION!":ZA=0:T=0:ZU=2:RA$(14,2)="" 793 IF KA=1 THENPRINT"{DOWN}SIE HABEN DIE KANNIBALEN IN DIE FLUCHT{SPACE,SPACE}GESCLAGEN." 794 RA$(13,2)="":RA$(15,2)="":RA$(20,2)="":RA$(12,2)="":RETURN 800 IF T=1 THEN870 801 IF RA$(12,9)<>"" THENWL=1 802 IF RA$(12,9)="" THENWL=3 805 IF V=1AND WI>WL THENGOSUB 712:GOTO 838 810 IF V=1AND RA$(RA,G)<>"" THENGOSUB 705:SP$(G)=G$(G):RA$(RA,G)="":WI=WI+1:GOTO 849 815 IF V=1AND G>0AND SP$(G)=G$(G) THENPRINT"{DOWN}DAS HABEN SIE SCHON!":Q=1:GOTO 899 820 IF V=1AND G>0AND RA$(RA,G)="" THENPRINT"{DOWN}HIER GIBT ES DAS NICHT!":Q=1:GOTO 899 825 IF V=2AND G>0AND SP$(G)="" THENPRINT"{DOWN}DAS HABEN SIE DOCH GAR NICHT!":Q=1:GOTO 899 830 IF V=2AND SP$(G)=G$(G) THENGOSUB 705:RA$(RA,G)=G$(G):SP$(G)="":WI=WI-1:GOTO 849 832 IF V=1AND S=1 THENGOSUB 980:Q=1:IF A=1 THENGOSUB 705 835 IF V=2AND S=1 THENGOSUB 986:Q=1:IF A=1 THENGOSUB 705 838 IF S=4 THENGOSUB 990:Q=1 840 IF V=4 THENGOSUB 711:GOTO 899 842 IF V=5AND SP$(5)<>"" THENGOTO 999 843 IF V=5AND SP$(5)="" THENPRINT"{DOWN}SIE HABEN NICHTS ZU ESSEN!":Q=1:GOTO 899 844 IF V=6AND S>OG OR V=6AND S<UG THENGOSUB 708 845 IF V=8AND S=15AND SP$(3)=G$(3)AND RA<>3 THENGOSUB 3600:Q=1 846 IF V=7AND SP$(2)=G$(2)AND G=2AND RA<>3 THENGOSUB 3800:Q=1 847 IF V=19 THENPRINT"{DOWN}SIE SINGEN EIN LIED...":Q=1 848 IF V=6AND S=11AND SP$(5)<>"" THENPRINT"{DOWN}SIE STELLEN FEST,DASS SIE GIFTIG SIND!":Q=1 849 IF SP$(9)<>"" THENWL=1 850 IF SP$(9)="" THENWL=3 869 RETURN 870 GOSUB 730:IF DE=1 THENRA=15:GOTO 900 871 IF KA=1 THENGOSUB 790 872 IF ZU=1AND SP$(2)<>"" THENRA=12:GOTO 900 873 IF ZU=1AND SP$(2)="" THENGOSUB 792 899 RETURN 900 REM *** TODESANZEIGEN ****************************************************** 901 GOSUB 30000 902 ON RAGOTO 905,907,909,911,913,915,917,919,922,923,925,927,929,931,933,935,937 903 ON RA-17GOTO 939,941,943,945,947,949 905 PRINT"SIE SIND VON DER PALME GESTUERZT UND 906 PRINT"HABEN SICH DABEI DAS GENICK GEBROCHEN!":GOTO 30100 907 PRINT"DIE FLEISCHFRESSENDE PLANZE HAT SIE 908 PRINT"VERSPEIST!":GOTO 30100 909 PRINT"DER SKORPION HAT SIE GESTOCHEN!DAS GIFT 910 PRINT"HAT SIE GETOETET!!":GOTO 30100 911 PRINT"DER GORILLA HAT IHNEN DAS GENICK GE- 912 PRINT"BROCHEN!":GOTO 30100 913 PRINT"SIE SIND IN DEN SUMPF GESTUERZT UND 914 PRINT"ERSTICKT!":GOTO 30100 915 PRINT"DIE FRUECHTE WAREN GIFTIG!":GOTO 30100 917 PRINT"DIE GROSSE,SCHWARZE SPINNE HAT SIE 918 PRINT"GEBISSEN!":GOTO 30100 919 PRINT"DER STEINHAGEL HAT SIE IN DIE TIEFE 920 PRINT"GERISSEN!":GOTO 30100 922 PRINT"SIE SIND IN DIE TIEFE GESTUERZT!!":GOTO 30100 923 PRINT"DIE WAENDE HABEN SIE ZERQUETSCHT!!":GOTO 30100 925 PRINT"DIE EINSTUERZENDE TREPPE HAT SIE UNTER 926 PRINT"SICH BEGRABEN!":GOTO 30100 927 PRINT"DER EXPLODIERENDE BEHAELTER HAT SIE IN 928 PRINT"STUECKE GERISSEN!":GOTO 30100 929 PRINT"DAS GIFT DER SCHLANGE HAT IHRE ATMUNG{DOWN} 930 PRINT"GELAEHMT.SIE SIND ERSTICKT!":GOTO 30100 931 PRINT"DER JAGUAR HAT SIE GETOETET!":GOTO 30100 933 PRINT"DIE KANNIBALEN HABEN SIE MIT EINER KEULE 934 PRINT"ERSCHLAGEN!":GOTO 30100 935 PRINT"{6RIGHT}SIE SIND VERBLUTET!":GOTO 30100READ Y. 980 A=0:FOR I=0 TO10 981 : IF RA$(12,9)<>"" THENWL=1 982 : IF WI>WL THENGOSUB 712:RETURN 983 : IF RA$(RA,I)<>"" THENSP$(I)=RA$(RA,I):RA$(RA,I)="":A=1:WI=WI+1 984 NEXT :IF A=0 THENGOTO 706 985 RETURN 986 A=0:FOR I=0 TO10 987 : IF SP$(I)<>"" THENRA$(RA,I)=SP$(I):SP$(I)="":A=1:WI=WI-1 988 NEXT :IF A=0 THENGOTO 707 989 RETURN 990 A=0:PRINT"{DOWN}SIE HABEN:":FOR I=0 TO10:IF SP$(I)<>"" THENPRINT"{YELLOW,DOWN}"SP$(I):A=1 991 NEXT :IF A=0 THENPRINT"{YELLOW,DOWN}NICHTS" 992 RETURN 999 PRINT"{WHITE,DOWN}SIE ESSEN VON DEN FRUECHTEN!":FOR I=0 TO3000:NEXT :RA=6:GOTO 900 1000 PRINTSPC( 9)"{GREEN,SPACE,GREY1}@@@@@@@@@@@@@@@@@@@@ " 1001 PRINTSPC( 9)"M{GREEN,5SPACE}I{14SPACE,GREY1}G" 1002 PRINTSPC( 9)"M{GREEN,2SPACE}O{RVSON}I*{RVOFF}*U{RVSON}£{RVOFF}I£U{SPACE,8SPACE,GREY1}G" 1003 PRINTSPC( 9)"M{GREEN,SPACE,RVSON}£U I*£UO U*{RVOFF,8SPACE,GREY1}G" 1004 PRINTSPC( 9)"M{GREEN}D{RVSON}KI{RVOFF}CU{BROWN,RVSON}££{GREEN,RVOFF}*IC{RVSON}IJ{RVOFF,8SPACE,GREY1}G" 1005 PRINTSPC( 9)"M{GREEN}U{RVSON}J{RVOFF}J{SPACE,SPACE,BROWN,RVSON}££{RVOFF,SPACE,GREEN,SPACE}U{RVSON}U{RVOFF}V{SPACE,7SPACE,GREY1}G" 1006 PRINTSPC( 9)"N{GREEN,5SPACE,BROWN,RVSON}££{GREEN,RVOFF,9SPACE}I{3SPACE,GREY1}G" 1007 PRINTSPC( 9)"M{GREEN,5SPACE,BROWN,RVSON}££{GREEN,RVOFF,SPACE,BROWN,5SPACE,GREEN,RVSON}£U*{RVOFF}£{RVSON}£I*{GREY1,RVOFF}G" 1008 PRINTSPC( 9)"M{BROWN,5SPACE,RVSON}££{RVOFF,5SPACE,GREEN,SPACE,RVSON}UU{RVOFF}U{BROWN,RVSON}£{GREEN,RVOFF}JP{RVSON}K{GREY1,RVOFF}G" 1009 PRINTSPC( 9)"M{GREEN,5SPACE,BROWN,RVSON}££{GREEN,RVOFF,6SPACE}CY{SPACE,BROWN,RVSON}£{GREEN,RVOFF,2SPACE}K{GREY1}G" 1010 PRINTSPC( 9)"M{GREEN,5SPACE,BROWN,RVSON}££{GREEN,RVOFF,9SPACE,BROWN,RVSON}£{GREEN,RVOFF,3SPACE,GREY1}G" 1011 PRINTSPC( 9)"M{SPACE,GREEN,4SPACE,BROWN,RVSON}££{GREEN,RVOFF,4SPACE,ORANGE,SPACE,GREEN,4SPACE,BROWN,RVSON}£{GREEN,RVOFF,3SPACE,GREY1}G" 1012 PRINTSPC( 9)"M{GREEN,4SPACE,BROWN,SPACE,RVSON}££{GREEN,RVOFF,9SPACE,BROWN,RVSON}£{GREEN,RVOFF,3SPACE,GREY1}G" 1013 PRINTSPC( 9)"M{ORANGE}I{RVSON}UYT{SPACE,3SPACE}TYU{RVOFF}IOP@{SPACE,BROWN,RVSON}£{ORANGE,RVOFF,3SPACE,GREY1}G" 1014 PRINTSPC( 9)"M{ORANGE,RVSON,SPACE}U{2SPACE}U{2SPACE}K{3SPACE}K{6SPACE}TY{GREY1,RVOFF}G" 1015 PRINTSPC( 9)"M{ORANGE,RVSON,3SPACE}U J{3SPACE}U{5SPACE}J{2SPACE}I{SPACE,GREY1,RVOFF}G" 1016 PRINTSPC( 9)"{ORANGE,SPACE,GREY1}TTTTTTTTTTTTTTTTTTTT " 1019 RA=1:OG=6:UG=6 1020 PRINT"{GREEN}SIE BEFINDEN SICH AM SUEDSTRAND EINER{SPACE,2SPACE}UNBEKANNTEN INSEL. 1050 GOSUB 760 1120 PRINT"{WHITE,DOWN}MOEGLICHE RICHTUNGEN : N" 1125 GOSUB 750 1130 GOSUB 100 1135 IF S=5 THENGOTO 1000 1140 ON RGOTO 2000,1160,1160,1160,1600,1160 1150 GOTO 1300 1160 GOSUB 701 1300 IF V=6AND S=6 THENPRINT"{DOWN}SIE UNTERSUCHEN DEN STRAND.":Q=1:IF R1=0 THENGOSUB 1500 1399 GOSUB 777 1400 GOTO 1130 1500 IF R1=0 THENRA$(1,1)=G$(1):R1=1 1510 GOSUB 760:RETURN 1600 PRINT"{DOWN}SIE SITZEN AUF DER PALME." 1610 GOSUB 100 1620 ON RGOTO 900,900,900,900,900,1650 1630 IF V=4 THENGOTO 1610 1640 GOTO 900 1650 GOSUB 705:GOTO 1130 2000 PRINTSPC( 9)"{GREY1,SPACE}@@@@@@@@@@@@@@@@@@@@ " 2001 PRINTSPC( 9)"M{RVSON,SPACE}G{SPACE,GREEN}H{GREY1,SPACE,RVOFF,SPACE,RVSON}J{2SPACE,GREEN}H{GREY1,SPACE}LG B{SPACE,GREEN}H{GREY1,3SPACE,RVOFF}G" 2002 PRINTSPC( 9)"M{RVSON,SPACE}G{SPACE,GREEN}N{GREY1,SPACE,RVOFF}G{RVSON}G M{GREEN}N{GREY1,SPACE}H{2SPACE}G{SPACE,GREEN}L{GREY1,3SPACE,RVOFF}G" 2003 PRINTSPC( 9)"M{RVSON,SPACE}G{SPACE,GREEN}L{GREY1,SPACE,RVOFF}H{RVSON,2SPACE}N{GREEN}L{GREY1,SPACE}G{2SPACE}H{SPACE,GREEN,RVOFF}K{GREY1,RVSON}G{2SPACE,RVOFF}G" 2004 PRINTSPC( 9)"M{RVSON,SPACE}H{SPACE,GREEN,RVOFF}K{GREY1,RVSON}G{RVOFF}J{RVSON}G{2SPACE,GREEN,RVOFF}K{GREY1,RVSON}M{SPACE,SPACE}B{2SPACE,GREEN,RVOFF}K{GREY1,RVSON,3SPACE,RVOFF}G" 2005 PRINTSPC( 9)"M{RVSON,SPACE}M{SPACE,GREEN,RVOFF}J{GREY1,RVSON,SPACE,RVOFF}K{RVSON,3SPACE,GREEN,RVOFF}K{GREY1,RVSON}HH{4SPACE,GREEN,RVOFF}J{GREY1,RVSON}G{2SPACE,RVOFF}G" 2006 PRINTSPC( 9)"M{RVSON,SPACE}M{SPACE,GREEN,RVOFF}J{GREY1,RVSON,SPACE}L{3SPACE,GREEN,RVOFF}K{GREY1,RVSON}B G{3SPACE,GREEN,RVOFF}G{GREY1,RVSON,2SPACE}N{RVOFF}G" 2007 PRINTSPC( 9)"M{RVSON,SPACE}M{SPACE,GREEN,RVOFF}H{GREY1,RVSON,SPACE}NG{2SPACE,GREEN,RVOFF}K{GREY1,RVSON}G M{3SPACE}B{2SPACE}B{RVOFF}G" 2008 PRINTSPC( 9)"M{RVSON,2SPACE}GG M{2SPACE}G{GREEN,RVOFF}J{GREY1,RVSON,3SPACE}G{5SPACE}H{RVOFF}G" 2009 PRINTSPC( 9)"M{RVSON,2SPACE}GG{3SPACE}HL{GREEN,RVOFF}J{GREY1,RVSON,3SPACE}H{4SPACE}NG{RVOFF}G" 2010 PRINTSPC( 9)"M{RVSON,2SPACE}B{4SPACE}GM{GREEN,RVOFF}J{GREY1,RVSON}H{2SPACE}MG{3SPACE,RVOFF}K{RVSON}G{RVOFF}G" 2011 PRINTSPC( 9)"M{RVSON,2SPACE}H{3SPACE}M{2SPACE,GREEN,RVOFF}H{GREY1,RVSON,4SPACE}G{3SPACE}L{SPACE,RVOFF}G" 2012 PRINTSPC( 9)"M{RVSON,2SPACE}M{3SPACE}Y{2SPACE}G{4SPACE}T{3SPACE,RVOFF}K{RVSON,SPACE,RVOFF}G" 2013 PRINTSPC( 9)"M{RVSON,2SPACE}MH{2SPACE}H{2SPACE}G{4SPACE}G{3SPACE}Y{SPACE,RVOFF}G" 2014 PRINTSPC( 9)"M{RVSON,2SPACE}MJ{2SPACE}B{2SPACE}G{4SPACE}H{3SPACE}B{SPACE,RVOFF}G" 2015 PRINTSPC( 9)"M{RVSON,2SPACE}LK{2SPACE}G{2SPACE}B{4SPACE}Y{3SPACE}G{SPACE,RVOFF}G" 2016 PRINTSPC( 9)" TTTTTTTTTTTTTTTTTTTT " 2019 RA=2:OG=1:UG=1 2020 PRINT"{GREEN}SIE STEHEN AN EINER HOHEH,MIT LIANEN BE-WACHSENEN FELSWAND 2030 PRINT"{UP,19RIGHT}AN DEREN FUSS EINE 2040 PRINT"GROSSE,FLEISCHFRESSENDE PLANZE WAECHST. 2120 PRINT"{WHITE,DOWN}MOEGLICHE RICHTUNGEN : S,W,O" 2125 GOSUB 750 2130 GOSUB 100 2135 IF S=5 THENGOTO 2000 2140 ON RGOTO 2160,1000,5000,2500,2200,2160 2150 GOTO 2165 2160 GOSUB 701 2165 GOSUB 777 2170 GOTO 2130 2200 PRINT"{DOWN,GREEN}SIE SIND AN EINER LIANE HINAUFGEKLETTERT. 2222 PRINT"{UP,RIGHT}DA DIESE IN HALBER HOEHE RISS,SIND SIE" 2224 PRINT"AUF DIE ERDE ZURUECKGEFALLEN! 2226 PRINT"AUSGERECHNET IN DEN SCHLUND DER FLEISCH-FRESSENDEN PLANZE!! 2228 PRINT"JETZT WERDEN SIE VERDAUT!!! 2300 GOSUB 750:GOTO 900 2500 REM *** RAUM 2500 ********************************************************* 2510 PRINT"{GREEN,DOWN}SIE STEHEN AUF DEM WESTLICHEN VORPLATZ{2SPACE}EINER VERLASSENEN HUETTE. 2520 PRINT"AM BODEN SIND ABDRUECKE NACKTER FUESSE{2SPACE}UND SCHLEIFSPUREN ZU ERKENNEN 2530 PRINT"{11LEFT}." 2540 PRINT"HIER SCHEINT EIN KAMPF STATTGEFUNDEN ZU HABEN! 2545 RA=20:OG=1:UG=1 2550 GOSUB 760 2600 PRINT"{WHITE,DOWN}MOEGLICHE RICHTUNGEN : S,W,O{DOWN}" 2610 GOSUB 100 2620 ON RGOTO 2640,4000,2000,3000,2640,2640 2625 IF S=5 THENGOTO 2500 2630 GOTO 2645 2640 GOSUB 701 2645 GOSUB 777 2650 GOTO 2610 3000 PRINTSPC( 9)"{BROWN,SPACE,GREY1}@@@@@@@@@@@@@@@@@@@@{BROWN,SPACE}" 3001 PRINTSPC( 9)"{GREY1}M{BROWN,RVSON}M{SPACE,GREEN}H{BROWN}MMMMMMMMMMMMNMNMB{GREY1,RVOFF}G" 3002 PRINTSPC( 9)"M{BROWN,RVSON}MM{GREEN}N{BROWN}MMMM{GREEN}ARR*S{BROWN}MMMNMNMB{GREY1,RVOFF}G" 3003 PRINTSPC( 9)"M{BROWN,RVSON}ML{GREEN}L{BROWN}MMNM{GREEN}BGQFB{BROWN}MMMMMNMB{GREY1,RVOFF}G" 3004 PRINTSPC( 9)"M{BROWN,RVSON}NM{GREEN,RVOFF}J{BROWN,RVSON}MMNM{GREEN}QG+*W{BROWN}MMMMMNMB{GREY1,RVOFF}G" 3005 PRINTSPC( 9)"M{BROWN,RVSON}MN{GREEN,RVOFF}J{BROWN,RVSON}MMNN{GREEN}B.BQB{BROWN}MMMMMNMB{GREY1,RVOFF}G" 3006 PRINTSPC( 9)"M{BROWN,RVSON}M{SPACE,GREEN,RVOFF}H{BROWN,RVSON}MMMN{GREEN}Z*E*X{BROWN}MNMMMNMB{GREY1,RVOFF}G" 3007 PRINTSPC( 9)"M{BROWN,RVSON}M GMNMMMMMMMMNMMMNMB{GREY1,RVOFF}G" 3008 PRINTSPC( 9)"M{BROWN,RVSON}M{SPACE,RVOFF}£{GREY1}AS{SPACE,BROWN,SPACE,WHITE,RVSON}£V{RVOFF}£{BROWN,RVSON}£MM@@@MNMB{GREY1,RVOFF}G" 3009 PRINTSPC( 9)"M{BROWN,RVSON}@{RVOFF}£{SPACE,GREY1}JK{SPACE,WHITE,3SPACE,BROWN,RVSON}£@@@YUYL@MB{GREY1,RVOFF}G" 3010 PRINTSPC( 9)"M{BROWN,RVSON,3SPACE}JH{3SPACE}JH UY@ @TUMB{GREY1,RVOFF}G" 3011 PRINTSPC( 9)"M{BROWN,RVSON,SPACE}U JH U JH{2SPACE}H{SPACE,WHITE}X{BROWN,SPACE}G{2SPACE}M{GREY1,RVOFF}G" 3012 PRINTSPC( 9)"M{BROWN,RVSON,3SPACE}J I{2SPACE}J U Y@ @TI{2SPACE,GREY1,RVOFF}G" 3013 PRINTSPC( 9)"M{BROWN,RVSON}I{2SPACE}J{4SPACE}J{3SPACE}M@T@H{3SPACE,GREY1,RVOFF}G" 3014 PRINTSPC( 9)"M{BROWN,RVSON,4SPACE}U{6SPACE}I{2SPACE}T{2SPACE}U{2SPACE,GREY1,RVOFF}H" 3015 PRINTSPC( 9)"{BROWN,SPACE,GREY1}TTTTTTTTTTTTTTTTTTTT{BROWN,SPACE}" 3019 RA=3:OG=10:UG=8 3020 PRINT"{GREEN}DIE HUETTE SCHEINT VOR KURZEM NOCH BEWOHNT GEWESEN ZU SEIN. 3022 PRINT"AUF DEM BODEN STEHT EIN FASS. 3024 GOSUB 760 3120 PRINT"{WHITE,DOWN}MOEGLICHE RICHTUNGEN : W" 3125 GOSUB 750 3130 GOSUB 100 3135 IF S=5 THENGOTO 3000 3140 ON RGOTO 3160,3160,2500,3160,3160,3160 3150 GOTO 3300 3160 GOSUB 701 3300 IF V=6AND S=8 THENPRINT"{DOWN}ES ENTHAELT SCHIESSPULVER.":Q=1 3310 IF V=6AND S=9AND SP$(2)=""AND SP$(3)="" THENGOSUB 3500 3320 IF V=6AND S=10AND R3=1 THENPRINT"{DOWN}ES IST EIN TAGEBUCH.":Q=1 3350 IF V=8AND S=10AND R3=1 THENGOSUB 3600 3360 IF V=7AND S=8 THENGOSUB 3700 3375 IF V=7AND G=2AND R3=1 THENGOSUB 3800 3380 IF V=11AND S=21AND RA=3AND OF=1AND OB=1AND G=2 THENGOSUB 705:GOSUB 3900:PA=1 3385 IF V=10AND S=8AND OF=0 THENGOSUB 710 3387 IF V=10AND G=2AND OB=0 THENGOSUB 710 3390 IF V=10AND S=8AND OF=1 THENGOSUB 705:OF=0 3391 IF V=10AND G=2AND OB=1 THENGOSUB 705:OB=0 3392 IF V=6AND S=9AND Q=0 THENGOSUB 708:GOTO 3130 3399 GOSUB 777 3400 GOTO 3130 3500 IF R3=0 THENRA$(3,3)=G$(3):RA$(3,2)=G$(2):R3=1 3505 PRINT"{DOWN}AUF DEM TISCH LIEGEN VERSCHIEDENE SACHEN{UP}" 3510 GOSUB 760:Q=1:RETURN 3600 PRINT"{DOWN}ALS LETZTE EINTRAGUNG FINDEN SIE:{DOWN} 3602 PRINT"...ICH MUSS MICH VOR DEN WILDEN IN ACHT 3604 PRINT"NEHMEN.ES SIND WAHRSCHEINLICH KANNIBALEN 3606 PRINT"FALLS SIE MICH ERWISCHEN,IST NICHT NUR 3608 PRINT"MEINE GANZE FORSCHUNGSARBEIT UMSONST 3610 PRINT"GEWESEN,SONDERN ICH KANN AUCH NICHT 3612 PRINT"RECHTZEITIG AM TREFFPUNKT SEIN... 3620 Q=1:RETURN 3700 IF OF=0AND SA=1 THENGOSUB 705:OF=1:RETURN 3703 IF OF=0AND SA=0 THENPRINT"{DOWN}IM FASS IST EIN SKORPION!ER SPRINGT":OF=1:GOTO 3710 3705 IF SA=1AND OF=1 THENGOSUB 709:RETURN 3710 SA=1:PRINT"IHNEN AUF DIE HAND!!":GOSUB 750:D=TI:LI=2700:ZA=1:GOSUB 100 3730 IF V=9AND S=20 THEN3740 3735 GOTO 900 3740 PRINT"{DOWN}DER SKORPION FAELLT ZU BODEN UND LAEUFT 3750 PRINT"WEG.":ZA=0:Q=1:RETURN 3800 IF OB=1 THENGOSUB 709:RETURN 3802 IF OB=0 THENPRINT"{DOWN}DER BEHAELTER ENTHAELT EINE ZUENDSCHNUR":OB=1 3810 IF PA=1AND OB=1 THENPRINT"UND SCHIESSPULVER. 3830 Q=1:RETURN 3900 PRINT"{DOWN}PULVER IST IM BEHAELTER.":Q=1:RETURN 4000 PRINTSPC( 9)"{GREY1,SPACE}@@@@@@@@@@@@@@@@@@@@ " 4001 PRINTSPC( 9)"M{GREEN,13SPACE}*{RVSON}++++++{GREY1,RVOFF}G" 4002 PRINTSPC( 9)"M{GREEN,15SPACE}*{RVSON}++++{GREY1,RVOFF}G" 4003 PRINTSPC( 9)"M{GREEN,16SPACE,RVSON}++++{GREY1,RVOFF}G" 4004 PRINTSPC( 9)"M{GREEN,16SPACE}*{RVSON}+{BROWN}KB{GREY1,RVOFF}G" 4005 PRINTSPC( 9)"M{GREEN,18SPACE,BROWN,RVSON}KB{GREY1,RVOFF}G" 4006 PRINTSPC( 9)"M{GREEN,18SPACE,BROWN,RVSON}JG{GREY1,RVOFF}G" 4007 PRINTSPC( 9)"N{GREEN,18SPACE,BROWN,RVSON}JG{GREY1,RVOFF}G" 4008 PRINTSPC( 9)"M{GREEN,18SPACE,BROWN,RVSON}HT{GREY1,RVOFF}G" 4009 PRINTSPC( 9)"N{GREEN,17SPACE,GREY3,SPACE,BROWN,RVSON}GT{GREY1,RVOFF}G" 4010 PRINTSPC( 9)"N{GREEN,2SPACE,ORANGE,SPACE,GREY3,SPACE,GREY1}£££{GREEN,10SPACE,GREY3,SPACE,BROWN,RVSON}GT{GREY1,RVOFF}G" 4011 PRINTSPC( 9)"N{GREEN,SPACE,GREY2,RVSON}B{RVOFF}B{GREY1}+£££+{RVSON}B{GREY2,RVOFF}B{GREEN,3SPACE,GREY3,4SPACE,WHITE,SPACE,BROWN,RVSON,SPACE}G{GREY1,RVOFF}G" 4012 PRINTSPC( 9)"M{GREEN,RVSON,2SPACE}U{2SPACE}I{5SPACE}I{4SPACE}I{3SPACE,GREY1,RVOFF}G" 4013 PRINTSPC( 9)"M{GREEN,RVSON,SPACE}I{4SPACE}U{2SPACE}U{2SPACE}K I{3SPACE}U{SPACE,GREY1,RVOFF}G" 4014 PRINTSPC( 9)"M{GREEN,RVSON,2SPACE}U U{2SPACE}J{2SPACE}I{3SPACE}U I{3SPACE,GREY1,RVOFF}G" 4015 PRINTSPC( 9)" TTTTTTTTTTTTTTTTTTTT " 4019 RA=4:OG=7:UG=7 4020 PRINT"{GREEN}VOR IHNEN LIEGT EIN VERLASSENER LAGER- 4030 PRINT"PLATZ.IN DER FEUERSTELLE BEFINDET SICH 4040 PRINT"ASCHE. 4080 GOSUB 760 4120 PRINT"{WHITE,DOWN}MOEGLICHE RICHTUNGEN : N{DOWN}" 4122 GOSUB 750 4125 IF AA=0 THENGOSUB 4600 4130 GOSUB 100 4135 IF S=5 THENGOTO 4000 4140 ON RGOTO 2500,4160,4160,4160,4160,4160 4150 GOTO 4300 4160 GOSUB 701 4300 IF V=6AND S=7AND R4=0 THENRA$(4,4)=G$(4):R4=1:Q=1:GOSUB 760 4499 GOSUB 777 4500 GOTO 4130 4600 PRINT"{DOWN}EIN GORILLA ERSCHEINT AUF DER LICHTUNG. 4610 PRINT"ER ROLLT AUF DEM BODEN HERUM UND MACHT 4620 PRINT"MAENNCHEN!":AA=1 4630 GOSUB 100:IF V=12AND S=22 THENGOTO 4700 4635 IF V=20AND S=19 THENGOTO 900 4637 IF R=1 THENPRINT"{DOWN}DER GORILLA VERSPERRT IHNEN DEN WEG." 4640 PRINT"{DOWN}DER GORILLA HAT AUFGEHOERT UND SCHAUT 4650 PRINT"SIE GRIMMIG AN! 4670 GOSUB 100:IF V=12AND S=22 THENGOTO 4700 4680 GOTO 900 4700 PRINT"{DOWN}DER GORILLA TIPPT SICH AN DEN KOPF UND 4710 PRINT"VERSCHWINDET WIEDER IM DSCHUNGEL.":RETURN 5000 PRINTSPC( 9)"{GREEN,SPACE,GREY1}@@@@@@@@@@@@@@@@@@@@{GREEN,SPACE}" 5001 PRINTSPC( 9)"{GREY1}M{BROWN,RVSON,SPACE,RVOFF}YU{RVSON}OPOI{RVOFF}UYMP{SPACE,GREEN,8SPACE,GREY1}G" 5002 PRINTSPC( 9)"M{BROWN,RVSON,SPACE,GREEN,RVOFF}TYUM EFRN M{BROWN,8SPACE,GREY1}G" 5003 PRINTSPC( 9)"M{BROWN,RVSON,SPACE}U{RVOFF}IOII{RVSON}UYYU{RVOFF}P@{GREEN}TEDFF{SPACE,2SPACE,GREY1}G" 5004 PRINTSPC( 9)"M{BROWN,RVSON,2SPACE}@POII{RVOFF}YU{RVSON}P @POI{RVOFF}Y{GREEN}J{ORANGE,3SPACE,GREY1}G" 5005 PRINTSPC( 9)"M{BROWN,RVSON,SPACE,GREEN,RVOFF,3SPACE,YELLOW,SPACE,GREEN,5SPACE}K{7SPACE,YELLOW,SPACE,GREEN,SPACE,GREY1}G" 5006 PRINTSPC( 9)"M{BROWN,RVSON}M{YELLOW,RVOFF}HTGG{GREEN,4SPACE,LIG.GREEN,SPACE,GREEN}K{5SPACE,YELLOW}Y TY{GREY1}G" 5007 PRINTSPC( 9)"M{BROWN,RVSON,SPACE,YELLOW,RVOFF}BBBH{SPACE,GREEN,3SPACE,LIG.GREEN,SPACE,GREEN}J{4SPACE,YELLOW}HYBBB{GREY1}G" 5008 PRINTSPC( 9)"M{BROWN,RVSON,SPACE,YELLOW,RVOFF}BHGB{SPACE,GREEN,4SPACE}G{4SPACE,YELLOW}HBBBB{GREY1}G" 5009 PRINTSPC( 9)"M{BROWN,RVSON}M{YELLOW,RVOFF}BBBBB{ORANGE,4SPACE,GREEN}G{ORANGE,4SPACE,YELLOW}BBBBB{GREY1}G" 5010 PRINTSPC( 9)"M{BROWN,RVSON,SPACE,GREY1,RVOFF}I{RVSON}UUYYYTTT TTYYYUU{RVOFF}IOG" 5011 PRINTSPC( 9)"M{BROWN,RVSON,SPACE,GREY1,19SPACE,RVOFF}G" 5012 PRINTSPC( 9)"M{BROWN,RVSON,SPACE,GREY1,RVOFF}U{RVSON}IIOOOPPPPPPOOOII{RVOFF}UYG" 5013 PRINTSPC( 9)"M{BROWN,RVSON}M{GREEN,RVOFF,19SPACE,GREY1}G" 5014 PRINTSPC( 9)"M{BROWN,RVSON,SPACE,GREEN,RVOFF,19SPACE,GREY1}H" 5015 PRINTSPC( 9)"M{BROWN,RVSON,SPACE,GREEN,RVOFF,19SPACE,GREY1}G" 5016 PRINTSPC( 9)"{GREEN,SPACE,GREY1}TTTTTTTTTTTTTTTTTTTT{GREEN,SPACE}" 5019 RA=5:OG=1:UG=1 5020 PRINT"{GREEN}SIE BEFINDEN SICH AM FUSS EINES BAUMES. NOERDLICH VON IHNEN LIEGT EIN 6 5030 PRINT"{8LEFT}METER{3SPACE}BREITER,MIT SCHILF BEWACHSENER SUMPF. 5040 PRINT"AN DER MITTE EINES ASTES HAENGT EINE{4SPACE}LIANE MITTEN UEBER DEM SUMPF. 5050 GOSUB 760 5120 IF SC=0 THENPRINT"{WHITE,DOWN}MOEGLICHE RICHTUNGEN : O" 5122 IF SC=1 THENPRINT"{WHITE,DOWN}MOEGLICHE RICHTUNGEN : N,O" 5125 GOSUB 750 5130 GOSUB 100 5135 IF S=5 THENGOTO 5000 5140 ON RGOTO 5600,5160,5160,2000,5160,5160 5150 GOTO 5300 5160 GOSUB 701 5300 IF V=13 THEN900 5310 IF BU=0AND S=2AND SP$(4)<>""AND V=14 THENGOSUB 5700 5320 IF BU=1AND S=18AND V=11 THENGOSUB 5710 5499 GOSUB 777 5500 GOTO 5130 5600 IF SC=1 THEN5720 5610 GOTO 5160 5700 PRINT"{DOWN}SIE HABEN PECH!DER BAUM FAELLT ENTLANG 5702 PRINT"{DOWN}DES UFERS.DER AST MIT DER LIANE STEHT 5704 PRINT"{DOWN}SENKRECHT IN DIE LUFT.":BU=1:Q=1 5705 PRINT"{DOWN}DAS BEIL IST ZERBROCHEN .":SP$(4)="":WI=WI-1 5706 RETURN 5710 PRINT"{DOWN}DIE LIANE VERFAENGT SICH IM SCHILF!":SC=1:Q=1:GOTO 5122 5720 PRINT"{DOWN}GESCHAFFT!SIE SIND AUF DER ANDEREN SEITE 5730 PRINT"{DOWN,UP}DIE LIANE IST ABER ABGERISSEN.":GOSUB 750:GOTO 6000 6000 PRINTSPC( 9)"{GREEN,SPACE,GREY1}@@@@@@@@@@@@@@@@@@@@{GREEN,GREY1}" 6002 PRINTSPC( 9)"{GREY1}M{GREEN,20SPACE,GREY1}G" 6003 PRINTSPC( 9)"N{SPACE,GREY1,GREEN,19SPACE,GREY1}G" 6004 PRINTSPC( 9)"M{GREEN,5SPACE,RVSON}+{RVOFF}-{SPACE,12SPACE,GREY1}G" 6005 PRINTSPC( 9)"M{GREEN,3SPACE}£+{RVSON,SPACE,RVOFF}+{SPACE,RVSON}£{RVOFF}£{SPACE,9SPACE,GREY1}G" 6006 PRINTSPC( 9)"M{GREEN,2SPACE,YELLOW}Q{GREEN,2SPACE,RVSON}+£-{RVOFF,SPACE}-{YELLOW}Q{GREEN,9SPACE,GREY1}G" 6007 PRINTSPC( 9)"M{GREEN,2SPACE}£{RVSON}£-£{YELLOW,RVOFF}Q{GREEN,RVSON}-{RVOFF}££{SPACE,9SPACE,GREY1}G" 6008 PRINTSPC( 9)"M{GREEN,2SPACE}-{SPACE,RVSON}+£-£{RVOFF,2SPACE}-{9SPACE,GREY1}G" 6009 PRINTSPC( 9)"M{GREEN,SPACE,YELLOW}Q{SPACE,GREEN,RVSON}££{YELLOW,RVOFF}Q{GREEN,RVSON}+-£{RVOFF,SPACE,YELLOW}Q{GREEN,9SPACE,GREY1}G" 6010 PRINTSPC( 9)"M{GREEN,2SPACE,RVSON}+{RVOFF,SPACE,RVSON}-+£{RVOFF,SPACE,RVSON}-{RVOFF}£{SPACE,9SPACE,GREY1}G" 6011 PRINTSPC( 9)"M{GREEN,2SPACE,RVSON}-{RVOFF,SPACE,YELLOW}Q{GREEN,RVSON}---{RVOFF}£ -{SPACE,8SPACE,GREY1}G" 6012 PRINTSPC( 9)"M{GREEN,2SPACE,YELLOW}Q{GREEN,2SPACE,RVSON}+-{RVOFF,2SPACE}-{YELLOW}Q{GREEN,9SPACE,GREY1}G" 6013 PRINTSPC( 9)"M{GREEN,4SPACE}+{RVSON}£+{RVOFF,2SPACE,YELLOW}Q{GREEN,10SPACE,GREY1}G" 6014 PRINTSPC( 9)"M{BROWN,RVSON}YTU{3SPACE}ITYUYTU ITYUUY{GREY1,RVOFF}G" 6015 PRINTSPC( 9)"M{BROWN,RVSON,SPACE}J{2SPACE}U{5SPACE}I{4SPACE}K{4SPACE,GREY1,RVOFF}G" 6016 PRINTSPC( 9)"M{BROWN,RVSON,3SPACE}K{3SPACE}U{5SPACE}I{3SPACE}J{2SPACE,GREY1,RVOFF}G" 6017 PRINTSPC( 9)"{BROWN,SPACE,GREY1}TTTTTTTTTTTTTTTTTTTT{BROWN,SPACE}" 6019 RA=6:OG=12:UG=11 6020 PRINT"{GREEN}SIE STEHEN VOR EINEM WILDSTRAUCH. 6030 GOSUB 760 6120 PRINT"{WHITE,DOWN}MOEGLICHE RICHTUNGEN : W,O" 6130 GOSUB 100 6135 IF S=5 THENGOTO 6000 6140 ON RGOTO 6160,6160,7000,8000,6160,6160 6150 GOTO 6300 6160 GOSUB 701 6300 IF V=6AND S=12 THENRA$(6,5)=G$(5):GOSUB 760:Q=1 6499 GOSUB 777 6500 GOTO 6130 7000 PRINTSPC( 9)"{GREY1,SPACE}@@@@@@@@@@@@@@@@@@@@ " 7001 PRINTSPC( 9)"M{BLUE,14SPACE,GREEN,6SPACE,GREY1}G" 7002 PRINTSPC( 9)"M{BLUE,2SPACE,GREEN,2SPACE,BLUE,12SPACE,ORANGE}@PRF{GREY1}G" 7003 PRINTSPC( 9)"M{BLUE,SPACE,GREEN,SPACE,BLUE,6SPACE,ORANGE}@RF*CDET{GREEN,2SPACE,GREY1}.{GREEN,SPACE,GREY1}G" 7004 PRINTSPC( 9)"M{ORANGE}@RF*CDET{GREY1}.{ORANGE,SPACE,BLUE,SPACE,GREY1}.{BLUE,SPACE,GREY1}.{BLUE,SPACE,GREY1}.{BLUE,SPACE,GREY1}.{BLUE,SPACE,GREEN,SPACE,GREY1}G" 7005 PRINTSPC( 9)"M.{GREEN,2SPACE,GREY1}.{GREY3,SPACE,GREY1}.{ORANGE,SPACE,GREY3,SPACE,ORANGE,SPACE,GREY3,SPACE,GREY1}.{GREY3,SPACE,GREY1}.{GREY3,5SPACE,GREY1}.{GREY3,SPACE,GREY1}G" 7006 PRINTSPC( 9)"M{GREEN,SPACE,GREY1}.{GREEN,2SPACE,GREY3,SPACE,GREEN,SPACE,GREY1}.{GREY3,SPACE,GREY1}.{GREY3,4SPACE,GREEN,SPACE,GREY1}.{GREEN,2SPACE,GREY1}.{GREEN,2SPACE,GREY1}G" 7007 PRINTSPC( 9)"M{GREEN,3SPACE,GREY3,SPACE,GREY1}.{GREY3,RVSON}£{4SPACE,RVOFF}£{GREEN,SPACE,GREY1}.{SPACE,GREEN,SPACE,GREY1}.{GREEN,4SPACE,GREY1}G" 7008 PRINTSPC( 9)"M{GREEN,SPACE,GREY1,SPACE,GREY3,SPACE,GREY1}.{GREEN,SPACE,GREY3}OYYYY{RVSON,SPACE,RVOFF,SPACE,GREEN,SPACE,GREY1}.{GREEN,4SPACE,GREY1,SPACE}.G" 7009 PRINTSPC( 9)"M{GREEN,SPACE,GREY1}.{GREEN,2SPACE,ORANGE,SPACE,GREY3}H{SPACE,RED}+{GREY3,2SPACE,RVSON,SPACE,GREEN,RVOFF,5SPACE,GREY1}.{GREEN,SPACE,GREY1}.{GREEN,SPACE,GREY1}G" 7010 PRINTSPC( 9)"M{GREY3,SPACE,GREY1,SPACE,GREEN,3SPACE,GREY3}LPPPP£{GREEN,SPACE,GREY1}.{GREEN,SPACE,GREY1}.{GREEN,2SPACE,ORANGE}@PO{GREY1}G" 7011 PRINTSPC( 9)"M{ORANGE,SPACE,GREY1}.{ORANGE,SPACE,GREY1}.{ORANGE,4SPACE,GREY1}.{ORANGE}@POI{RVSON}UTT .{SPACE,SPACE,GREY1,RVOFF}G" 7012 PRINTSPC( 9)"M{ORANGE,SPACE}@POI{RVSON}UYY{SPACE,2SPACE}.{2SPACE}.{3SPACE}.{SPACE,GREY1,RVOFF}G" 7013 PRINTSPC( 9)"M{ORANGE,RVSON,2SPACE}.{3SPACE}.{2SPACE}.{2SPACE}.{3SPACE}.{3SPACE,GREY1,RVOFF}G" 7014 PRINTSPC( 9)"M{ORANGE,RVSON,4SPACE}.{4SPACE}.{4SPACE}.{3SPACE}.{SPACE,GREY1,RVOFF}G" 7015 PRINTSPC( 9)" TTTTTTTTTTTTTTTTTTTT{ORANGE,SPACE}" 7019 RA=7:OG=1:UG=1 7020 PRINT"{GREEN}SIE SIND AN DER WESTKUESTE DER INSEL. 7030 PRINT"AM STRAND STEHT EINE AN LAND GESCHWEMMTE 7040 PRINT"{UP}METALLKISTE. 7050 GOSUB 760 7120 PRINT"{WHITE,DOWN}MOEGLICHE RICHTUNGEN : O" 7125 GOSUB 750 7130 GOSUB 100 7135 IF S=5 THENGOTO 7000 7140 ON RGOTO 7160,7160,7160,6000,7160,7160 7150 GOTO 7300 7160 GOSUB 701 7300 IF V=7AND S=15AND OK=1 THENGOSUB 709 7310 IF V=7AND S=15AND OK=0 THENGOSUB 7600:OK=1:Q=1 7320 IF V=10AND S=15AND OK=0 THENGOSUB 710 7330 IF V=10AND S=15AND OK=1 THENGOSUB 705:OK=0 7340 IF V=15AND S=15AND VS=0 THENGOTO 7700 7350 IF S=23AND V=20AND OK=1AND VS=0 THENGOTO 900 7360 IF S=23AND VS=0AND V=11AND OK=1AND KG=1 THENGOSUB 7800:Q=1 7499 GOSUB 777 7500 GOTO 7130 7600 IF VS=0 THENPRINT"{WHITE,DOWN}AUF DEM INHALT DER KISTE SITZT EINE " 7610 IF VS=0 THENPRINT"GROSSE,SCHWARZE VOGELSPINNE!":RETURN 7620 GOSUB 705:OK=1:RETURN 7700 PRINT"{DOWN}DER INHALT UND DIE SPINNE FALLEN HERAUS. 7702 PRINT"{UP}DIE VOGELSPINNE KRABBELT AN IHREM BEIN 7710 PRINT"HOCH!!":D=TI:LI=500:ZA=1:GOSUB 100:GOTO 900 7800 PRINT"{DOWN}DIE SPINNE LAEUFT DAVON!":VS=1 7810 RA$(7,6)=G$(6):RA$(7,7)=G$(7):GOSUB 760:RETURN 8000 PRINTSPC( 9)"{ORANGE,SPACE,GREY1}@@@@@@@@@@@@@@@@@@@@{ORANGE,SPACE}" 8001 PRINTSPC( 9)"{GREY1}M{RVSON,2SPACE,RVOFF}N{RVSON,2SPACE}M{5SPACE}G{3SPACE}M{2SPACE}G{SPACE,RVOFF}G" 8002 PRINTSPC( 9)"M{RVSON,2SPACE,RVOFF}L{RVSON,2SPACE}Y{SPACE,GREY2}JK{GREY1,2SPACE}G{2SPACE}G H G{SPACE,RVOFF}G" 8003 PRINTSPC( 9)"M{RVSON,2SPACE}G{2SPACE}HB{4SPACE}L{2SPACE}TLG B{SPACE,RVOFF}G" 8004 PRINTSPC( 9)"M{RVSON,2SPACE}B{2SPACE}- G{SPACE,GREY2}JK{GREY1,SPACE}B GMK M{SPACE,RVOFF}G" 8005 PRINTSPC( 9)"M{RVSON,2SPACE}TG B B{6SPACE}B H Y{SPACE,RVOFF}G" 8006 PRINTSPC( 9)"M{RVSON,SPACE}MGB J H{2SPACE,GREY2}JK{GREY1,2SPACE,RVOFF}K{RVSON,SPACE}G H{SPACE,RVOFF}G" 8007 PRINTSPC( 9)"M{RVSON,SPACE}NJ BH{8SPACE}MH{2SPACE}H{SPACE,RVOFF}G" 8008 PRINTSPC( 9)"M{RVSON,SPACE}LH YJ{SPACE,GREY2}JK{GREY1,6SPACE}K{2SPACE}G{SPACE,RVOFF}G" 8009 PRINTSPC( 9)"M{RVSON,SPACE,RVOFF}K{RVSON}G LG{SPACE,8SPACE}M{2SPACE}T{SPACE,RVOFF}G" 8010 PRINTSPC( 9)"M{RVSON,SPACE,RVOFF}J{RVSON,2SPACE}G{5SPACE,GREY2}JK{GREY1,4SPACE}G T{SPACE,RVOFF}G" 8011 PRINTSPC( 9)"M{RVSON,SPACE}B{2SPACE}G{10SPACE}HG H{SPACE,RVOFF}G" 8012 PRINTSPC( 9)"M{RVSON,SPACE}G NG{3SPACE,GREY2}JK{GREY1,5SPACE}-B HG{RVOFF}G" 8013 PRINTSPC( 9)"M{RVSON,SPACE}G NB{3SPACE}M{2SPACE,GREY2}JK{GREY1,2SPACE}G{RVOFF}K{RVSON}M G{RVOFF}G" 8014 PRINTSPC( 9)"M{RVSON,SPACE}T Y G{2SPACE,RVOFF}K{RVSON,6SPACE}GMM G{RVOFF}G" 8015 PRINTSPC( 9)"M{RVSON,SPACE}G H{SPACE,RVOFF}J{RVSON,2SPACE,RVOFF}J{RVSON,5SPACE}MG{SPACE,RVOFF}N{RVSON,SPACE}B{RVOFF}G" 8016 PRINTSPC( 9)" TTTTTTTTTTTTTTTTTTTT " 8019 RA=8:OG=1:UG=1 8020 PRINT"{GREEN}SIE STEHEN VOR EINER FELSWAND MIT 8030 PRINT"SPALTEN ,AN DER FUSSTRITTE SIND. 8050 GOSUB 760 8120 PRINT"{WHITE,DOWN}MOEGLICHE RICHTUNGEN : W,HINAUF" 8130 GOSUB 100 8135 IF S=5 THENGOTO 8000 8140 ON RGOTO 8160,8160,6000,8160,8600,8160 8150 GOTO 8299 8160 GOSUB 701 8299 GOSUB 777 8300 GOTO 8130 8600 IF FH=1 THENGOTO 9000 8602 IF FH=0 THENPRINT"{DOWN,WHITE}SIE STEIGEN DIE WAND HINAUF. 8610 IF FH=0 THENPRINT"{DOWN}PLOETZLICH KOMMT VON OBEN EIN HAGEL VON 8620 IF FH=0 THENPRINT"FELSBROCKEN AUF SIE ZU!!":FH=1:D=TI:LI=3600:ZA=1 8625 GOSUB 100 8630 IF S=33 THENPRINT"{DOWN}DER STEINHAGEL FAELLT AN IHNEN VORBEI!":GOTO 8650 8640 GOTO 900 8650 ZA=0:GOSUB 100 8660 IF V=18 THENGOSUB 705:GOTO 8700 8665 IF V=13 THENGOTO 8680 8670 GOTO 8650 8680 RA=9:GOTO 900 8700 PRINT"{DOWN}SIE STEHEN WIEDER IN DER WAND." 8710 GOSUB 100 8720 ON RGOTO 8730,8730,8730,8730,9000,8000 8725 GOTO 8735 8730 GOSUB 701 8735 GOSUB 777 8740 GOTO 8710 9000 PRINTSPC( 9)"{GREEN,SPACE,GREY1}@@@@@@@@@@@@@@@@@@@@{GREEN,SPACE}" 9001 PRINTSPC( 9)"{GREY1}M{GREY3,5SPACE,GREY2,RVSON}£N//NN / /N{2SPACE}N{SPACE,GREY1,RVOFF}G" 9002 PRINTSPC( 9)"M{GREY3,4SPACE,GREY2,RVSON}£NFDDYDDCPN{2SPACE}N{2SPACE,GREY1,RVOFF}G" 9003 PRINTSPC( 9)"M{GREY3,4SPACE,GREY2,RVSON}FY{2SPACE}PIOP{2SPACE}B N{3SPACE,GREY1,RVOFF}G" 9004 PRINTSPC( 9)"M{GREY3,3SPACE,GREY2,RVSON}£{2SPACE,RVOFF}O{SPACE,BLUE,SPACE}Y{SPACE,WHITE}-{GREY2}C{RVSON,2SPACE}G{3SPACE}N{GREY1,RVOFF}G" 9005 PRINTSPC( 9)"M{GREY3,2SPACE,GREY2}D{RVSON,2SPACE,RVOFF}V{2SPACE,BLUE,SPACE}T{GREY2,SPACE,WHITE}ZL{GREY2}L{RVSON,SPACE}H{2SPACE}N{SPACE,GREY1,RVOFF}G" 9006 PRINTSPC( 9)"M{GREY3,2SPACE,GREY2,RVSON}H L{RVOFF,3SPACE,BLUE}M@@@@@{GREY2,RVSON,2SPACE}GN{2SPACE,GREY1,RVOFF}G" 9007 PRINTSPC( 9)"M{GREY3,2SPACE,GREY2,RVSON,2SPACE,RVOFF,4SPACE,BLUE}/{SPACE,YELLOW,RVSON}£X{RVOFF}£M{GREY2,RVSON}J B{2SPACE}/{GREY1,RVOFF}G" 9008 PRINTSPC( 9)"M{GREY3,SPACE,GREY2}M{RVSON,SPACE}L{YELLOW,RVOFF,3SPACE,BLUE}/{SPACE,YELLOW,RVSON}£TT*{RVOFF}N{GREY2}N{RVSON,SPACE}H /{SPACE,GREY1,RVOFF}G" 9009 PRINTSPC( 9)"M{LIG.RED,SPACE,GREY2}L{RVSON,SPACE,RVOFF}K{YELLOW,2SPACE,BLUE}/{8SPACE,GREY2,RVSON,SPACE}M/{2SPACE,GREY1,RVOFF}G" 9010 PRINTSPC( 9)"M{LIG.RED,SPACE,GREY2}L{RVSON,SPACE,RVOFF}J{YELLOW,SPACE,BLUE}/{GREY1,9SPACE,GREY2,RVSON}H G{2SPACE,GREY1,RVOFF}G" 9011 PRINTSPC( 9)"M{LIG.RED,SPACE,GREY2,RVSON}K{SPACE,RVOFF}G{BLUE}/{GREY1,SPACE,BLUE,6SPACE,GREY2,3SPACE,RVSON}J H /{GREY1,RVOFF}G" 9012 PRINTSPC( 9)"M{LIG.RED,SPACE,GREY2,RVSON}K{SPACE,BLUE,RVOFF}/{GREY1,8SPACE,BLUE,2SPACE,GREY2,SPACE,RVSON}K G/{SPACE,GREY1,RVOFF}G" 9013 PRINTSPC( 9)"M{RVSON}£,{2SPACE}. ,{3SPACE},{SPACE,SPACE}. , . ,{RVOFF}G" 9014 PRINTSPC( 9)"M{RVSON}.{2SPACE}, .{SPACE,SPACE}, . ,{3SPACE}.{2SPACE,RVOFF}£G" 9015 PRINTSPC( 9)"M{RVSON,3SPACE}.{2SPACE}, .{2SPACE}.{4SPACE},{SPACE,RVOFF}£ G" 9016 PRINTSPC( 9)" TTTTTTTTTTTTTTTTTTTT " 9019 RA=9:OG=1:UG=1 9020 PRINT"{GREEN}SIE STEHEN VOR DEM EINGANG EINER HOEHLE 9050 GOSUB 760 9120 PRINT"{WHITE,DOWN}MOEGLICHE RICHTUNGEN : N,O,RUNTER" 9130 GOSUB 100 9135 IF S=5 THENGOTO 9000 9140 ON RGOTO 10000,9160,9160,11000,9160,8000 9150 GOTO 9299 9160 GOSUB 701 9299 GOSUB 777 9300 GOTO 9130 10000 PRINTSPC( 9)"{GREY1,SPACE}@@@@@@@@@@@@@@@@@@@@" 10001 PRINTSPC( 9)"M{BLUE,7SPACE,WHITE,SPACE}G{BLUE,8SPACE}N{2SPACE,GREY1}G" 10002 PRINTSPC( 9)"M{WHITE,RVSON}££{RVOFF,3SPACE,RVSON}££{RVOFF,SPACE}B{8SPACE,BLUE}M{WHITE,2SPACE,GREY1}G" 10003 PRINTSPC( 9)"M{BLUE,2SPACE,WHITE,RVSON}£ *{BLUE,RVOFF,3SPACE,WHITE}G{BLUE,4SPACE,WHITE,SPACE,BLUE,3SPACE}N{2SPACE,GREY1}G" 10004 PRINTSPC( 9)"M{WHITE,SPACE}M{3SPACE}N B{9SPACE,BLUE}M{WHITE,2SPACE,GREY1}G" 10005 PRINTSPC( 9)"M{WHITE}G{SPACE,RVSON}RRR{BLUE,RVOFF,2SPACE,WHITE}G{BLUE,3SPACE,WHITE,SPACE,BLUE,5SPACE}N{2SPACE,GREY1}G" 10006 PRINTSPC( 9)"M{WHITE}-{GREY1}M{WHITE,RVSON}EEE{RVOFF,SPACE}B{BLUE,2SPACE,WHITE,2SPACE,BLUE,6SPACE}N{SPACE,WHITE,SPACE,GREY1}G" 10007 PRINTSPC( 9)"M{WHITE}MN{SPACE,2SPACE}MG{10SPACE,BLUE}M{WHITE,2SPACE,GREY1}G" 10008 PRINTSPC( 9)"M{BLUE,SPACE,WHITE}EF{BLUE,SPACE,WHITE}FE{YELLOW,SPACE}IDETTEDI{BLUE,SPACE,YELLOW,SPACE,BLUE}N{YELLOW,2SPACE,GREY1}G" 10009 PRINTSPC( 9)"M{BLUE,3SPACE,WHITE}T{BLUE,2SPACE,YELLOW,SPACE}MEDCCDEN{BLUE,SPACE,YELLOW,SPACE,BLUE}N{2SPACE,GREY1}G" 10010 PRINTSPC( 9)"M{BLUE,6SPACE,YELLOW,2SPACE}MP@@PN{SPACE,BLUE,SPACE,YELLOW,SPACE,BLUE}N{2SPACE,GREY1}G" 10011 PRINTSPC( 9)"M{BLUE}PPPPPPP{YELLOW,RVSON}£{SPACE,RVOFF}L{2SPACE}@{RVSON,SPACE,RVOFF}£M{BLUE}P@{SPACE,SPACE,GREY1}G" 10012 PRINTSPC( 9)"M{BLUE,5SPACE,YELLOW,SPACE,RVSON}£{6SPACE,RVOFF}£{2SPACE}M{BLUE,SPACE}M{SPACE,GREY1}G" 10013 PRINTSPC( 9)"M{3SPACE,BLUE,SPACE,YELLOW,SPACE,RVSON}£TTTTTTT*{RVOFF,3SPACE}M{BLUE,SPACE}M{GREY1}G" 10014 PRINTSPC( 9)"M{BLUE,3SPACE,YELLOW,SPACE,RVSON}£ ZZW WZZ *{BLUE,RVOFF,SPACE,YELLOW,SPACE}N{BLUE,2SPACE,GREY1}G" 10015 PRINTSPC( 9)"M{BLUE,2SPACE,YELLOW,SPACE,RVSON}£{5SPACE}W{5SPACE}*{RVOFF}N{BLUE,3SPACE,GREY1}G" 10016 PRINTSPC( 9)"M{20SPACE}G" 10017 PRINTSPC( 9)"{BLUE,SPACE,GREY1}TTTTTTTTTTTTTTTTTTTT{BLUE,SPACE}" 10019 RA=10:OG=13:UG=13 10020 PRINT"{GREEN}SIE STEHEN IN EINEM GOETZENTEMPEL. 10030 PRINT"AUF DEM ALTAR BEFINDET SICH EINE SCHALE 10040 PRINT"AUS GOLD. 10100 GOSUB 760 10120 PRINT"{WHITE,DOWN}MOEGLICHE RICHTUNGEN : S{DOWN}" 10125 GOSUB 750 10130 GOSUB 100 10135 IF S=5 THENGOTO 10000 10140 ON RGOTO 10160,9000,10160,10160,10160,1160 10150 GOTO 10300 10160 GOSUB 701 10300 IF V=6AND S=13 THENGOSUB 10600 10310 IF V=1AND SP$(8)<>""AND WA=0 THENGOSUB 10700 10499 GOSUB 777 10500 GOTO 10130 10600 IF R8=0 THENPRINT"{DOWN}DIE SCHALE ENTHAELT EDELSTEINE. 10610 IF R8=0 THENRA$(10,8)=G$(8):GOSUB 760:R8=1 10620 Q=1:RETURN 10700 IF WA=0 THENGOSUB 10705 10702 Q=1:RETURN 10705 PRINT"{DOWN}DER ALTER BEGINNT IM BODEN ZU VERSCHWIN- 10710 PRINT"{UP}DEN.VOR DEN AUSGANG SCHIEBT SICH EINE 10720 PRINT"MAUER!DIE WAENDE BEGINNEN SICH AUF EIN- 10730 PRINT"ANDER ZU ZUBEWEGEN!!":WA=1:D=TI:LI=2400:ZA=1 10740 PRINT"{DOWN}MOEGLICHE RICHTUNGEN: KEINE 10750 PRINT"{DOWN}SIE SIND GEFANGEN! 10760 GOSUB 100 10770 ON RGOTO 10790,10790,10790,10790,10790,10790 10780 GOTO 10800 10790 GOSUB 701 10800 IF V=23AND S=25 THENGOTO 10900 10805 IF T=1 THENGOTO 900 10810 GOSUB 777 10820 GOTO 10760 10900 ZA=0:T=0 10910 PRINT"{DOWN}DIE WAENDE GEHEN ZURUECK.DER AUSGANG ISTFREI!":GOTO 10120 11000 PRINTSPC( 9)"{GREEN,SPACE,GREY1}@@@@@@@@@@@@@@@@@@@@ " 11001 PRINTSPC( 9)"M{GREEN}PPPPPPPPPPPP{SPACE,7SPACE,GREY1}G" 11002 PRINTSPC( 9)"M{GREEN,11SPACE}NM{7SPACE,GREY1}G" 11003 PRINTSPC( 9)"M{ORANGE}I{GREEN,SPACE,ORANGE}U{2SPACE}U{GREEN,2SPACE,ORANGE}J{GREEN,SPACE}N{SPACE,GREY2,SPACE,GREEN}M{6SPACE,GREY1}G" 11004 PRINTSPC( 9)"M{GREEN,SPACE,ORANGE}U{2SPACE,GREEN,2SPACE,ORANGE}U{GREEN,2SPACE}N{2SPACE,GREY2,SPACE,GREEN,SPACE}M{5SPACE,GREY1}G" 11005 PRINTSPC( 9)"M{ORANGE}XXXXXXXX{GREY1}PP{GREEN,5SPACE}M{4SPACE,GREY1}G" 11006 PRINTSPC( 9)"M{GREEN,8SPACE,GREY1,SPACE}NH{GREEN,5SPACE}M{3SPACE,GREY1}G" 11007 PRINTSPC( 9)"M{GREEN,8SPACE,GREY1}N{GREEN,SPACE,GREY1}LP{GREEN,5SPACE}M{2SPACE,GREY1}G" 11008 PRINTSPC( 9)"M{GREEN,5SPACE,GREY1,2SPACE}N{GREEN,SPACE,GREY1}/{GREEN,SPACE,GREY1}NH{GREEN,5SPACE}M{SPACE,GREY1}G" 11009 PRINTSPC( 9)"N{ORANGE}XXXX{GREEN,SPACE,GREY1,SPACE}N{GREEN,SPACE,GREY1}/{GREEN,SPACE,GREY1}N{GREEN,SPACE,GREY1}LP{GREEN,5SPACE}M{GREY1}G" 11010 PRINTSPC( 9)"N{ORANGE}I{GREEN,2SPACE}N{GREY1}YP /{GREEN,SPACE,GREY1}N{GREEN,SPACE,GREY1}/ NH{GREEN,5SPACE,GREY1}G" 11011 PRINTSPC( 9)"N{GREEN,SPACE,ORANGE}U{GREEN}N{WHITE,SPACE,GREY2,SPACE,GREY1}N/ N /{GREEN,SPACE,GREY1}N LP{GREEN,4SPACE,GREY1}G" 11012 PRINTSPC( 9)"N{GREEN,SPACE}N{LIG.BLUE,SPACE,GREEN,SPACE,GREY2,SPACE,GREEN,SPACE,GREY1}YP /{GREEN,SPACE,GREY1}N / NH{GREEN,3SPACE,GREY1}G" 11013 PRINTSPC( 9)"N{GREEN}N{GREY1,SPACE,LIG.BLUE,SPACE,GREEN,SPACE,GREY2,SPACE,GREEN,2SPACE,GREY1}M/ N / N{GREEN,SPACE,GREY1}LP{GREEN,2SPACE,GREY1}G" 11014 PRINTSPC( 9)"N{GREEN,4SPACE,GREY2,SPACE,GREEN,3SPACE,GREY1}YP / N / NH{GREEN,SPACE,GREY1}G" 11015 PRINTSPC( 9)"M{GREEN,4SPACE,GREY2,SPACE,GREEN,4SPACE,GREY1}N/ N{GREEN,SPACE,GREY1}/{GREEN,SPACE,GREY1}N{GREEN,SPACE,GREY1}L{GREEN,SPACE,GREY1}G" 11016 PRINTSPC( 9)"{GREEN,SPACE,GREY1}TTTTTTTTTTTTTTTTTTTT{GREEN,SPACE}" 11019 RA=11:OG=1:UG=1 11020 PRINT"{GREEN}VOR IHNEN FUEHRT EINE TREPPE AUF EINER 11021 PRINT"SCHRAEGEN RAMPE NACH UNTEN. 11050 GOSUB 760 11120 PRINT"{WHITE,DOWN}MOEGLICHE RICHTUNGEN : W,RUNTER" 11125 GOSUB 750 11130 GOSUB 100 11135 IF S=5 THENGOTO 11000 11136 IF V=24AND S=26AND R=6 THENGOTO 11500 11137 IF V=11AND G=8AND SP$(8)<>""AND R=6 THENGOSUB 705:GOSUB 11450 11138 IF V=11AND R=6OR G<>0AND R=6 THENR=0 11140 ON RGOTO 11160,11160,9000,11160,11160,11400 11150 GOTO 11299 11160 GOSUB 701 11299 GOSUB 777 11300 GOTO 11130 11400 PRINT"{DOWN}SIE GEHEN DIE TREPPE HINUNTER. 11410 PRINT"{DOWN}PLOETZLICH BEGINNT DIE TREPPE UNTER 11420 PRINT"{DOWN}IHNEN EINZUSTUERZEN!! 11430 D=TI:LI=600:ZA=1:GOSUB 100 11435 IF V=13 THENZA=0:T=0:GOTO 11500 11440 GOTO 900 11450 SP$(8)="":RA$(18,8)=G$(8):WI=WI-1:R=0:RETURN 11500 REM *** RAUM 11500 ******************************************************* 11519 RA=18:OG=1:UG=1 11520 PRINT"{GREEN,2DOWN}SIE BEFINDEN SICH AM FUSS DER TREPPE. 11530 PRINT"EIN PFAD VERLAEUFT NACH NORDEN. 11550 GOSUB 760 11600 PRINT"{WHITE,DOWN}MOEGLICHE RICHTUNGEN : N{DOWN}" 11610 GOSUB 100 11620 ON RGOTO 12000,11640,11640,11640,11640,11640 11625 IF S=5 THENGOTO 11500 11630 GOTO 11645 11640 GOSUB 701 11645 GOSUB 777 11650 GOTO 11610 12000 PRINTSPC( 9)"{ORANGE,SPACE,GREY1}@@@@@@@@@@@@@@@@@@@@{ORANGE,SPACE}" 12001 PRINTSPC( 9)"{GREY1}M{ORANGE,SPACE,GREEN}B{RVSON}++++++B{RVOFF}B{ORANGE,10SPACE,GREY1}G" 12002 PRINTSPC( 9)"M{GREEN,RVSON}BB{RVOFF}£{RVSON}++++{RVOFF}£{RVSON}B{RVOFF}BB{ORANGE,9SPACE,GREY1}G" 12003 PRINTSPC( 9)"M{GREEN,SPACE}B{RVSON}++++++BB{RVOFF,10SPACE,GREY1}G" 12004 PRINTSPC( 9)"M{GREEN,RVSON}B+{RVOFF}-{RVSON}++++{RVOFF}-{RVSON}+{RVOFF}BB{SPACE,8SPACE,GREY1}G" 12005 PRINTSPC( 9)"M{GREEN}B{RVSON}BBB{BROWN}K{GREEN,RVOFF}B{BROWN}K{GREEN}BBB{SPACE,9SPACE,GREY1}G" 12006 PRINTSPC( 9)"M{GREEN,SPACE}B{RVSON}B{RVOFF,SPACE}B{BROWN,RVSON}B{GREEN}B{RVOFF,SPACE}B{RVSON}B{RVOFF}B{SPACE,8SPACE,GREY1}G" 12007 PRINTSPC( 9)"M{GREEN,4SPACE,BROWN,RVSON}JBL{GREEN,RVOFF,13SPACE,GREY1}G" 12008 PRINTSPC( 9)"M{GREEN,4SPACE,BROWN,RVSON}JBL{GREEN,RVOFF,9SPACE,ORANGE,4SPACE,GREY1}G" 12009 PRINTSPC( 9)"M{GREEN,4SPACE,BROWN,RVSON}JBL{GREEN,RVOFF,13SPACE,GREY1}G" 12010 PRINTSPC( 9)"M{ORANGE}@{GREEN,3SPACE,BROWN,RVSON}JGL{GREEN,RVOFF,13SPACE,GREY1}G" 12011 PRINTSPC( 9)"M{ORANGE}TYED{BROWN,RVSON}HGM{ORANGE,RVOFF}CDEYEDC*FRFCD{GREY1}G" 12012 PRINTSPC( 9)"M{GREEN,4SPACE,BROWN,RVSON}HTN{GREEN,RVOFF,13SPACE,GREY1}G" 12013 PRINTSPC( 9)"M{ORANGE,RVSON,SPACE}TYT.{2SPACE}.TYU{RVOFF}IOI{RVSON}U{RVOFF}IOI{RVSON}UY{GREY1,RVOFF}H" 12014 PRINTSPC( 9)"M{ORANGE,RVSON,SPACE}.{3SPACE}.{4SPACE}.{3SPACE}.{4SPACE}.{GREY1,RVOFF}G" 12015 PRINTSPC( 9)"M{ORANGE,RVSON,4SPACE}.{3SPACE}.{4SPACE}.{2SPACE}.{3SPACE,GREY1,RVOFF}G" 12016 PRINTSPC( 9)"{GREEN,SPACE,GREY1}TTTTTTTTTTTTTTTTTTTT{ORANGE,SPACE}" 12019 RA=12:OG=1:UG=1:WE=0 12020 PRINT"{GREEN}HIER STEHT EIN BAUM DER SELTENEN GATTUNG 12030 PRINT"{UP}'ZYPRESSUS JACARANDA'. 12050 GOSUB 760 12120 PRINT"{WHITE,DOWN}MOEGLICHE RICHTUNGEN : N,S,O" 12125 GOSUB 750 12130 GOSUB 100 12135 IF S=5 THENGOTO 12000 12137 IF V=29AND S=2AND R=3 THENGOSUB 12400:R=0 12140 ON RGOTO 17000,11500,12160,13000,12160,12160 12150 GOTO 12200 12160 GOSUB 701 12200 IF V=30AND WE=1AND MA=1 THENGOSUB 12500 12299 GOSUB 777 12300 GOTO 12130 12400 PRINT"{DOWN}SIE STEHEN FUENF SCHRITTE WESTLICH DES 12410 PRINT"BAUMES.":Q=1:WE=1:RETURN 12500 PRINT"{DOWN}SIE LEGEN EIN FALTBOOT FREI.":RA$(12,9)=G$(9):WL=1:GOSUB 760 12510 Q=1:RETURN 13000 PRINTSPC( 9)"{ORANGE,SPACE,GREY1}@@@@@@@@@@@@@@@@@@@@{ORANGE,SPACE}" 13001 PRINTSPC( 9)"{GREY1}M{SPACE,3SPACE}G{15SPACE}G" 13002 PRINTSPC( 9)"M PP@{15SPACE,BROWN,SPACE,GREY1}G" 13003 PRINTSPC( 9)"MMM{2SPACE}TDFP@{2SPACE,BROWN,2SPACE,GREY1,6SPACE,BROWN,SPACE,GREY1}G" 13004 PRINTSPC( 9)"MM TDF@{2SPACE,BROWN}UDI{GREY1}@{SPACE,6SPACE,BROWN,SPACE,GREY1}G" 13005 PRINTSPC( 9)"M{ORANGE,SPACE,GREY1}G{ORANGE,SPACE,GREY1}G{ORANGE,2SPACE,GREY1}E{BROWN}/{YELLOW,SPACE,BROWN,SPACE}/{GREY1,SPACE}TEDCFR@@G" 13006 PRINTSPC( 9)"M G{ORANGE,SPACE,GREY1}T{ORANGE,2SPACE,BROWN}/{YELLOW,2SPACE,BROWN}/{GREY1}YDCFRP@{SPACE,SPACE}TG" 13007 PRINTSPC( 9)"M{ORANGE,SPACE,GREY1}B{ORANGE,SPACE,GREY1}G{ORANGE,SPACE,BROWN}/{GREEN,2SPACE,BROWN}/{SPACE,GREY1}G{ORANGE,6SPACE,GREY1}YEDG" 13008 PRINTSPC( 9)"M{ORANGE,SPACE,GREY1}Y{ORANGE,SPACE,GREY1}B{BROWN}/{GREEN,2SPACE,BROWN}/{SPACE,PURPLE,SPACE,GREY1}T{BROWN,SPACE,ORANGE,3SPACE,GREY1}T{ORANGE,4SPACE,GREY1}G" 13009 PRINTSPC( 9)"M{ORANGE,SPACE,GREY1}M{ORANGE,SPACE,BROWN}/{GREEN,2SPACE,BROWN}/{3SPACE,GREY1}T{ORANGE,4SPACE,GREY1}T{ORANGE,4SPACE,GREY1}G" 13010 PRINTSPC( 9)"M{GREY2}ED{BROWN}UDI/{ORANGE,2SPACE,BROWN,2SPACE,GREY1}G{BROWN,SPACE,ORANGE,3SPACE,GREY1}G{ORANGE,4SPACE,GREY1}H" 13011 PRINTSPC( 9)"M{ORANGE,2SPACE,BROWN}JRK{GREY2}EFPRFC*DEDCFRFC{GREY1}G" 13012 PRINTSPC( 9)"M{BROWN,SPACE,GREY2}.{BROWN,2SPACE,GREY2}.{BROWN,6SPACE,GREY2}.{BROWN,3SPACE,GREY2}.{3SPACE}.{GREY1}G" 13013 PRINTSPC( 9)"M{BROWN,3SPACE,GREY2}.{BROWN,3SPACE,GREY2}.{BROWN,9SPACE,GREY2}.{BROWN,2SPACE,GREY1}G" 13014 PRINTSPC( 9)"M{BROWN,SPACE,GREY2}.{SPACE,BROWN,2SPACE,GREY2}.{BROWN,4SPACE,GREY2}.{BROWN,2SPACE,GREY2}.{BROWN,SPACE,GREY2,4SPACE}.{GREY1}H" 13015 PRINTSPC( 9)"M{BROWN,7SPACE,GREY2}.{BROWN,7SPACE,GREY2}.{BROWN,2SPACE,GREY2}.{BROWN,SPACE,GREY1}G" 13016 PRINTSPC( 9)"{ORANGE,SPACE,GREY1}TTTTTTTTTTTTTTTTTTTT{ORANGE,SPACE}" 13017 IF SH=0 THENPRINT"{12UP}" 13018 IF SH=0 THENPRINTSPC( 17)"{YELLOW}X{DOWN,2LEFT,GREEN}UK{DOWN,3LEFT}UK{DOWN,3LEFT}UK{9DOWN}" 13019 RA=13:OG=1:UG=1 13020 PRINT"{GREEN}SIE STEHEN VOR EINEM BAUMSTAMM,DER QUER 13030 PRINT"UEBER EINER SCHLUCHT LIEGT. 13050 GOSUB 760 13120 PRINT"{WHITE,DOWN}MOEGLICHE RICHTUNGEN : W,O" 13125 GOSUB 750 13130 GOSUB 100 13135 IF S=5 THENGOTO 13000 13140 ON RGOTO 13160,13160,12000,13500,13160,13160 13150 GOTO 13200 13160 GOSUB 701 13200 IF SH=0AND V=2AND S=11AND RA$(13,5)=G$(5) THENGOSUB 13400:Q=1 13210 IF SH=0AND V=20 THENGOTO 13600 13299 GOSUB 777 13300 GOTO 13130 13400 PRINT"{DOWN}DIE SCHLANGE FRISST VON DEN FRUECHTEN.{DOWN} 13410 PRINT"SIE KRUEMMT SICH,VERLIERT DEN HALT UND 13420 PRINT"FAELLT IN DIE SCHLUCHT!":SH=1:RA$(13,5)="":RETURN 13500 IF SH=1 THENGOTO 14000 13510 GOTO 13600 13600 PRINT"{DOWN}DIE AUF DEM BAUMSTAMM LIEGENDE SCHLANGE 13601 PRINT"HAT SIE GEBISSEN!! 13605 ZA=1:LI=2000:D=TI:GOSUB 100 13610 IF V=32 THENGOSUB 777:PRINT"{DOWN}SIE HABEN KEINE SPRITZE!":GOTO 13605 13620 GOTO 900 14000 PRINTSPC( 9)"{GREY1,SPACE}@@@@@@@@@@@@@@@@@@@@ " 14001 PRINTSPC( 9)"M{GREEN,8SPACE,WHITE,RVSON}£{2SPACE}*{GREEN,RVOFF,8SPACE,GREY1}G" 14002 PRINTSPC( 9)"M{GREEN,3SPACE,GREY1}/M{GREEN,2SPACE,GREY2}N{WHITE,SPACE}TT{GREEN,SPACE,GREY2}M{GREEN,2SPACE,GREY2,SPACE,GREEN,3SPACE,GREY1}/G" 14003 PRINTSPC( 9)"N{GREEN,2SPACE,GREY1}/{GREEN,2SPACE,GREY1}M{GREY2}N{GREEN,6SPACE,GREY2}MNM{GREEN,2SPACE,GREY1}/{GREEN,SPACE,GREY1}G" 14004 PRINTSPC( 9)"N{GREEN,SPACE,GREY1}/{GREEN,3SPACE,GREY2}N{GREEN,7SPACE,GREY2}N{SPACE,GREEN,SPACE,GREY2}M{GREY1}/{GREEN,2SPACE,GREY1}G" 14005 PRINTSPC( 9)"N/{GREEN,3SPACE,GREY2}N{GREEN,7SPACE,GREY2}N{GREEN,4SPACE,GREY2}M{GREEN,2SPACE,GREY1}H" 14006 PRINTSPC( 9)"N{GREEN}CFRORFCFRP@{GREY2}N{GREEN,SPACE}@PRCDCR{GREY1}H" 14007 PRINTSPC( 9)"N{GREEN,5SPACE}@FDT{2SPACE}TYTECR@{2SPACE,GREY1}H" 14008 PRINTSPC( 9)"N{GREEN}@PIOIOP@@P@POI{RVSON}UUYU{RVOFF}IO{GREY1}H" 14009 PRINTSPC( 9)"N{GREEN,7SPACE}T{SPACE,ORANGE,SPACE}NM{2SPACE,GREEN,6SPACE,GREY1}H" 14010 PRINTSPC( 9)"N{GREEN,6SPACE,ORANGE,2SPACE,GREEN,SPACE,ORANGE}N{2SPACE}MPPPPPPP{GREY1}G" 14011 PRINTSPC( 9)"N{GREEN,8SPACE,ORANGE}N{GREEN,5SPACE,ORANGE}Q{GREEN,2SPACE,ORANGE}Q{GREEN,SPACE,ORANGE}Q{GREY1}G" 14012 PRINTSPC( 9)"N{GREEN,7SPACE,ORANGE}N{GREEN,2SPACE,ORANGE}Q Q{GREEN,3SPACE,ORANGE}Q{GREEN,SPACE,ORANGE}Q{GREEN,SPACE,GREY1}G" 14013 PRINTSPC( 9)"N{GREEN,5SPACE,ORANGE,SPACE}N{GREEN,SPACE,ORANGE,RVSON}B{GREEN,RVOFF,3SPACE,WHITE,SPACE,ORANGE,RVSON}B{WHITE,RVOFF,SPACE,ORANGE}Q{GREEN,2SPACE,ORANGE,SPACE}Q{GREY1}G" 14014 PRINTSPC( 9)"N{GREEN,4SPACE,ORANGE,SPACE}N{GREEN,3SPACE,ORANGE,RVSON}B{RVOFF,SPACE,RVSON}B{RVOFF,4SPACE}PPPP{GREY1}G" 14015 PRINTSPC( 9)"M{GREEN,4SPACE,ORANGE}N{GREEN,3SPACE,ORANGE,3SPACE,GREEN,2SPACE,ORANGE}Q{GREEN,2SPACE,ORANGE}M{GREEN,3SPACE,GREY1}G" 14016 PRINTSPC( 9)" TTTTTTTTTTTTTTTTTTTT{GREEN,SPACE}" 14019 RA=14:OG=27:UG=27 14020 PRINT"{GREEN}HIER TEILT SICH DER WEG.EIN BREITER WEG 14030 PRINT"MIT VIELEN FUSSABDRUECKEN FUEHRT NACH 14040 PRINT"SUEDEN,EIN SCHMALER PFAD NACH OSTEN. 14050 GOSUB 760 14120 PRINT"{WHITE,DOWN}MOEGLICHE RICHTUNGEN : S,W,O" 14125 GOSUB 750 14130 GOSUB 100 14135 IF S=5 THENGOTO 14000 14140 ON RGOTO 14160,15000,13000,14500,14160,14160 14150 GOTO 14200 14160 GOSUB 701 14200 IF V=6AND S=27 THENGOSUB 14400 14210 IF V=25AND G=2OR V=25AND S=28 THENGOSUB 14450 14299 GOSUB 777 14300 GOTO 14130 14400 PRINT"{DOWN}AUF DEM BODEN LIEGT EIN GLIMMENDES STUE-CK HOLZ!":Q=1:RETURN 14450 IF SP$(2)="" THENPRINT"{DOWN}SIE HABEN DAS NICHT!":Q=1:RETURN 14460 GOSUB 705:PRINT"DIE ZUENDSCHNUR BRENNT!" 14465 IF PA=0 THENPRINT"{DOWN}ES IST ABER KEIN PULVER DARIN." 14470 IF PA=1 THENQ=1:ZA=1:D=TI:LI=3600:ZU=1 14480 RETURN 14500 RA=19:OG=1:UG=1 14520 PRINT"{GREEN,2DOWN}SIE STEHEN AUF EINER WALDLICHTUNG. 14550 GOSUB 760 14600 PRINT"{WHITE,DOWN}MOEGLICHE RICHTUNGEN : S,W{DOWN}" 14606 GOSUB 750 14607 IF LE=0 THENGOTO 14950 14608 IF LE=1 THENPRINT"{DOWN}AUF DEM BODEN LIEGT EIN TOTER JAGUAR." 14610 GOSUB 100 14620 ON RGOTO 14640,16000,14000,14640,14640,14640 14625 IF S=5 THENGOTO 14520 14630 GOTO 14849 14640 GOSUB 701 14849 GOSUB 777 14850 GOTO 14610 14950 PRINT"{DOWN}EIN JAGUAR TAUCHT AUF DIE LICHTUNG AUF. 14951 PRINT"{2DOWN}ER GREIFT SIE AN!!":ZA=1:D=TI:LI=3600:LE=1 14952 GOSUB 100 14953 IF V=20AND S=29AND SP$(1)<>""AND G=1 THEN14960 14954 RA=14:GOTO 900 14960 PRINT"{DOWN}GESCHAFFT!ABER DER JAGUAR HAT IHNEN DIE 14961 PRINT"{DOWN}PULSADERN DER LINKEN HAND AUFGERISSEN!" 14962 PRINT"{DOWN}SIE DROHEN ZU VERBLUTEN!!":D=TI 14963 GOSUB 100 14964 IF V=26AND G=6AND SP$(6)<>"" THENGOSUB 705:GOTO 14970 14965 GOSUB 777:FOR I=0 TO3000:NEXT 14966 RA=16:GOTO 900 14970 PRINT"{DOWN}DIE BLUTUNG KOMMT ZUM STILLSTAND.SIE{SPACE,3SPACE}SIND GERETTET!":ZA=0:GOTO 14610 15000 PRINTSPC( 9)"{YELLOW,SPACE,GREY1}@@@@@@@@@@@@@@@@@@@@ " 15001 PRINTSPC( 9)"M{GREEN,20SPACE,GREY1}G" 15002 PRINTSPC( 9)"M{GREEN,20SPACE,GREY1}G" 15003 PRINTSPC( 9)"M{GREEN,20SPACE,GREY1}G" 15004 PRINTSPC( 9)"M{GREEN,20SPACE,GREY1}G" 15005 PRINTSPC( 9)"M{GREEN,20SPACE,GREY1}G" 15006 PRINTSPC( 9)"M{GREEN,3SPACE,GREY2}AAA{YELLOW}NM{GREY2}AAAAAA{YELLOW}NM{GREY2}AAA{GREEN,SPACE,GREY1}G" 15007 PRINTSPC( 9)"M{GREEN,2SPACE,GREY2}ABB{YELLOW}N{SPACE,GREEN,SPACE,YELLOW}M{GREY2}BBBB{YELLOW}N{GREEN,2SPACE,YELLOW}M{GREY2}BBA{GREY1}G" 15008 PRINTSPC( 9)"M{GREEN,SPACE,GREY2}AB{GREEN,SPACE,YELLOW}N{3SPACE,GREEN,SPACE,YELLOW}M{GREEN,2SPACE,YELLOW,SPACE}PEEO{GREEN,2SPACE,GREY2}B{GREY1}G" 15009 PRINTSPC( 9)"N{GREY2}ABB{GREEN,SPACE,YELLOW}PEDDEO{GREEN,3SPACE,YELLOW}NUIH{GREEN,3SPACE,GREY1}G" 15010 PRINTSPC( 9)"M{GREY2}BB{GREEN,2SPACE,YELLOW}N{GREEN,SPACE,YELLOW}UI{GREEN,SPACE,YELLOW}H{GREEN,2SPACE,BROWN,2SPACE,YELLOW}TT{GREEN,4SPACE,GREY1}G" 15011 PRINTSPC( 9)"M{GREY2}B{GREEN,2SPACE}I{YELLOW}M{GREEN,SPACE,YELLOW}BB{GREEN,SPACE,YELLOW}H{GREEN}K{SPACE,BROWN}Q{GREY3,SPACE,GREEN,3SPACE}I K{GREY1}G" 15012 PRINTSPC( 9)"M{GREY2}B{GREEN,SPACE}U{2SPACE,YELLOW}TEET{GREEN,2SPACE,BROWN}U+K{GREEN,SPACE}J I{2SPACE,GREY1}G" 15013 PRINTSPC( 9)"M{GREEN,4SPACE}K{2SPACE}I J{SPACE,BROWN}DEF{GREEN}I{SPACE,2SPACE}J{SPACE,GREY1}G" 15014 PRINTSPC( 9)"M{GREEN,SPACE}K{3SPACE}U{3SPACE}I{2SPACE}U{3SPACE}K{3SPACE,GREY1}G" 15015 PRINTSPC( 9)"M{20SPACE}G" 15016 PRINTSPC( 9)"{GREEN,SPACE,GREY1}TTTTTTTTTTTTTTTTTTTT{GREEN,SPACE}" 15019 RA=15 15020 PRINT"{GREEN}SIE STEHEN VOR DEM EINGANG DES KANNIBA- 15030 PRINT"LENDORFES. 15050 GOSUB 760 15120 PRINT"{WHITE,DOWN}MOEGLICHE RICHTUNGEN : N{DOWN}" 15125 GOSUB 750 15127 IF KA=0 THENPRINT"{DOWN}DIE KANNIBALEN HABEN SIE ENTDECKT UND{SPACE,2SPACE}GREIFEN SIE AN!" 15129 Q=1:KA=1:ZA=1:D=TI:LI=3600 15130 GOSUB 100 15135 IF S=5 THENGOTO 15000 15140 ON RGOTO 14000,15160,15160,15160,15160,15160 15150 GOTO 15300 15160 GOSUB 701 15300 GOTO 15130 16000 PRINTSPC( 9)"{GREEN,SPACE,GREY1}@@@@@@@@@@@@@@@@@@@@{GREEN,SPACE}" 16001 PRINTSPC( 9)"{GREY1}M{GREEN,20SPACE,GREY1}G" 16002 PRINTSPC( 9)"M{GREEN,20SPACE,GREY1}G" 16003 PRINTSPC( 9)"M{GREEN,8SPACE,YELLOW,10SPACE,GREEN,2SPACE,GREY1}H" 16004 PRINTSPC( 9)"M{GREEN,8SPACE,YELLOW,SPACE,RVSON}£{4SPACE,RVOFF}£M{GREEN,4SPACE,GREY1}G" 16005 PRINTSPC( 9)"M{GREEN,7SPACE,YELLOW,SPACE,RVSON}£TTTTT*{GREEN,RVOFF,SPACE,YELLOW}M{GREEN,3SPACE,GREY1}G" 16006 PRINTSPC( 9)"M{GREEN,6SPACE,YELLOW,SPACE,RVSON}£ZZW WZZ*{GREEN,RVOFF,SPACE,YELLOW}M{GREEN,2SPACE,GREY1}G" 16007 PRINTSPC( 9)"M{GREEN,5SPACE,ORANGE,SPACE,YELLOW,RVSON}£{4SPACE}W{4SPACE}*{RVOFF}N{GREEN,2SPACE,GREY1}G" 16008 PRINTSPC( 9)"N{GREY2}AAAAAA{ORANGE}PPPPPPPPPP G{GREY2}AA{GREY1}G" 16009 PRINTSPC( 9)"N{GREY2}BBBBBB{ORANGE}NMMMMMMMMM{GREEN,SPACE,ORANGE}G{GREY2}HH{GREY1}H" 16010 PRINTSPC( 9)"N{GREY2}BBBBBB{ORANGE}NMMMMMMMMM{GREEN,SPACE,ORANGE}G{GREY2}HH{GREY1}G" 16011 PRINTSPC( 9)"N{ORANGE}U{GREEN,SPACE,ORANGE}J{2SPACE}IMMMMMMMMMMN{GREEN,SPACE,ORANGE}J{GREEN,SPACE,GREY1}H" 16012 PRINTSPC( 9)"N{GREEN,3SPACE,ORANGE}I{GREEN,3SPACE,ORANGE}TTTTTTTTT{GREEN,3SPACE,ORANGE}J{GREY1}G" 16013 PRINTSPC( 9)"N{GREEN,5SPACE,ORANGE}I{GREEN,SPACE,ORANGE}K{GREEN,2SPACE,ORANGE}I{GREEN,SPACE,ORANGE}J{GREEN,2SPACE,ORANGE}U J{GREEN,2SPACE,GREY1}G" 16014 PRINTSPC( 9)"N{GREEN,SPACE,ORANGE}U{GREEN,SPACE,ORANGE}K{GREEN,4SPACE,ORANGE}U{GREEN,3SPACE,ORANGE,SPACE}K{GREEN,4SPACE,ORANGE}I{GREEN,SPACE,GREY1}G" 16015 PRINTSPC( 9)"M{GREEN,3SPACE,ORANGE}I{GREEN,2SPACE,ORANGE}U{GREEN,4SPACE,ORANGE}J{GREEN,3SPACE,ORANGE}J{GREEN,4SPACE,GREY1}H" 16016 PRINTSPC( 9)"{GREEN,SPACE,GREY1}TTTTTTTTTTTTTTTTTTTT{GREEN,SPACE}" 16019 RA=16 16020 PRINT"{GREEN}SIE BEFINDEN SICH AN DER RUECKSEITE DES 16030 PRINT"DORFES.HIER STEHT DIE OPFERHUETTE DER 16040 PRINT"KANNIBALEN.SIE IST ANSCHEINEND UNBEWACHT 16050 GOSUB 760 16120 PRINT"{WHITE,DOWN}MOEGLICHE RICHTUNGEN : N{DOWN}" 16125 GOSUB 750 16130 GOSUB 100 16135 IF S=5 THENGOTO 16000 16140 ON RGOTO 14500,16160,16160,16160,16160,16160 16150 GOTO 16300 16160 GOSUB 701 16300 IF V=28AND S=30 THENGOSUB 705:GOSUB 16800 16310 IF V=27AND S=30 THENGOSUB 705:GOSUB 16700 16499 GOSUB 777 16500 GOTO 16130 16700 PRINT"{DOWN}IN DER HUETTE IST EIN GEFESSELTER WEIS- 16701 PRINT"SER MANN.ER SAGT ZU IHNEN: 16702 PRINT"{DOWN}"CHR$ (34)"WER SIE AUCH IMMER SIND,FLIEHEN SIE! 16703 PRINT"DIE HUETTE IST BEWACHT.GEHEN SIE ZUM 16704 PRINT"BAUM NOERDLICH VOM FUSS DER TREPPE!FUENF 16705 PRINT"{UP}FUSS WESTLICH VON IHM LIEGT MEIN FALT- 16706 PRINT"BOOT VERGRABEN.FAHREN SIE ZUR FELSEN- 16707 PRINT"INSEL UND HOLEN SIE HILFE!"CHR$ (34) 16710 Q=1:MA=1:RETURN 16800 PRINT"{DOWN}DIE KANNIBALEN HABEN SIE ENTDECKT UND{SPACE,2SPACE}GREIFEN SIE AN!" 16810 Q=1:KA=1:ZA=1:D=TI:LI=3600:RETURN 17000 PRINTSPC( 9)"{GREEN,SPACE,GREY1}@@@@@@@@@@@@@@@@@@@@{GREEN,SPACE}" 17001 PRINTSPC( 9)"{GREY1}M{GREEN,20SPACE,GREY1}G" 17002 PRINTSPC( 9)"N{SPACE,GREEN,19SPACE,GREY1}G" 17003 PRINTSPC( 9)"M{GREEN,20SPACE,GREY1}G" 17004 PRINTSPC( 9)"M{GREEN,7SPACE,GREY1}£{2SPACE,GREEN,10SPACE,GREY1}G" 17005 PRINTSPC( 9)"N{GREEN,3SPACE,GREY1,SPACE}££{RVSON}£ *£*{GREEN,RVOFF,9SPACE,GREY1}G" 17006 PRINTSPC( 9)"N{WHITE,3SPACE,GREY1,RVSON}£ N{3SPACE}M *{WHITE,RVOFF,8SPACE,GREY1}G" 17007 PRINTSPC( 9)"N{LIG.BLUE,RVSON,20SPACE,GREY1,RVOFF}G" 17008 PRINTSPC( 9)"M{LIG.BLUE,RVSON,20SPACE,GREY1,RVOFF}G" 17009 PRINTSPC( 9)"N{LIG.BLUE,RVSON,20SPACE,GREY1,RVOFF}G" 17010 PRINTSPC( 9)"N{LIG.BLUE,RVSON}@O{RVOFF}UT Y{RVSON}IP@ POI{RVOFF}YT T{GREEN,SPACE,LIG.BLUE}TY{GREY1}G" 17011 PRINTSPC( 9)"N{GREEN,2SPACE,GREY2}.{GREEN,2SPACE,GREY2}.{GREEN,4SPACE,GREY3,2SPACE,GREY2}.{GREY3,SPACE,GREEN,2SPACE,GREY2}.{GREEN,3SPACE,GREY1}G" 17012 PRINTSPC( 9)"N{GREY2}.{GREEN,2SPACE,GREY2}.{GREEN,3SPACE,GREY2}.{GREEN,6SPACE,GREY2}.{GREEN,2SPACE,GREY2}.{GREEN,SPACE,GREY2}.{GREY1}H" 17013 PRINTSPC( 9)"N{GREEN,10SPACE,GREY2}.{GREEN,9SPACE,GREY1}G" 17014 PRINTSPC( 9)"M{GREEN,SPACE,GREY2}.{GREEN,SPACE,GREY2,SPACE}.{GREEN,SPACE,GREY2,SPACE,GREEN,SPACE,GREY2}.{GREEN,3SPACE,GREY2}.{GREEN,2SPACE,GREY2}.{GREEN,2SPACE,GREY2}.{GREEN,SPACE,GREY1}H" 17015 PRINTSPC( 9)"N{GREEN,20SPACE,GREY1}H" 17016 PRINTSPC( 9)"{GREEN,SPACE,GREY1}TTTTTTTTTTTTTTTTTTTT{GREEN,SPACE}" 17019 RA=17 17020 PRINT"{GREEN}SIE STEHEN AN DER NORDKUESTE DER INSEL. 17030 PRINT"IN DER FERNE IST EINE FELSENINSEL ZU 17040 PRINT"ERKENNEN. 17050 GOSUB 760 17120 PRINT"{WHITE,DOWN}MOEGLICHE RICHTUNGEN : S{DOWN}" 17125 GOSUB 750 17130 GOSUB 100 17135 IF S=5 THENGOTO 17000 17140 ON RGOTO 17160,12000,17160,17160,17160,17160 17150 GOTO 17200 17160 GOSUB 701 17200 IF S=31AND SP$(9)<>"" THENGOSUB 705:WA=1 17210 IF WA=1AND V=31AND S=32 THEN17310 17300 GOTO 17130 17310 DD=1:PRINT"{CLR}"SPC( 16)"{WHITE}DAS WAR" 17320 PRINTSPC( 13)"{10DOWN,YELLOW}O D Y S S E E 17330 PRINTSPC( 14)"{3DOWN,YELLOW}T E I L{3SPACE}1 17340 FOR I=0 TO6000:NEXT :PRINT"{CLR}"SPC( 10)"{WHITE}ERLEBEN SIE DEMNAECHST 17420 FOR X=0 TO2:GOSUB 20060:GOTO 20004 17430 PRINTSPC( 14)"{YELLOW,4DOWN}T E I L{2SPACE}2":GOSUB 750:PRINT"{WHITE,CLR}":END 20000 READ S,B:IF S<>-1 THENPOKE 55272+S,F:POKE 1000+S,B:FOR I=0 TO200:NEXT :GOTO 20000 20001 IF F=2 THENF=1:GOTO 20000 20002 FOR X=0 TO2:RESTORE :FOR I=0 TO24:READ S,B:IF S=-1 THENNEXT I 20003 POKE 1000+S,128+B:POKE 1000+S,B:NEXT I:NEXT ::GOSUB 20050:FOR X=0 TO2:GOSUB 20060 20004 PRINTSPC( 4-X)"{UP,YELLOW,2SPACE}@{SPACE,GREEN,2SPACE,YELLOW}@@{GREEN,2SPACE,YELLOW,SPACE}@ @{2SPACE}@@@{GREEN,2SPACE,YELLOW}@@@{GREEN,2SPACE,YELLOW}@@@{GREEN,2SPACE,YELLOW}@{GREEN,SPACE,YELLOW}@{GREEN,SPACE}" 20005 GOSUB 20050 20006 PRINTSPC( X)"{YELLOW,SPACE}//M /{GREEN,SPACE,YELLOW}/M{GREEN,SPACE,YELLOW}////H/{GREEN,2SPACE,YELLOW}/G/{GREEN,2SPACE,YELLOW}/G/{GREEN,2SPACE,YELLOW}/G////H" 20007 GOSUB 20050 20008 PRINTSPC( 4-X)"{RVSON}£ *{RVOFF}/G{RVSON,2SPACE}*{RVOFF}/G{RVSON,SPACE,RVOFF,SPACE,RVSON,SPACE,RVOFF,SPACE}G{RVSON,3SPACE,RVOFF}/{SPACE,RVSON,3SPACE,RVOFF}/{SPACE,RVSON,3SPACE,RVOFF}/{SPACE,RVSON,SPACE,RVOFF,SPACE,RVSON,SPACE,RVOFF,SPACE}G" 20009 GOSUB 20050 20010 PRINTSPC( X)"{RVSON,SPACE,RVOFF,SPACE,YELLOW,RVSON,SPACE,GREEN,RVOFF,SPACE,YELLOW}H{RVSON,SPACE,RVOFF,SPACE,YELLOW,RVSON,SPACE,GREEN,RVOFF,SPACE,YELLOW}G{RVSON,SPACE,RVOFF,SPACE,RVSON,SPACE,RVOFF,SPACE}G{RVSON,SPACE,RVOFF,SPACE}LP{SPACE,RVSON,SPACE,RVOFF,SPACE}LP{SPACE,RVSON,SPACE,GREEN,RVOFF,SPACE,YELLOW}LP{SPACE,RVSON,SPACE,RVOFF,SPACE,RVSON,SPACE,RVOFF,SPACE}G 20011 GOSUB 20050 20012 PRINTSPC( 4-X)"{RVSON,SPACE,RVOFF,SPACE,RVSON,SPACE,RVOFF,SPACE}H{RVSON,SPACE,RVOFF,SPACE,RVSON,SPACE,RVOFF,SPACE}G{RVSON,SPACE,RVOFF}/{RVSON,SPACE,RVOFF}/{SPACE,RVSON,SPACE,RVOFF}/ /H{RVSON,SPACE,RVOFF}/ /G{RVSON,SPACE,RVOFF}/ /G{RVSON,SPACE,RVOFF}/{RVSON,SPACE,RVOFF}/ " 20013 GOSUB 20050 20014 PRINTSPC( X)"{RVSON,SPACE,RVOFF,SPACE,RVSON,SPACE,RVOFF,SPACE}G{RVSON,SPACE,RVOFF,SPACE,RVSON,SPACE,RVOFF,SPACE}G*{RVSON,SPACE,RVOFF}£G{SPACE,RVSON,3SPACE,RVOFF,SPACE}H{RVSON,3SPACE,RVOFF,SPACE}H{RVSON,3SPACE,RVOFF}/ *{RVSON,SPACE,RVOFF}£G " 20015 GOSUB 20050 20016 PRINTSPC( 4-X)"{RVSON,SPACE,RVOFF}/{RVSON,SPACE,GREEN,RVOFF,SPACE,YELLOW}G{RVSON,SPACE,RVOFF}/{RVSON,SPACE,RVOFF,SPACE}G{SPACE,RVSON,SPACE,RVOFF,SPACE}H /{GREEN,SPACE,YELLOW,RVSON,SPACE,GREEN,RVOFF,SPACE,YELLOW}H/{GREEN,SPACE,YELLOW,RVSON,SPACE,GREEN,RVOFF,SPACE,YELLOW}G{RVSON,SPACE,RVOFF}/ /G{GREEN,SPACE,YELLOW,RVSON,SPACE,RVOFF,SPACE}G 20017 GOSUB 20050 20018 PRINTSPC( X)"{RVSON,3SPACE,RVOFF}/{SPACE,RVSON,3SPACE,RVOFF}/{2SPACE,RVSON,SPACE,RVOFF,SPACE}G{SPACE,RVSON,3SPACE,RVOFF}/{SPACE,RVSON,3SPACE,RVOFF}/{SPACE,RVSON,3SPACE,RVOFF}/{2SPACE,RVSON,SPACE,RVOFF,SPACE}G " 20019 GOSUB 20050 20020 PRINTSPC( 4-X)"*{RVSON,SPACE,RVOFF}£{2SPACE,RVSON,2SPACE,RVOFF}£{3SPACE,RVSON,SPACE,RVOFF}/{2SPACE,RVSON,2SPACE,RVOFF}£{2SPACE,RVSON,2SPACE,RVOFF}£{2SPACE,RVSON,2SPACE,RVOFF}£{3SPACE,RVSON,SPACE,RVOFF}/{2SPACE}" 20021 GOSUB 20050 20030 GOSUB 20060:PRINT"{DOWN,2SPACE,DOWN,2LEFT,2SPACE,DOWN,2LEFT,2SPACE,DOWN,2LEFT,2SPACE,DOWN,2LEFT,2SPACE,DOWN,2LEFT,2SPACE,DOWN,2LEFT,2SPACE,DOWN,2LEFT,2SPACE,DOWN,2LEFT}" 20035 GOSUB 20060:PRINT"{DOWN,3LEFT,2SPACE,DOWN,2LEFT,2SPACE,DOWN,2LEFT,2SPACE,DOWN,2LEFT,2SPACE,DOWN,2LEFT,2SPACE,DOWN,3LEFT,2SPACE,DOWN,2LEFT,2SPACE,DOWN,2LEFT,2SPACE}" 20040 NEXT 20049 GOTO 20065 20050 FOR I=0 TO400:NEXT :RETURN 20060 PRINT"{HOME,7DOWN}":RETURN 20065 IF DD=1 THENGOTO 17430 20070 PRINTSPC( 10)"{BLUE,2DOWN}EIN":GOSUB 20050 20075 PRINTSPC( 14)"{UP}ABENTEUERSPIEL":GOSUB 20050 20080 PRINTSPC( 18)"{DOWN}VON":GOSUB 20050 20090 PRINTSPC( 9)"{LIG.BLUE,DOWN}HANS":GOSUB 20050 20091 PRINTSPC( 13)"{UP}-GUENTHER":GOSUB 20050 20092 PRINTSPC( 23)"{UP}SCHRECK":GOSUB 20050 20100 DATA 33,24,35,20,37,3,39,45,41,19,43,15,45,6,47,20,49,23,51,1,53,18 20101 DATA 55,5,-1,-1,118,16,119,18,120,1,121,5,122,19,123,5,124,14,125,20 20102 DATA 126,9,127,5,128,18,129,20,-1,-1 20103 RETURN 25000 PRINT"{WHITE}SIE ERINNERN SICH: 25001 PRINT"{DOWN}SIE WAREN PASSAGIER AN BORD DES LUXUS- 25002 PRINT"LINERS 'QUEEN MARY' GEWESEN.DER TAIFUN 25003 PRINT"HATTE DIE BESATZUNG VOLLKOMMEN UEBER-{3SPACE}RASCHT. 25004 PRINT"DAS EINZIGE BRAUCHBARE RETTUNGSBOOT WAR 25005 PRINT"KURZ NACH DEM AUSSETZEN GEKENTERT. 25006 PRINT"WAS DANN GESCHAH, WISSEN SIE NICHT MEHR. 25007 PRINT"JETZT ERWACHEN SIE LANGSAM WIEDER AUS 25008 PRINT"IHRER BEWUSSTLOSIGKEIT..... 25009 :GOSUB 750:PRINT"{CLR}"CHR$ (142):RETURN 30000 PRINT"{CLR}"SPC( 17)"{WHITE,SPACE,RVSON,SPACE,RVOFF}" 30002 PRINTSPC( 17)"{RVSON,3SPACE,RVOFF}" 30003 PRINTSPC( 17)"{SPACE,RVSON,SPACE,RVOFF}" 30004 PRINTSPC( 17)"{SPACE,RVSON,SPACE,RVOFF,DOWN}" 30005 RETURN 30100 PRINT"{DOWN}NOCH EIN VERSUCH? (J/N)" 30110 GET B$:IF B$=CHR$ (74) THENCLR :GOTO 10 30120 IF B$=CHR$ (78) THENEND 30130 GOTO 30110
Diesen Artikel als PDF herunterladen
Diesen Artikel auf Mastodon teilen