1 rem           1984 by
2 rem michael nickles (tel 09372/10682)
3 rem bergstr.3  8763klingenberg 2
4 rem ********************************
5 rem *    g o r d o n   s a g a     *
6 rem ********************************
7 gosub50600:print"“"chr$(142)
8 v=53248:fori=0to62:readii:poke832+i,ii:nexti
9 dimpa(15):dimge(12):dimge$(12):dimgw(11)
10 poke53280,0:poke53281,0:print"“";
12 ge(0)=0:ge$(0)="schwert":ge(1)=0:ge$(1)="goldmuenze":ge$(2)="maus":tu(2)=0
16 pa(5)=28:ge(2)=0:ge(3)=0:tu(3)=0
17 gb(0)=1:tu(0)=0:ge(4)=1700:ge$(4)="rum":tu(1)=0:ge$(5)="schluessel":ge(5)=0
18 ge$(3)="seil":ge(6)=0:ge$(6)="ring":ge(7)=2300:ge$(7)="helm":ge(8)=2500
19 ge$(8)="brett":br=0:ge(8)=2500:ge(9)=3000:ge$(9)="fackel":tu(5)=0:tu(6)=1
20 ge$(10)="armbrust":ge(10)=3300
40 gw(0)=2:gw(1)=0.3:gw(2)=0.3:gw(3)=3:gw(4)=1:gw(5)=0.5:gw(8)=2:gw(9)=1
41 gw(10)=3:gw(11)=0.5
50 ge$(11)="kristall"
60 gosub62000
90 goto1000


100 rem gegenstand ??
110 i$="sie sehen : ":it=0:print"q";:fori=0to11
115 ifge(i)=zntheni$=i$+"ž"+ge$(i)+",":it=1
120 nexti:i$=i$+" ":ifit=0thenprint"‘‘‘":goto122
121 printi$


122 rem richtungen auswerten ---------
125 ii=0:print"eqmoegliche richtungen : ";
130 if(xxand32)=32thenprint"n,";:ii=1
135 if(xxand16)=16thenprint"s,";:ii=1
140 if(xxand8)=8thenprint"w,";:ii=1
150 if(xxand4)=4thenprint"o,";:ii=1
155 if(xxand2)=2thenprint"hinunter,";:ii=1
160 if(xxand1)=1thenprint"hinauf,";:ii=1
164 ifii=0thenprint"sie sind gefangen !           "
165 print" ":return


500 rem spieler nach befehl fragen ---
501 ifint(150*rnd(1))+1=50thengosub20000
502 poke198,0:ri=0:ifud=1thengosub32000:goto600
504 ifint(300*rnd(1))=100thenprint"qsie werden von jemandem beobachtet !"
505 x$="":poke198,0:ri=0
510 gosub30000
515 lc=0:fori=0to10:l$(i)="":nexti
520 fori=1tolen(x$)
525 :ifmid$(x$,i,1)=" "thenlc=lc+1:goto540
530 :iflc>10thenprint"qeingabe ist zu lang !":i=len(x$):goto540
535 :l$(lc)=l$(lc)+mid$(x$,i,1)
540 nexti:iflc>10then510


600 rem satz x$ analysieren
601 ri=0:ob=0:gg=0:g1=-1:uf=0:ve=0
603 im=0:ifud=0thenim=0
604 ifud=1thenud=0
605 formm=imtolc:e$=l$(mm):ife$="und"thenim=mm+1:mm=lc+1:ud=1:goto680
606 ic=0:ife$="n"orleft$(e$,3)="nor"thenic=1:if(xxand32)=32thenri=2
607 ife$="s"orleft$(e$,3)="sue"thenic=1:if(xxand16)=16thenri=3
608 ife$="w"orleft$(e$,3)="wes"thenic=1:if(xxand8)=8thenri=4
609 ife$="o"orleft$(e$,3)="ost"thenic=1:if(xxand4)=4thenri=5
610 ife$="hinunter"ore$="runter"ore$="hinab"thenic=1:uf=1:if(xxand2)=2thenri=6
612 ife$="hinauf"ore$="rauf"thenic=1:if(xxand1)=1thenri=7
613 ific=1andri=0andve<>24thenprint"qkein weg in diese richtung !":ve=-1:ic=0
615 ife$="nimm"andve<>2thenve=1
616 ifleft$(e$,5)="verli"andve<>1thenve=2
617 ife$="i"ore$="inventur"thenve=3
623 ife$="toete"thenve=4
624 foriu=0to11:ife$=ge$(iu)andgg=0andge(iu)<0thengg=iu+1
625 ife$=ge$(iu)andiu+1<>ggandge(iu)<0theng1=iu+1
626 nextiu:ifright$(e$,4)="tuer"thenob=1
627 ife$="oeffne"thenve=5
628 ife$="truhe"thenob=2
629 ifleft$(e$,5)="trink"thenve=6
631 ifleft$(e$,4)="zers"ore$="vernichte"thenve=7
632 ife$="spiegel"thenob=3
633 ife$="entriegle"thenve=8
634 ifleft$(e$,4)="dreh"thenve=9
635 ifleft$(e$,4)="setz"orleft$(e$,4)="trag"thenve=10
636 i$=left$(e$,5):ifi$="verru"ori$="versc"ori$="beweg"ore$="hebe"thenve=11
637 ife$="teppich"thenob=4
638 ifi$="druec"ori$="betae"orleft$(e$,4)="zieh"thenve=12
639 ife$="falltuer"thenob=5
640 ife$="hebel"thenob=6
641 ifi$="befes"ore$="verknote"ore$="verbinde"ore$="fest"thenve=13
642 ifleft$(e$,3)="leg"orleft$(e$,7)="plazier"thenve=14
643 ife$="schacht"ore$="grube"thenob=7
644 ifleft$(e$,7)="kletter"thenve=15
645 ife$="seil"andzn=2000thengg=4
646 ife$="brett"andzn=2000theng1=9
647 ife$="gib"ore$="besteche"thenve=16
648 ifleft$(e$,7)="beruehr"thenve=17
649 ife$="wand"ore$="mauer"thenob=8
650 ife$="iss"thenprint"qwuerg wuerg ..."
651 ifleft$(e$,7)="untersu"thengosub6000:ve=-1
652 ifleft$(e$,4)="sing"thenprint"qsie singen ein lied.":ve=-1
653 ife$="schau"thenri=1
655 ife$="warte"ore$="schlafe"thenprint"qzeit vergeht............":ve=-1
656 ifleft$(e$,4)="hilf"thenprint"quntersuche dann denke !":ve=-1
658 ifleft$(e$,6)="spring"andzn=2700thenri=3
659 ifleft$(e$,4)="fels"thenob=9
660 ifright$(e$,5)="kiste"thenob=10
661 ifleft$(e$,6)="schwim"thenve=18
662 ifleft$(e$,6)="verlas"thenve=19
663 ife$="betrete"orleft$(e$,5)="steig"orleft$(e$,3)="geh"thenve=20
664 ifleft$(e$,6)="spring"thenve=21
665 ifleft$(e$,7)="schlies"ore$="zu"thenve=22
666 ife$="lies"ore$="lese"thenve=23
667 ifright$(e$,6)="saeule"ore$="mulde"thenob=12
668 ife$="wirf"thenve=24
669 ifleft$(e$,5)="stell"thenve=25
670 ife$="bete"thenprint"qsie beten........":ve=-1
671 ifleft$(e$,3)="hoch"thenve=26
672 ife$="supermike"thenprint"q0937210682":ve=-1:rem"“
680 nextmm
700 ifve>2orve=0then780
710 ip=0:ii=0
711 it=0:ifl$(ii)="und"then780
712 fori=0to11:i$=ge$(i):ifi$="tote maus"theni$="maus"
715 ifl$(ii)<>i$then722
720 ifve=1thengosub10000:ifig=0andge(i)=znthenge(i)=-1:print"ok.":it=1
721 ifve=2thengosub10000:ifge(i)=-1andig=0thenge(i)=zn:print"ok.":it=1
722 ifl$(ii)="brett"thenbr=0:rv=0
723 ifve=2andl$(ii)="helm"thenhm=0
724 ifl$(ii)="seil"thenbr=0
726 nexti
727 ii=ii+1:ifii<lc+1then711
731 ifit=0andve=1andig=0thenprint"qsie koennen das nicht nehmen.":it=1
732 ifit=0andve=2andig=0thenprint"qsie haben das nicht.":it=1
780 ifve<>3then789
782 print"qsie haben : ";
784 ii=0:fori=0to11:ifge(i)<0thenprintge$(i)",";:ii=1
786 nexti:print" ";:ifii<>1thenprint"nichts"
788 print

