Atari 8-bit Source code

5REM**DISKVERSION**
6REM
7DIMA$(23)
10GRAPHICS2:SETCOLOR4,12,0:SETCOLOR0,5,15:SETCOLOR2,12,0:POSITION5,5:?#6;"DEATHWORLD"
20SETCOLOR1,0,15:FORA=1TO2500:NEXTA:POKE752,1:?"PROLOGUE...":FORA=1TO1500:NEXTA
30GRAPHICS0:POKE752,1:SETCOLOR2,8,0:SETCOLOR1,0,15:?"LOG---":?"ENTRY#66":?"April30,1992"
35FORA=1TO2000:NEXTA
40?:?:?"Ihavebeeninspaceforover2monthsnow,travellingatahundred"
50?"timesthespeedoflight.Earthhaslongagodiminishedintothevast"
60?"darknessoftheuniverse,andnowmyjourneyisabouttoend.My"
70?"destinationisclear:AlphaBetaII,asmallplanetatthefringeoftheMilkyWay."
80?:?"Hit";:INPUTA$
90?"Ithasbeenover9monthsnowsincemycompatriots,Brent,Reeves,and"
100?"Jackson,venturedforthtoAlphaBetaIIonaminingexpedition.Signalsand";
110?"communicationsceasedsoonthereafter.Aretheystillalive?Whatcould"
120?"possiblyhavehappened?Ihavebeensentonasolorescuemissiontothis"
130?"smallblueplanet,fearfulofwhatImayfind,fearfulofwhatmayhave"
140?"happenedtoBrent,Reeves,andJackson."
150?"Iamabouttoland,sothiswillbemyfinalentry.Myshipsoarsoverthe";
160?"topsofseveralmountains.Iseeasmallplateaubelow.Steeringwillbecritical..."
170?:?"Hittoland";:INPUTA$
200RUN"D:DTHWRLD1"	

