Atari 8-bit Source code

1REM**Lastmod:03-May-82**
5Z=0:SZ=29:GOTO100
10GOTOA+10
11?J$:W=45:E=2:GOTO350
12?J$:W=1:E=3:GOTO350
13?J$:W=2:E=4:GOTO350
14?J$:W=3:E=5:GOTO350
15?J$:W=4:E=25:GOTO350
16?J$:W=49:E=7:GOTO350
17?J$:W=6:E=8:GOTO350
18?J$:W=7:E=9:GOTO350
19?J$:W=8:E=10:GOTO350
20?J$:W=9:E=40:GOTO350
21?J$:N=12:S=42:GOTO350
22?J$:N=47:S=11:GOTO350
23?N$:S=1:GOTO350
24?N$:S=2:GOTO350
25?N$:S=3:GOTO350
26?N$:S=4:GOTO350
27?N$:N=46:S=5:GOTO350
28?N$:N=6:GOTO350
29?N$:N=7:GOTO350
30?N$:N=8:GOTO350
31?N$:N=9:GOTO350
32?N$:N=10:GOTO350
33?N$:W=11:GOTO350
34?N$:W=12:GOTO350
35?J$:W=5:N=28:S=26:GOTO350
36?J$:N=25:E=27:GOTO350
37?"INALIBRARY":W=26:GOTO350
38?J$:N=40:E=29:S=25:GOTO350
39?"INAKITCHEN":W=28:GOTO350
40?"INADININGROOM":W=32:N=31:GOTO350
41?"INASTAIRWELL":S=30:U=44:GOTO350
42?"INTHEGRANDBALLROOM":W=33:E=30:GOTO350
43?"INAHALL":E=32:GOTO350
44?"INTHEENGINEROOM":W=35:GOTO350
45?"INASMALLCORNER":E=34:GOTO350
46?"INASTAIRWELL":N=37:D=50:GOTO350
47?"INACORRIDOR":N=39:E=38:S=36:GOTO350
48?"INTHECAPTAIN'SQUARTERS":W=37:GOTO350
49?"ONTHEBRIDGEOFTHETITANIC":E=43:S=37:GOTO350
50?J$:W=10:S=28:GOTO350
51?J$:W=42:N=45:GOTO350
52?J$:N=11:E=41:GOTO350
53?"INTHERADIOROOM":W=39:GOTO350
54?"INASTAIRWELL":E=45:D=31:GOTO350
55?J$:W=44:N=51:E=1:S=41:GOTO350
56?"INABATHROOM":S=17:GOTO350
57?J$:E=48:S=12:GOTO350
58?J$:W=47:S=49:GOTO350
59?J$:W=50:N=48:E=6:S=51:GOTO350
60?"INASTAIRWELL":E=49:D=36:GOTO350
61?J$:N=49:S=45:GOTO350
62?"INALIFEBOAT":GOTO350
100GRAPHICS18:SETCOLOR4,0,0:SETCOLOR0,0,15:DIMH$(8):SOUND0,1,8,15:H$="DATELINE":FORA=1TO8:POSITIONA+4,4
105?#6;H$(A,A):FORB=1TO96:NEXTB:NEXTA:POSITION5,5:FORB=1TO500:NEXTB:?#6;"TITANIC"
106FORA=1TO500:NEXTA:FORA=1TO7:FORB=1TO77:NEXTB:SETCOLOR4,A,0:NEXTA
107FORA=1TO500:NEXTA:SOUND1,4,6,15:FORA=1TO325:NEXTA:SOUND1,0,0,0
200DIMA$(63*SZ),A(63),B(6),B$(93),T$(53),C(8),D(31),I(63),J$(16),N$(10),LB(10)
203DIMSZ$(SZ),D$(20),E$(20),A9$(50),A1$(3),X$(SZ),PP(13),G(12),V$(7),SC(10)
205SZ$=""
207FORA=1TO8:C(A)=0:NEXTA:FORA=1TO63:A(A)=0:I(A)=0:NEXTA:FORA=1TO10:LB(A)=0:NEXTA
210FORA=1TO63: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:READB$:FORA=7TO31
214READV:D(A)=V:NEXTA:FORA=0TO13:READV:PP(A)=V:NEXTA:FORV=1TO12:G(V)=24:NEXTV
220A=39:G=1:J$="ONTHEMAINDECK":N$="INACABIN":T$="SOS...SOS...SOS...SENDHELP...TITANICSINKINGFAST..."
300SOUNDZ,Z,Z,Z:V=Z:X4=Z:X5=Z:IFG=8THENGRAPHICS0:SETCOLOR2,5,0:SETCOLOR1,0,15
301IFG=8THENPOSITION2,4:?"TheTitanicissinking!"
302IFG=8THEN?"Ascaptain,youmustsaveasmanypeopleasyoucanandputthemin"
303IFG=8THEN?"lifeboats.Therearealsovaluablestosaveandothertaskstodofor"
304IFG=8THEN?"maximumscore!Anddon'tforgettosaveyourself!":G=9:GOTO5000
306SOUNDZ,Z,Z,Z:N=Z:W=Z:E=Z:S=Z:U=Z:D=Z:GRAPHICSZ:SETCOLOR2,V,Z:SETCOLOR1,Z,15:SETCOLOR4,V,Z:POKE752,1
307?"YOU'RE";
310GOTO10
350IFN+W+E+S+U+D>ZTHEN?:PRINT"":FORB=1TO6:B(B)=0:NEXTB
351IFDK=0THENA(39)=0
352IFW>ZTHENPRINT"West";:B(1)=W
353IFN>ZTHENPRINT"North";:B(2)=N
354IFE>ZTHENPRINT"East";:B(3)=E
355IFS>ZTHENPRINT"South";:B(4)=S
356IFU>ZTHENPRINT"Up";:B(5)=U
357IFD>ZTHENPRINT"Down";:B(6)=D
358PRINT:PRINT:IFKL=1ANDA<>20THENKL=0:A(60)=0:A(46)=20
359IFDK=0THENRD=INT(RND(0)*25)+1:IFRD<7THENA(39)=A
360A(55)=0:A(1)=0:A(22)=0:A(23)=0:A(24)=0:A(18)=0:IFA<13ORA=47ORA=42THEN363
361IFA=52THENA(1)=-A:A(62)=-A:GOTO370
362GOTO370
363A(1)=-A:A(22)=-A:IFA=1ORA=3ORA=5ORA=6ORA=8ORA=10THENIFLB(A)<>-99THENA(23)=-A
364IFA<13THENA(G(A))=-A:RD=INT(RND(0)*25)+1:IFFP<11THENIFI(55)<>-1THENIFRD<10THENA(55)=A
370FORB=1TO63:IFABS(A(B))=ATHENC=C+1:GOTO372
371NEXTB:PRINT:GOTO375
372IFC=1THENPRINT""
374PRINT"";A$(B*SZ-SZ+4,B*SZ):GOTO371
375IFG=1THEN?"It'sachilly,foggynight":?"visibilityispoor!"
376IFG=1THEN?"Ascaptainofthisship":?"youareatthehelm":G=2
377IF(G=3ANDTN=0)ORG=6THENX4=2:GOSUB1700
378IFX4=2ANDG=3THENG=4:C=0:GOTO300
379IFX4=2ANDG=6THENG=7:C=0:GOTO300
380IFG=4THEN?"Youstrucktheiceberg!":C=0:G=8:GOTO5100
381IFG=2ANDLK=1THEN?"There'saniceberg!":?"You'reheadingstraightatit!":?"Quick,dosomething!":G=3
382IFG=3ANDTN=1THENX4=3:?"Phew...youmissedit!":?"YousavedtheTitanic!":?"Youalteredhistory!":G=6
383IFX4=3THENG=6:C=0:GOTO5100
384IFG=7THEN?"OHMYGOD!":?"Youhitanotherone!":G=8:C=0:GOTO5100
385IFA=32THENQ3=Q3+1:IFQ3=1THEN?"Roomisawfullyshaky..."
386IFQ3=2THEN?"":FORHI=1TO300:NEXTHI:GOSUB1700
387IFQ3=2THENA(9)=0:A(30)=-A:C=0:BC=1:GOTO300
388IFQ3=3THEN?"Chandelierfalls...":?"barelymissesyou...":Q3=4
389IFA=30ANDWT=0THEN?"Waiterasksyou,";CHR$(34);"whatdoyouwant?";CHR$(34)
390IFA=34ANDI(40)=-1THENK3=40:K0=34:?"Somethingmelts...":C=0:GOTO1100
391IFA=15ANDM2=0THEN?"Mrs.Vanderbilt'scabinisempty!"
392IFA=52THEN1600
393IFA=14ANDCW=0THEN?"Loud,loudmusiccanbeheardblastingfromthebathroom!":X4=4
394IFX4=4THEN?"It'ssoloud,infact,thatladyinsidecan'thearyourcalls!"
450SOUNDZ,Z,Z,Z:X4=Z:X5=Z:C=Z:QQ=Z:CP=Z
455POKE752,0:?:?"";:INPUTA9$:POKE752,1:?
457TRAP3000
460IFA9$="LOOK"THEN300
462IFLEN(A9$)>2THENIF(A9$(1,4)="LOOK")OR((G=3)AND((A9$(1,4)="TURN")OR(A9$(1,4)="STEE")))THEN500
463IFA9$="SCORE"THEN1520
464IFLEN(A9$)>2THENIFA9$(1,4)="WAKE"THEN?"Tootightasleep":GOTO450
470FORB=1TO6:IFA9$=B$(B*3-2,B*3-2)THEN490
473NEXTB:GOTO500
490IFB(B)<>0THENIFG<>9THEN?"Stayatyourhelm!":C=0:GOTO450
491IFB(B)<>0THENA=B(B):LP=0:GOTO300
493?"Youcan'tmovethatway":GOTO450
500IFA9$<>"I"THEN516
510?"":FORK=1TO8:IFC(K)=0THEN515
512?"";A$(C(K)*SZ-SZ+4,C(K)*SZ)
515NEXTK:GOTO450
516X$=A9$(LEN(A9$)-2,LEN(A9$)):IFA=30ANDWT=0ANDV7=0ANDX$<>"TER"THEN?"Waitersays,":X4=5
517IFX4=5THENIFX$="FEE"THENV7=1:J=42:A(J)=A:GOTO675
518IFX4=5THEN?"Youcan't":GOTO450
531FORB=7TO31: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
609D$=A9$(K+1,LEN(A9$)):E$=D$(1,3)
610IFE$="VAC"THENE$="CLE"
611IFD(B)<>1THEN680
612I=0:FORV=1TO8:IFC(V)<>0THENI=I+1
613NEXTV:IFI>4THEN?"Youcan'tcarryanymore":GOTO450
615FORV=1TO63:IFE$<>A$(V*SZ-SZ+1,V*SZ-SZ+3)THENNEXTV:GOTO617
616IFV>42ANDV<60THENCP=1:M=V:IFC(1)<>0THEN?"Youcanonlycarryonepersonatatime":GOTO450
617IFA=27ANDE$="LIB"ANDLB=0THENLB=1:J=50:A(J)=27:GOTO675
618IFA=23ANDSS=0ANDE$="STE"THENSS=1:J=56:A(J)=23:GOTO675
619IFBY=0ANDE$="BAB"ANDA=18THENBY=1:J=51:A(J)=18:GOTO675
620IFA=30ANDE$="WAI"ANDWT=0THENJ=48:A(J)=30:WT=1:GOTO675
621IFA=32ANDBC=1ANDE$="BUL"THENBC=2:J=31:A(J)=32:GOTO675
622IFA=29ANDRF=1THENX5=7:IFE$="MAR"ANDBT=0THENJ=41:A(J)=29:BT=1:GOTO675
623IFX5=7ANDE$="CUB"ANDIC=0THENJ=40:A(J)=29:IC=1:GOTO675
624IFE$="PUP"ANDA(39)=ATHENE$="DOG":J=39:GOTO652
625IFA=29ANDE$="KEY"ANDV4=1THENV4=0:J=35:A(J)=A:GOTO675
626IFA(39)=AORI(39)=-1THENIFY4=0ANDE$="KEY"THENX5=5:IFDK=1THENJ=33:A(J)=A:Y4=1:GOTO675
627IFX5=5THEN?"Puppybites":GOTO450
628IFA=27ANDDC=0ANDE$="DIC"THENJ=26:A(J)=27:DC=1:GOTO675
629IFA=29ANDE$="BON"ANDSB=0THENSB=1:J=38:A(J)=29:GOTO675
630IFA=46ANDE$="LAD"THENX5=11:IFST=0THEN?"She'sstuck!":GOTO450
631IFX5=11ANDST=1THENST=2:J=49:A(J)=46:?"Margarinehelped...":GOTO675
632IFE$="LAD"ANDA(60)=-ATHEN?"Knifeissharp!":GOTO450
633IFE$="KEY"ANDA=43THEN?"Thecodekey?":J=3:GOTO670
634IFE$="KEY"THEN?"Sayagain&usenumber.Ex:GET101":GOTO450
635IFA=29ANDE$="SOU"ANDAS=0THEN?"Toohot...":GOTO450
636IFA=29ANDE$="BOW"THENX5=1:IFAS=0THEN?"Youmightspillthesoup!":GOTO450
637IFX5=1THEN?"It'sanantiquehandcraftedbowl,":?"veryfragile...":?"don'tpickitup!":GOTO450
639FORJ=1TO63: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A=16ANDE$="LAD"ANDCL=0THENX5=12:?"Shedoesn'tunderstandawordof"
643IFX5=12THEN?"English!She'sanexpertinkarateandthreatensyouwithaconvincing"
644IFX5=12THEN?"demonstration!":GOTO450
645IFA=21ANDE$="CHI"ANDPD=0THEN?CHR$(34);"Findmemypuppydog";CHR$(34):GOTO450
646IFA=13ANDE$="LAD"ANDLL=0THEN?"Shestaggersallovertheplace!":?"Youcan'tcatchher!":GOTO450
647IFA=11ANDE$="NEW"THENX5=13:IFNP=2THENK0=37:K3=0:GOTO1100
648IFX5=13THENNP=0
649IFE$="JEW"THENPT=PT+200
650IFE$="RIN"THENPT=PT+300
651IFE$="PAS"THENFP=FP+1
652IFE$="DOG"ANDDK=0THEN?"Puppysnapsatyou":GOTO450
653IFA=22ANDE$="DAI"THENA(57)=0:J=52:A(J)=22:GOTO675
654IFA=20ANDE$="LAD"ANDNH=0THEN?"Ladycan'thearyou!":?"Shethinksyou'regoingtohurther":X5=15
655IFX5=15THEN?"andthreatensyou":A(46)=0:A(60)=-A:KL=1:GOTO5100
670IFA(J)<0THEN?"That'simpossibletocarry":GOTO450
675A(J)=0:IFCP=1THENC(1)=J:I(J)=-1:GOTO5050
676FORK=2TO8:IFC(K)=0THENC(K)=J:I(J)=-1:GOTO5050
677NEXTK
680IFD(B)<>2THEN750
681IFE$="VAC"ORE$="CLE"THENIFI(21)=-1OR((A=24ANDI(21)=0)ORI(21)=A)THENIFVC=0THENVC=1
682IFVC=1THEN?"Somethingfallsout":A(29)=A:VC=2:A(61)=-A:GOTO5100
683IFE$="PUP"THENE$="DOG"
684IFE$="DAI"ANDI(52)=-1THENJ=52:GOTO710
685IFE$="KEY"THEN634
700FORJ=1TO63:IFE$=A$(J*SZ-SZ+1,J*SZ-SZ+3)THENX5=2:IFI(J)<>-1THEN702
701IFX5=2THEN710
702X5=0:NEXTJ
704?"You'renotcarryingit":GOTO450
710FORK=1TO8:IFC(K)=JTHEN712
711NEXTK:GOTO704
712I(J)=0:C(K)=0
713IFE$="PUP"ORE$="DOG"THENIFA=21THENA(58)=0:A(47)=21:A(J)=0:PD=1:GOTO5050
714IFLL=0ANDE$="COF"ANDA=13THENLL=1:?"Ladydrinkscoffeeandsobersup":A(59)=0:A(44)=13:A(J)=0:GOTO5100
715IFE$="JEW"THENPT=PT-200
716IFE$="RIN"THENPT=PT-300
717IFE$="BON"ANDA(39)=ATHENDK=1:?"Puppydogmunchesquietlyonbone":A(J)=0:GOTO5100
718IFA=20ANDE$="AID"THENNH=1:?"Ladygrabshearingaid!":KL=0:A(J)=0:A(60)=0:A(46)=A:GOTO5100
719IFA>10ORJ<43ORA(23)=0THEN724
720IFA<11ANDLB(A)>3THEN?"Overcrowdedlifeboat!":?"Itsinks!":SC(A)=0:OL=1:LB(A)=-99
721IFOL=1THENOL=0:GOTO4900
722LB(A)=LB(A)+1:SC(A)=SC(A)+PP(J-43):?"YOUPUT";A$(J*SZ-SZ+4,J*SZ):?"INLIFEBOAT":GOTO450
724IFE$="PAS"THENFP=FP-1
725A(J)=A
729I(J)=A
740?"OK!":GOTO5100
750IFD(B)<>3THEN770
752IFE$="DOO"ANDA>5ANDA<12THENX5=1:IFG(A)=18THEN?"It'salreadyopen":GOTO450
754IFX5=1THENIFI(26+A)=-1THENG(A)=18:?"Door'sopen":GOTO5100
755IFX5=1THEN?"Wrongornokey(door'slocked)":GOTO450
756IFE$="DOO"ANDA=14THEN?"It'slocked!":GOTO450
757IFE$="DOO"AND(A<6ORA=12)THENX5=1:IFG(A)=18THEN?"It'salreadyopen":GOTO450
758IFX5=1THENG(A)=18:?"Doorwasunlocked":GOTO5100
760IFA=29ANDE$="REF"ANDRF=0THENA(25)=-29:A(16)=0:RF=1:GOTO5050
762IFA=38ANDE$="SAF"ANDOS=0THENX5=1:IFRC=0THEN?"Youcan'trememberthecombination":GOTO450
763IFX5=1THENOS=1:?"Youfindsomething":A(28)=38:GOTO5100
770IFD(B)<>4THEN780
772IFI(27)=-1AND(E$="PER"ORE$="NOT")THEN?"It'sthecombination":RC=1:GOTO450
774IFI(26)=-1ANDE$="DIC"THENCL=1:?"Younowknowhowtosay,":X5=1
775IFX5=1THEN?CHR$(34);"theboatissinking";CHR$(34):?"inChinese":GOTO450
777IFE$="NEW"ORE$="PAP"THEN840
780IFD(B)<>5THEN790
781IFA<>11ORPK=1THEN?"Ok":?"Nothinghappens":GOTO450
782?"Youhearakeyontheotherside":?"falltothefloor":PK=1:IFNP=1THENNP=2
785GOTO450
790IFD(B)<>6THEN860
792IFE$="PAP"ORE$="NOT"THEN?"There'ssomethingwrittenonit":GOTO450
794IFA=35AND(E$="FUS"ORE$="BOX")THEN?"There'sa";V$;"wire":GOTO450
795IFA=39ANDE$="WIN"THENX5=1:IFG<9THEN?"Youseesomethinglargeandwhite":LK=1:GOTO5100
796IFX5=1THEN?"You'restaringattheocean...":GOTO450
797IFA=29ANDE$="TAB"THENX5=1:IFAS=1THEN?"Abowl":QQ=1:X5=0
799IFX5=1ANDAS=0THEN?"Abowlofalphabetsoup":X5=0
800IFA=29ANDE$="BOW"THENX4=1:IF(AS=1ANDI(35)=0)THEN?"Akey...":GOTO450
802IFX4=1ANDAS=0THEN?"Alphabetsoup":GOTO450
804IFA=29ANDAS=0ANDE$="SOU"THEN?"Itlooksdelicious":V3=1:GOTO450
806IFA=32ANDE$="CHA"ANDBC=1THEN?"Brokenbulbs...":GOTO450
808IFA=27ANDLB=0ANDE$="DES"THEN?"There'salibrariansitting":GOTO450
810IFA=29AND(E$="TAB"ANDSB=0)THEN?"Asoupbone":GOTO450
813IFA=29ANDRF=1ANDE$="REF"THENIB=1:IFBT=0THEN?"Somemargarine"
815IFA(61)=-AANDV9=0ANDE$="DIR"THEN?"Youfindsomething":A(36)=A:V9=1:GOTO5100
817IFA=11ANDE$="DOO"THEN?"Atinycrackunderthedoor"
819IFIB=1THENIB=0:IFIC=0THEN?"Anicecube":GOTO450
821IFA=23ANDE$="BED"ANDSS=0THEN?"Thesteward'ssleeping":GOTO450
823IFA<13ANDE$="DOO"THEN?"There'sakeyhole":GOTO450
825IFA=11AND(E$="HOL"ORE$="KEY")THENX5=1:IFPK=0THEN?"There'sakeyinsertedontheother":X5=15
826IFX5=15THEN?"side":GOTO450
827IFX5=1ANDSS=0THEN?"Someonesleeping":GOTO450
828X5=0:IFA=18ANDE$="CRI"ANDBY=0THEN?"There'sababy":GOTO450
830IFA=46AND((E$="BAT"ORE$="TUB")ANDST<2)THEN?"Alady'stakingabath":GOTO450
832IFA=46ANDST=0ANDE$="LAD"THEN?"Hertoe'sstuckinthedrainhole":GOTO450
834IFA(55)=AANDY1=0ANDE$="PAS"THEN?"Youseesomething":A(32)=A:Y1=1:GOTO5100
836IFA(39)=AORI(39)=-1THENX5=1:IFE$="DOG"ORE$="PUP"THEN?"He'swearingacollar":GOTO450
838IFX5=1ANDE$="COL"ANDY4=0THEN?"There'sakeyhangingonit":GOTO450
840IF(A=27ANDI(15)=0)ORI(15)=-1ORI(15)=ATHENIFE$="NEW"ORE$="PAP"THENX5=10
842IFX5=10THEN?CHR$(34);"UNSINKABLETITANIC":?"ONMAIDENVOYAGE";CHR$(34):GOTO450
844IFE$="CUB"ANDI(40)=-1THEN?"There'ssomethinginit":GOTO450
845IFA=27ANDE$="SHE"THEN?"Books...":GOTO450
846IFA=27ANDE$="BOO"ANDDC=0THEN?"Adictionary...":GOTO450
847IFE$="BOA"ORE$="LIF"THENIFA=6ORA=8ORA=10ORA=1ORA=3ORA=5THENIFLB(A)<>-99THENX5=7
848IFX5=7THENIFLB(A)<4THEN?4-LB(A);"emptyseats":GOTO450
850IFQQ=1THEN450
855?"Youseenothingspecial":GOTO450
860IFD(B)<>7THEN880
861IFA=38ANDM1=0ANDE$="SAF"THEN?"Youseesomething":M1=1:A(27)=A:GOTO5100
863IFA=11AND(E$="NEW"ORE$="PAP")ANDI(15)=AANDNP=0THENNP=1:X5=1
864IFX5=1THEN?"Youslidenewspaperhalfwayunderdoor":GOTO450
866IFA=29ANDE$="TAB"ANDM2=0THEN?CHR$(34);"Oops...escusememadam...":X5=1
867IFX5=1THEN?"hidingunderthetable":?"won'thelp";CHR$(34):M2=1:A(54)=A:GOTO5100
870IFA=18ANDE$="CRI"ANDM3=0THEN?"Youseesomething":M3=1:A(17)=A:GOTO5100
880IFD(B)<>10THEN890
882IFG=9THEN?"Toolate...it'ssinking!":GOTO450
884?"Ok!":IFLK=1THENTN=1:GOTO5100
886GOTO450
890IFD(B)<>12THEN900
892IFA=46ANDST=0AND(E$="MAR"ORE$="TOE")ANDI(41)=-1THENST=1:?"Ok!":GOTO450
900IFD(B)<>13THEN930
902IFA=35ANDE$="WIR"ANDCW=0THENX5=1:IFI(31)=-1THEN?"Ok!":V$="broken":CW=1:A(53)=14:GOTO450
906IFX5=1THEN?"You'renotcarryinganything":?"withwhichtocutthewire":GOTO450
930IFD(B)<>14THEN950
932IFA=43THENFORV1=1TOLEN(T$):?T$(V1,V1);:SOUND0,1,2,15:FORV=1TO30:NEXTV:SOUNDZ,Z,Z,Z:NEXTV1:?
933IFA=43ANDSH=0THENSH=1:PT=PT+100
934IFA=43THEN450
950IFD(B)<>15THEN960
952IFE$="DOO"ORE$="CAB"ORE$="ROO"THENIFA<13THENX5=1:IFG(A)=18THENA=A+12:GOTO300
954IFX5=1THENIFA<6ORA=12THEN?"Door'sclosed...":GOTO450
956IFX5=1THEN?"Door'slocked...":GOTO450
957IF(E$="LIF"ORE$="BOA")ANDA(23)=-ATHENA=52:GOTO300
958IFE$="STA"ANDA=34THENA=33:GOTO300
959IFE$="STA"ANDA=33THENA=34:GOTO300
960IFD(B)<>16THEN1000
967IFA=29ANDE$="SOU"ANDAS=0THENX5=1:IFV3=0THEN?"Toohot":GOTO450
969IFX5=1THEN?"It'scoolednow":?"hmm...delicious...":AS=1:V4=1:GOTO450
1000?"Sorry,youcan'tdothat":GOTO450
1095?"OK"
1100FORK2=2TO8:IFC(K2)=K3THENC(K2)=K0:I(K3)=0:I(K0)=-1:X5=3:IFNP=2THENNP=0:GOTO675
1110IFX5=3THEN5100
1115NEXTK2
1120GOTO5100
1520B=0:FORV=1TO10:B=B+SC(V):NEXTV:B=B+PT:?"Sofaryouhavescored";B
1522?"pointsoutofapossible3175":GOTO450
1600B=0:FORA=1TO10:B=B+SC(A):NEXTA:B=B+PT:?"Okay...youhavedecidedtosave"
1602?"yourself.Youscoredatotalof";B:?"pointsoutofapossible3175"
1603?:?"HIT...";:INPUTA$:SOUND0,1,8,3
1605GRAPHICS0:SETCOLOR2,6,0:SETCOLOR4,5,0:SETCOLOR1,0,15:?"Youlookoutinthedistanceatthe"
1606?"cold,bluewater,illuminatedbythesoftglowofthemoon,listeningfor"
1608?"thenoisesofapassingship,whilebehindyoutheTitanicisrapidly"
1610?"sinking,onlyasmokestacknowvisibleinthequietwatersoncebustlingwith";
1612?"commotion,onlyalonecryforhelp,occasionallyheard,breaksthe"
1614?"stillnessofthenight.":?:IFSH=0THEN?"Anditmaybealongwait...":GOTO6700
1616?"Arescueshipapproaches...":GOTO6700
1700FORV=1TO20:FORHI=1TO5:NEXTHI:POKE755,4:SOUND0,INT(RND(0)*25),8,INT(RND(0)*14)+1
1710FORHI=1TO5:NEXTHI:POKE755,2:NEXTV:SOUND0,0,0,0:RETURN
2000DATASEAOCEAN,0,WHESTEERINGWHEEL,-39,CODCODEKEY,-43,SAFSAFE,-38,BOXFUSEBOX,-35
2005DATAFURFURNACE,-34,STASTAIRS,-34,STASTAIRS,-33,CHACHANDELIER,-32
2010DATATABTABLE,-29,BATBATHROOMDOOR,-14,TUBBATHTUB,-46,SHESHELVES,-27,DESDESK,-27,NEWNEWSPAPER,27
2020DATAREFREFRIGERATOR,-29,AIDHEARINGAID,0,DOOOPENDOOR,0,CRICRIB,-18,BEDBED,-23,CLEVACUUMCLEANER,24
2030DATARAIRAILING,0,BOALIFEBOATINWATER,0,DOOCABINDOOR,0,REFOPENREFRIGERATOR,0
2040DATADICCHINESE-ENGLISHDICTIONARY,0,NOTPAPERNOTE,0,JEWJEWELRY,0,RINDIAMONDRING,0,CHABROKENCHANDELIER,0
2050DATABULBROKENBULB,0,101CABINKEY#101,0,102CABINKEY#102,0,103CABINKEY#103,0,104CABINKEY#104,0
2060DATA105CABINKEY#105,0,106CABINKEY#106,0,BONSOUPBONE,0,DOGPUPPYDOG,0,CUBICECUBE,0,MARMARGARINE,0
2070DATACOFCUPOFCOFFEE,0,GIRYOUNGGIRL,19,LADSOBERLADY,0,LADCHINESELADY,16,LADDEAFLADY,20
2080DATACHIHAPPYCHILDWITHPUPPY,0,WAIWAITER,0,LADNAKEDLADY,0,LIBLIBRARIAN,0,BABBABY,0,DAIDAISYSMITH,0
2090DATALADANGRYLADY,0,VANMRS.VANDERBILT,0,PASFRANTICPASSENGER,0,STESLEEPINGSTEWARD,0,DAIDAISY,22
2095DATACHICRYINGCHILD,21,LADDRUNKLADY,13,LADDEAFLADYWITHKNIFE,0,DIRDIRT,0
2096DATATITSINKINGTITANIC,-52,WINWINDOW,-39
2100DATAWNESUDGETTAKDROPUTEMPGIVOPEREAKICPOKHITLOOSLIMOVPUSTURSTESMERUBCUTSENTAPGOENTEAT
2110DATA1,1,2,2,2,2,3,4,5,5,5,6,7,7,7,10,10,12,12,13,14,14,15,15,16
2120DATA50,400,350,150,75,50,450,100,75,50,300,200,25,50
3000?"Idon'tknowwhatyoumean!":GOTO450
4900GOTO5100
5000?:?"HITTOCONTINUE...";:INPUTA9$:GOTO300
5050?"OK"
5100FORHI=1TO180:NEXTHI:GOTO300
6700SOUND0,0,0,0
6710?"Thisadventure":?"isover"	

• Download link 1

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