789 rem
790 ifve=9andgg=7andzn<>2200andro>-3thenprint"qok. es passiert nichts !":ro=ro-1
791 ifro=-3thenprint"qder ring hat sich in rauch aufgeloest !":ge(6)=0:ro=-4
800 ifve=6andgg=5thenprint"qein abenteurer braucht einen rklaren’     kopf !"
802 ifve<>10orgg<>8then805
803 ifhm=1thenprint"qsie haben sich den helm bereits aufge - setzt.":goto805
804 print"qsie spueren wie ihre muskelkraft stark  zunimmt !":hm=1
805 ifve<>13then810
806 iu=ge(3)
807 ifiu=-1oriu=znthenifgg=4andg1=9thenifge(8)=-1orge(8)=znthenbr=1:print"ok"
808 xx=22:remifge(8)=znthenge(3)=zn:xx=22

810 rem
815 ifve=2andgg=3andzn<>1300thenprint"die maus huscht davon.":ge(2)=0
817 ifve=4andgg=3andge(2)=-1thenprint"qok -die maus ist tot.":ge$(2)="tote maus"
820 ifve=15andzn=1000thenprint"qviel zu steil !"
890 ifve=0andri=0thenprint"qich verstehe das nicht."
900 return
950 poke198,0:wait198,1:return


1000 rem room 1
1005 print,"qr  ¢¿¬ ¬»            "
1006 print,"r  ¿ ¡»¿¾¬¿          "
1007 print,"r   ¿’¡r ¿»¡           "
1008 print,"r    ¸¿¡¿¼           "
1009 print,"r      ’ r¡            "
1010 print,"r     ’¡ r    ¢’ ¼r      "
1011 print,"r     ’´ªr   ’¡   r¡     "
1012 print,"r     ’¡ r´  ’     r  ’eQr  "
1013 print,"r      ’ r¡  ’     r ’eQrB’eQr "
1014 print,"r      ’ r¡  ’     r BBB "
1015 print,"•r      ’ r¡            "
1016 print,"r     ’¬¬»r            "
1017 print,"r    ’¿r ¿ ¿           "
1018 print,"r                    "
1020 print"qesie befinden sich vor einem hoehlenein -gang des teufelsgebirges."
1021 print"vor dem eingang stehen pfaehle mit toten- schaedeln und ein alter ";
1022 print"baum."
1030 zn=1000:xx=32:gosub100:gosub500
1040 onrigoto1000,1100
1050 gosub500:goto1040


1100 rem room 2
1102 print,"qr•                  "
1103 print,"r                  "
1104 print,"¦¡¦¡¦¦¡¦¦¦¡¦¦¶¦¦¶¦
1105 print,"¦ ¶ ¶¦ ¶¦¶ ¶¡ ¦| ¦
1106 print,"¡    ¡  µ   ´ ¶  ¶qqqq
1108 print,"   ¹¹¹  ¹¹  ¹¹ ¹
1109 print,"r•                  
1110 print,"r                  e"
1115 print"qsie sind in der hoehle.die luft ist kaltund feucht . am boden sind";
1116 print" viele kleine wasserpfuetzen . der gang teilt sich in vier ";
1117 print"richtungen."
1118 zn=1100:xx=60:gosub100:gosub500
1120 onrigoto1100,2000,1000,1200,1300,1130,1130
1130 gosub500:goto1120


1200 rem room 71
1201 zn=1200:xx=36
1205 print"eqsie sind in einem langen noerdlich ver- laufenden gang.
1206 ifgb(0)=0thenprint"qam boden liegt ein totes monster.":goto1220
1207 print"ein schlafendes monster blockiert den   weg!":gy=1
1210 gosub950
1212 print"eqdas monster ist aufgewacht , blickt sie grimmig an und ergreift ";
1215 print"seine steinkeu- le !":gosub1250:gosub500
1216 ifve<>4orgg<>1thenvl=1:goto39000
1217 print"qsie haben das monster mit einem schlag  enthauptet.":gy=0:gb(0)=0
1218 print"waehrend dem kampf hat es einen ";ge$(m7);" verloren !":ge(m7)=1200
1220 gosub100:gosub500
1225 onrigoto1200,1400,1230,1230,1100
1230 gosub500:goto1225
1250 print,"     £» ¬
1251 print,"ž     ¿ r¿’
1252 print,"•    ¬rM N’»
1253 print,"    ¼r C ’¾
1254 print,"     rUCI’
1255 print,"  ¬r       ’»
1256 print," ¬r   ¦¦¦   ’»
1257 print," r  ’¾r ¦¦¦ ’¼r  ’
1258 print," r ¶’ r ¦¦¦ ’ rµ ’
1259 print," žr¿’¿•¬r     ’»rž¿’er¡ ’»
1260 print,"   •r  ’¡ r¡  ’  er  ’»
1261 print,"  •r¡  ’   r  ’¡ e¼r  ’
1262 print,"  •r__’¾   ¼r__’  e¼¾
1263 print," •r¬ ¬’     r» »’e":return


1300 rem room 303
1301 zn=1300:xx=8:ri=0
1305 print,"rq•±²±²±²±²±²±²±²±²±²±²±
1306 print,"r²±²±²±²±²±²±²±²±²±²±²
1307 fori=1to5:print,"r±²±²±²ž.........•²±²±²±
1308 print,"r²±²±²±ž.’ r.’ r.’ r.’ r.•±²±²±²":next
1317 print,"r±²±²±²’žS S S S Sr•²±²±²±
1318 print,"‘‘‘‘‘‘‘‘]]]]]]]]]‘r©’]r’qqr ’]r ’qq]©qqq"
1319 iftu(3)=0then1321
1320 print"‘‘‘‘‘‘‘‘‘‘‘‘":fori=1to11:print,"]]]]]]         ":next:gosub1370:goto1324
1321 print"eqsie stehen vor einem riesigen fallgit - ter.weit hinter dem git";
1322 print"ter leuchtet ein geheimnisvolles giftgruenes licht !"
1323 print"sie hoeren wasser rauschen.
1324 print"eine stimme ruft 'suche den uralten !'":gosub100
1325 ifge(2)<>1300orge$(2)="tote maus"then1340
1327 print"qdie maus schluepft durch das fallgitter.":ge(2)=0
1328 fori=1to2000:nexti:fori=1to30:poke53281,1:poke53281,0:nexti
1329 print"hinter dem gitter hat es grell aufgebli-tzt.das gruene licht ist ";
1330 print"verschwunden !"
1331 print"qdas fallgitter geht ratternd hoch und   gibt den weg frei.":tu(3)=1
1332 xx=24:gosub100
1340 rem
1350 onrigoto1300,1355,2700,1100
1355 gosub500:goto1325
1370 print"qesie stehen vor einem riesigen eingang.":xx=24:return


1400 rem room 301
1401 xx=48:zn=1400:iftu(0)=1thenxx=56
1403 print"qsie sind in einem langen gang.links von ihnen ist eine tuer aus ";
1404 print"schweren holz - latten und balken."
1410 gosub100:gosub500
1416 ifve=8orve=5thenifob=1andge(5)=-1thentu(0)=1:print"ok."
1417 iftu(0)=1thenprint"qdie tuer ist offen !":xx=56:gosub100
1418 ifve=8orve=5thenifge(5)>=0andtu(0)<>1thenprint"qsie haben keinen schluessel."
1420 onrigoto1400,1600,1200,1500
1425 gosub500:goto1416


