Atari 8-bit Source code

8CLR
10GRAPHICS0:POKE752,1:POSITION9,6
12DIMA$(30),A(13)
20?""
30?""
40?""
50?"----Softsidepresents----"
55FORI=1TO800:NEXTI
60GRAPHICS0:POKE752,1
62POSITION9,5:?"DEADLYGAMEADVENTURE"
70FORI=1TO800:NEXTI
100GOSUB1100
110?:?
130?"Well,youruncleHenryhaspassedon,andnowyou'rerich.But,first"
132?"youhavetoattendthereadingofthewill.Whenyougetthere,youfind"
134?"thatthewillrequiresyouandyourfivegreedycousinstospendanight"
136?"inHenry'sbooby-trappedmansionandsurvive.Youdiscoverthatoneofthe";
138?"fiveisouttomakesurethatheistheonlysurvivor.Andtheeveningisjustbeginning..."
180GOSUB1000:GOSUB1100
182?
190?"InthisadventureIwillbecomeyour";
200?"eyes,earsandhands.Youwilltell"
210?"mewhattodowithsimpletwoword"
220?"commandssuchasGETAXEorPUTBALL."
230?"Tomove,typethefirstletterofthedirectionyouwishtotravelin,N,E,";
232?"S,orW,shortforNORTH,EAST,SOUTHandWEST,respectively.Uisthe"
234?"abbreviationforUP,andDisusedforDown.Itmayalsobepossibletomove";
236?"diagonally,NORTHEAST(abbreviatedNE)forexample."
260?"Toobtainalistofwhatyouarecarrying,typeI,shortforINVENTORY."
290?
300GOSUB1000
305GOSUB1100
307?
310?"Myvocabularyislimited,soImaynot";
320?"understandeverythingyoutellmeto"
330?"do.Ifonewayofwordingsomething"
340?"doesnotwork,tryanother.People"
350?"havingtroubleareusuallytryingto"
360?"dosomethingbeyondtheir(ormy)"
370?"capability."
382?
390?"Someusefulcommands:"
400?
412?"..lookscloselyatthespecifiedobject."
414?".........Redrawscurrentroom"
420?"GET,DROP,GO,manyothers..."
430?
500?""
510POSITION10,23
520?"PressRETURNtoplayDEADLY";:POKE764,255
530IFPEEK(764)<>255THENPOKE1664,68:POSITION10,23:POKE764,255:?"RunningDEADLYGAME";:RUN"D:DEADLY1"
540GOTO530
1000POSITION8,23
1010PRINT"";
1020POKE764,255
1030IFPEEK(764)=255THEN1030
1040RETURN
1100GRAPHICS0
1110?""
1115?"(c)1982SoftSidePublications"
1120?""
1130RETURN
9999END	

10DIMA$(50)
20GRAPHICS2:SETCOLOR2,0,0:SETCOLOR4,0,0:SETCOLOR0,15,15:POSITION2,5:?#6;"THEDEADLYGAME"
21FORA=1TO4000:NEXTA:GRAPHICS0
100SETCOLOR2,5,0:SETCOLOR1,0,15:?"You'resittingathomerelaxingonaswelteringsummereveningwhen"
110?"there'saknockonyourfrontdoor.Youslowlyrise,wipingthesweatoffyourbrow,andopenthedoor."
120?"";CHR$(34);"Specialdelivery,";CHR$(34);"themansays,":?"andyoutaketheenvelopefromhis"
130?"grasp.Asyousettlebackdowninyourchair,youexaminethestamp."
140?"";CHR$(34);"Burmesia,";CHR$(34);"youmuttertoyourself."
150?CHR$(34);"WhodoIknowthatlivesonanislandasfarandremoteasthat?";CHR$(34)
160?"Thenyoureflect,";CHR$(34);"unlessit'sfromUncleHenry.Why,Ihaven'theardfrom";
170?"himinyears.Healwayswasaneccen-tricoldman,heandallhismoney,"
180?"livingisolatedonanislandthathepurchasedforhimselfjustsohe"
190?"wouldn'thavetobotherwithanyoneelse.UncleHenry!My,whatcouldthat";
200?"oldgeezerpossiblywantfromme?";CHR$(34):?:?"HITFORMORE";:INPUTA$
210?"";:SETCOLOR2,0,0:?"Thenyouopentheenvelopeandreadthenoteasshockingnewsawaitsyou."
220?:?"DEARSIR,":?:?"ITISWITHGREATREGRETTHATIMUSTINFORMYOUOFTHEMOSTUNFORTUNATE"
230?"PASSINGOFYOURUNCLE,SIRHENRYVAN-DERBILT.ITISALSOMYDUTYTOINFORM"
240?"YOUATTHISTIMETHATTHEREWILLBEAREADINGOFTHEWILLOFYOURUNCLE'S"
250?"ESTATEINTHEISLANDPROVINCEOFBUR-MESIAAWEEKFROMTODAYANDITIS"
260?"REQUESTEDTHATYOUBETHERE.":POSITION18,15:?"S.HYSTERII":POSITION16,16:?"ATTORNEYATLAW"
270?:?"HITFORMORE";:INPUTA$
280?"";:SETCOLOR2,6,0:?"Youquicklymakeyourtravelplans,andyouarriveontheremoteislandof";
290?"Burmesiabyhelicopterinexactlyoneweek.Youarethentakenbycarriage"
300?"byJelope,aservantofyourlateun-cle,tothemansion,whichstandstall";
310?"onahill,toweringabovethesmallvillagebelow.Thedoorsslowlyopen"
320?"andyouareledinside.":?"Youareinalivingroom,andsit-tingalongsideanoversizedtableis"
330?"anensembleofrelativesthatyouneverthoughtyou'dseeagainandwish";
340?"youhadn't.Theirsnobbyfacesshowjustasmuchrespectforyouasyou"
350?"forthem.Youtakeyourplaceatthelastvacantchair."
360?"Thenatallman,holdingalongparchment,enterstheroom.":?:?"HITFORMORE";:INPUTA$
370?"";CHR$(34);"IamStanleyHysterII,SirHenry'sattorney.Iwillgettothe"
380?"pointandreadthewillwithoutdelay";CHR$(34):?
390?"";CHR$(34);"I,SirHenryDrysdaleVanderbilt,beingofsoundminddeclarethistobe";
393?"mylastwillandtestament.":?"";CHR$(34);"LetitnotbesaidthatIdonot"
400?"enjoygoodsport.Iherebybequeaththesumofonemilliondollarstobe"
410?"dividedequallyamongyouwiththefollowingcondition:allofyoumust"
420?"spendonenightinmymansiontocollectyourinheritance.Intheevent";
430?"thatoneormoreofyoushouldpassonduringthenight,themoneywillbe"
440?"dividedamongthesurvivors.Allofyouaregreedyandundeservingofany"
450?"ofmymoney.Weshallseewhocanpassthetestofsurvivaltonight.Ibid"
460?"youfarewellandpleasantdreams.";CHR$(34)
470?:?"HITFORMORE";:INPUTA$
480?"Thelawyerthensays,";CHR$(34);"Thatisall.Iamheretoseethatthiscondition"
490?"ismet.Ifyouwillpleaseallretiretoyourrooms.Themaidwillshowyoutheway.";CHR$(34)
492?:?"HITTORUNNEXTPART"
500RUN"D:DEADLY2"	

