Atari 8-bit Source code

0GOTO60+Z
10FORA=ATO255STEP3:SOUND0,A,10,8:NEXTA:SOUND0,0,0,0:RETURN
20FORB=BTOA:IFA$(B,B)=""THENNEXTB
21RETURN
30N$=A$(B,D-I):F=LEN(N$):E=I:IFN$="DR"THENN$="DRO":F=3
31FORN=ITO66:G=ASC(W$(E)):IFN$=W$(E+I,E+F)THENN$=W$(E+I,E+G-I):RETURN
32E=E+G:NEXTN:N=0:RETURN
40A=I:B=LEN(A$)
41IFA>BTHENSOUND0,0,0,0:RETURN
42C=A:FORA=ATOB:IFA$(A,A)=""THENSOUND0,30+10*(A-C),10,2:POP:GOTO44
43NEXTA:A=B
44IFPEEK(85)+A-C>PEEK(83)THENPRINT
45PRINTA$(C,A);:A=A+I:GOTO41
49A$(LEN(A$)+I)="."
50GOSUB40:PRINT:RETURN
60I=1:GRAPHICS0:SOUND0,200,0,8:PRINT"":PRINT"":PRINT""
61DIMA$(120),M$(210),N$(21),P$(20),V$(21),W$(417)
62M$="######%%&%###('%##()'&##&#)'##P+OP*#####*))2,######+U###.##T##/-#0VVVVVV.#12#####0#?##3+##2646##35####"
63M$(103)="4#####3978###==6##8:988889L:99L9L8::;L<L;;_<_;<<7>A7##e>>>>>#A@#1####?##?=#B##ACDB##B#LB#####B##"
64M$(199)="EEEC#F###0E#"
65P$="#%((*&#U#2//&222#-#-"
70B=I:FORA=ITO66:READA$:C=LEN(A$)+I:W$(B)=CHR$(C):W$(B+I)=A$:B=B+C:NEXTA:W$(417)="A"
71DATANORTH,SOUTH,EAST,WEST,UP,DOWN,LOOK,INVENTORY,SCORE,QUIT,JUMP,CLIMB,EXIT,HINT,SWAMI,DRIFT
72DATAGET,DROP,OPEN,CLOSE,THROW,READ,EAT,TRADE,KILL,FREE,CHARM,FEED,ENTER,CATCH,ROW,GO
73DATABOOK,KNAPSACK,CORN,GROUNDNUTS,MOUSE,SPEAR,BOOTS,LIVINGSTON,VIPER,DIAMOND,BEANS,RING,NOTE,CHAIN,CANE,FLUTE
74DATAALLIGATOR,SAPPHIRE,DOG,DAGGER,TREE,SIGN,BOAT,CLOSET,BED,PASSAGE,LEOPARD,VILLAGE,TRINKETS,SQUIRREL,PIT
75DATAQUICKSAND,NATIVE,HUT
80DIML(20)
81A$="$$AD%#$#*-2#5@;#>#9/#":FORA=ITO20:L(A)=ASC(A$(A))-35:NEXTA
90Z=240:L=I:L(8)=25+(RND(I)<0.6667000000000001)*(2+(RND(I)<0.5)*8):GOSUB1000
99A=10:GOSUB10
100H=H+I:O=O+I:T=T+I:TRAP204:GOTO100+L+L
114IFWTHEN204
115A$="viper":GOTO155
124IFH=3THENA$="Avoiceechoesfromthemouthofthecave...'SWAMI'":GOSUB49
125GOTO204
134GOTO168
136O=O-I:GOTO205
144IFL(19)<>LTHEN204
145A$="dog":GOTO155
154A$="alligator":IFXTHEN204
155GOTO205-3*(O=8)-5*(O=3ORO=5)
168IFL(6)<0THEN175
169O=O-I:IFH<2THENA$="Severalnativeswavehello!":GOSUB50:GOTO205
171IFH>2ORL<>17ORL(11)>-ITHEN205
173A$="Afriendlynativeapproacheswithsometrinkets.Itappearshewantstomakeatrade":GOSUB49:GOTO205
175IFO=ITHENA$="Suddenly,avolleyofspearsfliesoveryourhead;anobviouswarning!":GOSUB50:GOTO205
177IFO>4THENA$="Anotherspearflies..":GOSUB49:A$="spear":GOTO202
179A$="tribe"
200PRINT"The";A$;"isafteryou!"
201A$="Youhadbetterleave-fast!":GOSUB50:GOTO205
202PRINT"The";A$;"gotyou!!!":FORA=0TO100:SOUNDI,255*RND(0),8,8:NEXTA:SOUNDI,0,I,I
203A$="AnotherexplorerislosttothewildsofAfrica!":GOSUB50:V=99:GOTO3000
204O=0
205SOUNDI,256-30*O,10,2
210P=P+(L(15)<0):IFP<>17THEN220
211L(15)=0:L(16)=-I:S=S+5:A$="Aftermanyhoursofwhittling,yoursugarcaneisnow":GOSUB40
212GOSUB2016:GOSUB49:P=18
220IFL(6)<>0ORT<21ORL<4ORL=7ORL=17ORL=18ORL>33THEN230
221A$="Anativethrowsaspearatyou!Hemissesandrunsoff":GOSUB49:L(6)=L
230IFNOTMANDL>ITHENPRINT"Ohno...barefeet...":A$="dreadedfootrot":S=S-50:GOTO202
300POP:POP:TRAP65535:A=200:GOSUB10:PRINT"Whatnow";:POKE694,0:POKE702,64:INPUTA$:A=LEN(A$):IFATHEN303
301PRINT"";
302A=10:GOSUB10:GOTO300
303B=I:C=B:GOSUB20:IFB>ATHEN301
304SOUND0,180,2,6:FORD=BTOA:IFA$(D,D)=""THENPOP:GOTO306
305NEXTD:C=0
306GOSUB30:V=N:V$=N$:N=0:N$=""
307IFCTHENB=D:GOSUB20:D=A+I:GOSUB30
308SOUND0,0,I,I:PRINT"Whatnow?";V$;"";N$;""
400IFNOTVTHENPRINT"I'mbaffledby'";V$;"'!":GOTO302
401IFV>32ANDNTHEN900
402IFV>32THENPRINT"Dowiththe";V$;"?":GOTO302
403IFV>16THEN410
404IFLEN(N$)THEN900
405IFV<7THENN=V:N$=V$:V=32
406GOTO430
410IFLEN(N$)THEN420
411PRINTV$;:IFV<31THENPRINT"":GOTO302
412PRINT"":GOTO302
420IFNOTNTHENV$=N$:V=0:GOTO400
430GOSUB1000*V-6000:GOTO100
800IFN>32ANDN<53THENRETURN
801GOTO900
810IFN>32THENRETURN
900IFRND(0)<0.3333THENPRINT"":GOTO302
901IFRND(0)<0.5THENPRINT"":GOTO302
902PRINT"":GOTO302
999H=0
1000GOSUB1000+10*L:GOSUB49:V$="":E=L:F=20-19*(L=IANDNOTK):A$="Youcansee"
1001FORD=ITOF:IFL(D)=ETHENGOSUB40:GOSUB2000+D:A$(LEN(A$)+I)=","
1002NEXTD:IFA$(I,I)="Y"THENPRINTV$:RETURN
1005A$(LEN(A$)-I)=".":GOTO50
1010IFUTHENGOSUB1015:GOTO1012
1011A$="Youareinabedroom,wearingPJ's.":GOSUB40
1012A$="Anightstandsitsbetweentheclosetandthebed.Thebedcoversareturneddown.":GOSUB40
1013A$="Theclosetis":GOSUB40:IFKTHENA$="open":RETURN
1014A$="closed":RETURN
1015A$="Youarelyinginawarm,softbed":GOTO49
1020A$="Youaredriftinginarowboatonalake.Thereisabeachontheeasternshoreline":RETURN
1030A$="Youareontheeastshoreofalake.Aboatistiedtothedock":RETURN
1040GOSUB1041:A$="":RETURN
1041A$="Youareonagrassyplain.":GOTO40
1050GOTO1040
1060A$="Atrailbeginshere.Offtoonesideisatree":RETURN
1070A$="Youareprecariouslybalancedinatallmoss-coveredtree":RETURN
1080A$="YouareonaN/Strail.Cliffstotheeastreachuptoaplateau":RETURN
1090A$="Youareatthefootofacliff.Atrailleadsuptoanopening":RETURN
1100A$="Youareatthemouthofacave.Atrailleadsdownward":RETURN
1110A$="Youareinatunnel.Afaintglowemanatesfromthewest.Asignonthewallsays:":GOSUB50
1111A$="'CAVERNSAHEAD-ENTERATOWNRISK'":RETURN
1120A$="Youareinanimmensecavern.Thewallsarecoveredwithaniridescentglow":RETURN
1130A$="YouareinalongE/Wpassage":RETURN
1140GOTO1100
1150A$="Thetrailhereisovergrownwithgrass":RETURN
1160A$="Thetrailwidensouttoanearbynativevillage":RETURN
1170A$="Youareinanativevillage.Thereareseveralcampfiresabout":RETURN
1180A$="Youareinagrasshut":RETURN
1190GOSUB1191:A$="Atrailleadsnorth":RETURN
1191A$="Youareattheedgeofajungle.":GOTO40
1200GOSUB1191:A$="Grasslandsextendtotheeastandsouth":RETURN
1210A$="Youareinajungle.Trailsleadoffinseveraldirections":RETURN
1220GOTO1210
1230A$="Thereisalargebodyofquicksandhere,withatrailjustbeyond":RETURN
1240GOTO1230
1250GOTO1210
1260GOSUB1041:A$="Theterrainisbecomingsomewhatmarshy":RETURN
1270A$="Youareinthemarshes.Somethingismovingthegrass":RETURN
1280A$="Youareinavalley.Asmallopeningmarksthehillbesideyou.Rollinghillsflowsouthward":RETURN
1290A$="Youareatatradingpost.Aneagernativesmilesashepointstohissign":RETURN
1300A$="Youareinafieldofcorn.Thegrounddropsofftothenorth":RETURN
1310GOSUB1041:A$="Twoshrunkenheadsdecorateasign":RETURN
1320GOSUB1041:A$="Avillageliestotheeast":RETURN
1330A$="Youarebehindahut.Thereisasignintheground.Asquirreljustranby":RETURN
1340A$="YouareintheUjijivillage.Anativestandsnearholdingaspear.Helooksexcited":RETURN
1350A$="Youareinapit.Lightstreamsinfromabove":RETURN
2000V$="You'reempty-handed.":A$="Youarecarrying":E=-I:F=20:GOSUB1001:GOTO210
2001A$="atimewornbook":RETURN
2002A$="afadedredknapsack":RETURN
2003A$="anearofcorn":RETURN
2004A$="abatchofgroundnuts":RETURN
2005A$="atinygreymouse":RETURN
2006A$="apoison-tippedspear":RETURN
2007GOTO2100
2008A$="Dr.Livingston":RETURN
2009GOTO2200+W
2010A$="asparklingdiamond":RETURN
2011A$="asackofcoffeebeans":RETURN
2012A$="agoldennosering":RETURN
2013A$="acrumplednote":RETURN
2014A$="asolidsilverchain":RETURN
2015A$="astalkofsugarcane":RETURN
2016A$="acharminglittleflute":RETURN
2017GOTO2300+X
2018A$="adeepbluesapphire":RETURN
2019A$="awilddog":RETURN
2020A$="apearl-handleddagger":RETURN
2100A$="apairofhikingboots":IFMTHENA$(LEN(A$)+I)="(onyourfeet)"
2101RETURN
2200A$="aviciousviper":RETURN
2201A$="alethargicviper":RETURN
2300A$="ahungryalligator":RETURN
2301A$="adeadalligator":RETURN
3000GOSUB3500
3010PRINT"In";T;"turns,yourscoreis";A:A$="outofapossible250":GOSUB49
3011IFV<>10ANDV<>99THENRETURN
3012PRINT"Thanksforplaying!":PRINT:PRINT"TypeRUNtoplayagain."
3013IFL=2ORL=10ORV=10ORRE*RND(I)>0.5THENEND
3014PRINT:PRINT"READY":FORA=ITO200:NEXTA:PRINT:PRINT:PRINT"AMIRACLE!!!":PRINT
3015PRINT"YOUHAVERECOVERED!":PRINT:PRINT
3016Q=0:FORA=2TO20:IFL(A)<0THENL(A)=INT(3+33*RND(I))
3017NEXTA:RE=1:L=2:GOTO99
3500A=0:FORB=ITO20:A=A+(ASC(P$(B,B))-35)*(L(B)=I):NEXTB:A=A+S:IFA<215THENRETURN
3501PRINT:PRINT"":PRINT:PRINT"Youarea";:A$="n"
3502IFT<190THENA=A+15:A$="talented"
3503IFT<160THENA=A+10:A$="skilled"
3504IFT<130THENA=A+10:A$="master"
3505PRINTA$;"adventurer.":V=10:GOTO3010
4000GOTO3000
5000IFL<23ORL>24THEN5010
5001PRINT"Over30feetofquicksand?!";:INPUTA$:IFA$(I,I)<>"Y"THENRETURN
5002PRINT"O.K....":POKE752,I:FORA=ITO21:PRINT:NEXTA:PRINT"^^^^^^^^^^^^^^^^^^^"
5003A$="":POSITION3,18:PRINTA$;:SOUNDI,255,10,8:FORA=ITO100:NEXTA
5004FORA=3TO25:B=2+(A-14)*(A-14)/10:SOUNDI,17*B,10,8:POSITIONA,B
5005PRINT"";:NEXTA:SOUNDI,0,I,I
5006POSITION26,18:PRINTA$;:POSITION25,16:PRINT"TA-DAH!":POKE752,0
5007L=47-L:GOTO999
5010IFL=2THENA$="darkwaters":GOTO202
5011PRINT"O.K....":PRINT:PRINT"Wheeee!!!":PRINT:RETURN
6000IFL=6ORL=7THENL=7:GOTO999
6001GOTO900
7000IFL=18THENL=17:GOTO999
7001PRINT"EXITdoesn'tworkhere!":RETURN
8000TRAP8001:GOSUB8000+10*L:GOTO8002
8001A$="You'reonyourown,sport!"
8002GOSUB50:GOTO210
8010A$="Thismayseemstrangeorevenabsurd,butinthebookisamagicalword!":RETURN
8070A$="Somesnakesjustcan'tbecharmed!":RETURN
8120A$="Bepersistent!":RETURN
8170IFL(6)<0THEN8001
8171A$="Youlookhostile!":RETURN
8220GOTO8120
8230A$="Youwon'tgetacrosswithaHOPoraSKIP.":RETURN
8240GOTO8230
8250GOTO8120
8270GOTO8120
8340IFL(6)<0THEN8170
8341A$="Liontrapscirclethevillage.":RETURN
9000IFL<>IANDL<>10THENPRINT"Nothinghappenshere.":RETURN
9001IFL=10THEN9010
9002L=10:IFL(I)<0THENL(I)=I:Q=Q-I
9003U=0:A$="Suddenlyyou'reinjunglefatiguesand..":GOSUB49:GOTO999
9010IFL(8)<0THENPRINT"Livingstonvanishes!":L(8)=INT(2+34*RND(0))
9020L=I:GOTO999
10000IFL=2THEN9020
10001IFL(I)<0ANDUTHENL(I)=I:R=0:Q=Q-I:L=2:GOTO9003
10002GOTO900
11000IFQ>4THENPRINT"Yourload'stooheavy!":GOTO302
11001GOSUB11800:IFN=5THEN26560
11002IFN=39THEN11100
11003IFN<>62THENGOSUB11010:GOTO11040
11008IFL<>33THEN11910
11009PRINT"It'stooquick!":GOTO99
11010GOSUB800:IFL(N-32)<>-IAND(L(2)>-IORL(N-32)<>-2)THENRETURN
11020PRINT"You'vealreadygot";
11030IFN=40THENPRINT"him!":GOTO99
11031PRINT"it!":GOTO99
11040GOSUB11900:IFNOTUORN=33THEN11050
11041PRINT"Frombed?":GOTO99
11050IFN<>40THEN11060
11051PRINT"Dr.Livingston";:INPUTA$:IFA$<>"IPRESUME"THENPRINT"Wronganswer!":GOTO99
11060IFN=46ANDL(4)<99THENPRINT"It'snotfree!":GOTO99
11061IFN=34ANDL(5)<-ITHENQ=Q+I
11062IFN=37THEN24000
11063IFN=49THENA$="Itweighsover800pounds,friend!":GOSUB50:GOTO99
11070L(N-32)=-I:Q=Q+I
11080PRINT"'tisdone.":RETURN
11100IFMTHENPRINT"You'rewearing";:GOTO11030
11101IFKTHENPRINT"Youputontheboots.":S=S+5:M=I:L(7)=-I:RETURN
11102GOTO11910
11800TRAP11842:A=11890:GOTO11800+N
11841IFNOTWANDL=7THENGOTOA
11842RETURN
11849IFNOTXANDL=27THENGOTOA
11850RETURN
11851IFL(19)=LTHENGOTOA
11859IFYORL<>9ANDL<>10THENRETURN
11890PRINT"That'stoodangerous!":GOTO99
11900IFL(N-32)=LAND(L>IORKORN=33)THENRETURN
11910PRINT"Iseeno";N$;"here!":GOTO99
12000IFN=39THENPRINT"They'restuck!":GOTO99
12001GOSUB12900
12010IFL=IANDNOTKANDN>33THENPRINT"There'snoroom!":GOTO99
12011IFN=37ORN=41THEN20000
12012IFN=34ANDL(5)<0THENQ=Q-I
12020L(N-32)=L-(L=7):GOSUB11080:GOSUB3500:Q=Q-I:RETURN
12900GOSUB800:IFL(N-32)=-IORL(N-32)=-2ANDL(2)=-ITHENRETURN
12910PRINT"Youdon'thave";:GOTO11030
13000IFN=33ANDL(I)<0THEN13030
13001IFN=56THEN13050
13010GOSUB810:IFN<53THENGOSUB12900
13020PRINT"Howcanone";V$;"the";N$;"?":GOTO99
13030IFNOTRTHENR=I:A$="Thebookfallsopentoanunderlinedpassage":GOTO49
13040PRINT"The";N$;"isalready";V$;"!":GOTO99
13050IFL>ITHEN11910
13051IFUTHEN11041
13052IFNOTKTHENK=I:GOTO1000
13053GOTO13030
14000TRAP13010:GOTO14000+10*N
14330IFL(I)>-ITHEN12910
14331IFRTHENR=0:GOTO11080
14332GOTO14570
14340IFL(2)>-ITHEN12910
14341IFL(5)<-ITHENPRINT"Themousewon'tescape!":RETURN
14342PRINT"It'lljustfallopenagain.":RETURN
14560IFL>ITHEN11910
14561IFUTHEN11041
14562IFKTHENK=0:GOTO1000
14570V$="CLOSED":GOTO13040
15000IFN>52THEN13020
15001GOSUB12900:IFN=39THEN12000
15002A$="It":IFN=40THENA$="HeletsoutastartledYIIEEEE!ashe"
15003GOSUB40:A$="sailsthroughtheair..":GOSUB49:A$="...andhitsthe":GOSUB40:D=L
15004A$="ground":IFL=2THENA$="water,quicklysinking":D=0
15005IFL=IORL=18THENA$="floor"
15006GOSUB49:IFL=7THEND=6
15007IFN=40ANDD>0THENA$="Withanangryscowl,hetrotsoff":GOSUB49:D=INT(3+33*RND(I))
15008L(N-32)=D:Q=Q-I:IFN<>38ANDN<>52ORL(17)<>LORXTHENRETURN
15010IFRND(I)<0.5THENRETURN
15011FORA=ITO50:NEXTA:A$="Wait!That'snotground!It'sALLIGATOR!!":GOSUB50:X=1:RETURN
16000GOSUB810:IFN<53THENGOSUB12900
16001TRAP900:GOTO16000+10*N
16330IFNOTUTHENPRINT"Tryreadinginbed!":GOTO99
16331IFNOTRTHENPRINT:PRINT"AFRICA-LANDOFTHEUNKNOWN":PRINT"byR.U.Redde":PRINT:RETURN
16332A$="...plorernoddedofftosleep,histhoughtsbegantodriftt..":GOTO49
16450PRINT"Itsays'SWAMIDIAMOND'.":RETURN
16540IFL=29ORL=33THENPRINT"Itsays'MBELETRADINGPOST'.":RETURN
16541IFL=31THENPRINT:PRINT"UJIJICOUNTRY-KEEPOUT":PRINT"NOHEED'EM,WEEAT'EM!":PRINT:RETURN
16542GOTO11910
16580IFL(I)<0THEN16330
16581PRINT"Youdon'thavetheBOOK!":RETURN
17000GOSUB810:IFN<53THENGOSUB12900
17001IFN=35ORN=36ORN=43ORN=47THENGOSUB11080:PRINT"Ummmmm...GOOD!":L(N-32)=0:RETURN
17002IFN=37THENGOSUB11080:PRINT"YUK!!":L(5)=0:RETURN
17003A$="Idon'tthinkthe":A$(LEN(A$))=N$:A$(LEN(A$)+1)="wouldagreewithyou!":GOTO50
18000GOSUB810:IFN>52THEN13020
18001GOSUB12900:A$="Thenativetakesyour":IFL<>17ORN<>43THEN18010
18002A$="Thenativegrabsyourbeansandgivesyouatrinket.Hethenrunsoff":L(11)=99:L(12)=-I:S=S+15:GOTO49
18010IFL=29ANDN=36THENA$="Thenativegivesabiggrinandtakesthegroundnuts":L(4)=99:Q=Q-I:S=S+10:GOTO49
18020PRINT"Nodice.":RETURN
19000IFN=65AND(L=17ORL=29ORL=34)ANDL(6)<0THENPRINT"Withyourpunyspear?":GOTO99
19001GOSUB11800:IFN=37ORN=62THEN11009
19002GOSUB19100:GOSUB11900:IFN=49ANDXTHENA$="Youbrute!Thepoorthing'salreadydead":GOTO49
19003GOTO13020
19100IFN>52THEN13020
19110GOSUB800:IFL(N-32)>-ITHENRETURN
19120PRINT"Notwhileyou'recarrying";:GOTO11030
20000GOSUB12900:TRAP13020:GOTO20000+10*N
20370A$="Themousejumpsoutandscampersoff":D=2
20371IFL=9ORL=10THENY=I:S=S+15:A$="Themousejumpsoutandstartlestheleopardintoflight":D=0
20372L(5)=D
20375Q=Q-I:GOTO49
20410A$="Theviperslowlyslithersaway":D=7:IFL<>22THEN20415
20411A$="Theviperwakesup,attacksthedog,andbothfallintothequicksand.Neitherareseenagain":GOSUB49
20412A$="Somethingsparklesinthegrass":D=0:L(18)=L:L(19)=0:S=S+15
20415L(9)=D:GOTO20375
21000IFN=41THEN21010
21001IFN=37ANDL(5)=LORN=62ANDL=33THENA$="Rodentsarecharmingenough!":GOTO50
21002IFN=37ORN=62ANDL<>33THEN11910
21003GOSUB810:IFN<53THENIFL(N-32)>-IANDL(N-32)<>LTHEN11910
21004GOTO13020
21010GOSUB11900:IFL(16)<>-ITHENA$="Youmayhavegoodlooks,but..":GOTO49
21011IFWTHENA$="Itseemsuninterested":GOTO49
21012W=1:S=S+10:A$="Theviperseemsstupifiedbyyoureffortstoplaytheflute":GOTO49
22000IFN=59AND(L=9ORL=10)THENA$="There'snothinghereitwantstoeat(exceptyou)":GOSUB49:GOTO99
22001GOSUB810:IFN=62ANDL=33THEN22010
22002IFN>52THEN13020
22003IFL(N-32)>-ITHENGOSUB11900
22004IFN<>37THEN13020
22005IFL(5)<-ITHEN11910
22010PRINT"Itjustate!":GOTO99
23000GOTO26000
24000IFN<>37THEN24010
24001IFL(5)<-ITHENPRINT"It'salreadyintheknapsack.":GOTO99
24002IFL(2)>0THENA$="Youdon'thaveanythingtoputitin!":GOSUB50:GOTO99
24003L(5)=-2:Q=Q+I:A$="Themouseisnowlostinthefoldsofyourknapsack":GOTO49
24010GOSUB11800:IFN=62THEN11008
24011GOSUB11010:GOTO13020
25000IFN>6ANDN<>55ANDN<>64THEN900
25001IFL=IORL>3THENN$="BOAT":GOTO11910
25002IFN=55THENPRINT"O.K.,where?":GOTO99
25003IFL=3ANDN<>4THENPRINT"ROWonland?":GOTO99
26000TRAP900:IFN>6THENGOTO26000+10*N
26001A=ASC(M$(6*L+N-6))-35
26002IFATHEN26006
26003IFRND(0)<0.3333THENPRINT"Sorry,nowaygoes";N$;".":RETURN
26004IFRND(0)<0.5THENPRINT"Youwon'tgetanywherethatway!":RETURN
26005PRINT"Youcan'tgothatway.":RETURN
26006IFA<40THENH=H*(A=L):L=A:GOTO1000
26010A=A-40:GOTO27000+10*L
26530GOTO6000
26550IFL=3THENL=2:GOTO999
26551GOTO11910
26560IFL=ITHENU=0:A$="Youareatthecloset":GOTO49
26561A$="IndarkestAfrica?!?":GOTO50
26570IFL=ITHENU=I:GOTO1015
26571GOTO26561
26600IFL=16THENL=17:GOTO999
26601IFL=32THENN=3:GOTO26001
26602IFL=17ORL=34THENA$="You'reinit!":GOTO50
26603GOTO11910
26630IFL=34THENL=35:GOTO999
26631GOTO11910
26660IFL=17THENL=18:GOTO999
26661GOTO11910
27060A=A*(RND(0)<0.5):GOTO26002
27090IFNOTYTHENA$="Afierceblackleopardblockstheway!":GOTO50
27091GOTO26006
27100GOTO27090
27120L=11+(RND(0)<0.75):GOTO1000-(L=11)
27220L=19+2*(RND(0)<0.5):GOTO999
27230A$="Thatleadstoquicksand!":GOTO50
27240GOTO27230
27250IFRND(0)<0.625THEN26003
27251X=0:GOTO26006
27270GOTO27250
27320L=31+3*(RND(0)<0.4):GOTO999	

• Download link 1

• Download link 1
• Download link 2
• Download link 3
• Download link 4
• Download link 5