1500 rem room 82
1505 zn=1500:xx=4
1510 print,"qr˜±²±²±²±²±²±²±²±²
1511 fori=1to2:print,"r²±²±²±²±²±²±²±²±
1512 print,"r±²±²±²±²±²±²±²±²":next
1515 print,"r²±²ž          ˜±²±
1516 print,"r±²±²•¡˜±²±²±²•¡˜±²±²
1517 print,"r²±²±•¡˜²±²±²±•¡˜²±²±
1518 print,"r±²±²•¡˜±:°®:˜²•¡˜±²±²
1519 print,"r²±²±•¡˜²::::˜±•¡˜²±²±
1520 print"qein diesem zimmer befindet sich ein tischunter dem eine ";
1521 print"riesige uralte truhe     steht."
1525 gosub100:gosub500
1526 ifve<>1orob<>2then1528
1527 print"qdas geht nicht - die truhe ist viel zu  schwer zum tragen."
1528 ifve<>5orob<>2then1533
1529 print"qdie truhe ist offen.":ifge(m1)+ge(m2)<>0thenprint"qsie ist leer."
1530 ii=0:ifge(m1)=0thenge(m1)=1500:ii=1
1531 ifge(m2)=0thenge(m2)=1500:ii=1
1532 ifii=1thengosub100
1533 onrigoto1500,1535,1535,1535,1400
1535 gosub500:goto1526


1600 rem room 363
1601 zn=1600:xx=52
1605 print"qsie sind in einem langen gang.hier be - findet sich ebenfalls ";
1606 print"eine tuer hinter  der ein schrecklicher gesang zu hoeren  ist ."
1610 gosub100:gosub500
1615 ifve=5andob=1thentu(1)=1:print"qok. die tuer ist offen.":xx=60:gosub100
1620 onrigoto1600,1800,1400,1700,2100
1625 gosub500:goto1615


1700 rem room 370
1703 zn=1700:xx=4
1705 print"qsie sind in dem zimmer . an einem tisch sitzen zwei uebelriech";
1706 print"ende kreaturen ,  die voellig betrunken sind !"
1710 gosub100:gosub500
1711 ifint(10*rnd(1))<>5then1714
1712 print"qeiner der betrunkenen singt ' yo yo un  aene flasche voll rum ....'
1714 ifint(9*rnd(1))=5andge(4)=1700thengosub1730
1715 ifve=4thenprint"qein abenteurer toetet keine wehrlosen   betrunkenen !"
1716 ifge(4)=-1thenprint"qdie betrunkenen groelen 'wer hat unsren rum weg ?'"
1720 onrigoto1700,1725,1725,1725,1600
1725 gosub500:goto1711
1730 print"qeiner der betrunkenen wirft die rumfla- sche mit voller wucht ";
1731 print"auf sie zu.":poke198,0:wait198,1
1733 print"qdie flasche verfehlt ihren kopf um haar-esbreite und zerschellt ";
1735 print"an der wand. diebetrunkenen brechen in gelaechter aus.":ge(4)=0
1736 return


1800 rem room 180
1801 zn=1800:xx=16
1805 print,"qr—±²±²±²±²±²±²±²±"
1806 print,"r²±²±²±²±²±²±²±²"
1807 print,"r±²±²±²±²±²±²±²±"
1808 print,"r²±²±²˜M___N—²±²±²"
1809 print,"r±²±²±˜§•BBB˜¥—±²±²±"
1810 print,"r²±²±²˜§•HGG˜¥—²±²±²"
1811 print,"r±²±²±˜§•BGT˜¥—±²±²±"
1812 print,"r²±²±²˜§•°BB˜¥—²±²±²"
1813 print,"r±²±²±˜§• BG˜¥—±²±²±"
1814 print,"r²±²±²˜§•BHH˜¥—²±²±²"
1815 print,"r±²±²±˜N···M—±²±²±"
1820 print"qesie sind am ende des ganges angelangt   und stehen vor einer ";
1821 print"holztuer . es herr-scht hier eine merkwuerdige stille !"
1825 gosub100:gosub500
1830 ifve=5andob=1thentu(2)=1:print"qok. die tuer ist offen.":xx=48:gosub100
1835 onrigoto1800,1900,1600
1840 gosub500:goto1830


1900 rem room 326
1903 zn=1900:xx=16:print
1904 ifpa(0)=1thenprint"eder raum ist mit gas gefuellt.":vl=2:goto39000
1905 fori=1to5:print,"r•²±²±²±²±²±²±²±
1906 print,"r±²±²±²±²±²±²±²":next
1908 print,"‘‘‘‘‘‘‘]]]]]reO··Pq´  ªq´  ªqL¯¯º"
1915 print"qqqqesie befinden sich in dem raum . an der  wand haengt ein alter ";
1916 print"spiegel."
1917 gosub100:gosub500
1920 ifve=1andob=3thenprint"qder spiegel ist zu gut an der wand be - festigt !"
1925 ifve<>7orob<>3orgg<>1then1940
1927 print"qder spiegel ist in tausend scherben zer-sprungen !
1929 print"ein geheimfach hinter dem spiegel wird  sichtbar !"
1930 ge(m5)=1900:xx=0:gosub100:ti$="000000":pa(0)=1
1931 print"die tuer ist zugefallen !"
1933 print"qaus der wandoeffnung stroemt ein gelb - liches gas aus !!!"
1940 ifpa(0)=1thenprint"qdas gas breitet sich immer mehr aus !!!"
1941 ifve=5andob=1thenprint"qdie tuer laesst sich nicht mehr oeffnen!"
1942 ifve=7andob=1andgg=1thenprint"qok - die tuer ist offen .":xx=16:gosub100
1950 onrigoto1900,1955,1800
1955 ifti$>"000130"andpa(0)=1thenvl=2:goto39000
1960 gosub500:goto1925


2000 rem room 2000
2001 zn=2000:xx=20
2004 print,"q•ªr               ’©•´
2005 print,"•ª r             ’© •´
2006 print,"ª  r           ’©  •´
2007 print,"ª   r         ’©   •´
2008 fori=1to3:print,"ª    r±²±²±²±²±’    ´
2009 print,"ª    r²±²±²±²±²’    ´":next
2014 print,"ª    r±²±²±²±²±’    ´
2015 print,"ª   r©         ’   •´
2016 print,"ª  r©   ’©r•   ’r   ’  •´
2017 print,"ª r©   ’© r•   ’ r   ’ •´
2018 print,"ªr©               ’•´
2020 print"qesie stehen vor einem ein meter breiten  schacht der steil nach";
2021 print" unten fuert."
2023 gosub100:gosub500
2025 ifri=6andbr=3andwe>1.9thengosub2070
2030 ifve<>14org1<>9orob<>7then2035
2031 xx=22
2032 ifge(8)<>znthenge(8)=zn:we=we-gw(8)
2034 print"qok - das brett liegt ueber dem schacht. ":rv=1
2035 ifve=14andgg=9andge(8)<0andob=7thenprint"ok.":ge(8)=zn:we=we-gw(8)
2036 ifve=21thenprint"qok-sie springen hinab...":vl=15:goto39000
2037 ifbr=3andwe<2anduf=1then3000
2038 ifve=24thengosub2060
2039 ifuf=1andbr=0andve<>24thenvl=15:goto39000
2040 ifbr=1andge(8)>0andrv=1thenprint"qdas seil haengt hinab.":br=3
2041 ifbr=3andge(3)<>znthenwe=we-gw(3):ge(3)=zn
2045 onrigoto2000,2050,1100,2050,2600,2050,2050
2050 gosub500:goto2025
2060 ic=0:rem werfen
2062 fori1=0tolc:e$=l$(i1):ife$="alles"thenprint"qbitte eins nach dem anderen !"
2063 fori=0to11
2064 ifge$(i)=e$andge(i)=-1thenprint"ok.":ge(i)=3000:we=we-gw(i):ic=1
2065 ifge$(i)=e$andge(i)=3000ande$="rum"thenge(4)=123
2067 nexti:nexti1
2068 ific=0thenprint"qsie haben das nicht."
2069 return
2070 print"qmit so vielen sachen wie sie bei sich   haben koennen sie nicht";
2071 print" klettern.":return