5Z=0:SZ=30:GOTO100
10GOTOA+10
16?"INTHEEASTERNENDOFTHELIVINGROOM.Ashortredcarpetliesonthefloor":W=7:N=19:S=12:GOTO320
17?"INTHECENTEROFTHELIVINGROOM":W=8:N=18:E=6:S=11:GOTO320
18?"INTHEWESTERNENDOFTHELIVINGROOM.Thereisanoldelevatorshafthere":N=17:E=7:S=9:GOTO320
19?"INTHESOUTHWESTERNENDOFTHELIVINGROOM.Thecellardoorishere":N=8:E=11:GOTO320
20?"INSIDETHECELLARDOOR.Asetofchippedstonestairsleadsdownward";:N=9:GOTO320
21?"INTHESOUTHERNENDOFTHELIVINGROOM":W=9:N=7:E=12:GOTO320
22?"INTHESOUTHEASTERNENDOFTHELIVINGROOM":W=11:N=6:GOTO320
23?"INALONGHALL.Thereisatelephonehere":N=14:S=17:GOTO320
24?"INTHENORTHERNENDOFTHEHALL":E=15:S=13:GOTO320
25?"INAKITCHEN.Thereisa":?"cabinetandstovehere.Onthestoveisapot";J1$:W=14:S=16:GOTO320
26?"INADININGROOM.Thereisatableandsetofchairshere":N=15:S=18:GOTO320
27?"INTHENORTHWESTERNENDOFTHELIVINGROOM.Tothewestisaspiralstaircase":W=20:N=13:E=18:S=8:GOTO320
28?"INTHENORTHERNENDOFTHELIVINGROOM":W=17:N=16:E=19:S=7:GOTO320
29?"INTHENORTHEASTERNENDOFTHELIVINGROOM":W=18:S=6:GOTO320
30?"ATTHEBASEOFASPIRAL":?"STAIRCASE":E=17:GOTO320
31?"INANATTIC.Thestairwaygoesdown":E=22:GOTO320
32?"INANATTIC.Thereisanoldelevatorshafthere";E1$:W=21:E=24:GOTO320
33?"INANELEVATOR.Therearepushbuttons":GOTO1700
34?"INANATTIC":W=22:GOTO320
35?"INTHEMAID'SROOM.Thedoorisopen.Thereisabedhere":GOTO320
36?"ONABALCONY.Thestaircaseleadsdown":S=27:GOTO320
37?"ONABALCONY":N=26:S=29:GOTO320
38?"INAGUESTROOM.Thedoorisopen":R1=1:GOTO320
39?"ONABALCONY":N=27:S=31:GOTO320
40?"INAGUESTROOM.Thedoorisopen.Alightswitchisonthewall";J2$:R2=1:GOTO320
41?"ONABALCONY":W=32:N=29:GOTO320
42?"ONABALCONY":W=34:E=31:GOTO320
43?"INAGUESTROOM.Thedoorisopen":R3=1:GOTO320
44?"ONABALCONY":W=36:E=32:GOTO320
45?"INAGUESTROOM.Thedoorisopen":R4=1:GOTO320
46?"ONABALCONY":N=37:E=34:GOTO320
47?"ONABALCONY":N=38:S=36:GOTO320
48?"ONABALCONY":N=40:S=37:GOTO320
49?"INAGUESTROOM.Thedoorisopen":R5=1:GOTO320
50?"ONABALCONY":N=42:S=38:GOTO320
51?"INAGUESTROOM.Thedooris";D1$;".Thereisalsoawindowinhere";:GOTO1705
52?"ONABALCONY.Astaircasegoesup":S=40:GOTO320
53?"INADAMP,DUSTYCELLAR.Stepsleadup":E=44:GOTO320
54?"INADAMP,DUSTYCELLAR.Thereisafuseboxhere":W=43:E=45:GOTO320
55?"INADAMP,DUSTYCELLAR":W=44:S=46:GOTO320
56?"INADAMP,DUSTYCELLAR":N=45:GOTO320
100?:?"Youfollowthemaidtoyourroomandsheleaves.Afterafewminutesyou"
170?"hearthedoortoyourroomlock.":?
200DIMA$(42*SZ),A(42),B(4),B$(111),C(10),D(37),E1$(23),J2$(19),D1$(6),J1$(19),I$(2),I1$(2)
203DIMSZ$(SZ),D$(20),E$(20),A9$(50),X$(SZ)
205SZ$=""
207FORA=1TO10:C(A)=0:NEXTA:FORA=1TO42:A(A)=0:NEXTA
210FORA=1TO42: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$:READX$:B$(LEN(B$)+1)=X$:FORA=5TO37:READV:D(A)=V
220NEXTA:A=41:E1$=".Anelevatorishere":J2$=".Theroomisdark":D1$="locked":J1$=".Thepothasalid"
250?"HIT";:INPUTX$
300SOUNDZ,Z,Z,Z:SOUND1,Z,Z,Z:V=Z:X4=Z:X5=Z:V1=Z:IFA=20AND(SN=1ORSN=2)THENV1=12
301IFA=6THENV1=4
303N=Z:W=Z:E=Z:S=Z:GRAPHICSZ:SETCOLOR2,V,Z:SETCOLOR1,Z,15:SETCOLOR4,V1,Z
305POKE752,1:?"YOU'RE";
310GOTO10
320IFSN=0ANDA(23)=-1ANDA=17THENSN=1:A(14)=-20
322IFMD>0THENA(33)=-A
324A(34)=0:IFA=24ANDA(30)=-1THENA(34)=-A
326IFR6=0THENIFR1+R2+R3+R4+R5=5THENR6=1
328IFA=21ANDSS=0THENSS=1
364IFN+W+E+S>ZTHEN?:PRINT""
365FORB=1TO4:B(B)=0:NEXTB
369IFW>ZTHENPRINT"West";:B(1)=W
371IFN>ZTHENPRINT"North";:B(2)=N
373IFE>ZTHENPRINT"East";:B(3)=E
375IFS>ZTHENPRINT"South";:B(4)=S
383?:?
387IFA=30ANDLT=0THEN396
390FORB=1TO42:IFABS(A(B))=ATHENC=C+1:GOTO392
391NEXTB:PRINT:GOTO396
392IFC=1THENPRINT""
395?"";A$(B*SZ-SZ+4,B*SZ):GOTO391
396IFSN=1ANDA=20THENSN=2:?"NowIknowsomeone'stryingtodoyouin"
397IFA=28ORA=30ORA=33ORA=35ORA=39THENRESTORE2120:FORV=1TO(A/10-INT(A/10))*10+1:READX$:NEXTV:X5=1
399IFX5=1THEN?"There'sthebodyof":?X$;"he'sbeenshot"
400IFMD=4THEN?"Youhearaknockonthefrontdoor"
402IFA=33ANDSR=0THENS1=S1+1:?:X5=2:IFS1<3THEN?"THEWALLS!":?"THEY'RECAVINGIN!":X5=3
403IFX5=3THEN?"THEY'REMOVINGTOWARDSYOU!":?"YOU'LLBESQUASHED!"
404IFX5=2ANDS1>1ANDS1<4THEN?"THEY'REMOVINGCLOSER!"
405IFX5=2ANDS1>3THENFORV=1TO15:POKE710,64:?"SQUASH!":SOUND0,3,4,15:POKE755,4:X5=4:FORV1=1TO5
406IFX5=4THENNEXTV1:POKE755,2:POKE710,0:SOUND0,0,0,0:FORV1=1TO5:NEXTV1:NEXTV:GOTO6700
407IFA=15THENIK=IK+1:IFIR=0THENX5=5
408IFX5=5ANDIK=3THEN?"Suddenlyashadowyfigurethrowssomethingsharpatyou"
409IFX5=5ANDIK>3THENX5=6:IFA(13)=-1THEN?"bythepotlid":A(29)=A:C=0:IR=1:GOTO5100
412IFX5=6ANDIK<6THEN?"DOSOMETHING!"
413IFX5=6ANDIK>6THEN?"":GOTO6700
414IFR6=1ANDA=17THEN?"Youseesomeonewithagunaimedatyou.Youlooksurprisedatwhoitis":X5=7
415IFX5=7THEN?"":IFBT=0THENFORV=15TO0STEP-1:SOUND0,V,0,V:FORV1=1TO1:NEXTV1:X5=8
416IFX5=8THENNEXTV:?"BANG!":?"Aloneshotkillsyou!":GOTO6700
417IFX5=7THEN?"Gunclicks!It'sempty!":MD=2:C=0:R6=2:GOTO5000
418IFA=41ANDGS=0THENG1=G1+1:SOUND2,0,0,4:X5=9:IFG1=1THEN?"Youcanhearahissingsound."
419IFX5=9ANDG1=1THEN?"Youturnandseedeadlygasseepinginfromunderthecrackofyourdoor."
420IFX5=9ANDG1=1THEN?"Ithinksomeoneistryingtodoyouin";
421IFS1=1THENFORV=1TO50:SOUND0,3,4,15:POKE755,4:FORV1=1TO10:NEXTV1:SOUND0,0,0,0:POKE755,2:X5=10
422IFX5=10THENNEXTV:C=0:GOTO300
423IFMD=2THEN?"It'sthemaid!Shewasdeemedtoinherituncle'sfortuneifnoonesurvived":MD=3
424IFMD=3THEN?"Yougraspherandshecan'tescape"
425IFX5=9ANDG1>1THEN?"Theroomisbeingfilledwithgas":?"Dosomething...it'shardtobreathe"
426IFX5=9ANDG1>6THEN?"Toolate...you'regassed":GOTO6700
427IFA(34)=-ATHEN?"Lawyersays,":?CHR$(34);"Youneedapermittocarryagun";CHR$(34)
428IFGS=1ANDA=41ANDGW=1THEN?CHR$(34);"Diamondsareagirl'sbestfriend";CHR$(34)
429IFGS=1ANDA=41ANDGW=0THEN?CHR$(34);"";CHR$(34)
430IFEB>0THENQX=QX+1:?"Elevatorisoutofcontrol,":?"droppingat90MPH":X5=11
431IFX5=11ANDQX=3THEN?"Dosomething"
432IFX5=11ANDQX=4THEN?"":GOTO6700
450SOUNDZ,Z,Z,Z:X4=Z:X5=Z:C=Z
451TRAP3000
452SOUND1,0,0,0
455POKE752,0:?:?"";:INPUTA9$:POKE752,1:?:IFA9$="LOOK"THEN300
461IFA9$="JUMP"THEN1500
462IFA9$="HELP"THEN1510
471FORB=1TO4:IFLEN(A9$)=1ANDA9$=B$(B*3-2,B*3-2)THEN475
473NEXTB:GOTO500
475IFA(34)=-AANDA9$="W"THEN?"Lawyerwon'tletyouleavewithit":GOTO450
477IFIK>0ANDIR=0ANDIK>2THENIFA9$="W"ORA9$="S"THEN?"Youcan'toutrunit":GOTO450
480IFB(B)<>0THENA=B(B):GOTO300
493?"Youcan'tmovethatway":GOTO450
500IFA9$<>"I"THEN531
510?"":FORK=1TO10:IFA(C(K))=-2THEN?"WEARING";
511IFC(K)=0THEN515
512?"";A$(C(K)*SZ-SZ+4,C(K)*SZ)
515NEXTK:GOTO450
531FORB=5TO37: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":IFEB>0ORA=15ORA=33THEN5100
545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
609E$=D$(1,3)
611IFD(B)<>1THEN680
612I=0:FORV=1TO10:IFC(V)<>0THENI=I+1
614NEXTV:IFI>4THEN?"Youcan'tcarryanymore":GOTO450
616IFE$="GUM"ANDGM=0THENIFA(8)=-1ORA(8)=ATHENGM=1:J=20:GOTO675
618IFA=41ANDPL=0ANDE$="PIL"THENX5=5:IFST=0THEN?"Youhavejustbeenbittenbya":X5=6
620IFX5=6THEN?"tarantulahidingunderyourpillow":GOTO6700
622IFX5=5THENPL=1:J=19:GOTO675
624IFA=6ANDE$="CAR"THEN?"Youcan't":GOTO450
626IFE$="KEY"THEN1550
628IFA=41ANDE$="BLA"ANDBL=0THENBL=1:J=21:GOTO675
629IFA=41ANDD1=1ANDE$="PIN"ANDML=0THENML=1:J=24:GOTO675
630IFA=41ANDD1=1ANDE$="ZIN"ANDZN=0THENZN=1:J=23:GOTO675
631IFA=15ANDLS=0ANDE$="LID"THENLS=1:J=13:J1$="":GOTO675
632IFE$="NAI"ANDA=15ANDNI=0THENNI=1:J=42:GOTO675
633IFA=15ANDAX=0ANDE$="AXE"THENAX=1:J=39:GOTO675
634IFA=25ANDMG=0ANDE$="GUN"ANDSS=2THENMG=1:J=30:GOTO675
635IFA=41ANDOS=1ANDE$="DIA"THENOS=2:J=28:GOTO675
636IFA(30)=-1ANDE$="BUL"ANDBT=0THENJ=31:BT=1:GOTO675
637IFGS=1ANDE$="BLA"THEN?"Youcan't":GOTO450
638IFA=45ANDTP=0THENIFE$="JAR"ORE$="TUR"THENTP=1:J=32:GOTO675
639IFA=45ANDAC=0THENIFE$="CAN"ORE$="ACI"THENJ=40:AC=1:GOTO675
640IFYG=0ANDA=41ANDE$="BRO"THEN?"It'stoofarback,youcan'treachit":X5=7
641IFX5=7THEN?"Withwhat?(Ex.WITHBROOM)":GOTO450
642IFA=41ANDE$="POR"THENA$(154,180)="PORTRAIT"
643IFD3=1ANDA=41ANDE$="GLO"ANDGV=0THENJ=22:GV=1:GOTO675
644IFD2=1ANDE$="BRA"ANDA=41ANDBA=0THENBA=1:J=25:GOTO675
647FORJ=1TO42:IFE$=A$(J*SZ-SZ+1,J*SZ-SZ+3)ANDA=ABS(A(J))THEN650
648NEXTJ
649?"There'sno";CHR$(34);D$;CHR$(34);"here":GOTO450
650IFA=33ANDSR=0ANDE$="GOL"THEN?"Thekey'sinthefarcornerandyou'll";:X5=9
652IFX5=9THEN?"besquashedbeforeyoureachit":GOTO450
654IFA=41ANDPN=0ANDJ=6THENA(16)=-A:PN=1
656IFA=33ANDE$="BRO"THEN?"":?"THEWALLSCAVEIN!":GOTO6700
670IFA(J)<0THEN?"That'simpossibletocarry":GOTO450
675FORK=1TO10:IFC(K)=0THENC(K)=J:A(J)=-1:GOTO5050
676NEXTK
680IFD(B)<>2THEN750
683IFE$="KEY"THEN1550
707FORJ=1TO42: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10:IFC(K)=JTHEN712
711NEXTK:GOTO704
712A(J)=0:C(K)=0:IFJ=21ANDE$="CRA"THENA(21)=-41:GOTO5100
713IFX0=1THENX0=2:GOTO5100
714IFA=20ANDJ=12ANDSN=2THENSN=3:X5=10:?"GOODTHINKING!":?"Snakefallsinlove"
715IFX5=10THEN?"(Itlookslikehimtoo)":?"andtakesitawayin":?"somedarkcorner"
716IFX5=10THENA(12)=0:A(14)=0:C=0:GOTO5000
717IFA=33ANDJ=41THEN?"Broomhandlestopswalls":?"fromshrinking":A$(1204,1219)="HORIZANTALBROOM":SR=1
725A(J)=A
740?"OK!":GOTO5100
750IFD(B)<>3THEN760
755IFA(21)=-1THENI$="IN":I1$="In":GOTO757
756I$="ON":I1$="On"
757?I1$;"what?(EX.";I$;"DRAWER)":GOTO450
760IFD(B)<>4THEN800
765IFE$="CRA"ANDGS=0ANDA(21)=-1THENA$(612,628)="WEDGEDUNDERDOOR":X5=12
770IFX5=12THENGS=1:?"Ok.Thatstopsthegasfromentering":J=21:SOUND2,0,0,0:GOTO710
800IFD(B)<>5THEN814
805IFA(8)=AORA(8)=-1THENIFE$="CHA"ANDGM=0THEN?"There'sawadofgumstuckthere":GOTO450
807IFA=41ANDYG=0ANDE$="BED"THEN?"There'sabronzekeythere":GOTO450
808IFA=25ANDMG=0ANDE$="BED"THENX5=13:IFSS>1THEN?"There'sagunthere":GOTO450
810?"There'snothingunderthere":IFX5=13THEN?"now,butitlookslike":?"agoodhidingplace"
811GOTO450
814IFD(B)<>6THEN830
827?"There'snothingbehindthere":GOTO450
830IFD(B)<>7THEN833
831IFA(22)=-1ANDE$="GLO"THENA(22)=-2:?"OK":GOTO450
833IFD(B)<>8THEN840
835IFA(29)=-1ANDE$="ROC"THEN?"There'saninscription:":GOTO450
836IFA(37)=-1THENIFE$="PAP"ORE$="NOT"THEN?"Itsays:":GOTO450
837IFE$="POR"THENIFA(6)=AORA(6)=-1THENX5=14:IFPO=1THEN?"Largewriting:":GOTO450
840IFD(B)<>9THEN950
842IFA=41ANDE$="SAF"THEN?"Dialthecorrectcombination":GOTO450
844IFE$="DOO"ANDA=6ANDMD=4THENGOTO10000
846IFE$="DOO"ANDA=6THEN?"Frontdoorislocked":GOTO450
848IFA=41THENIFE$="DRA"ORE$="DRE"THEN?"Openwhichdrawer?":?"(OPENTOP,OPENMIDDLE";:X5=15
850IFX5=15THEN?"OROPENBOTTOM)";:GOTO450
852IFA=41ANDE$="BOT"ANDD3=0ANDA(26)=-1THEND3=1:?"It'sopen":GOTO450
853IFA=41ANDE$="BOT"ANDD3=0THEN?"It'slocked":GOTO450
854IFA=41ANDE$="MID"ANDD2=0ANDA(38)=-1THEN?"It'sopen":D2=1:GOTO450
855IFA=41ANDE$="MID"ANDD2=0THEN?"It'slocked":GOTO450
856IFA=41ANDE$="TOP"ANDD1=0ANDA(27)=-1THEN?"It'sopen":D1=1:GOTO450
857IFA=41ANDE$="TOP"ANDD1=0THEN?"It'slocked":GOTO450
858IFA=9ANDE$="DOO"ANDM1=0THENX5=16:IFA(23)=-1THEN?"It'sopen":M1=1:GOTO450
926IFX5=16THEN?"Cellardoor'slocked.":?"Gettherightkey":GOTO450
928IFE$="DOO"ANDA=27ANDDD=0THEN?"Door'slocked":GOTO450
930IFE$="DOO"ANDA=34ANDM2=0THENX5=19:IFA(25)=-1THEN?"It'sopen":M2=1:A$(124,132)="OPENDOOR":GOTO5100
932IFX5=19THEN?"It'slocked.Gettherightkey":GOTO450
950IFD(B)<>10THEN995
952IFE$="UND"THEN?"Underwhat?(Ex.UNDERCAT)":GOTO450
954IFE$="BEH"THEN?"Behindwhat?(Ex.BEHINDBED)":GOTO450
956IFA=15ANDE$="CAB"ANDAX=0THEN?"There'sanaxe":IFNI=1THEN450
958IFA=15ANDE$="CAB"ANDNI=0THEN?"Youseesomenails":GOTO450
960IFE$="GUN"ANDBT=0ANDA(30)=-1THEN?"Onebullet":GOTO450
962IFE$="ROC"ORE$="NOT"OR(E$="POR"ANDPO=1)THEN?"Something'swrittenonit":GOTO450
963IFE$="POR"THEN?"It'saportraitofHenryVanderbilt":GOTO450
964IFA=41ANDE$="DRA"THEN?"Lookwhich?":?"LOOKTOP,LOOKMIDDLE,LOOKBOTTOM":GOTO450
966IFA=41ANDE$="DRE"THEN?"Thereare3drawers.Thetophasabronzelock,themiddleagoldlock,":X5=20
970IFX5=20THEN?"thebottomasilverlock":GOTO450
972IFA=41ANDE$="TOP"ANDD1=1THENX5=21:IFML=0THEN?"Abobbypin":IFZN=1THEN450
974IFX5=21ANDZN=0THEN?"There'sazinckey":GOTO450
976IFA=41ANDD2=1ANDE$="MID"ANDBA=0THEN?"Abrasskey":GOTO450
978IFA=41ANDD3=1ANDE$="BOT"ANDGV=0THEN?"Apairofgloves":GOTO450
979IFA=41ANDE$="SAF"ANDOS=0THEN?"It'sgotacombinationlock":GOTO450
980IFA=41ANDE$="SAF"ANDOS=1THEN?"Adiamond":GOTO450
981IFA=41ANDE$="BED"THENX5=30:IFPL=0THEN?"Apillow":IFBL=1THEN450
982IFA=41ANDGW<2ANDGS=1ANDE$="WIN"THENGW=1:?"Agypsywomandownbelow":GOTO450
983IFX5=30ANDBL=0THEN?"Ablanket":GOTO450
984IFE$="ACI"THEN?"Itdissolvesglass":GOTO450
985IFA=45ANDE$="BEN"THENX5=31:IFAC=0THEN?"Acanofhydrofluoricacid":IFTP=1THEN450
987IFX5=31ANDTP=0THEN?"Ajarofturpentine":GOTO450
988IFA=44ANDE$="BOX"THEN?"Youseetwobrokenwires":X5=32
990IFX5=32ANDWB=0THEN?"Youtrytotieandtwistthem":?"buttheykeepfallingapart":GOTO450
991IFX5=32THEN?"mendedwithawadofgum":GOTO450
992IFA=21ORA=42THENIFSS=1ANDE$="STA"THEN?"Awoodenstepismissing.":?"Looksdangerous!":FX=1:GOTO45
993?"Youseenothingspecial":GOTO450
995IFD(B)<>11THEN1020
1000IFEB=0ANDA=23ANDE$="BUT"THENEB=1:B(4)=0:E1$="":?"Elevatorgoesdown":GOTO5100
1004IFA=41ANDPN=1ANDD$="31R76L33R"THEN?"Safe'sopen":OS=1:GOTO450
1006IFA=30THENIFE$="SWI"ORE$="LIG"THENX5=34:IFWB=0THEN?"Nothinghappens":GOTO450
1008IFX5=34ANDA(22)<>-2THENSOUND1,1,6,15:SOUND0,1,4,15:FORV=1TO20:POKE710,64:POKE755,4:GOTO1010
1009GOTO1012
1010FORV1=1TO5:NEXTV1:POKE755,2:POKE710,16:FORV1=1TO5:NEXTV1:NEXTV:?"Youwereelectrocuted":GOTO6700
1012IFX5=34THENLT=1:?"":J2$="":GOTO5100
1020IFD(B)<>12THEN1040
1022IFE$="DOO"THENIFA=40ORA=38ORA=32ORA=29ORA=24OR(A=34ANDM2)OR(A=9ANDM1)THENA=A+1:GOTO300
1024IFE$="DOO"ANDA=27ANDL2=1THENA=28:GOTO300
1026IFE$="DOO"THENIF(A=41ANDL5)ORA=28ORA=30ORA=33ORA=35ORA=39ORA=25THENA=A-1:S1=0:GOTO300
1028IFE$="STA"ANDA=43THENA=10:GOTO300
1029IFE$="STA"ANDA=10THENA=43:GOTO300
1030IFE$="STA"ANDA=26THENA=20:GOTO300
1031IFE$="STA"ANDA=20ANDA(14)=-ATHEN?"Snakewon'tletyou":GOTO450
1032IFE$="STA"ANDA=20THENA=26:GOTO300
1033IFE$="STA"ANDSS=1THENIFA=42ORA=21THENX5=35:?"Youtrippedonsomethingonthestairs";
1034IFX5=35ORX=36THENFORV=65TO185STEP6:SOUND0,V,14,15:FORV1=1TO10:NEXTV1:NEXTV:IFX=36THEN6700
1035IFX5=35THENSOUND0,0,0,0:?"andfelldown":GOTO6700
1036IFE$="STA"ANDA=42THENA=21:GOTO300
1037IFE$="STA"ANDA=21THENA=42:GOTO300
1038IFE$="ELE"THENIFA=22ORA=8THENIFE1$=""ORA=8THEN?"":?"NOELEVATOR":X=36:GOTO1034
1039IFE$="ELE"ANDA=22THENA=23:GOTO300
1040IFD(B)<>15THEN1050
1042IFA=13ANDE$="POL"ANDMD=3THEN?"VOICEONTHEOTHERENDSAYS,":X5=37
1043IFX5=37THEN?CHR$(34);"We'llsendsomeonerightover";CHR$(34):MD=4:GOTO450
1044IFA=13THENFORV=1TO15:SOUND0,11,12,15:FORV1=1TO10:NEXTV1:SOUND0,0,0,0:FORV1=1TO10:NEXTV1
1045IFA=13THENNEXTV:?"It'sbusy...":GOTO450
1050IFD(B)<>16THEN1060
1052IFE$="POR"ANDTX=1THENIFA(6)=-1ORA(6)=ATHENX5=38:IFA(19)=-1THENPO=1:TX=2:X5=39
1053IFX5=39THEN?"Itwasapaintingonapainting":GOTO5100
1054IFX5=38THEN?"Withyourhands?":GOTO450
1060IFD(B)<>17THEN1070
1062IFA=42ORA=21THENIFE$="STA"ANDSS=1THENX5=40:IFA(17)=-1ANDA(42)=-1ANDA(36)=-1THENX5=41
1063IFX5=40THEN?"Youcan'tyet":GOTO450
1064IFX5=41THENA$(1234,1240)="2NAILS":J=17:X0=1:SS=2:FX=2:?"OK":GOTO710
1070IFD(B)<>18THEN1080
1072IFE$="WOO"ORE$="PLA"THENIFA=27ANDL1=0ANDL2=1ANDA(35)=-1THENA(17)=A:L1=1:?"OK":X5=44
1073IFX5=44THENFORV=1TO30:FORV1=1TO5:SOUND1,V1,8,15:NEXTV1:FORV1=5TO1STEP-1
1074IFX5=44THENSOUND1,V1,8,15:NEXTV1:NEXTV:SOUND1,0,0,0:GOTO5100
1080IFD(B)<>19THEN1090
1082IFA(40)=-1ORA(32)=-1THEN?"Onwhat?(Ex.ONALLIGATOR)":GOTO450
1090IFD(B)<>20THEN1110
1091IFA(40)=-1ANDA=41ANDE$="WIN"THENFORV=70TO0STEP-1:SOUND0,V,8,15:NEXTV:X5=45
1092IFX5=45THENSOUND0,0,0,0:?"Aciddissolvesglass.":?"Youthrowthecanaway":J=40:X0=1:L3=1:GOTO710
1093IFE$="POR"ANDA(32)=-1THENIFA(6)=AORA(6)=-1THENTX=1:?"Youtosstheemptyvialaway":J=32:X0=1:X5=51
1094IFA=44ANDA(20)=-1ANDE$="WIR"THENWB=1:J=20:X0=1:?"Ok":GOTO710
1095IFX5=51THEN710
1110IFD(B)<>21THEN1120
1112IFE$="PIL"ANDA=41ANDST=0THEN?"Withwhat?(Ex.WITHSTICK)":GOTO450
1113IFE$="DOO"ANDA=34THEN?"It'sasteeldoor":GOTO450
1114IFE$="DOO"ANDA(39)=-1ANDA=27ANDL2=0THEN?"":X5=50:A$(34,63)="BROKENDOOR,PLANKSOFWOOD"
1115IFX5=50THENFORV=1TO150:SOUND0,INT(RND(0)*30),0,INT(RND(0)*15):NEXTV:L2=1:GOTO5100
1120IFD(B)<>22THEN1130
1122IFA=41ANDL3=1ANDA(28)=-1ANDE$="DIA"THEN?"Youtossdiamondtogypsy":X5=52
1123IFX5=52THEN?"andshetossessomethinguptoyou":J=28:X0=1:GW=2:A(26)=-1:C(7)=26:GOTO710
1124GOTO707
1130IFD(B)<>23THEN1140
1131IFA=41ANDE$="LOC"ANDA(24)=-1THENX5=53:IFGS=0THENG1=99:X5=9:GOTO426
1132IFX5=53ANDL5=0THENL5=1:D1$="opened":GOTO5050
1140IFD(B)<>25THEN1200
1142IFA=41ANDE$="POR"ANDYG=0ANDA(6)=-1THENJ=27:YG=1:GOTO675
1144IFA=41ANDST=0THENX5=96:IF(E$="CHA"ANDA(8)=-1)OR(E$="HAM"ANDA(36)=-1)THENX5=60
1145IFX5=60OR(E$="ROC"ANDA(29)=-1ANDX5=96)THEN?"":?"Youkilledatarantula":X5=67
1147IFX5=67THEN?"underyourpillow":ST=1:GOTO450
1200?"Sorry,youcan'tdothat":IFEB>0ORA=33ORA=15THEN5100
1205GOTO450
1500IFEB>0THEN?"":?"Jumpingsavedyourlife.":?"Youarethrownout,shakenbutalive"
1501IFEB>0THENFORV=1TO100:SOUND0,V,0,15:NEXTV:A=8:EB=0:SOUND0,0,0,0:GOTO5000
1505?"Wheeeee":GOTO450
1510IFMD>1ANDMD<4THEN?"CALLPOLICE":GOTO450
1511IFA=21ORA=42THENIFFX=1THEN?"FIXTHESTAIRS":GOTO450
1512IFTX=1THEN?"YOUNEEDTOWIPE":GOTO450
1515?"Examinethings.":?"Lookunderthings,behindthings":GOTO450
1550?"Sayagain&usetypeofkeymetal":X$="DROP":IFB=5ORB=6THENX$="GET"
1551?"(Ex.";X$;"PLATINIUM)":GOTO450
1700IFE1$=""THEN320
1702S=22:GOTO320
1705IFL3=0THEN?"madeofunbreakableglassanditcan'tbeopened":GOTO320
1707?"andhasnoglass":GOTO320
2000DATADOOFRONTDOOR,-6,DOODOOR,-27,DOOOPENDOOR,-29,DOOOPENDOOR,-32,DOODOOR,-34
2005DATAPORLONGOILPORTRAIT(ONWALL),41,DREDRESSER,-41,CHACHAIR,41,BEDBED,-41,DOOOPENDOOR,-38
2010DATABENWORKBENCH,-45,HOSGARDENHOSE,46,LIDPOTLID,0,SNARATTLESNAKE,0,DOOOPENDOOR,-40,SAFWALLSAFE,0
2020DATASTEWOODENSTEP,0,DOOOPENDOOR,-24,PILPILLOW,0,GUMWADOFSTICKYGUM,0,BLABLANKET,0,GLOGLOVES,0
2030DATAZINZINCKEY,0,PINBOBBYPIN,0,BRABRASSKEY,0,SILSILVERKEY,0,BROBRONZEKEY,0,DIADIAMOND,0
2035DATAROCJAGGEDROCK,0,GUNGUN,0,BULBULLET,0,TURJAROFTURPENTINE,0,MAIMAID,0,LAWUNCLE'SLAWYER,0,SAWSAW,28
2040DATAHAMHAMMER,30,NOTPAPERNOTE,35,GOLGOLDKEY,33,AXEAXE,0,ACIHYDROFLUORICACID,0,BROLONGBROOM,25,NAINAILS,0
2100DATAWNESGETTAKDROPUTSTISTUINUNDBEHWEAREAOPELOOPUSPRETURDIAGOENTCALWIPFIXHAMSAWPOU
2105DATAONBREHITSMATHRGIVPICWIT
2110DATA1,1,2,3,3,3,4,5,6,7,8,9,10,11,11,11,11,12,12,15,16,17,17,18,19,20,21,21,21,22,22,23,25
2120DATAcousinRachael;s,,,cousinPhil;,,cousinMarilyn;s,,,cousinAlex;,cousinFred;,
3000?"Idon'tknowwhatyoumean!":GOTO450
5000?:?"HITTOCONTINUE...";:INPUTA9$:GOTO300
5050?"Ok"
5100FORHI=1TO250:NEXTHI:GOTO300
6700FORV=1TO70:SOUND0,V,10,15:NEXTV
6702FORV1=1TO5:SOUND0,7,12,15:FORV=1TO25:NEXTV:SETCOLOR2,5,0:SOUND0,10,12,15:FORV=1TO25:NEXTV
6704SETCOLOR2,0,0:NEXTV1:?"You'redead"
6710?"Thisadventure":?"isover":POKE752,0:END
10000?:?"TYPETOLOADNEXTPART,":?"THENTYPEWHENFINISHEDLOADING"
10010CLOAD	

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

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