home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 4
/
64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_B.d64
/
inka
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
22KB
|
661 lines
10 rem" ***[201][206][203][193]***
20 [143]" (c) by peeklen(NULL)(NULL)len
30 rem" 1985
31 [143]"str$esigned by (NULL)ile & (NULL)ombie
32 rem" [208]rogrammed by [218]ombie
33 [143]"
34 rem" [212]hilo [205]ahnig
35 [143]" a.d. (NULL)tephansberg 56
36 rem" 5309 [205]eckenheim
37 [143]" (NULL)el.: 02225/4721
38 rem"-------------------------
45 :
46 :
47 :
48 :
49 [140]:r[178][187]([171]ti)
50 [131] 76,24,1,177,251,145,251,200,208,249,230,252,202,208,244,96,120,160,0,169
52 [131] 160,132,251,133,252,162,32,32,11,1,169,224,132,251,133,252,162,32,32,11
54 [131] 1,169,53,133,1,88,96:[129]i[178]264[164]310:[135]x:[151]i,x:[130]:[158]264
56 [129]i[178]710[164]730:[135]x:[151]i,x:[130]
58 [131] 208,3,76,29,168,32,192,2,32,19,166,56,165,95,233,1,164,96,76,36,168
60 [151]40996,197:[151]40997,2:[151]1,54
62 [129]i[178]43168[164]43170:[135]x:[151]i,x:[130]
64 [129]i[178]704[164]709:[135]x:[151]i,x:[130]
66 [131] 32,192,2,32,138,173,76,247,183
70 :
71 :
72 :
100 [151]53280,7:[151]53281,7
110 [153]"loadstop"[199](142):[143] h:ctrl+h
120 [153]
130 [137] 2000
499 [143] input
500 [153]:[141] 700
510 q[178]0:[129]i[178]1[164][195](ii$):[139][202](ii$,i,1)[178]" "[167]q[178]i:i[178][195](ii$)
520 [130]:[139]q[178]0[167]v$[178]ii$:n$[178]"":[137]540
530 v$[178][200](ii$,q[171]1):n$[178][202](ii$,q[170]1)
532 q1[178]0:[129]i[178]1[164][195](n$):[139][202](n$,i,1)[178]" "[167]q1[178]i
534 [130]:[139]q1[178]0[167]o$[178]"":o[178]0:[137]540
536 o$[178][202](n$,q1[170]1):n$[178][200](n$,q1[171]1)
540 l[178][195](v$):v[178]0:[129]i[178]1[164]54:[139]v$[178][200](v$(i),l)[167]v[178]i:i[178]54
550 [130]:[139]v[178]0[167][153]"right$ch verstehe dein verb nicht!":[137]500
560 [139][201](v$(v),1)[178]"*"[167]v[178]v[171]1:[137]560
570 [139]q[178]0[167]n[178]0:[142]
580 l[178][195](n$):n[178]0:[129]i[178]1[164]mx:[139]n$[178][200](n$(i),l)[167]n[178]i:i[178]mx
590 [130]:[139]n[178]0[167][153]"right$ch verstehe dein (NULL)omen nicht!":[137]500
600 [139]o$[178]""[167][142]
610 l[178][195](o$):o[178]0:[129]i[178]1[164]mx:[139]o$[178][200](n$(i),l)[167]o[178]i:i[178]mx
620 [130]:[139]o[178]0[167][153]"right$ch verstehe dein (NULL)bjekt nicht!":[137]500
630 [142]
700 [153]:[153]"(NULL)as nun ? ";:i1$[178]ii$:ii$[178]""
710 [153]"<cmd";
720 [161]in$:[139]in$[178]""[167]710
730 [139]in$[178][199](20)[175]ii$[177]""[167]770
740 [139]in$[178][199](13)[167]780
750 [139](in$[179]"@"[176]in$[177]"z")[175]in$[179][177]" "[176][195](ii$)[177]27[167]720
755 [139]in$[178]"@"[167]795
760 ii$[178]ii$[170]in$:[153]in$;:[137]710
770 ii$[178][200](ii$,[195](ii$)[171]1):[153]in$;:[137]710
780 :
785 [139]ii$[178]""[167]720
790 [153]:[142]
795 ii$[178]i1$:[153][199](141)"on"ii$;:[137]710
999 [143] sieh
1000 [153]"left$erumliegende chr$egenstaende:":f[178]0
1010 [129]i[178]1[164]23:[139]n(i)[178]p[175]nf(i)[179][177]p[167]f[178]1:[153]"-";n$(i)
1020 [130]:[139]f[178]0[167][153]"keine"
1030 [139]n(46)[178]p[175]p[179][177]14[167][153]"str$er atnffe ist hier."
1050 [153]:[153]"atnusgaenge:";:[140] 4900[170]p[172]100:x[178].
1060 [135]x,e:[153]v$([182](x))" ";:e([182](x))[178]e:[139]x[177]0[167]1060
1065 [139]x[178].[167][153]"keine";
1070 [153]:[142]
1500 [153]""
1510 [153][163]17)"+"
1520 [153][163]17)"(NULL)right$(NULL)"
1530 [153][163]17)" "
1540 [153][163]17)" "
1550 [153]"(NULL)illst du nochmal spielen ?"
1560 [161]in$:[139]in$[178]""[167]1560
1570 [139]in$[178]"j"[167][153]"load":[138]3000
1580 [139]in$[179][177]"n"[167]1560
1590 [153]"load":[128]
1999 [128]
2000 [153]"load";:[151]53265,[194](53265)[175]239
2002 [153]"black croco software programming crew presents: inka"
2003 [129]i[178]54272[164]54296:[151]i,0:[130]
2005 [153]" andandandand (NULL)(NULL) and andandandandand
2010 print" [204] [175] [205][165][170][206][206][206][175] [175][175][206]
2020 [153]" ++++(NULL) fnfnfnfnfn
2030 print" [170][170][186][170] [165][170][205][205][165][183] [165]
2040 [153]"(NULL)usrusrusr + fn+ (NULL) (NULL)fnfn
2050 print"[183][183][183][183][183][208][186] [183][183] [183] [183]
2055 [143] +++++++++-+++++++++-+++++++++-
2060 [153]" (NULL)right$":[153]" mid$(NULL)"
2065 [140]30000:[129]i[178]0[164]62:[135]x:[151]832[170]i,x:[130]:v[178]53248:[151]v[170]39,0
2066 [151]v[170]40,0:[151]v[170]41,0:[151]v[170]2,100:[151]v[170]3,80:[151]2041,15:[151]2042,14
2067 [151]v[170]16,2
2068 [129]i[178]0[164]62:[135]x:[151]896[170]i,x:[130]:[129]i[178]0[164]62:[135]x:[151]960[170]i,x:[130]
2070 [151]2040,13:[151]v,200:[151]v[170]1,65:[151]v[170]29,3:[151]v[170]21,3:[151]v[170]23,2
2080 si[178]54272:[151]si[170]24,15:[151]si[170]5,0:[151]si[170]6,240:[151]si[170]1,10
2100 [153][163]10)" and(NULL)(NULL)and
2110 printtab(10)" [206][206] [206][206][165]
2120 [153][163]10)" (NULL)(NULL) (NULL)(NULL)(NULL)(NULL)and
2130 print"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][206][206][205][206][206][206] [206][206][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
2140 printtab(10)" [206][207][218][218][208][206] [206][206][206][205]
2150 [153][163]10)" (NULL)(NULL) (NULL)(NULL)(NULL)(NULL) (NULL)
2160 printtab(10)" [207] [207][208] [208][206] [206]
2170 [153][163]10)" (NULL) (NULL)*rnd(NULL) (NULL)(NULL)
2180 printtab(10)" [163][163][163][163][163][163][163][163][163][163]
2190 [151]53265,[194](53265)[176]16
2200 z[178]0:[129]i[178]90[164]0[169][171]1:[151]v[170]2,i:[151]975[170]z,255:[151]976[171]z,0:z[178]1[171]z
2210 [151]si[170]4,128[170]z:[129]n[178]1[164]20:[130]n,i
2220 [151]v[170]4,255:[151]v[170]5,100:[151]v[170]21,7
2230 [129]i[178]100[164]200:[151]975[170]z,255:[151]976[171]z,0:z[178]1[171]z:[151]v[170]5,i:[151]si[170]4,128[170]z
2240 [129]n[178]1[164]20:[130]n,i
2250 [129]i[178]80[164]0[169][171]1:[151]975[170]z,255:[151]976[171]z,0:[151]si[170]4,128[170]z:z[178]1[171]z
2260 [151]v[170]3,i:[139]i[179]32[167][151]si[170]24,i[173]2
2265 [129]n[178]1[164]20:[130]n,i
2270 [151]si[170]4,0:[151]v[170]21,0
2280 [153]"load(NULL)on (NULL)enzel peekorucki & (NULL)hilo (NULL)ahnig"
2290 [151]198,0:[146]198,1
2300 [153]"loadstr$as (NULL)piel:":[143] n:ctrl+n
2310 [153]"usrusrusrusrusrusrusrusrusrusr"
2320 [153]"str$u bist atnnthony (NULL)olf.
2330 print"[196]u wurdest mit dem [198]allschirm ueber dem"
2340 print"[210]egenwald des [193]mazonas abgeworfen."
2350 print"[198][201][206][196][197][160][196][197][206][160][211][195][200][193][212][218][160][196][197][210][160][201][206][203][193][160]!"
2360 print"[194]ringe ein [218]eichen des [198]orschers, der"
2370 print"seine [211]tation irgendwo dort unten hat!"
2380 print"[200]ast du beide [193]ufgaben erfuellt, so"
2390 print"mache ein weithin sichtbares [211]ignal, und";
2400 print"der [200]ubschrauber wird dich wieder abho- len!"
2410 print"[196]ruecke eine [212]aste."
2420 poke198,0:wait198,1:geta$
3000 fl=22:dimfl%(fl):restore 3020
3005 print"[147]"
3010 dimv$(54):fori=1to54:readv$(i):next
3020 data n,s,o,w,no,nw,so,sw,nimm,gib,lege,schwimme,stuelpe,wirf,springe
3030 data schlage,toete*,schau,sieh*,betrachte*,gucke*,halte,inventur,liste*
3040 data ziehe,druecke*,gehe,stelle,krieche,krabble*,grabe,buddle*,schliesse
3050 data oeffne,binde,befestige*,klettere,hangle,wasche,schmiere,klebe*
3060 data bestreiche*,beschmiere*,save,load,quit,ende*,stop*,mache,entzuende*
3070 data warte,trage,*anziehe,ja
3100 mx=51:dimn$(mx),n(mx),nf(mx):fori=1tomx:readn$(i),n(i):nf(i)=n(i):next
3110 data machete,0,uhr,43,stein,-1,eimer,5,bananen,46,brille,38,topf,8
3120 data liane,-1,taschentuch,38,eier,42,gold,-1,schluessel,39,alles,-1
3130 data deckel,-1,tierkadaver,39,figur,50,schatz,-1,schaufel,26
3140 data fallschirm,0,stange,41,truhe,-1,geld,0,teller,30
3200 data baum,,bienen,11,inka,,toter,,hebel,,mestize,,wasserfall,
3210 data fluss,,steine,,indianer,,feuer,
3220 data skorpion,,honig,,einsiedler,,nest,,ast,,tempelportal,,spalt,
3230 data brunnen,,hoehle,,fels,,gebuesch,,affe,14,nische,,bruecke,
3240 data zelt,,staude,,seil,
3300 restore 3310:fori=1toint(rnd(1)*8)+1:readp:next:n(19)=p
3310 data 26,29,7,3,12,24,17,40
3320 kn$="[203]ann ich nicht.":wd$="[215]as denn ?":hn$="[200]ab ich nicht."
3330 sn$="[211]eh ich nicht.":ok$="[207]k."
4000 iffl%(18)=.orp=p1then4050
4010 print"[196]er [193]ffe kommt dir nach.":p1=p:n(46)=p:fl%(18)=.
4050 fori=1to8:e(i)=.:next:print:goto4900+p*100:print
4100 gosub1000
4110 gosub4300:ifdthen1500
4120 gosub500:goto19900+100*v
4300 d=0
4310 ifnot(p>9andp<23andp<>18andn(12)=0andfl%(3)=0)then4322
4320 print:print"[197]ine diebische [197]lster stiehlt dir deinen[211]chluessel.":n(12)=43
4322 ifnot(p>9andp<23andp<>18andn(2)=0andfl%(3)=0)then4330
4325 print:print"[196]ie [197]lster stiehlt dir die [213]hr.":n(2)=43
4330 iffl%(2)=.then4340
4332 fl%(2)=fl%(2)-1
4335 iffl%(2)=.andp=9andn(3)thenprint"[197]r setzt sich wieder hin.":n(3)=-1
4340 iffl%(4)=.then4350
4342 fl%(4)=fl%(4)-1:iffl%(4)>1thenprint"[196]ir bleibt nicht viel [218]eit...":goto4350
4343 ifn(19)>-1then4348
4344 print"[196]u wirst hinuntergeworfen.[196]urch den"
4345 print"[198]allschirm wirst du gerettet:die [201]ndia-"
4346 print"ner koennen nur fassungslos starren...":p=41:fl%(4)=0:fl%(22)=1:return
4348 print"[196]ie [201]ndianer werfen dich in den [193]bgrund.":d=1
4350 if(p<10orp>23)andp<>43thenfl%(15)=0:goto4380
4355 iffl%(15)=-1then4380
4360 fl%(15)=fl%(15)-1:iffl%(15)=1thenprint"[196]u hoerst ein [199]eraeusch..."
4370 iffl%(15)then4380
4375 print"[197]in [201]ndianer stuerzt herbei und ueber- waeltigt dich!":d=1
4380 iffl%(18)=.orfl%(19)=.then4400
4385 fl%(18)=fl%(18)-1
4400 ifp<>42then4420
4405 ifn(46)<>pandn(46)<>-1thenprint"[196]er [193]dler toetet dich.":d=1:return
4408 iffl%(20)then4420
4410 print"[196]er [193]dler toetet den [193]ffen.":fl%(20)=1:n(46)=-1
4420 iffl%(19)=.thenn(5)=46
4430 iffl%(21)thenfl%(21)=fl%(21)-1
4435 return
5000 data -1,3
5010 print"[196]u stehst am [198]lussufer, nahe bei einem tosenden [215]asserfall."
5020 print"[197]in schmaler [213]ferpfad fuehrt nordwaerts.";:goto4100
5100 data -4,1
5110 print"[196]u bist in einer [200]oehle hinter dem [215]as- serfall."
5120 iffl%(0)=0thenprint"[197]in [201]ndianer starrt dich boesartig an!"
5130 iffl%(0)thenprint"[218]wischen den [198]elsen ist ein [200]ebel."
5140 goto4100
5200 data 2,1,-5,4
5210 print"[196]u stehst am [198]lussufer. [196]er [213]ferpfad"
5220 print"weist den [215]eg nach [206]ordosten und [211]ueden.";:goto4100
5300 data 8,3,-6,5
5310 print"[196]u bist am [198]lussufer. [196]er [198]luss hat"
5320 print"einige [211]teine herangespuelt.":goto4100
5400 data 7,4,-1,6
5410 print"[214]or dir steht ein [194]runnen. [197]in breit"
5420 print"grinsender [205]estize haelt dir ein [211]child vor die [206]ase:"
5430 print">[198]uer [193]benteurer $10.-<":goto4100
5500 data 2,5,-1,7
5510 print"[196]u bist im trockenen [213]nterholz.":goto4100
5600 data 4,8,1,9,-2,6
5610 print"[196]ein [215]eg hat dich in die [194]erge gefuehrt.";
5620 print"[215]estlich ist ein [200]oehleneingang.":goto4100
5700 data -3,7
5710 print"[196]u hast eine enge [200]oehle betreten."
5720 iffl%(1)thenprint"[196]er [197]imer ist ueber dem [211]korpion.":goto5750
5730 print"[214]or deinen [198]uessen hockt ein etwa faust-";
5740 print"grosser [211]korpion,der im [200]albdunkel der [200]oehle blaeulich schimmert."
5750 print"[201]n einer [206]ische entdeckst du einen [212]opf [200]onig."
5760 goto4100
5800 data 2,7,-1,12
5810 print"[200]ier ist ein [197]insiedler."
5820 ifn(3)=-1thenprint"[197]r sitzt auf einem [211]tein."
5830 goto4100
5900 data -3,11
5910 print"[196]u stehst im undurchsichtigen [199]estruepp"
5920 print"des lianenbewachsenen [196]schungels.":goto4100
6000 data 4,10,3,12,-1,15
6010 ifn(25)<>11then5910
6020 print"[197]in surrender [194]ienenschwarm umschwaermt dich."
6030 ifn(36)=.thenprint"[196]ie [194]ienen stuerzen sich auf den [200]onig."
6040 goto4100
6100 data 2,9,4,11,-3,13
6110 goto5910
6200 data 1,17,5,18,6,16,-4,12
6210 goto5910
6300 data 2,10,-5,20
6310 ifn(46)<>14then5910
6320 print"[197]in [193]ffe gafft dich hungrig an...":goto4100
6400 data 2,11,-5,21
6410 goto5910
6500 data 1,21,-7,13
6503 iffl%(3)then6520
6505 print"[197]ine [197]lster sitzt auf einem [193]st eines"
6508 print"[194]aumes.[193]ls sie dich sieht, fliegt sie davon."
6510 goto5910
6520 print"[196]ie [197]lster klebt mit ihren [203]rallen am [193]st fest.":goto5910
6600 data 2,13,6,21,-5,23
6610 goto5910
6700 data 8,13,1,23,-5,24
6710 print"[196]u hast ein kleines [196]orf mit [201]nkahuettenbetreten.":goto4100
6800 data 2,14,-3,20
6810 goto5910
6900 data 4,19,8,14,-3,21
6910 goto5910
7000 data 4,20,3,22,8,15,-7,17
7010 goto5910
7100 data 4,21,-3,23
7110 goto5910
7200 data 2,18,8,17,-3,24
7210 goto5910
7300 data 8,18,4,23,-7,25
7310 print"[196]u stehst auf einem seicht bewaldeten"
7320 print"[200]uegel.[215]estlich ist [196]schungel,suedwest-"
7330 print"lich erblickst du ein [201]nkadorf,suedoest-";
7340 print"lich ist eine wackelige [200]aengebruecke.":goto4100
7400 data 6,24,-7,26
7410 print"[196]u stehst auf einer schwankenden [200]aenge-";
7415 print"bruecke. [213]nter dir zuengeln die zischen-";
7420 print"den [198]luten des [198]lusses dahin, der fuer"
7430 print"seinen [199]oldgehalt beruehmt ist.":goto4100
7500 data 6,25,1,27,-2,29
7510 print"[196]u bist am [213]fer des [198]lusses.[206]ordwestlich";
7520 print"ist eine [194]ruecke.";:ifn(18)<>26thenprint:goto4100
7530 print"[201]n den [211]and ist nach-","laessig eine [211]chaufel gesteckt.":goto4100
7600 data -2,26
7610 print"[200]ier, oberhalb der [194]ruecke ist das [215]as- ser seicht und klar.":goto4100
7700 data 0,0
7710 print"[196]u stehst bis zur [200]uefte im [215]asser.":goto4100
7800 data 1,26,8,31,-4,30
7810 print"[196]u bist auf einem [208]fad vor einem [218]elt."
7820 print"[196]as muss die [194]ehausung des [198]orschers sein!":goto4100
7900 data -3,29
7910 print"[196]u bist in dem [218]elt des [198]orschers.[197]s ist";
7920 print"niemand hier.";:ifn(23)<>30thenprint:goto4100
7930 print"[197]in [212]eller mit [197]ssen steht auf dem [194]oden.":goto4100
8000 data -5,29
8010 print"[196]u stehst auf einer felsigen [200]oehe vor"
8020 print"einem [193]bgrund.[212]ief unten siehst du den"
8030 print"[212]empel.[201]n der [198]elswand ist ein [193]dler- nest.":goto4100
8100 data -7,34
8110 print"[196]u stehst an einer tiefen [211]chlucht,an"
8120 print"deren [194]oden du den [201]nkatempel zu erken-"
8130 print"nen glaubst.":goto4100
8200 data 6,29,-2,34
8210 print"[197]in fast unsichtbarer [208]fad windet sich"
8220 print"durch das [199]estruepp.[201]ch glaube nicht,"
8230 print"dass ich ihn wiederfinden wuerde.[197]r "
8240 print"setzt sich nach [206]orden und [211]ueden fort.":goto4100
8300 data 1,33,-6,32
8310 print"[196]u stehst vor einem tiefen [193]bgrund."
8320 print"[213]nten liegen [211]kelette von [207]pfern."
8325 iffl%(4)=.thenprint"[194]ewaffnete [201]nkas stehen um dich herum."
8340 goto4100
8400 data -4,36
8410 print"[196]u bist am [198]uss des [193]bgrunds.[215]estlich ist der [212]empel.":goto4100
8500 data -3,35
8510 print"[214]or dir ist das [208]ortal das [212]empels."
8520 print"[196]avor liegt der tote [198]orscher,auf seinem";
8530 print"[199]esicht ein schmerzverzerrter [193]usdruck.":iffl%(14)=.then4110
8540 print"[196]er [212]empelportal ist offen.":goto4110
8600 data -6,4
8610 print"[196]u stehst auf einem [211]tein im [198]luss."
8620 iffl%(5)=.thenprint"[196]er naechste [211]tein ist ein gutes [211]tueck entfernt."
8630 goto4100
8700 data 5,40,-3,39
8710 print"[196]u bist am oestlichen [198]lussufer."
8720 ifn(6)<>38andn(9)<>38then4100
8730 ifn(6)=38thenprint"[197]ine zerschlagene [194]rille ":ifn(9)=38thenprint"und ein"
8740 ifn(6)<>38thenprint"[197]in ";
8750 ifn(9)=38thenprint"blutiges [212]aschentuch mit [201]nitialen"
8760 print"liegt auf dem [194]oden.":
8770 goto4100
8800 data 0,0
8810 print"[196]u bist in eine [198]allgrube geraten!"
8820 print"[205]it dir hier ist ein [212]ierkadaver.";
8825 ifn(12)=39thenprint"[157] und","ein [211]chluessel."
8827 ifn(12)<>39thenprint
8830 print"[214]om oberen [210]and starren dich einige [200]y- aenen an.":goto4100
8900 data -8,38
8910 iffl%(6)=.thenprint"[196]u bist in voellig undurchdringlichem [199]ebuesch."
8920 iffl%(6)thenprint"[196]u stehst im [199]estraeuch."
8930 goto4100
9000 data -8,40
9010 print"[196]u bist unter einem [193]bgrund.[199]erippe"
9020 print"liegen herum.":ifn(20)<>41then4100
9030 print"[197]ine [200]olzstange liegt zwischen den [203]no- chen.":goto4100
9100 data 0,0
9110 print"[196]u haengst am [211]eil an der [198]elswand.":ifn(10)<>42then4100
9120 print"[201]m [200]orst sitzt ein [193]dler, einige [197]ier ausbruetend.":goto4100
9200 data ,
9210 print"[196]u sitzt auf dem [194]aum.[206]eben dir ist das"
9220 print"[206]est der [197]lster.":ifn(2)=43thenprint"[196]arin liegt eine [213]hr."
9230 iffl%(15)=-1thengoto4100
9240 print"[197]in [201]ndianer taucht unter dir auf, sieht";
9250 print"um sich und verschwindet wieder.":fl%(15)=-1:goto4100
9300 data ,
9310 print"[196]u stehst in dem dreckigen [215]asser des [194]runnens.":goto4100
9400 data ,
9410 print"[196]u bist auf einer kleinen [201]nsel."
9420 print"[196]ie [194]laetter einer [211]taude spenden dir angenehmen [211]chatten."
9425 ifn(5)=.thenfl%(19)=9
9430 ifn(21)<>45then4100
9440 print"[196]ie [212]ruhe steckt halb im [211]and.":goto4100
9500 data 0,0
9510 print"[196]u sitzt in der [211]pitze der [211]taude."
9520 ifn(5)=46thenprint"[197]in [194]usch [194]ananen haengt zum [199]reifen nahe."
9530 goto4100
9600 data -2,48
9610 print"[196]u bist im [211]chatzraum des [212]empels!!!"
9620 iffl%(13)thenprint"[196]urch einen [211]palt scheint [204]icht herein."
9625 iffl%(13)thenprint"[214]or dem [211]palt ist eine [206]ische."
9630 ifn(16)>-1then4100
9640 print"[196]as [204]icht wird durch die [198]igur gebrochen";
9650 print"und strahlt auf eine bestimmte [211]telle.":goto4100
9700 data 1,54,-2,52
9710 iffl%(11)thenprint"[196]ie [211]chlangen essen noch.":goto4100
9720 print"[218]wei [203]oenigskobras verwehren dir den [215]eg.":goto4100
9800 data 1,52,-3,53
9810 iffl%(12)then9820
9815 print"[196]ie [212]uer schliesst sich hinter dir":fl%(12)=1
9820 print"[196]u hast einen finsteren [212]empelraum be-"
9830 print"treten.[196]er [194]oden des nach [206]orden fuehr-"
9835 print"enden [199]anges ist halb eingestuerzt und"
9837 print"wird nur noch durch ein paar lose [208]lan- ken gehalten."
9840 print"[207]estlich ist eine feines [211]eil gespannt.":goto4100
9900 data -4,53
9910 print"[196]u bist in einem dunklen [210]aum.":ifn(16)<>50then4100
9920 print"[197]ine glaeserne [198]igur schimmert geheim- nisvoll.":goto4100
10000 data -7,38
10010 goto8610
10100 print"[196]er [199]ang stuerzt unter dir zusammen.":goto1500
10200 print"[196]as [211]eil zerreisst, ein [211]tein loest sich";
10210 print"aus dem [199]ewoelbe und begraebt dich untersich.":goto1500
10300 ifn(10)=48thenp=47:goto4000
10310 print"[196]as haettest du nicht du nicht sollen!"
10320 print"[194]litzschnell stoesst eine der [211]chlangen"
10330 print"vor und schlaegt ihre [199]iftzaehne in dein[198]leisch.":goto1500
20000 :
20100 :
20200 :
20300 :
20400 :
20500 :
20600 :
20700 ife(v)=0thenprint"[196]u kannst nicht in diese [210]ichtung!":goto4110
20701 ifnthenprintkn$:goto4110
20702 ifn(19)=-1andfl%(22)=.thenprintkn$:goto4110
20703 ifn(19)=-1andfl%(21)>-1thenprint"[205]it [198]allschirm ?":e=e(v):fl%(21)=2:goto4110
20705 ifp<10orp>23orfl%(16)<>e(v)orfl%(15)=-1orp=18then20710
20707 print"[205]it einem mal steht dir ein [201]ndianer ge-";
20708 print"genueber. [197]r greift dich an und ueber- waeltigt dich.":goto1500
20710 iffl%(15)<>-1thenfl%(15)=3
20715 fl%(16)=p:ifp<>18thenp=e(v):goto4000
20720 print"[214]on allen [211]eiten kommen [201]ndianer herbei.";
20725 print"[211]ie schleppen dich weg..."
20730 fori=1to2000:next:fl%(4)=5:p=34:goto4000
20800 ifn=0thenprintwd$:goto4110
20802 ifn(n)<>pthenprintsn$:goto4110
20805 ifothen20850
20810 gosub20860:ifdthen1500
20815 goto4110
20850 print" "n$(n)" oder "n$(o)" ?":goto4110
20860 d=0:ifn>23thenprintkn$:return
20861 ifn=7andp=8andfl%(1)=.thenprint"[196]er [211]korpion sticht dich!":d=1:return
20862 ifn=4andfl%(1)=1thenfl%(1)=.
20863 ifn=3andp=9thenprint"[213]nter dem [211]tein lag ein [196]eckel.":n(14)=9
20864 ifn=7andp=8thenn(36)=.
20866 ifn=3andp=37thenfl%(5)=.
20870 z=.:fori=1to23:ifn(i)=.thenz=z+1
20875 next:ifz>5thenprint"[196]u traegst zuviel!!":return
20880 n(n)=.:printok$:return
20900 ifn=.thenprintwd$:goto4110
20905 ifo<>.thengoto20920
20907 ifn>23thenprintkn$:goto4110
20910 goto21000
20915 ifn=22andp=5ando=29then21012
20920 ifnot(n=11andp=34ando=33andn(11)=.andfl%(4)<>.)then20930
20925 print"[211]ie lassen dich in [198]rieden und gehen.":n(11)=-1:fl%(4)=0:goto4110
20930 ifnot(n=46ando=5andn(46)=p)then20950
20935 ifn(5)thenprinthn$:goto4110
20937 print"[196]er [193]ffe stuerzt sich auf die [194]anane.":fl%(18)=4:fl%(19)=fl%(19)-1
20940 goto4110
20950 ifnot((n=33orn=46orn=37)ando<24)thenprintkn$:goto4110
20960 print"[196]er ";n$(n);" schaut darauf,":print"und wirft es hin.":n(o)=p:goto4110
21000 ifn=13then21050
21007 ifn=19andn(n)<.thenn(n)=.
21010 ifn(n)<>.thenprinthn$:goto4110
21011 ifnot(n=22andp=5andn(4)=5)then21013
21012 print"[197]r sagt:<[200]alt dich am [197]imer fest!>":fl%(7)=1:n(22)=-1:goto4100
21013 ifnot(n=2andp=9)then21015
21014 print"[196]er [197]insiedler stuerzt sich auf die [213]hr.":fl%(2)=3:n(2)=-1:n(3)=9:goto4110
21015 ifnot(n=3and(p=37orp=51))then21017
21016 print"[196]u kannst jetzt ueber den [198]luss.":fl%(5)=1:n(3)=37:goto4110
21017 ifp=34andn=11theno=33:goto20920
21018 ifp=n(46)andn=5then20935
21020 ifnot(n=16ando=47andp=47andfl%(13)=1)then21029
21022 print"[196]ie [198]igur passt sich in die [206]ische ein.":n(16)=-1
21023 print"[197]in [204]ichtstrahl weist auf eine [211]telle des [194]odens.":goto4110
21029 ifothen20850
21030 n(n)=p:printok$:goto4110
21050 fori=1to23:ifn(i)=.thenn(i)=p:printok$
21060 next:goto4110
21100 ifnthenprintkn$:goto4110
21105 ifp=28thenp=45:goto4000
21106 ifp<>38then21110
21107 fori=1to23:ifn(i)=.thenn(i)=-2
21108 next:p=3:goto4000
21110 ifp<>45then21120
21115 iffl%(5)thenprint"[196]u zerschellst an einem [211]tein im [198]luss.":goto1500
21118 p=3:goto4000
21120 ifp<>3thenprintkn$:goto4110
21125 print"[196]u wirst den [215]asserfall hinunter ge- schwemmt.":goto1500
21200 ifn=4and(o=.oro=35)then21220
21210 printkn$:goto4110
21220 ifn(4)thenprinthn$:goto4110
21225 print"[196]er [211]korpion ist gefangen."
21230 n(4)=8:fl%(1)=1:goto4110
21300 ifothen20850
21305 ifn=.thenprintwd$:goto4110
21310 ifn<>15orp<>39orn(15)<>pthenprintkn$:goto4110
21315 n(15)=-1
21316 iffl%(8)+fl%(9)=2then21320
21317 print"[196]er [203]adaver wird von den [200]yaenen sofort"
21318 print"weggeschleppt und gefressen.":goto4110
21320 print"[196]ie [200]yaenen stuerzen sich gierig auf den";
21330 print"[203]adaver und zerren dich daran aus der [199]rube.":p=38:goto4000
21400 if(n=.orn=31ando=.)andp=25thenp=28:goto4000
21410 ifnthenprintkn$:goto4110
21412 ifp=43thenp=16:goto4000
21415 ifp=46thenp=45:goto4000
21417 ifnot(p=5orp=34orp=31orp=32)thenprintkn$:goto4110
21418 ifn(19)>-1thenprint"[196]u zerschellst...":goto1500
21419 ifp=31thenprint"[196]ein [198]allschirm bleibt haengen und zer- reisst...":goto1500
21420 ifp=34thenprint"[197]s geht abwaerts...":p=41:fl%(22)=1:goto4000
21421 ifp=32thenprint"[196]u schwebst sanft herab!":p=35:fl%(22)=1:goto4000
21425 print"[196]u faellst in den [194]runnen...":goto1500
21500 ifn<>8orp<10orp>23orp=18then21530
21510 ifn(1)thenprintkn$:goto4110
21520 n(8)=p:n=8:goto20810
21530 ifn<>45orp<>40thenprintkn$:goto4110
21540 ifn(1)thenprintkn$:goto4110
21550 print"[196]u hast das [199]ebuesch wegbar gemacht.":fl%(6)=1:goto4110
21700 goto 4000
22100 ifothen20850
22105 ifn=.thenprintwd$:goto4110
22110 if(n=4and(p=44orp=5)andn(4)=5)or(n=8andp=39andn(15)>.)then22130
22120 printkn$:goto4110
22130 ifn=8thenfl%(8)=1:printok$:goto4110
22140 iffl%(7)=.thenprint"[196]u musst ihn bezahlen!":goto4110
22150 print"[197]r kurbelt kraeftig an der [215]inde.":p=49-p:goto4000
22200 z=.:print"[196]u hast:":fori=1to23:ifn(i)=.thenprint"-"n$(i):z=1
22210 next:ifz=.thenprint"nichts"
22220 goto4110
22400 ifn=.thenprintwd$:goto4110
22410 ifnot(n=28andp=2andfl%(.)=1)thenprintkn$:goto4110
22420 print"[196]u hoerst ein seltsames,schnarrendes [199]e-raeusch.":fl%(13)=1
22430 goto4110
22600 ifothen20850
22610 ifn=43andp=7thenp=8:goto4000
22615 ifn=30andp=1thenp=2:goto4000
22620 ifn=31andp=3thenprint"[196]u wirst den [215]asserfall hinabgespuelt...":goto1500
22625 ifnot(n=32and(p=4orp=38orp=37orp=51))then22630
22626 ifp=4orp=38thenp=-37*(p=4)-51*(p=38):goto4000
22627 iffl%(5)=.thenprint"[196]u wirst weggespuelt...":goto1500
22628 p=88-p:goto4000
22630 ifn=40andp=36andfl%(14)=1thenp=49:goto4000
22635 ifn=41andp=47andfl%(13)=1thenp=2:goto4000
22640 ifn=48and(p=26orp=24)thenp=25:goto4000
22645 ifn=49andp=29thenp=30:goto4000
22650 ifn=45andp=40andfl%(6)=1thenp=41:goto4000
22660 printkn$:goto4110
22700 ifn=16ando=47andp=47andfl%(13)=1then21022
22710 printkn$:goto4110
22800 ifothen20850
22820 if(p<>49andp<>50)orn<>51thenprintkn$:goto4110
22830 p=99-p:goto4000
23000 ifnthenprintkn$:goto4110
23010 ifn(18)thenprint"[201]ch habe keine [211]chaufel...":goto4110
23015 ifp<>45then23030
23020 print"[196]u siehst eine [212]ruhe, noch halb im [211]and.";:n(21)=45:goto4110
23030 ifp<>47thenprintkn$:goto4110
23040 ifn(16)<>-1thenprint"[215]o soll ich denn graben ???":goto4110
23050 print"[196]u graebst den [201]nkaschatz aus!":n(16)=-2:n(17)=47:goto4110
23200 ifn=.thenprintwd$:goto4110
23202 ifothen20850
23204 ifnot(p=11andn=7andfl%(10)=.andn(36)=.)then23210
23205 ifn(14)thenprint"[207]hne [196]eckel ?":goto4110
23206 ifn(7)thenprinthn$:goto4110
23207 fl%(10)=1:n(14)=-1:n(36)=-1:print"[196]ie [194]ienen sind gefangen.":goto4110
23210 ifn=7thenprint"[196]as kann ich jetzt nicht.":goto4110
23215 ifn=40andp=36thenprintok$:fl%(14)=.:goto4110
23220 printkn$:goto4110
23300 ifn=.thenprintwd$:goto4110
23310 ifnot(n=7andfl%(10)=1)orothen23330
23312 ifn(7)thenprinthn$:goto4110
23315 n(14)=.:ifp<>2thenprint"[196]ie [194]ienen fliegen davon.":fl%(10)=.:goto4110
23320 print"[196]ie [194]ienen verjagen den [201]ndianer.":fl%(.)=1:goto4110
23330 ifnot(n=40andp=36)then23340
23331 ifn(20)thenprinthn$:goto4110
23332 ifo=20then23336
23333 print"[193]ls du das [208]ortal aufdrueckst, sticht"
23334 print"dich etwas in die [200]and.[196]ir wird schwin-"
23335 print"delig und [193]ugenblicke spaeter kippst du tot um.":goto1500
23336 ifn(12)thenprint"[196]ir fehlt der passende [211]chluessel.":goto4110
23337 print"[196]as grosse [208]ortal schwingt sanft auf...":fl%(14)=1:goto4110
23340 ifn<>21thenprintkn$:goto4110
23350 ifn(12)thenprint"[201]ch habe keinen [211]chluessel...":goto4110
23360 print"[196]ie [212]ruhe ist leer.":goto4110
23400 ifo=.thenprintwd$:goto4110
23410 ifnot(n=8andp=39ando=15andn(15)>.)then23450
23430 ifn(8)thenprinthn$:goto4110
23440 printok$:fl%(9)=1:n(8)=-1:goto4110
23450 ifnot(n=8ando=44andp=31)then23470
23455 ifn(8)thenprinthn$:goto4110
23460 printok$:fl%(17)=1:n(8)=31:goto4110
23470 printkn$:goto4110
23600 ifothen20850
23605 ifn=.and(p=49orp=48)thenp=97-p:goto4000
23608 ifn=.thenprintwd$:goto4110
23610 ifn=24andp=16thenp=43:goto4000
23615 ifn=50andp=45thenp=46:goto4000
23618 ifn=8and(p=31orp=42)andfl%(17)=1thenp=73-p:goto4000
23620 printkn$:goto4110
23700 ifnthenprintkn$:goto4110
23710 ifp=49orp=48then23605
23720 printkn$:goto4110
23800 ifn<>11orp<>27thenprintkn$:goto4110
23802 ifothen20850
23805 ifn(23)thenprint"[205]ir fehlt die [193]usruestung.":goto4110
23810 print"[196]u kannst tatsaechlich [199]old waschen!":n(11)=27:goto4110
23900 if(n=39and(o=.oro=36))or(n=36and(o=.oro=39))then23930
23920 printkn$:goto4110
23930 ifn(36)thenprinthn$:goto4110
23935 print"[196]er [193]st wird klebrig.[206]eugierig setzt si-";
23940 print"ch die [197]lster auf ihn und klebt fest!":fl%(3)=1:goto4110
24300 input "[198]ilename ";fi$
24310 print"[196][146]isk oder [212][146]ape ?"
24315 getin$:ifin$=""then24315
24320 ifin$="d"thenopen1,8,2,fi$+",s,w":goto24330
24325 ifin$="t"thenopen1,1,1,fi$:goto24330
24328 goto24315
24330 print#1,p:fori=1tomx:print#1,n(i):next
24340 fori=0tofl:print#1,fl%(i):next
24350 close1:printok$:goto4110
24400 input "[198]ilename ";fi$
24410 print"[196][146]isk oder [212][146]ape ?"
24415 getin$:ifin$=""then24415
24420 ifin$="d"thenopen1,8,2,fi$+",s,r":goto24430
24425 ifin$="t"thenopen1,1,0,fi$:goto24430
24428 goto24415
24430 input#1,p:fori=1tomx:input#1,n(i):next
24440 fori=0tofl:input#1,fl%(i):next
24450 close1:printok$:goto4000
24500 print"[215]irklich ?"
24510 getin$:ifin$=""then24510
24520 ifin$="j"thenprint"[147]goto4000:[zum weitermachen]":poke631,141:end
24530 ifin$="n"thenpoke198,0:goto4110
24540 goto24510
24800 ifp<>6orn<>34thenprintkn$:goto4110
24810 ifo=.thenprint"[215]omit denn ?":goto4110
24820 ifo<>6thenprintkn$:goto4110
24825 ifn(6)thenprinthn$:goto4110
24830 print"[197]in [198]euer kommt auf.[202]etzt heisst es war-";
24840 print"ten.":fori=1to2000:next
24850 print"[197]in [200]ubschrauber kommt und laesst eine"
24855 print"[211]trickleiter herunter, an der du hochkl-";
24860 print"etterst."
24870 fori=1to2000:next:goto40000
25000 ifnthenprintkn$:goto4110
25010 printok$:goto4110
25100 ifn<>19orn(19)thenprintkn$:goto4110
25110 n(19)=-1:printok$:goto4110
25300 ifnthenprintkn$:goto4110
25310 iffl%(21)thenprint"[207]kay, war nur 'ne [198]rage...":p=e:fl%(21)=-1:goto4000
25320 print"[215]as soll das denn ?":goto4110
30000 data0,0,0,0,0,0,0,0,2,0,0,15
30010 data2,217,255,15,255,190,31,255
30020 data252,63,255,248,127,255,252
30030 data127,255,254,125,255,255,63
30040 data127,199,15,188,224,3,206
30050 data112,0,0,0,0,0,0,0,0,0,0,0
30060 data0,0,0,0,0,0,0,0,0,0
30100 data0,255,0,7,255,224,31,255
30101 data248,127,255,254,127,255,254
30102 data255,255,255,255,255,255,255
30103 data129,255,240,129,15,200,66
30104 data19,132,36,33,194,0,67,49
30105 data60,140,12,60,48,3,24,192
30106 data0,126,0,0,189,0,0,60,0,0
30107 data60,0,0,36,0,0,102,0
30110 data0,0,0,0,0,0,0,0,0,0,0,0,0
30111 data0,0,255,255,0,1,128,0,15
30112 data240,0,51,248,0,71,248,3,143
30113 data252,7,255,255,255,255,255
30114 data255,127,248,0,16,32,0,127
30115 data248,0,0,0,0,0,0,0,0,0,0,0
30116 data0,0,0,0,0
40000 fori=1to1000:next
40010 print"[147]":print"[196]u bist wieder im sicheren [200]ubschrauber!";
40020 ifn(17)=.thenprint"[196]u hast den [211]chatz gefunden !"
40030 ifn(9)=.thenprint"[196]u hast ein [218]eichen des [198]orschers ge- bracht !"
40035 ifn(17)thenprint"[193]ber wo ist der [211]chatz ?"
40038 ifn(9)thenprint"[213]nd wo ist ein [218]eichen des [198]orschers ?"
40040 ifn(17)orn(9)thenprint"[205]ission nicht erfuellt !!!":goto40100
40050 print"[205]ission erfuellt !!!"
40060 r=18:fori=1to500:printchr$(r)"[215][201][210][160][199][210][193][212][213][204][201][197][210][197][206]!![145]":r=164-r:next
40100 print"[193]ufhoeren ?":goto24510