2100 rem room 2100
2103 zn=2100:xx=13
2105 print,"qr•²±²±²±²±²±²±²±
2106 print,"r±²±²±²±²±²±²±²
2107 print,"r²±²±’©    r²±²±
2108 print,"r±²±’©      r²±²
2109 print,"r²±²’     rO··•±²±
2110 print,"r±²±’    rO···•²±²
2111 print,"r²±²’   rO····•±²±
2112 print,"r±²±’  rO·····•²±²
2113 print,"r²±²’ rO······•±²±
2114 print,"r±²±O·······•²±²
2120 print"qesie stehen vor einer steintreppe die    nach oben fuehrt.
2130 gosub100:gosub500
2150 onrigoto2100,2160,2160,1600,2400,2160,2200
2160 gosub500:goto2150


2200 rem room 2200
2205 zn=2200:xx=3
2210 print"qesie befinden sich auf einer sehr langen,steilen treppe."
2230 print"sie hoeren ein donnern und poltern ,das immer lauter wird !"
2235 gosub100:gosub950
2237 print"qeine riesige steinkugel rollt die treppehinunter - direkt auf ";
2238 print"sie zu !!!":ti$="000000"
2240 pa(1)=1:gosub500
2245 ifve<>9orgg<>7then2250
2246 print"qok- aus dem ring ist ein goldener strahlauf die kugel geschossen ";
2247 print"und hat sie in luft aufgeloest !":pa(1)=0:ro=ro-1
2248 ifro=-3thenprint"qder ring hat sich in rauch aufgeloest !":ge(6)=0:ro=-4
2250 ifpa(1)<>1then2285
2252 print"qdie kugel kommt immer naeher !!!"
2280 ifti$>"000030"thenvl=4:goto39000
2282 gosub500:goto2245
2285 onrigoto2200,2290,2290,2290,2290,2100,2300
2290 gosub500:goto2285


2300 rem room 2300
2303 zn=2300:xx=2
2305 print,"q•¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
2306 print,"r’             r©"
2307 print,"r ’           r© "
2308 print,"r  ’         r©  "
2309 print,"r   •±²±²±²±²±   
2310 print,"r   •²±²±²±²±²   
2311 print,"r   •±²±²±²±²±   
2312 print,"r ’ r •²±²±²±²±²   
2313 print,"r ’ r •±²±²±²±²±   
2314 print,"r ’ r •²±²±²±²±²   
2315 print,"r ’ r •±²˜©   •²±r   "
2316 print,"r ’_©  ˜µµ ¶¶  r  "
2317 print,"r ’    ˜µ   ¶   r 
2318 print,"©             
2319 print,"•···············
2320 print"qesie befinden sich in einem kleinen raum in dem ein kleiner tisch";
2321 print" steht.":ifge(7)<>2300then2330
2322 print"auf dem tisch liegt ein strahleneder goldener helm."
2330 gosub100:gosub500
2350 onrigoto2300,2360,2360,2360,2360,2200
2360 gosub500:goto2350


2400 rem room 2400
2405 zn=2400:xx=56
2410 print"qesie sind in einer dunklen grotte . der  weg teilt sich in mehrere";
2411 print" richtungen."
2420 gosub100:gosub500
2430 onrigoto2400,2500,2600,2100
2440 gosub500:goto2430


2500 rem room 2500
2505 zn=2500:xx=0:ac=0:gosub2570
2510 print"qesie sind in einem 10*10 meter grossen   raum in dessen mitte ein";
2511 print" kleiner roter  teppich liegt .
2515 print"ein schweres fallgitter aus eisen ist   herruntergefallen und ver";
2516 print"sperrt den ein-zigen ausgang !":gosub950:gosub100
2518 print"qsie vernehmen ein immer lauter werdendesrattern - die zimmerdecke";
2519 print" bewegt sich   immer schneller nach unten !!!":ti$="000000":pa(2)=1
2530 ifve<>11andve<>26orob<>4then2535
2532 print"qeine falltuer die von dem teppich ver - deckt war ist nun sichtbar."
2533 ac=1
2535 ifve<>5orob<>5orac<1then2540
2537 print"qok-die falltuer ist offen - ein geheim -fach in dem ein hebel ist !!
2538 ac=2
2540 ifve<>12orob<>6orac<2then2545
2541 print"qok-die zimmerdecke bewegt sich wieder   nach oben,das fallgitter ";
2542 print"geht wieder    hoch und gibt den ausgang frei !":xx=16:pa(2)=0
2543 gosub100
2545 ifve<>25orgg<>9then2550
2546 print"qok- das brett biegt sich unter dem star-ken druck der decke .......
2547 fori=1to2000:next:print"qes ist zerbrochen !":ge(8)=0
2550 ifpa(2)=1thenprint"qdie zimmerdecke senkt sich immer mehr !!"
2551 ifti$>"000130"andpa(2)=1thenvl=5:goto39000
2555 onrigoto2590,2560,2400
2560 gosub500:goto2530
2570 print,"q•ªr              ’©•´
2571 print,"ª r            ’© •´
2572 print,"ª  r          ’©  •´
2573 print,"ª   r±²±²±²±²±²’   ´
2574 print,"ª   r²±²±²±²±²±’   ´
2575 print,"ª   r±²±²±²±²±²’   ´
2576 print,"ª   r²±²±²±²±²±’   ´
2577 print,"ª   r±²±²’ž{{r•±²±²’   ´
2578 print,"ª   r²±²±’ž{{r•²±²±’   ´
2579 print,"ª   r±²±²’ž{{r•±²±²’   ´
2580 print,"ª  r©   ____   ’•  ´
2581 print,"ª r©   §£    ¥   ’• ´
2582 print,"ªr©     ££££     ’•´
2583 return
2590 print"qsie sehen einen roten teppich.":goto2560


2600 rem room 2600
2603 zn=2600:xx=40
2605 print,"qr•²±²±²±²±²±²±²±²±²±²±
2606 print,"r±EREH SAW EKIMREPUS²
2607 print,"r²±²±²±²±²±²±²±²±²±²±
2610 print"qesie befinden sich in einem engen gang.  an der wand sind seltsame";
2611 print" zeichen ein-  geritzt."
2614 print"rechts oben ca 4 meter ueber dem boden  befindet sich eine oeffnung";
2615 print" in der wand."
2620 gosub100:gosub500
2630 onrigoto2600,2400,2640,2000
2640 ifve=23thenprint"qsie koennen keinen sinn daraus erlesen."
2650 gosub500:goto2630


2700 rem room 2700
2705 zn=2700:xx=32
2713 print,"qªr¯¯¯¯¯¯¯¯¯¯¯’©´
2714 print,"ª r¯¯¯¯¯¯¯¯¯’© ´
2715 print,"ª  r¯¯¯¯¯¯¯’©  ´
2716 print,"ª   r¯¯¯¯¯’©   ´
2718 print,"ª    r¯¯¯’©    ´
2719 print,"ª     •r²±²’     ´
2720 print,"ª     •r±’ r±’     ´
2721 print,"ª     •r²’ r²’     ´
2722 print,"ª  •NMr©   ’NM  ´
2723 print,"ª •ª  r_____’  •´ ´
2724 print,"ª •ªrš_________’•´ ´
2725 print,"ª •r©£££££££££’ ´
2726 print,"ª•r©           ’´
2730 print"qesie befinden sich in einem langen gang  der in der mitte von ";
2731 print"einem 4 meter brei-ten,reissenden fluss gekreuzt wird."
2735 gosub100:gosub500
2740 ifri<>3then2760
2741 ifpa(8)<>0thenvl=14:goto39000
2742 print"qsie holen anlauf und springen mit vollerkraft ueber den fluss."
2743 fori=1to3000:next
2744 ifge(0)=-1thenvl=11:goto39000
2745 print"qals sie landen wirkt ploetzlich eine un-heimliche kraft auf sie ";
2746 print"und zieht sie ineine grotte hinein.":poke198,0:wait198,1
2760 onrigoto2700,1300,2800
2770 gosub500:goto2740