1REM*DEATHWORLD***diskversion
5SZ=30:GOTO100
10GOTOA+10
13S=4:?"INYOURSPACESHIP.Onyourcontrolpanelisaredpushbutton.":GOTO1500
14?"ONAPLATEAU.":W=11:E=7:GOTO320
15S=6:?"INASMALLSPACECRAFT.Anarmbandaroundtheskeletonsays:":?"'JACKSON'.";:GOTO1502
16?"ATTHEBOTTOMOFAROCKYHILL.Infrontofyouisaslime-smearedspaceship,halfdecomposed.";:GOTO1504
17?"ONAPLATEAU.":W=4:GOTO320
18?J1$;"Youarealongsideamountain.":S=32:NE=34:GOTO320
19?"INATOOLSHED.":E=8:GOTO320
20?J1$;"Youarealongsideamountain.":NW=16:SW=37:GOTO320
21?"ONAPLATEAU.You'reontopofasteep,rockyhill.Belowyousee":GOTO1505
22?J1$;"Youarealongsideamountain.";:NE=6:GOTO1506
23?"INSIDEACAVEINAMOUNTAIN.":SE=12:GOTO1507
24?"NEARASMALLPOOLOFWATER.":W=38:GOTO320
25?"INSIDEACAVEINAMOUNTAIN.":SW=10:GOTO320
26?J1$;"Youarealongsideamountain.";:SE=10:GOTO1506
27?"INSIDEACAVEINAMOUNTAIN.":W=19:SE=16:GOTO320
28?J1$;"Youarealongsideamountain.";:W=41:SE=23:GOTO1506
29?"INSIDEACAVEINAMOUNTAIN.":E=17:SW=18:GOTO320
30?J1$;"Youarealongsideamountain.";:NW=32:GOTO1506
31?"INSIDEACAVEINAMOUNTAIN.":NW=20:GOTO320
32?J1$:E=24:NW=34:GOTO320
33?J1$;J2$;"southeast.":E=37:NW=18:SW=35:SE=26:GOTO320
34?J1$:W=22:E=35:GOTO320
35?"INADISPENSARY.":S=24:GOTO320
36E=29:NW=23:SW=27:GOTO1300
37W=35:NE=26:SE=28:GOTO1300
38E=31:NW=27:SW=40:GOTO1300
39W=26:NE=37:SE=30:GOTO1300
40E=38:NW=29:SW=31:GOTO1300
41W=28:NE=30:SE=39:GOTO1300
42?J1$;"Youarealongsideamountain.":N=8:SE=20:GOTO320
43?"INASMALLMETALSHACK.":W=32:GOTO320
44?J1$:NE=41:SW=8:SE=22:GOTO320
45?J1$;J2$;"east.":W=24:E=27:NE=23:SE=40:GOTO320
46S=35:?"INAPOWERSHED.Thereisatransformerheremountedonawalland";:GOTO1509
47?J1$;J2$;"southwest.":W=23:NE=10:SW=29:SE=38:GOTO320
48?J1$;J2$;"west.":E=38:N=38:W=30:S=38:NW=37:SW=39:GOTO320
49TT=1:?J1$;J2$;"northwest.":W=40:NE=38:NW=31:SE=6:GOTO320
50?J1$;J2$;"northeast.":E=39:NW=35:NE=28:GOTO320
51?J1$:E=18:SW=34:GOTO320
100POKE752,1:REM*TITLE*
200DIMA$(21*SZ),A(21),B(10),B$(120),C(15),D(40)
203DIMSZ$(SZ),D$(20),E$(20),A9$(100),X$(SZ),F$(1)
204DIMJ1$(22),J2$(24),LA$(25),DM$(18),SW$(4),AS$(60),PF$(10),F(5)
205SZ$=""
207FORA=1TO15:C(A)=0:NEXTA:FORA=1TO21:A(A)=0:NEXTA:FORA=0TO5:F(A)=0:NEXTA
210FORA=1TO21:A$(A*SZ-SZ+1,A*SZ)=SZ$:READX$:A$(A*SZ-SZ+1,A*SZ)=X$:READV:A(A)=V
212NEXTA
214READB$,X$:B$(LEN(B$)+1)=X$:FORA=11TO40:READV:D(A)=V:NEXTA
215J1$="ONADIRT-STREWNPATH.":J2$="Youseeabeachtothe":LA$="Thelittlealiencreature"
216SW$="OFF.":DM$="Itlooksdamaged.":AS$="TLLW!BFNNB!WVORXRLFH!BFXP!YZW!MLTLLW!"
220F$=CHR$(34):Z=0:A=3:C(1)=2
300SOUNDZ,Z,Z,Z:X5=Z:V=Z:V1=Z
301DK=0:IFA=21ORA=13ORA=19ORA=17ORA=43THENIFA(6)<>-1ANDA(6)<>ATHENDK=1
302IF(A<32ANDA>25)ORA=14THENV1=8
304N=Z:W=Z:E=Z:S=Z:U=Z:D=Z:NW=Z:NE=Z:SW=Z:SE=Z:GRAPHICSZ:SETCOLOR2,V,Z:SETCOLOR1,Z,15:SETCOLOR4,V1,Z
305POKE752,1
310IFDK=1THEN?"IT'STOODARKINHERETOSEEANYTHING.FINDSOMELIGHT.":BV=1:GOTO1450
317?"YOU'RE";:BV=Z
319GOTO10
320GOTO1310
330IFBR=1THENA(15)=-A
350?:IFN+W+E+S+U+D+NW+NE+SW+SE>ZTHEN?""
352FORB=1TO10:B(B)=Z:NEXTB:IFDK=1THEN358
354IFW>ZTHENB(1)=W:?"West";
355IFN>ZTHENB(2)=N:?"North";
356IFE>ZTHENB(3)=E:?"East";
357IFS>ZTHENB(4)=S:?"South";
358IFNW>ZTHENB(7)=NW:?"Northwest";:IFA=38THEN?
359IFNE>ZTHENB(8)=NE:?"Northeast";
360IFSW>ZTHENB(9)=SW:?"Southwest";
361IFSE>ZTHENB(10)=SE:?"Southeast";
362IFU>ZTHENB(5)=U:?"Up";
363IFD>ZTHENB(6)=D:?"Down";
365?:?:IFBVTHEN375
366FORB=1TO21:IFB=11THEN368
367IFABS(A(B))=ATHENC=C+1:GOTO369
368NEXTB:PRINT:GOTO375
369IFC=1THENPRINT""
370?"";A$(B*SZ-SZ+4,B*SZ)
371IFB=15ANDBR=1THEN?"(Followingyou)"
373GOTO368
375IFBR=0ANDA(15)=-AANDA=13ANDDK=0THEN?LA$;"mutters:":?:X5=1
376IFX5=1THEN?F$;"KOVZHVUIVVNV.HSZPVZYOFVILWGLLKVMNBXSZRMH.";F$
377IFBR=0ANDA=10ANDA(15)=-ATHEN?LA$;"iscarrying":?"aredrodandisheadingeast.":X5=2
378IFX5=2THENA$(424,444)="CAPTIVEALIEN":A(15)=-13:GOTO5000
379IFTT=1ANDTQ=0THENTI=TI+1:IFTI=3THENTI=0:TH=TH+INT(RND(0)*2)+1:IFTH>99THENX5=3
380IFX5=3THEN?"Youhavejustdiedofthirst!":GOTO6700
381IFTT=1THENHX=HX+1:IFHX=2THENHX=0:HG=HG+INT(RND(0)*2)+1:IFHG>99THENX5=4
382IFX5=4THEN?"Youhavestarvedtodeath!":GOTO6700
383IFHT=1THENIN=IN+INT(RND(0)*2)+1:IFIN>75ANDIN<80THENPF$="profusely"
384IFHT=1ANDIN>99THEN?"Youhavebledtodeath!":GOTO6700
385IFHT=2THENIN=IN+INT(RND(0)*5)+1:IFIN>99THEN?"Youhavediedofinfection!":GOTO6700
386IFBR=1ANDA=14THEN?LA$;"pointsto":?"thepoolandsays:":?:?F$;"TLLWULIBLF.";F$
387IFBR=1ANDPP=0ANDA>25ANDA<32THENPO=PO+1:IFPO<2THEN?LA$;"pointsto":?"thelakeandsays:":?:X5=5
388IFX5=5THEN?F$;"KLRHLMVW.";F$:PP=1
389IFBR=1ANDA=38ANDTQ=0THEN?LA$;"says:":?:?F$;"VZHG.TLVZHG.";F$
390IFBR=1ANDA(7)=-1ANDSF=0THENSF=1:FB=INT(RND(0)*25)+1:?LA$;"pointsto":X5=6
391IFX5=6THEN?"thefruitandsays:":?:FV=INT(RND(0)*3)+1
392IFX5=6ANDFB>15THEN?AS$(FV*10-10+1,FV*10):GOTO394
393IFX5=6THEN?AS$((FV+3)*10-10+1,(FV+3)*10)
394IFCR=1THEN?"Ittightensonetentaclearoundyourwaist.Asecondemergesfromthelake,";:X5=7
395IFX5=7THEN?"whipsitselfaroundyourlegs,andbothpullyouintothewater."
396IFX5=7ANDBR=1THEN?LA$;"wavesand":?"says,";F$;"YBVYBV";F$
397IFX5=7THEN6700
400IFMV>150ANDCR=0ANDA=27THEN?"Suddenlyalarge,slimytentacle":X5=8
401IFX5=8THEN?"rushesoutofthewaterandwrapsitselflooslyaroundyourwaistand"
402IFX5=8THEN?"startstotightenitsgrip.":CR=1:IFBR=1THEN?LA$;"says,":?F$;"LSLS";F$
403IFCR=2ANDA<>27THEN?"Youhearsomethingslithering!":IFBR=1THEN?"Frightened,";LA$
404IFCR=2ANDA<>27THENCR=3:?"jumpsintoyourarms,holdsyoutight,thenhopsbackdown."
405IFCR=4THEN?"Themonsterwrapsalleighttentaclesaroundyouatonceandkillsyoudead!":GOTO6700
406IFCR=5THEN?"Themonsterexaminesyourweapon":?"playfully.";
407IFCR=5ANDBR=1ANDGB=0THEN?LA$:?"says,";F$;"NZBYVSVVZGRG.";F$:GB=1:GOTO450
408IFCR=5THEN?""
409IFCR=3ANDA=18THEN?"Fromthecaveemergesaterrifyingmonster.Itstopsandstands10feet"
410IFCR=3ANDA=18THEN?"awayfromyou.Resemblinganoctopod-likecreature,itbearseightslimy"
411IFCR=3ANDA=18THEN?"tentaclesofvariouslengths.Itsheadiscoveredwithdark,studdedveins,"
412IFCR=3ANDA=18THEN?"anditsfaceisalmostnothingbut":?"teeth.Itstandstherestaring"
413IFCR=3ANDA=18THEN?"ravenouslyatyou.":CR=4:GOTO1700
414IFCR=6THEN?"Youstop,turnandseethemonsterleave,headingtowardsthelake,"
415IFCR=6THEN?"carryingyourweaponwithhim.":IFCT=1ANDPW=1THENX5=22:GOTO421
416IFCR=6THEN?"Itvanishesbeneaththechilled":?"surface.";:X5=23:CR=7
417IFX5=23ANDBR=1THEN?LA$:?"says,";F$;"YBVYBV";F$:GOTO450
418IFX5=23THEN?"":GOTO450
419IFCR=7ANDCT=1ANDPW=1ANDA=35THEN?"Youhearasplashandseethemonster":X5=24
420IFX5=24THEN?"risingfromthelakeandscamper":?"acrossthegoldensandonthebeach":X5=22
421IFX5=22THEN?"Itrunsintothebarewireand10000voltssurgethroughitsbody.Witha"
422IFX5=22THEN?"loudshriek,itburns,itsbody":?"charredtoashes,andtheyare"
423IFX5=22THEN?"scatteredbythewind.":CT=2:CR=8
424IFX5=22ANDBR=1THEN?LA$;"says,";F$;"LLS!":?"YZWYLBTLFKRMHNLPV!";F$
425IFCR=8ANDBR=1ANDX5<>22THEN?LA$;"says:":?:?F$;"URCBLFIHSRKZMWTLSLNV.";F$:CR=9:GOTO450
426IFCR=9THEN?LA$;"says:":?:?F$;"YBVYBV";F$:?"Itscampersawayintothedistance."
427IFCR=9THENBR=-1:A(15)=0:CR=10:GOTO5100
428IFPW=1ANDA(11)=-1THEN1400
429IFA=5ANDBR=1THEN?LA$;"says:":?:?F$;"KLLIYZYB";F$
450SOUNDZ,Z,Z,Z:X5=Z:C=Z:BF=475:MV=MV+1
451TRAP3000
455POKE752,0:?:?"";:INPUTA9$:POKE752,1:?:GOSUB1100
456IFA=38ANDA(15)=-ATHENB(3)=14
457IFA9$="LOOK"THEN300
458IFA=11ANDA9$="D"THEN?"OOPS...youtripoverajaggedrockandtumbledownthehill,hittingyour";
459IFA=11ANDA9$="D"THEN?"headonthesharpedgeofanotherrock.":A=6:HT=1:IN=IN+10:GOTO5100
460IFCT<2ANDA=6ANDA9$="U"ANDA(1)=-1THEN?"Suddenlyahugetentaclefrom":X5=30
461IFX5=30THEN?"seeminglynowherelocksaroundyourlegsanddragsyouoffintoacave"
462IFX5=30THEN?"whereyoumeettherestofitsbody.":GOTO6700
463IFA=10ANDA9$="E"ANDA(3)=-1THEN?"Youhavewalkedthroughamountain.":A=15:GOTO5100
469IFLEN(A9$)>3THENIFA9$(1,4)="HINT"THEN1200
471FORB=1TO10:IF(LEN(A9$)=1ANDA9$=B$(B*3-2,B*3-2))OR(LEN(A9$)=2ANDA9$=B$(B*3-2,B*3-1))THEN474
473NEXTB:GOTO500
474IFA(11)=-1THENIFGF=1OR(A=34ANDA9$="SW")OR(A=37ANDA9$="NE")OR(A=39ANDA9$="SE")THEN1550
476IFB(B)<>ZTHENA=B(B):PO=0:IFCR=1THEN394
477IFB(B)<>ZANDCR=4THEN405
478IFB(B)<>ZANDCR=5THENCR=6:GOTO300
479IFB(B)<>ZTHEN300
493?"Youcan'tmovethatway.":GOTO450
500IFA9$<>"I"THEN531
501?"Playerstatus:":?"(0%=normal,":?"100%=extreme)":?
502?"INJURY:";IN;"%";:IFHT=1THEN?"-bleeding";PF$:?"(Cutforehead)"
503IFHT=2THEN?"-infectedarm"
504IFHT=0THEN?""
505?"HUNGER:";HG;"%":?"THIRST:";TH;"%"
507?:?""
510FORK=1TO15:IFC(K)=ZTHEN530
512?A$(C(K)*SZ-SZ+4,C(K)*SZ)
530NEXTK:GOTO450
531FORB=11TO40:IFA9$(1,3)=B$(B*3-2,B*3)THEN600
535NEXTB
540?"Idon'tknowwhat";CHR$(34);A9$;CHR$(34);"means.":GOTO450
600FORK=1TOLEN(A9$):IFA9$(K,K)<>""THENNEXTK:?"Idon'tunderstand...":GOTO450
605D$=A9$(K+1,LEN(A9$))
606IFLEN(D$)<3THEND$(LEN(D$)+1)="":GOTO606
610E$=D$(1,3)
611IFCR=1THENIF(B<>1ANDE$<>"TRE")AND(B<>4ANDA(2)<>-1)THEN394
612IFD(B)<>1THEN680
614IFA=3ANDE$="CRY"ANDPC=0THENX5=1
615IFX5=1ANDA(8)=-1THEN?"Youremovethescrewswiththe":?"screwdriver,removethedamaged"
616IFX5=1ANDA(8)=-1THEN?"crystal,andtossitaway.":PC=1:GOTO5100
617IFX5=1THEN1440
618IFA=5ANDE$="REC"THEN?"Youcan't.":GOTO450
619IFA=5ANDE$="CRY"ANDP1=0THENX5=2
620IFX5=2ANDA(8)=-1THEN?"Youremovethescrewswiththe":?"screwdriverandtakethecrystal."
621IFX5=2ANDA(8)=-1THENP1=1:C(15)=1:A(1)=-1:GOTO5100
622IFX5=2THEN1440
623IFBV=0ANDA=21ANDE$="ROD"ANDRB=0THENJ=5:RB=1:GOTO675
625IFCR=1ANDE$="TRE"THEN?"Yougrabthetreebeforeitgetsa":?"tightgriparoundyouandyoumanage"
626IFCR=1ANDE$="TRE"THEN?"topullfree.Thetentacledisappearsbackintothewater."
627IFCR=1ANDE$="TRE"ANDBR=1THEN?LA$;"says,":?:?F$;"DSVD!";F$
628IFCR=1ANDE$="TRE"THENCR=2:GOTO450
639FORJ=1TO21:IFE$=A$(J*SZ-SZ+1,J*SZ-SZ+3)ANDA=ABS(A(J))THEN642
640NEXTJ
641?"There'sno";CHR$(34);D$;CHR$(34);"here.":GOTO450
642IFPW=1ANDJ=11ANDA(11)=ATHEN1400
650IFA(J)<0THEN?"Youcan'tcarrythat.":GOTO450
675FORK=1TO15:IFC(K)=0THENC(K)=J:A(J)=-1:GOTO5050
678NEXTK
680IFD(B)<>2THEN750
707FORJ=1TO21:IFE$=A$(J*SZ-SZ+1,J*SZ-SZ+3)THENIFA(J)=-1ORA(J)=-2THEN710
708NEXTJ
709?"You'renotcarryingit.":GOTO450
710FORK=1TO15:IFC(K)=JTHEN712
711NEXTK:GOTO709
712A(J)=0:C(K)=0
713IFX5<>99ANDX5<>76ANDJ=1THEN?"Asyoudropit,thecrystal":?"shattersintopieces!":X5=99
714IFX5<>99ANDJ=7THEN?"Thefruitrollsaway...":SF=0:X5=99
738IFX5=99THEN450
739IFX5=96THEN5000
740IFX5=76THEN5100
741IFX5=67THENA(2)=35:GOTO450
744A(J)=A
745GOTO5050
750IFD(B)<>3THEN760
752IFE$="POS"ORE$="WIR"ORE$="CAB"THENIFA<32ANDA>25ANDA(11)=-1THENX5=3
753IFX5=3THENIFF(A-26)=1THEN?"Thatpostisalreadytied.":GOTO450
754IFX5=3THENGOSUB1410:IFCC<5THEN?"Ok,youtiepartofthewire":?"tothefencepost."
755IFX5=3ANDCC<5THENF(A-26)=1:TD=TD+1:GOTO5100
756IFX5=3THEN?"Youtiethelastpostwithpartofthecable,andcompletethecircuitaround";
757IFX5=3THEN?"thelake.":CT=1:F(A-26)=1:GOTO5100
760IFD(B)<>4THEN775
761IFA(2)<>-1THEN1000
762IFCR=1THEN?"Asyoupullyourblasterfromyourholster,anothertentaclerisesfrom"
763IFCR=1THEN?"thedepthsofthelakeandslapsyourweaponoutofyourhandbeforeyou"
764IFCR=1THEN?"haveachancetofire.":X5=67:J=2:GOTO710
765IFCR=4THEN?"Atentaclelashesoutinawhip-likemannerandgrabsyourblaster,causing";
766IFCR=4THEN?"theshottogowild.Intheprocess,itinjuresyourarm,infectingit"
767IFCR=4THEN?"badly.Themonsterexaminesyourweaponanddoesn'tpaymuchattention"
768IFCR=4THEN?"toyou.Yourarm,however,isbadly":?"infected.";:X5=4:CR=5:HT=2:IN=IN+45
769IFX5=4ANDBR=1THEN?LA$:?"grimacesinpain."
770IFX5=4THEN5000
772?"Notnow...":GOTO450
775IFD(B)<>5THEN790
776IFA=5ANDE$="REC"THEN?"Ithasapushbutton.":GOTO450
777IFA=27ANDE$="TRE"THEN?"Itbearsmanystrangefruits":?"onitsbranches.":GOTO450
778IFBV=0ANDA=17ANDE$="REE"ANDKY=0THEN?"Youfoundsomething.":A(4)=A:KY=1:GOTO5100
780IFA=21ANDE$="BRE"ANDRB=0THEN?"Heisclutchingabluerod.":GOTO450
782?"Youseenothingspecial.":GOTO450
790IFD(B)<>6THEN810
791IFA=27ANDE$="TRE"THEN?"Youshakethetree...":IFA(7)<>0THEN?"Butnothingfallsdown...":GOTO450
792IFA=27ANDE$="TRE"THEN?"Somethingfallsdown...":A(7)=A:GOTO5100
793IFE$="ROD"THENIFA(3)=-1ANDA(5)=-1THEN?"Shakeredorshakebluerod?":GOTO450
794IFE$="ROD"ANDA(5)=-1THENE$="BLU"
795IFA=13ANDBR=0ANDA(5)=-1ANDE$="BLU"THENA$(424,444)="LITTLEALIENCREATURE":BR=1:X5=6
796IFX5=6THEN?"Asyoushakethebluerod.the":?"shacklesbreakandthelittlealien"
797IFX5=6THEN?"creatureisfreed.Initsnativetongue(whichyouvaguelyunderstand)"
798IFX5=6THEN?"ittellsyouthatitsnameisNikkiandwillfollowyouforawhile.It"
799IFX5=6THEN?"feelsthatyoumayneeditshelp.":GOTO5000
800?"Nothinghappens.":GOTO450
810IFD(B)<>7THEN830
811IFE$="SHI"ORE$="SPA"ORE$="CRA"THENIFA=4ORA=6THENA=A-1:GOTO300
812IFE$="CAV"THENIFA=12ORA=20ORA=16THENA=A+1:GOTO300
813IFE$="CAV"ANDA=18ANDA(11)=-1THENGF=1:GOTO1550
814IFE$="CAV"ANDA=18THENA=19:GOTO300
815IFE$="MOU"THEN?"They'retoosteep.":GOTO450
816IFE$="TRE"ANDA=27THEN?"Youslidebackdown.":GOTO450
817IFA>25ANDA<32ANDE$="LAK"THEN?"Youcan'tswim.":GOTO450
818IFA=32ANDE$="SHA"ANDA(15)=-10THEN?"Thelockontheshackhasatimerand":X5=10
819IFX5=10THEN?"willopenatanunknownor":?"predeterminedtime.":GOTO450
820IFA=32ANDE$="SHA"THENA=33:GOTO300
821IF(A=35ANDE$="SHE")OR(A=24ANDE$="DIS")OR(A=8ANDE$="SHE"ANDBS=1)THENA=A+1:GOTO300
822IFA=8ANDE$="SHE"ANDBS=0THEN?"It'slocked!":GOTO450
830IFD(B)<>8THEN840
831IFE$="TAP"ORE$="HEA"ORE$="BAN"THENIFA(10)=-1THEN?"Ok,youtapeyourforehead.":X5=11
832IFX5=11THEN?"Thebleedingstops.":HT=0:IN=0:J=10:X5=99:GOTO710
833IFE$="IOD"ORE$="ARM"THENIFA(9)=-1THENX5=12:IFID=0THEN?"Yousmeariodineonyourarm.":ID=1:X5=13
834IFX5=13ANDHT=2THEN?"Theinfectionsubsides.":HT=0:IN=0
835IFX5=13THEN450
836IFX5=12THEN?"Theiodinebottle'sempty.":GOTO450
837IFA=3ANDE$="CRY"ANDA(1)=-1THENX5=14:IFPC=0THEN1440
838IFX5=14THENPC=0:J=1:?"Youreplacethepowercrystal.":DM$="":X5=76:GOTO710
840IFD(B)<>9THEN850
841IFE$="BUT"ANDA=3THENIFDM$<>""ORPC=1THEN?"Nothinghappens.":GOTO450
842IFE$="BUT"ANDA=3THEN?"Yourspaceshipliftsoff...":GOTO1575
843IFA=5ANDE$="BUT"THEN?"Thetapeplaysandyoulistentotheterrifiedvoicebelongingtowhatonce";
844IFA=5ANDE$="BUT"THEN?"washuman.":?:?F$;"There'ssomethingoutthere..."
845IFA=5ANDE$="BUT"THEN?"It'salreadygotBrentandReeves...":?"Andnow...it's...it'scomingafterme!";
846IFA=5ANDE$="BUT"THEN?"NO!NO!KEEPAWAY!YAAAHHHHH........";F$:?:?"Thetapewindstoastop.":GOTO450
847IFA=36ANDE$="SWI"THEN?"Click.":IFPW=0THENPW=1:SW$="ON.":GOTO5100
848IFA=36ANDE$="SWI"THENPW=0:SW$="OFF.":GOTO5100
850IFD(B)<>10THEN860
851IFE$="FRU"ANDA(7)=-1THENJ=7:X5=99:IFFB<16THEN?"Youhavejusteatenapoisonedfruit!":GOTO6700
852IFE$="FRU"ANDA(7)=-1THEN?"Thatsatisfiesyourhungersomewhat.":SF=0:HG=HG-45:IFHG<0THENHG=0
853IFE$="FRU"ANDA(7)=-1THEN710
860IFD(B)<>11THEN870
861IFE$="WAT"ANDA>25ANDA<32THEN?"Asyoudrinkfromthelake,you":X5=20
862IFX5=20THEN?"collapsewithhorriblecramps.Thewaterwaspoisoned...":GOTO6700
863IFA=14ANDE$="WAT"THEN?"Thatwasrefreshing...":TH=0:TQ=1:GOTO450
870IFD(B)<>12THEN950
872IFA=8ANDA(4)=-1AND(E$="SHE"ORE$="DOO")THEN?"It'snowunlocked.":BS=1:GOTO450
950IFD(B)<>17THEN970
952IFE$<>"GAM"THEN1000
960?"Ok":OPEN#2,8,0,"D:SAVE"
962FORV=1TO21:PRINT#2;A(V):NEXTV:FORV=1TO15:PRINT#2;C(V):NEXTV:FORV=0TO5:PRINT#2;F(V):NEXTV
963PRINT#2;A:PRINT#2;BV:PRINT#2;BR:PRINT#2;BS:PRINT#2;CC:PRINT#2;CR:PRINT#2;CT:PRINT#2;DK
964PRINT#2;FB:PRINT#2;GB:PRINT#2;GF:PRINT#2;HG:PRINT#2;HT
965PRINT#2;HX:PRINT#2;ID:PRINT#2;IN:PRINT#2;KY:PRINT#2;MV:PRINT#2;PC:PRINT#2;PO:PRINT#2;PP
966PRINT#2;PW:PRINT#2;P1:PRINT#2;RB:PRINT#2;SF:PRINT#2;TD:PRINT#2;TH:PRINT#2;TI:PRINT#2;TQ:PRINT#2;TT
967PRINT#2;A$(424,444)
968PRINT#2;DM$:PRINT#2;SW$:PRINT#2;PF$
969CLOSE#2:?"Gamesaved.":GOTO450
970IFD(B)<>18THEN1000
975IFE$<>"GAM"THEN1000
980?"Ok":OPEN#2,4,0,"D:SAVE"
981FORV=1TO21:INPUT#2;QP:A(V)=QP:NEXTV:FORV=1TO15:INPUT#2;QP:C(V)=QP:NEXTV
982FORV=0TO5:INPUT#2;QP:F(V)=QP:NEXTV
983INPUT#2;A,BV,BR,BS,CC,CR,CT,DK,FB,GB,GF,HG,HT
985INPUT#2;HX,ID,IN,KY,MV,PC,PO
986INPUT#2;PP,PW,P1,RB,SF,TD,TH,TI,TQ,TT
987INPUT#2;A9$:A$(424,444)=A9$
988INPUT#2;DM$,SW$,PF$
990CLOSE#2:GOTO300
1000?"Sorry,butyoucan'tdothat.":GOTO450
1100FORV=1TOLEN(A9$):HI=ASC(A9$(V,V)):IFHI>96THENA9$(V,V)=CHR$(HI-32)
1101NEXTV:RETURN
1200HI=LEN(A9$)
1201V=5:IFHI=4THEN?:?"Pleaseentertheencodedhint":?"youwishdecrypted.":POKE752,0
1202IFHI=4THEN?:INPUTA9$:?:GOSUB1100:V=1:HI=LEN(A9$):IFHI<3THEN450
1203FORXX=VTOHI:ZZ=ASC(A9$(XX,XX)):?CHR$(ABS(155*(ZZ>64)-ZZ));:NEXTXX:?:?
1204GOTO450
1300?"ONABEACH,WALKINGALONGSIDEACLEAR,BLUELAKE.Thereisabroken"
1301?"fenceposthere,about3metershigh."
1310IFA(11)=-1THEN?"Wireonthegroundleadstotheshed."
1312IFA=36THEN?"Theotherendofthewire,woundaroundthespool,ispluggedintothe"
1313IFA=36THEN?"transformer."
1314IFA>25ANDA<32THENIFF(A-26)=1THENX5=40:?"Alengthofbarewireistiedtothepost";
1315IFX5=40ANDTD>1THEN?"stretchingtautfromanother":?"post";
1316IFX5=40THEN?"."
1317IFA(11)=ATHEN?"Theendofthewireishere."
1320GOTO330
1400?"C-R-A-C-K-L-E...SPUTTER...POP...FIZZ..";F$;"YEOW-W-W-W-W";F$:?"Youhavebeenelectrocuted!":GOTO6700
1410CC=0:FORV=0TO5:IFF(V)=1THENCC=CC+1
1412NEXTV:RETURN
1440?"Youcan'tdothat...yet!":GOTO450
1450IFA=13ORA=17THENSE=A-1
1451IFA=19THENSW=18
1452IFA=21THENNW=20
1453IFA=15THENW=10
1454GOTO350
1500IFPC=0THEN?"Beneathitisapowercrystal.":?DM$;"Itisfastenedby4screws.":GOTO320
1501?"":GOTO320
1502?"Thereisaflightrecorderhere.";:IFP1=1THEN?"":GOTO320
1503?"Thereisapowercrystalhereattachedtoapanelby4screws.":GOTO320
1504?"Someoneorsomethingappearstobesittinginside.":NW=39:SW=12:U=11:GOTO320
1505?"whatyoubelieveisasmallspacecraft.":E=4:D=6:GOTO320
1506?"Thereisacavehere,theentrancetoaminingshaft.":GOTO320
1507IFBR=0THEN?"Thereisatinyalienhere,shackledinchains,itseyespleadingwithyou.";
1508GOTO320
1509?"alargethrow-switch,currently";SW$:?"Asignabovetheswitchsays:10000"
1510?"VOLTS.Onthefloorisalargespoolwithalmostamileofwire.";:GOTO1312
1550?"OOPS...thewirestretchestaut.":?"You'llhavetodropittogoany":?"further.":GF=0:GOTO450
1575FORA=0TO75:SOUND0,A,0,15:NEXTA:RUN"D:DWEPILCD"
1700IFBR=1THEN?LA$;"says,";F$;"GSV":?"YLTVBNZM.";F$
1701GOTO450
2000DATACRYPOWERCRYSTAL,0,BLABLASTER,-1,RODREDROD,33,KEYSMALLKEY,0,RODBLUEROD,0,ROCLUMINOUSROCK,15
2005DATAFRUSTRANGEFRUIT,0,SCRSCREWDRIVER,9,IODIODINE,25,BANBANDAGE,25,WIRENDOFBAREELECTRICALWIRE,36
2010DATABODSKELETALBODY,-5,REEDEFORMEDBODYOFREEVES,-17,BREROTTINGBODYOFBRENT,-21
2020DATACRELITTLEALIENCREATURE,-10,CRASPACECRAFT,-4,DISDISPENSARY,-24,SHEPOWERSHED,-35,SHETOOLSHED,-8
2030DATASHASTEELSHACK,-32,TRETALLTREE,-27
2100DATAWNESUDNWNESWSEGETGRAHOLUNSREMDROTIESHOLOOSHAGOENTCLISMEATTINSPUTAPPTAPTHRTUR
2105DATAFLIPUSEATDRIOPEUNLSAVLOARES
2110DATA1,1,1,1,1,2,3,4,5,6,7,7,7,8,8,8,8,8,8,9,9,9,9,10,11,12,12,17,18,18
3000?"Idon'tknowwhatyoumean!":GOTO450
5000C=0:?:?"HITTOCONTINUE...";:INPUTA9$:GOTO300
5050?"Ok":BF=50
5100C=0:FORHI=1TOBF:IFPEEK(764)=255THENNEXTHI
5150POKE764,255:GOTO300
6700?"You'redead"
6710?"Thisadventure":?"isover":POKE752,0	

• Download link 1
• Download link 2

• Download link 1
• Download link 2
• Download link 3