2800 rem room 2800
2805 zn=2800:xx=0:bt=ge(8):gosub2880
2830 print"qesie sind in einer grotte deren decke    sehr sehr hoch ist."
2831 print"ein riesiger felsbrocken verschliesst   den einzigen ausgang."
2835 print"auf dem boden steht eine 1.5*1*1 meter  grosse holzkiste mit deckel."
2836 print"weit oben,an der decke der grotte glit- zert ein buntes licht."
2838 ifki=1thenprint"sie sitzen in der kiste."
2840 gosub100:gosub500
2850 ifve=19thenki=0:print"qok. sie haben die kiste wieder verlassen.";
2851 ifki=1andve>3thenprint"qdas geht nicht-sie sind in der kiste !"
2854 ifve=5andob=10thentu(5)=1:print"qok. die kiste ist offen.":gosub2895
2855 ifve<>10andve<>14andve<>20then2860
2856 iftu(5)=0thenprint"qdie kiste ist zu."
2857 iftu(5)=1andki=0andob=10andbt<>-1thenprint"qok.sie sind in der kiste.":ki=1
2858 iftu(5)<>1orki<>0orob<>10orge(8)<>-1then2860
2859 print"qsie koennen mit dem brett nicht in die  kiste !"
2860 ifve<>11orob<>9then2865
2861 print"qsie haben den felsen ein stueckchen be- wegt.":ifpa(8)<>0then2865
2862 print"aus dem spalt zwischen felsen und ausga-ng schiesst ein wasserstrahl.
2863 pa(8)=1
2865 ifpa(8)=0then2870
2866 pa(8)=pa(8)+1
2867 ifpa(8)=1thenprint"qder raum beginnt sich mit eiskaltem was-ser zu fuellen !"
2868 ifpa(8)>1thenprint"qdas wasser steigt immer mehr !"
2870 ifpa(8)=6thengoto2877
2871 ifve=18andpa(8)>0thenvl=12:goto39000
2872 ifki=1andpa(8)<>0thenprint"qdie kiste schwimmt mit ihnen im wasser."
2873 ifri=1andki=0then2800
2874 ifve=19andpa(8)>2thenvl=12:goto39000
2875 gosub500:bt=ge(8):goto2850
2877 ifki=0thenvl=13:goto39000
2878 goto2900
2880 print,"q•ª    r±²±²±²±²±²±’    ´
2881 fori=1to2:print,"ª    r²±²±²±²±²±²’    ´
2882 print,"ª    r±²±²±²±²±²±’    ´":next
2885 print,"ª    r²±²±²‘¦•²±²±²’    ´
2886 print,"ª    r±²±²‘¦¦¦•²±²±’    ´
2887 print,"ª   N ž¯¯¯•       M   ´
2888 print,"ª  N žNU N´•       M  ´
2889 print,"ª N  žO·P ´•        M ´
2890 print,"ªN   žL¯ºN•          M´
2891 print," £££££££££££££££££££":return
2895 ifge(m3)=0thenge(m3)=2800:gosub100:return
2896 print"qdie kiste ist leer.":return


2900 rem
2903 fori=1to5000:next
2905 zn=2900:xx=1
2910 print,"q•ªr              ’©´
2911 print,"ª r    žJK•©    ’© ´
2912 print,"ª  r¯¯¯¯¯¯¯¯¯¯’©  ´
2913 print,"ª   r±²±²±²±²±²’   ´
2914 print,"ª   r²±²O··P•±²±’   ´
2915 print,"ªr      L¯¯º      ’•´
2916 fori=1to5:print,"ªr                ’•´":nexti
2921 print," •················
2922 print"qedas wasser ist fast bis zur decke der   gruft angestiegen."
2924 print"die kiste (in der sie sind) schwimmt di-rekt unter einer falltuer ";
2925 print"die offen ist.";
2926 print"das wasser dringt in die kiste ein !
2930 gosub100:gosub500
2935 onrigoto2900,2940,2940,2940,2940,2940,4100
2937 vl=13:goto39000
2940 gosub500:goto2935


3000 rem room 3000
3010 zn=3000:xx=40
3011 fori=0to25:print"•r±²±²±²±²±²’         žµ•          r±²±²±²±²±²";
3012 print"•r²±²±²±²±²±’         žµ•          r²±²±²±²±²±";:nexti
3014 print"’eqsie rutschen an dem seil in den schacht hinunter . erst jetzt";
3015 print" bemerken sie wie  tief der schacht ist - tiefer als das   seil";
3016 print" lang ist.als sie am ende des seils angelangen,koennen sie sich";
3017 print" nicht mehr  halten und stuerzen in die tiefe !!!":gosub950
3018 print"qqsie fallen noch etwa 5 meter , landen   auf weichem sandboden und";
3019 print" schlagen mit  dem kopf an einem felsen auf !!! ":pa(3)=1
3020 ifhm<>1thenvl=6:goto39000
3022 print"qdank der kraft die ihnen der helm ver - liehen hat ueberleben sie ";
3023 print"den sturz mit nur wenigen schrammen und einer verstau-chten recht";
3024 print"en hand,was ihnen den kampf  mit dem schwert im moment verbietet !"
3030 print"qals sie das bewusstsein wieder erlangen finden sie sich in einer ";
3031 print"kalten,feuchtengrotte wieder."
3032 ifge(4)=123thenprint"qam boden liegt eine zerbrochene rumfla- sche."
3035 gosub100:gosub500
3050 onrigoto3070,3100,3070,3400
3060 gosub500:goto3050
3070 zn=3000:xx=40:print"qsie befinden sich in einer grotte ."
3072 ifge(4)=123thenprint"qam boden liegt eine zerbrochene rumfla- sche."
3074 gosub100:goto3060


3100 rem room 3100
3105 zn=3100:xx=16:pa(2)=0
3110 print,"q•ªr                 ’´"
3111 print,"ªr¢¢               ’´"
3112 print,"ª      ¼r          ’´"
3113 print,"ª        r¢¢       ’´"
3114 print,"ª            r¢¢   ’´"
3115 print,"ª    ¦¦|       ¼r  ’´"
3116 print,"ª    žB• |          ´"
3117 print,"ª    žX• |          ´"
3118 print,"ª    žB• |          ´"
3119 print,"ª      |          ´"
3120 print,"ª²²²²²¦¦CCC       ´"
3121 print,"ªr       ··  ££··££’•´"
3122 print,"ªr•                 ’•´"
3125 print"qevor ihnen liegt ein grosser unterirdi - scher see. am see ist ein";
3126 print" bootssteg und eine glocke an der ein seil haengt. auf einem schild";
3127 print" steht geschrieben 'faehre 1mal am seil ziehen !'":gosub100
3128 gosub500
3130 ifve<>12orpa(2)<>0then3133
3131 print"qok.  die glocke hat einmal gelautet.sie sehen wie sich ein klei";
3132 print"nes licht ueber  das wasser auf sie zubewegt !":pa(2)=1
3133 ifpa(2)=0then3140
3135 ifpa(2)<3thenprint"qdas licht kommt immer naeher !!!":pa(2)=pa(2)+1
3140 ifpa(2)<>3then3145
3141 print"qein kleines boot in dem ein alter mann  sitzt legt am steg an ."
3142 print"qder alte mann sagt mit knorriger stimme 'die ueberfahrt kostet ";
3143 print"zwei goldmuenzen ! '."
3144 pa(2)=4
3145 ifve<>16orgg<>2then3150
3146 print"qder alte nimmt die muenze und sagt 'das ist nur eine muenze !'"
3147 ge(1)=0:ifge(4)<>-1then3150
3148 print"qaber ich sehe ,dass du auch eine flascherum bei dir hast !":pa(2)=5
3150 ifpa(2)<>5orve<>16orgg<>5then3155
3151 ge(4)=0:print"qder alte nimmt den rum und trinkt einen kraeftigen schluck!"
3152 print"qer sagt 'bei zorgon - schmeckt verdammt gut , dein rum ! '":pa(2)=6
3153 print"q'steig ein ins boot,ich will einmal eineausnahme machen ! '"
3155 ifpa(2)<>6then3165
3157 print"der alte mann bringt sie mit seinem bootan das andere ufer des ";
3158 print"sees.als das bootdie mitte des sees erreicht bricht der  alte mann";
3159 print" ploetzlich in ein hoellisches gelaechter aus und verschwindet vor";
3160 print"     ihren augen ins nichts !":print"sie treiben alleine im boot !"
3161 pa(2)=7
3165 ifpa(2)<>7then3185
3166 print"qeine riesiege seeschlange taucht ploetz-lich aus dem wasser auf ";
3167 print"und macht sich  zum angriff bereit !!!"
3168 gosub500:ifve<>4orgg<>11thenvl=7:goto39000
3169 print"qder goldene pfeil der armbrust hat das  ungeheuer im rachen ge";
3170 pa(2)=0
3172 print"troffen - im see  bildet sich eine blutlache in der es    untergeht !
3180 gosub950:print"qim see bildet sich ein starker strudel ......":goto4000
3185 ifve=18thenprint"qdas wasser ist zu kalt zum schwimmen."
3190 onrigoto3195,3195,3070
3195 gosub500:goto3130


3200 rem
3205 zn=3200:xx=8:print
3210 fori=1to5:print,"r•²ž •²±²±²±²±²±²ž •²":print,"r±ž •±²±²±²±²±²±ž •±":next
3211 print,"r‘ž©]]]]]]]]]]©]":print,"‘‘‘‘‘‘‘‘‘‘]©]]]]]]]]]]©"
3212 print"q":fori=1to2:print,"r]]]]]²±²±²q±²±²±":next
3220 print"qqqqesie befinden sich in einem raum in dem  zwei goldene saeulen ";
3221 print"stehen . die wand  zwischen den saulen schimmert in einem  roet";
3222 print"lichen licht."
3225 gosub100:gosub500
3230 ifob<>8orve<>17then3235
3231 print"qok.  in der wand entsteht ein loch -    gerade gross genug zum ";
3232 print"durchgehen."
3233 xx=24:gosub100
3235 onrigoto3210,3240,3300,3700
3240 gosub500:goto3230
3300 rem
3305 zn=3300:xx=32
3310 print"qsie sind in einer gruft die strahlend   hell erleuchtet ist."
3315 ifge(10)>0thenprint"am boden liegt eine armbrust mit einem  goldenen pfeil.
3320 gosub100:gosub500
3330 onrigoto3300,3200
3340 gosub500:goto3330


3400 rem
3405 zn=3400:xx=36
3410 print"qsie stehen vor einer quelle aus der ein golden schimmerndes ";
3420 print"wasser fliesst."
3430 gosub100:gosub500
3440 ifve<>6then3450
3441 print"qsie trinken von dem wasser .            eine zauberkraft die von ";
3442 print"dem wasser aus-geht heilt alle ihre wunden die der     sturz verur";
3443 print"sacht hat. sie koennen wiedermit dem schwert kaempfen !":pa(3)=0
3450 onrigoto3400,3500,3460,3460,3070
3460 gosub500:goto3440


3500 rem
3510 zn=3400:xx=48
3515 print"qsie stehen auf einem steinigen pfad der noerdlich verlaeuft.
3516 gosub100
3518 ifpa(4)=-1thenprint"qeine tote libelle liegt hier .":goto3550
3520 print"qsie hoeren ein surren das immer naeher  kommt !!!"
3525 print"qeine riesige libelle steht vor ihnen -  den giftstachel auf sie ";
3526 print"gerichtet !":pa(4)=1
3530 gosub500
3535 ifve<>4orgg<>1thenvl=8:goto39000
3536 ifpa(3)<>0andve=4andgg=1thenvl=9:goto39000
3538 print"qdie libelle bricht tot zusammen !":pa(4)=-1
3540 onrigoto3500,9000,3400
3550 gosub500:goto3540


3600 rem
3605 zn=3600:xx=48
3610 print,"qž       r©
3611 print,"       r££
3612 print,"       r¼¾
3613 print,"      r¡¦¦’¡
3614 print,"      r¡¦¦’¡
3615 print,"      r_¦¦_
3616 print,"     r______
3617 print,"  œ¬»£¸¢¸¢¸¢¸¢œ¬»
3618 print,"  žr¡ª’£¸¢¸¢¸¢¸¢žr¥’¡
3619 print,"  žr¡§’£¸¢žr©  ’£¸¢žr¥’¡
3620 print,"  žr¡§’£¸¢žr ’©r ’£¸¢žr¥’¡
3621 print,"  žr¡§’£¸¢žr ’__r ’£¸¢žr¥’¡
3622 print," r•      ’ž¢¢•r      
3623 print," r•     ’ž¢¢¢¢•r     
3624 print," r•    ’ž¢¢¢¢¢¢r•    
3625 print," r•   ’ž¢¢¢¢¢¢¢¢r•   
3630 print"qesie stehen vor einem prachtvollen tempelder in strahlendes licht ";
3631 print"gehuellt ist."
3640 gosub100:gosub500
3650 onrigoto3600,3700,3500
3660 gosub500:goto3640


3700 rem
3705 zn=3700:xx=pa(5)
3710 print,"qr£NMNMNMNMNMNMNMNMN"
3711 print,"rNMNMNMNMNMNMNMNMN"
3712 print,"žœQž©M         NœQž©
3713 print," rC’  M¯¯¯¯¯¯¯N  rC’
3714 print," rC’  ª       ´  rC’
3715 print," rC’  ª       ´  rC’
3716 print," rC’ e..žQe..žQe..žQe.. žrC’
3717 print," rC’e..žr¿ ’¿r¿ ’¿r¿ ’¿e..žrC’
3718 print," rC’e...žr£’e..žr£’e..žr£’e...žrC’
3719 print,"r©’œQžr’e.ž¬rB’»¬rB’»¬rB’»e.žr©’œQžr’
3720 print,"r£                 
3721 print,"r                 
3730 print"qesie befinden sich in der eingangshalle  des tempels."
3731 print"ueberall liegen schaetze und kostbarkei-ten von unschaetzbarem wert."
3732 print"zwischen all diesen schaetzen stehen    drei goldene statuen !"
3735 print"žgold gold golde":gosub100:gosub500
3740 ifve<>1then3760
3745 print"qsie nehmen etwas von dem gold.
3746 print"qeine furchteregende stimme erschallt -"
3747 print"'mensch du hast versagt - wie deine vor-gaenger !'q"
3750 print"sie spueren wie sich ihr koerper er -   starrt und eiskalt wird......
3755 fori=1to8000:nexti:vl=10:goto39000
3760 onrigoto3700,3770,3600,3800,3200
3770 gosub500:goto3740


3800 rem room 3800
3805 zn=3800:xx=4
3810 print"qesie betreten einen kleinen raum der ge -muetlich eingerichtet ";
3811 print"ist. in der mitte des raums liegt ein kleiner teppich auf dem ";
3812 print"der uralte sitzt.":gosub100:gosub950
3814 print"qder uralte hebt seinen rechten arm -    augenblicklich sind sie ";
3815 print"gelaehmt !"
3817 print"er beginnt mit schwacher , freundlicher stimme zu erzaehlen :"
3820 print"'fuerchte dich nicht fremdling !
3822 print"ich warte schon seit ueber 1000 jahren  auf dich !"
3824 print"vor langer zeit wurde das versunkene    land mardon vom boesen ";
3826 print"herrscher zorgon erobert und versklavt."
3828 print"seit diesem tag warten die menschen von mardon auf die rueckkehr ";
3830 print"gordons - einemedlen befreier, von dem eine uralte sageaus der ";
3832 print"fruehzeit mardons berichtet."
3834 print"in dir erfuellt sich die weissagung- gehund rette mardon !"
3835 print"die macht sei mit dir ......'
3840 print"mit diesen worten bricht der alte zusam-men und loest sich in ";
3842 print"nichts auf.":pa(5)=20
3844 gosub100:gosub500
3850 onrigoto3860,3860,3860,3860,3700
3860 gosub500:goto3850


4000 rem
4010 print"qeder strudel wird immer staerker und bil-det einen sog der das ";
4015 print"boot mit ihnen in die tiefe zieht !!!
4020 print"sie verlieren das bewustsein............"
4030 print"qist dies das ende ?
4031 print"qwerden sie auch diese aufgabe bestehen ?
4032 fori=1to3000:next
4035 print"qqqždie fortsetzung dieses abenteuers heisst
4040 print"qqq    *** g o r d o n  -  s a g a ***
4050 print"q   teil ii - die rueckkehr des heldene
4060 poke198,0:wait198,1:run


4100 rem
4105 zn=4100:xx=4
4109 print," •______________________
4110 print,"ª      r²±²±²±²±²±’•      ´
4111 print,"ª      r±²±²±²±²±²’•      ´
4112 print,"ª      r²±²±²±²±²±’• ªM   ´
4113 print,"ª      r±²±²±²±²±²’• ª M  ´
4114 print,"ª      r²±²±²±²±²±’• ª  ´ ´
4115 print,"ª      r±²±žNMNM²±²’  ‘r ’•´ ´
4116 print,"ª     r©    £´ª•    ’  ‘•´ ´
4117 print,"ª    r©     £Lº•     ’    ´
4118 print,"ª   r©              ’   ´
4119 print,"ª  r©       UI•       ’  ´
4120 print,"ª r©       ’©¹¹•r       ’ ´
4121 print,"ªr©              •      ’´
4130 print"qesie befinden sich in einem raum in dem  ein altar steht.
4133 print"in der rechten wand ist eine oeffnung   von der eine rutsche nach ";
4134 print"unten fuehrt."
4136 print"aus der offenen falltuer am boden dringtwasser in den raum ein.":
4137 gosub100:goto4160
4139 ifwa=1thenpa(11)=pa(11)+1:print"qdie falltuer biegt sich immer mehr !"
4140 ifpa(10)=3thenvl=13:goto39000
4145 ifve=22andob=5andtu(6)<>0thenprint"qok. die falltuer ist zu.":tu(6)=0
4146 ifve=5andob=5andtu(6)<>1thenprint"qok-die falltuer ist offen.":tu(6)=1
4148 iftu(6)=1orwa=1then4155
4150 print"qwasser sickert durch den rand der ver - schlossenen falltuer."
4152 print"die falltuer kann den starken druck des eindringenden wassers ";
4153 print"nicht mehr lange  halten und droht zu zerbrechen !!!!!":wa=1
4155 ifpa(11)=3thenprint"qdie falltuer ist zerbrochen !":tu(6)=1:wa=0:pa(11)=5
4156 iftu(6)=1thenprint"qdas wasser steigt immer schneller !":pa(10)=pa(10)+1
4157 ifve=12orve=11thenifob=6thenprint"qder altar oeffnet sich-ein geheimfach !
4158 ifve=12orve=11thenifob=6thenge(m4)=4100:gosub100
4160 gosub500
4165 ifri=1thenprint"qsie sehen : altar , falltuer , rutsche":gosub100
4166 ifri<>5then4139
4170 print"qsie rutschen die rutsche hinab.nach et- wa 200 metern fallen sie ";
4175 print"3 meter nach unten und landen weich...."
4180 fori=1to3000:next:goto2600


4839 ifwa=1thenpa(11)=pa(11)+1


6000 rem etwas untersuchen
6015 ic=0:fori2=0tolc:e$=l$(i2)
6020 ife$<>"baum"orzn<>1000then6025
6021 print"qder baum ist hohl.q":ifge(m6)=0thenge(m6)=1000:gosub100
6022 print
6023 ic=1
6025 ife$="schwert"andge(0)=-1thenprint"qdas schwert ist sehr kostbar.":ic=1
6027 ife$="maus"andge(2)=-1thenprint"qdie maus leuchtet giftgruen.":ic=1
6028 remÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿcircleuntilcircleuntillenpeekrclr80ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
6029 remÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
6030 ife$="seil"andge(3)=-1thenprint"qdas seil ist einwandfrei.":ic=1
6040 ife$<>"ring"orge(6)<>-1then6045
6041 print"qauf dem ring ist eine kugel eingraviert.":ic=1
6045 ife$="helm"andge(7)<0thenprint"qeine kraft geht vom helm aus.":ic=1
6050 ife$<>"altar"orzn<4100then6060
6052 print"qlinks unten am altar ist ein kleiner    hebel angebracht.":ic=1
6060 ife$<>"saeule"orkr=0then6070
6065 print"qin der oberflaeche der saeule ist eine  kleine tetraederfoermige";
6066 print" mulde.":ic=1
6070 ife$="kristall"andge(11)=-1thenprint"qder kristall ist tetraederfoermig.":ic=1
6998 nexti2
6999 ific=0thenprint"qsie entdecken nichts besonderes."
7000 return


9000 rem
9001 mz=0
9004 ifla=1thengoto3600
9005 kr=0:xx=60:zn=9000
9010 print,"q•______________
9011 print,"r’            r©’
9012 print,"r ’          r© ’
9013 print,"r  ’          r  ’
9014 print,"r    •’    r©  •  ’
9015 print,"r    • ’    r   •  ’
9016 print,"r    •  •© •   •  ’
9017 print,"r    •  •’©r •   •  ’
9018 print,"r    • ’e .  •r   •  ’
9019 print,"r    ’•©  e¬ •r  •  ’
9020 print,"r  ’   e¬      •r  ’
9021 print,"r ’©     e»    •r ’
9022 print,"©    e»       •
9023 print,"££££££££££££££
9030 print"qesie befinden sich im unendlichen labyri-nth.am boden sind riesig";
9031 print"e fussabdruecke.";
9032 ifint(6*rnd(1))>2thengosub9090
9033 gosub100
9035 gosub500
9040 ifve<>14orob<>12orkr<>1orge(11)>=0then9080
9045 print"qok-der kristall liegt auf der saeule."
9046 fori=1to2000:next
9050 print"qdie saeule beginnt ploetzlich in einem  grellen weissen licht zu";
9055 print" strahlen.....":ge(11)=0
9060 fori=1to4000:next
9065 print"“";:poke53280,1:poke53281,1:fori=1to5000:next:poke53280,0:poke53281,0
9066 print"qdas labyrinth ist verschwunden !"
9070 la=1:kr=0:goto3600
9080 mz=mz+1:ifmz=15then9095
9084 ifri=0then9035
9085 goto9004
9090 print,"‘‘‘‘‘‘‘‘‘]]]]]]ž qr¼¾q’ r¦¦q¦¦q’ "
9091 print"qqqqesie stehen vor einer kristallsaeule.":kr=1:return
9095 gosub50502:print"eqein unverwundbares monster kommt auf siezu !!!!"
9097 vl=16:goto39000


10000 rem gewicht der gegenstaende
10005 ig=0
10006 ifve=1andwe+gw(i)>6thenprint"qsie koennen nicht so viel tragen !":ig=1
10007 ifve=2andge(i)=-1thenwe=we-gw(i):ig=0
10008 ifge(i)=-1andve=1thenprint"qsie haben das bereits.":ig=1
10009 ifve=2andge(i)<>-1thenprint"qsie haben das nicht.":ig=1
10010 ifig=0andve=1thenwe=we+gw(i)
10020 return


20000 rem fledermaus -------------------
20010 ifzn>=3000orzn=2900orzn=2500orzn=1000thenreturn
20020 print"qeine riesige fledermaus kommt im sturz- flug auf sie zu.
20025 fori=0to10:kl(i)=0:next
20030 ii=0:fori=1to11:ifge(i)=-1thenkl(ii)=i:ii=ii+1
20035 nexti
20040 i=kl(int(ii*rnd(1)))
20042 ifi=0then20060
20045 print"qdie fledermaus entreisst ihnen : ";ge$(i)
20050 ge(i)=int(16*rnd(1))*100+1000
20055 ifge(i)=2300orge(i)=1900orge(i)=2200orge(i)=1000orge(i)=1500then20050
20060 print"qdie fledermaus fliegt weiter."
20070 return


30000 rem input routine--------------
30010 i2$=chr$(20):print"q> _";:x$="":poke198,0:ed=0
30015 ed=ed+1:ifed>500thenprint:goto30100
30016 geti$:ifpeek(203)=1thenprint".":goto30100
30020 ifi$=""then30015
30025 ifi$=chr$(20)andx$=""then30015
30026 ifi$=chr$(20)thenprinti2$;i2$;"_";:x$=left$(x$,len(x$)-1):goto30015
30027 as=asc(i$):ifas<65oras>90thenifas<>160andas<>32then30015
30030 print"";i$;"_";:x$=x$+i$
30040 ed=0:goto30015
30100 return


32000 rem sm
32010 ve=0:fori=0tolc
32015 ifl$(i)="und"thenfv=i+1:i=lc+1
32020 nexti
32024 ii=-1:fori=fvtolc
32025 ii=ii+1:l$(ii)=l$(i)
32030 nexti
32035 fori=ii+1tolc:l$(i)="":nexti
32040 lc=ii
32050 return


39000 rem
39001 poke198,0:wait198,1
39005 pokev+39,1:pokev+40,1:pokev+41,1:print"“œ":pokev+21,0:pokev,100:pokev+1,0
39010 poke2040,13:poke2041,13:poke2042,13:pokev+2,150:pokev+3,0:pokev+4,200
39011 pokev+5,0
39020 pokev+23,7:pokev+29,7:pokev+27,7:pokev+21,7
39030 fori=0to130:pokev+1,i:pokev+3,i:pokev+5,i:nexti
39051 fori=1to25:forii=0to2:i1=int(200*rnd(1))+55:poke(v+ii*2),i1:nextii
39052 forii=1to3:i1=int(160*rnd(1))+30:poke(v+ii*2+1),i1:nextii:nexti
39054 pokev+21,0
39100 ifvl<>1then39110
39102 print"qdas monster hat ihnen mit der steinkeuleden schaedel eingeschlagen !"
39110 ifvl<>2then39120
39112 print"qgiftgas.........
39120 ifvl<>4then39130
39122 print"qdie steinkugel hat sie ueberrollt !"
39130 ifvl<>5then39140
39132 print"qdie zimmerdecke hat sie zerquetscht !"
39140 ifvl<>6then39150
39142 print"qsie haben dies nicht ueberlebt !"
39150 ifvl<>7then39160
39152 print"qdas ungeheuer hat sie verschlungen !"
39160 ifvl<>8then39170
39165 print"qdie libelle hat sie mit ihrem stachel   aufgespiest !"
39170 ifvl<>9then39180
39175 print"qsie haben zwar versucht die libelle zu  bekaempfen , aber sie haben ";
39176 print"dabei ihre  durch den sturz kampfunfaehige hand ver-gessen !"
39180 ifvl<>10then39190
39182 print"qsie sind in eine goldene statue verwan- delt worden."
39190 ifvl<>11then39195
39192 print"qsie sind in ihr eigenes schwert gestuer-tzt als sie landeten."
39195 ifvl=12thenprint"qsie sind in dem eiskalten wasser erfro- ren."
39196 ifvl=13thenprint"qsie sind ertrunken."
39197 ifvl=14thenprint"qsie sind in den fluss gestuerzt."
39198 ifvl=15thenprint"sie sind 15 meter in die tiefe gestuerzt...."
39199 ifvl=16thenprint"das monster hat sie gefressen."
39300 print,"qqqe       ºLqª´qª´qq"
39350 poke198,0:wait198,1:run


50500 rem
50502 print"qq";tab(18)"‘r¾   ¼’"
50503 printtab(17)"r¾     ¼’"
50504 printtab(16)"r¡¬¢  ¬¢ ’"
50505 printtab(16)"r¡’¡’r£ ‘  ’¡r£ ‘ ’"
50506 printtab(15)"¢¡r»      ¼"
50507 printtab(14)"r¡ ¼’ r»¼¼ ’’¾r»  ’"
50508 printtab(13)"¬r   ’¡ r¢¢’¾ r   ’¡"
50509 printtab(13)"r     ’    r¾ ’¡r ’¡"
50510 printtab(12)"¬r  ’¾r  ¼’¢¢r¾  ’ r ’"
50511 printtab(12)"r¡¬’¾r¡       ’¾ ¾"
50512 printtab(13)"¾ r        ’"
50513 printtab(14)"¬r        ¼’"
50514 printtab(14)"r¡     ’¡r»  ’"
50515 printtab(15)"r» ¬   ’¾r» ’»"
50516 printtab(14)"¬r  ’ ¼r¬’’  ¸¸¸"
50517 printtab(14)"r¢¢’¾":return


50600 rem titel
50601 poke53280,0:poke53281,0:poke657,128:print"“ž
50800 print"–  ´´ª ´L´O´O´O´L´ OªPª· P·ª  ´O´O´O
50801 print"  L´ªM´´´O´O O H  Pªºª· ª ªNM´O´OMO
50802 print"                  ·               ·
50803 print"            praesentiert
50804 print"q
50810 print,"ž O· NM OPªM NMª ´
50811 print," ´¯ ´ª Lºªª ´ªªM´
50812 print," Lº MN ´MªN MNª ¥
50813 print,"
50814 print,"   O· OP O· OP
50815 print,"   L¯ Lº ´¯ Lº
50816 print,"   ¯º ´ª Lº ´ª
50817 print,"q **  hello to prf  **
50820 print"qqq ein abenteuerspiel von michael nickles
50825 print"–qqqcracked 1985 by the incredible four (tm)
50830 fori=1to300:next
50850 poke198,0:wait198,1:return


60030 rem
60070 data0,126,,1,255,128,7,255,224,15,255,240,15,255,240,15,126,240,14,60,112
60072 data15,126,240,15,255,240,15,231,240,15,231,240,15,255,240,7,255,224,1,25
60074 data128,1,204,128,1,,128,1,51,128,,255,,,255,,,255,,,126,
62000 rem ort der gegenstaende --------
62010 i=int(5*rnd(1))+1
62011 ifi<1ori>5thenprint"“";:goto62000
62012 onigoto62020,62030,62040,62050,62060
62020 m1=1:m2=2:m3=3:m4=11:m5=5:m6=0:m7=6:ge(8)=2500:ge(9)=3000:goto63000
62030 m1=3:m2=6:m3=0:m4=11:m5=1:m6=2:m7=5:ge(8)=4100:ge(9)=3000:goto63000
62040 m1=1:m2=1:m3=11:m4=0:m5=6:m6=8:m7=5:ge(3)=2700:ge(9)=1600:ge(2)=2500
62041 ge(8)=0:goto63000
62050 m1=11:m2=0:m3=1:m4=5:m5=3:m6=2:m7=6:ge(8)=1900:ge(9)=2500:goto63000
62060 m1=1:m2=0:m3=3:m4=5:m5=11:m6=12:m7=6:ge(8)=1900:ge(9)=1100:ge(2)=2500
62061 goto63000
63000 print"“":return
