ZXTape! 0Created with Ramsoft MakeTZXTITANIC ~ B Q # TITANIC  #Q=0:R=1:A=170 Q:6:Q::10 ,A:Q,-20:8,Q:Q,7:3,3:Q,-28:-3,-2:Q,-6:18,Q:Q,6:-3,2:Q,28:3,-3:Q,-7:8,Q:Q,20:-34",Q 502,A:Q,-4:3,-3:Q,-22:-3,-3:Q,-4:16,Q:Q,4:-3,3:Q,22:3,3:Q,4:-16,Q 72H,A:Q,-16:6,Q:Q,5:3,3:Q,-22:-3,-2:Q,-4:16,Q:0,4:-3,2:Q,22:3,-3:Q,-5:6,Q:Q,16:-28,Q 113q,A:-6,-29:-3,-3:Q,-4:30,Q:Q,4:-3,3:-6,29:-11 ,Q F118v,A-10 :-2,-4:5,Q:-2,4 9115s,A-25:7,Q,*1.1 :-7,Q -140,A:Q,-4:3,-3:Q,-22:-3,-3:Q,-4:16,Q:Q,4:-3,3:Q,10 :11 ,-17:11 ,Q:Q,29:3,3:Q,4:-16,Q:Q,-4:3,-3:Q,-10 :-11 ,17:-14,Q 185,A:Q,-4:3,-3:Q,-22:-3,-3:Q,-4:16,Q:Q,4:-3,3:Q,22:3,3:Q,4:-16,Q T1=/8:T2=/3.31S =:237,A:-4,Q:-2,-5:-10 ,5,T1:-8,-5,T1:-5,-17,T2:5,-17,T2 12 ,-6,T1:13 ,20,/2:-10 ,Q:Q,-5:-5,Q,-:Q,16:5,Q,-:Q,-6:10 ,Q:Q,20 6V=Q3:40(,A-43+-V:170+V,Q:V KEYS=0 7:7,Q;"APRIL 14th 1912. On her maidenvoyage the S.S.TITANIC collided with an iceberg, She sank within3 hours with great loss of life.A fortune in GOLD also went downwith the ship." h"MARCH 1984. N.A.S.A. Satellite photographs reveal possible siteof the wreck of the TITANIC." Q"AND NOW. THE GOLD RUSH IS ON... can YOU find the TITANICS GOLD." +#0;"LOADING FILES. PLEASE WAIT." *'''" 1986 YES SOFTWARE." ?0:18,0;"":"":18,0;"":""  0 '  ?CTITANIC-The Adventure Begins  1986 YES! SOFTWARE. i:i 88'23637U\+256*23638V\: qraIڢreyPTITANIC_ XI4~>~~ / 0?<<<$$$<<$$$<<<"DD"Ȉ<<<< TITANIC ^[I10X`# # <@''8]\\\\ejr풒\'4hX![!@P!!88W K SR P" x]*}\x] *}\,"}\ *}\-"}\*}\x]wͼ]|('{ $x] *}\$*}\{ $x](*}\|(#z %x] *}\%z *}\%x](*}\}( -"}\x]("}\> >g@O|GW|_a}o{_))))){G>G>>G}_!X x(~Uw9999 R#!^[[[s=\:S\( :!\>2:\v90123456789012345678901234567890 24054] q"23658","8":::P1="8E3":P2="8010":Q=ç:R=/:T=R+R:Y=Q:N=Q:W="10":FIN=Q:RE=Q:Q:Q:Q:Q:SAV=Q PNT="23760" Q:6:Q::10 ,170:Q,-20:8,Q:Q,7:3,3:Q,-28:-3,-T:Q,-6:18,Q:Q,6:-3,T:Q,28:3,-3:Q,-7:8,Q:Q,20:-34",Q 502,170:Q,-4:3,-3:Q,-22:-3,-3:Q,-4:16,Q:Q,4:-3,3:Q,22:3,3:Q,4:-16,Q 72H,170:Q,-16:6,Q:Q,5:3,3:Q,-22:-3,-T:Q,-4:16,Q:0,4:-3,2:Q,22:3,-3:Q,-5:6,Q:Q,16:-28,Q 113q,170:-6,-29:-3,-3:Q,-4:30,Q:Q,4:-3,3:-6,29:-11 ,Q 9118v,160:-T,-4:5,Q:-T,4 8115s,145:7,Q,*1.1 :-7,Q 5140,170:Q,-4:3,-3:Q,-22:-3,-3:Q,-4:16,Q:Q,4:-3,3:Q,10 :11 ,-17:11 ,Q:Q,29:3,3:Q,4:-16,Q:Q,-4:3,-3:Q,-10 :-11 ,17:-14,Q 185,170:Q,-4:3,-3:Q,-22:-3,-3:Q,-4:16,Q:Q,4:-3,3:Q,22:3,3:Q,4:-16,Q T1=/8:T2=/3.31S =:237,170:-4,Q:-2,-5:-10 ,5,T1:-8,-5,T1:-5,-17,T2:5,-17,T2 12 ,-6,T1:13 ,20,/2:-10 ,Q:Q,-5:-5,Q,-:Q,16:5,Q,-:Q,-6:10 ,Q:Q,20 7V=Q3:40(,127-V:170+V*T,Q:V '/#0;" 1986 YES! SOFTWARE." (V7:10 ,6;"WELCOME TO TITANIC"'''" We do hope you enjoy the game" 2h400:18,Q;"And now let THE ADVENTURE BEGIN":#0;"PRESS ANY KEY TO START THE GAME."; <:=""60< f"BW=Q:BT=Q:BR=Q:BV=Q:A="1E4" g.C$="CABIN":D$="ROOM":M$="MESSAGEFOLLOW" i+R:R:7::" OF SPONSORS", j3" 1)OWN BANK"'" 2)H.P.COMPANY"'" 3)FOREIGN BANK"'" 4)PETROL COMPANY"," 5)DAILY NEWSPAPERS"," 6)INSURANCE BROKERS"," 7)TV.COMPANIES"'" 8)YES!SOFTWARE"'" 9)SHIPPING COMPANIES","10)SALVAGE COMPANY","11)PUBLISHING COMPANY","12)GOLD BROKERS"'"13)CREDIT COMPANIES","14)MERCHANT BANKERS","15)ASS.SCRAP MERCHANTS" kW=W-R:W=QS$="oUt oV t(ii)m.":P1:T:T::8,Q;"I'm sorry to say you have failedto raise sponsorship in time. This must show that you are - "''"a) Not very credit worthy."'""'"b) Very greedy in sticking out"'" for more money."''"BETTER LUCK NEXT TIME.":9E3(# l16,Q;"This is a list of sponsors who MAY be able to help finance youroperations. You have ";W;" weeks in which to raise the money. Each transaction takes ONE week." xA21,Q;"",,#0;Q,Q;"ENTER NUMBERAPPLY:":"8400" zC=R$:C"15"120x ~B="1+(*25)":U=B*A "C=8ƥ>.85"U="25E4" ,U<"8E4"C,25;" SORRY ":107k #C,25;"`";U;:U<"1E5"" " @21,Q;"ACCEPT OFFER ":"8200":Z$="N"107k 4T:T::Q,Q:255,Q:Q,175:255,Q mR,"10";"CONTRACT"''" You have been made an offer of"'"`";U;10 ;"to go in search of theTITANIC." WCɰ"8"'" We will claim 30% of any profityou make from this undertaking.":167 X" You must undertake to buy everygame YES! Software produce inthe next FIVE years." " NO further advance will be madeto you until you have discoveredthe sunken wreck."''" You are NOT allowed to acceptany additional financial backingfrom other persons." "'" DO YOU ACCEPT THIS CONTRACT" F8200 :Z$="N"'" I CANNOT ACCEPT YOUR CONTRACT":P2:105i $'" I HAVE ACCEPTED YOUR CONTRACT": .#Q;Q,Q;"PLEASE ENTER YOUR NAME":8600! %N$=R$:" Signed ";N$;"":P2 +N=Q:Y=Q:177:210:615g 0Q:Q::" SHOPPING LIST",:200 rBV=QT,Q;"NASA SATELLITE PHOTO [Infra Red photo shows all LARGE OBJECTS below the surface] COST `70000",,, ABV=RT,Q;"",," YOU ALREADY HAVE A NASA PHOTO",,,:186 8200 S=Q:Z$="Y"S="7E4" Z$="N"186 U8400 :QW=R$:S="QW*1500":U14TB<3)TB<3252 Z:IA=T1:IB=T2 Z:IC=T1:ID=T2 TC="1+(*3)" Z:IE=T1:IF=T2  "NT1="1+(*9*2)":T2="1+(*14*2)":"(T1>11T2<6)(T1<3T2>28)"290" # ,"X="17":Y=T+T:BQ=Q:BI=Q:DY=Q TQ:R: U$"" WZ=Q̰"17":"";"31";"":Z X$"" Y " ",, [R:T+T:R,29;" " \T,30;"" ]T+T:R ^12 ,R;"" _13 ,R;"" `14,R;"" a15,R;"" b16,R;"" c17,R;"P" d18,R;"" e 7:Q fH20,Q;"REPORT Nothing"'" PRESS: N,S,E,W,5,6,7,8,LQ " gP$="" h017,4;R;T+T;"P":BV=Q372t j3;R;E,F;"";IC,ID;"";IE,IF;"";IK,IL;"";IM,IN;"";IO,IP;"";IQ,IR;"";C,D;"";IA,IB;"";IG,IH;"";II,IJ;"";O,P;"";IE,IF;"";A,B;"";M,N;"";G,H;"";O,P;"";I,J;"";K,L;"" t Z="400" u Q$=:R vQ$="T"X=A:Y=B:Z w3(Q$="7"Q$="N")X>RX,Y;" ":X=X-R:P$="":Z x:(Q$="6"Q$="S")X<18X,Y;" ":X=X+R:P$="":Z y3(Q$="5"Q$="W")Y>RX,Y;" ":Y=Y-R:P$="":Z z:(Q$="8"Q$="E")Y<30X,Y;" ":Y=Y+R:P$="":Z |Q$="L"500:680 } Q$="Q"RST="340":8700! ~FT1=T1+R:T1=12 T1=Q:S$="(II)ss'(bb)(er)(ggg),W(or)'ni(ng).." X,Y;P$:100d:373u  X,Y;P$ I(X=AY=B)(X=CY=D)(X=EY=F)(X=GY=H)(X=IY=J)650:900 5(X=KY=L)(X=MY=N)(X=OY=P)650:800  _"(X=1Y=29)(X=2Y=30)(X=12Y=1)((X=13X=14)Y=2)((X=15X=16)Y=3)(X=18Y=5)"855W #"X=17Y=4"500:600X E(X=IAY=IB)(X=ICY=ID)(X=IEY=IF)650:800  "X=18Y=5"855W 5"(X=17Y=5)(X=16Y=4)"17,4;"P" 1"(X=17Y=3)(X=18Y=4)"650:1200 ;(X=IGY=IH)(X=IIY=IJ)(X=IKY=IL)650:800  BV=Q464 <(X=IMY=IN)(X=IOY=IP)(X=IQY=IR)650:1300  DY=DY+R DY=10 BW=BW-R:DY=Q BW=Q650:855W  360h Q:Q:7: R,10 ;"CAPTAINS LOG" !T,Q;" Capt. ";N$;32 T+R,Q;" INVENTORY " ;Q,Q:255,Q:Q,175:-255,Q:Q,-175 3,19;"CASH `";U 5,R;"FOOD&FUEL" Q,124|:254,Q 7,R;"SPARE PARTS&KITS" Q,108l:254,Q 9 ,R;"DIVING TEAMS" Q,92\:254,Q 11 ,R;"NASA PHOTOGRAPH" Q,76L:254,Q  145,76L:Q,75K #5,19;BW;" DAYS LEFT"  7,19;BR;" KIT(S)"  9 ,19;BT;"+EQUIP."  #11 ,19;BV;" ON BOARD"  X 1170 Y-14,R;"WELCOME BACK TO PORT. We hope" Z,15,R;"you had a safe journey back." [+16,R;"WHAT DO YOU WANT TO DO NOW?" \%17,3;"A) GO SHOPPING?" ])18,3;"B) CALL OFF SEARCH?" ^#19,3;"C) RETURNSEA" _ 20,R;" PRESS A,B or C" ` "8100" b)Z$="A"177:615g:340T cZ$="B"630v dZ$="C"340T e 608` f g500:1170 i(15,R;" YOU ARE CLEARED TO SAIL" j)16,R;" WHEN EVER YOU ARE READY." k#20,10 ;"GOOD LUCK!" l*18,R;"TO CAST OFF. PRESS ANY KEY" n "8100" o 300, p v14,Q,,,,,,,,,,,,,, w,Q,Q:Q,175:255,Q:Q,175 xT15,T;"NEVER MIND.. ";17,T;"Who wants to be rich any way.":863_ 620,Q;" MESSAGE IN CAPTAINS LOG",,,"" P2: '13 ,R;"ENGINEERS REPORT:" J14,3;"NOTHING TO REPORT.";15,R;"SONAR REPORT:" -16,3;"THE SCANNERS ARE CLEAR." $17,R;"DIVERS REPORT:" 9BT=Q18,3;"NO DIVERS ON BOARD":687 "18,3;"STANDING BY." 20,R;"PRESS ANY KEY"  8100  340T  500 %$13 ,R;"DAMAGE REPORT:" **15,R;"WE HAVE HIT AN ICEBERG":P1 +;BR=Q17,R;"WE HAVE NO MORE SPARES":P1:855W -b17,R;"THE DAMAGE CAN BE REPAIRED":BR=BR-R:P2:19,R;" REPAIRED ":P2:340T W:500:1176:P2 X=BW=Q14,R;"YOU HAVE RUN OUT OF SUPPLIES":859[ Z$14,R;" THE SHIP IS SINKING" [,15,R;" THE CREW HAS ABANDONED SHIP" _ 9000(# z :855W BT=Q500:903  908  1172 -15,R;"CAPTAIN. We may have found a " ,16,R;"wreck on the SCANNERS but we" ,17,R;"HAVEN'T ANY DIVERS ON BOARD." 918,R;"SO WE CANT STOP AND SEARCH":P2:340T FIN=R980 FIN=Q::500 .13 ,R;"MESSAGE FROM THE SPONSOR" ,15,R;"CONGRATULATIONS ON FINDING A" -16,R;"WRECK WE ARE GIVING YOU EXTRA" #17,R;"FINANCIAL HELP OF- " ?18,10 ;"`200000";19,10 ;"GOOD LUCK"  U=U+"2E5" 20,R;M$ P1:FIN=FIN+R  1180  500  1172 +14,R;"CAPTAIN. The LARGE wreck on" .15,R;"the SONAR could be the TITANIC" 16,R;"Shall we-" %17,R;" A)SEND DIVERS DOWN?" %18,R;" B)IGNORE IT.SEARCH" #20,R;"PLEASE PRESS A or B"  8100 Z$="A"DT="20":1020 Z$="B"340T  1008 4E3:1174 :14,R;M$:P2:14,R;"WE ARE NOW GOING DOWN." Y15,R;M$:P2:15,R;:">.5""WE ARE ON THE BOTTOM.ITS COLD.":1030 !"VERY DARK. WE NEED MORE LIGHT" A16,R;M$:P2:16,R;"WE ARE APPROACHING THE WRECK."  i17,R;M$:P2:17,R;"WE HAVEN'T FOUND ANYTHING TO":18,T;" IDENTIFY THIS WRECK YET."  J19,R;M$:P2:19,R;"WAIT!! WHAT'S THIS...":20,R;M$ P2:X=AY=B1110V g"4E3":17,R;"SUDDENLY YOU FEEL THE SEA MOVE";18,R;"FOLLOWED BY A SMALL EXPLOSION.":P1 BT=BT-R:"4E3" 313 ,R;"EMERGENCY RESCUE TEAM REPORT:" $.14,R;"The team of divers came across" )-15,R;"a Second World War ship. They" .,16,R;"must have found some type of" 3,17,R;"AMMUNITION which they failed" 8218,R;"to identify before it EXPLODED" =ZBT=Q19,R;"WE HAVEN'T ANY MORE DIVERS":P2:20,R;" SET A COURSE FOR HOME" BP1:P2:340T Vs4E3:17,R;"CONGRATULATIONS!!WE HAVE FOUND";19,R;" THE WRECK OF THE TITANIC..":RE=R:P1 `#8105:500:1174 e,14,R;"We are outside the wreck of " f-15,R;"the TITANIC it is to large to" g,16,R;"search in one dive, so which" h'17,R;"level shall we explore?" j.18,R;"A)UPPER. B)MIDDLE. C)LOWER" k"19,T+R;"D)CALL OFF DIVE." l 20,R;"ENTER A,B,C or D" o"8100":BS=R:LE=Q qZ$="A"AS="16":LE=R rZ$="B"AS="13":LE=T sZ$="C"AS=T+T:LE=T+R t&Z$="D"DT=Q:AS=T+T:P2:1150~ u LE"4999" v 1135o ~%BW=BW-R:500:BW=Q855W  1174 DT=QDT="20":1154 (15,R;"WE ARE NOW BACK ON BOARD" +16,R;"WHAT DO YOU WANT TO DO NEXT" Z17,3;"A)SEND DIVERS DOWN?":19,3;"B)SET SAIL ON A NEW COURSE?" ,20,R;"ENTER COMMAND A or B "  8100 Z$="A"BT=Q1157 !Z$="A"DT=20:1115[ !Z$="Q"RST="1150":8700! Z$="B"340T  1157 313 ,R;"MESSAGE FROM HARBOUR MASTER": %13 ,R;"SONAR REPORT:": &13 ,R;"DIVERS REPORT:": (13 ,R;"COMPUTER REPORT:": X=AY=B1182  981 RE1184  981 500:1172 +14,R;"WE ARE IN POSITION OVER THE" %15,R;"WRECK OF THE TITANIC."  1154 500:1176: -16,R;"AND YOU HAVE DAMAGED THE BOAT" '17,R;"BEYOND REPAIR!!":"9E3" 500:1172 ,14,R;"NASA.HAVE GOT THEIR HOMEWORK" .15,R;"WRONG!. That dark patch on the" -16,R;"map was a LARGE shoal of fish" *17,R;"swimming near the surface." ,18,R;"IT WAS A WASTE OF PROVISIONS" &19,R;"AND TIME GETTING HERE." P1:340T AV=13 20:V,R;" ":V: GT=Q *LI="21":NT=Q:ST=Q:ET=Q:WT=Q:"6E3" | LI="21" }>#0;Q,Q;"ENTER DIRECTION  N,S,EW. ":8100 ~ Z$="Q"RST="6E3":8700! l(Z$="N"NT=Q)(Z$="S"ST=Q)(Z$="E"ET=Q)(Z$="W"WT=Q)LI,R;"YOU CANNOT GO THROUGH A WALL.":5500| )Z$="N"(NT=RNT=T)AS=AS-R:6000p )Z$="S"(ST=RST=T)AS=AS+R:6000p )Z$="E"(ET=RET=T)BS=BS+R:6000p \(Z$="W"WT=3)(Z$="E"ET=3)LI,R;"YOU CANNOT OPEN THE PORTHOLES":5500| )Z$="W"(WT=RWT=T)BS=BS-R:6000p %Z$="W"WT=4BS=Q:6050  5500| p6001q:6050 q Q:Q:R: r"",, s'Q,28;"DT ";Q,30;DT tsDT=Q11 ,Q;" OUR AIR HAS GONE.......GOODBYE":P1:Q:7:BT=BT-R:500:1176:1154 u-7:Q,Q;"LEVEL:";Q,15;"SEC:" w15,Q;"",,,,,,,,,,,, x<Q,568:Q,111o:255,167:Q,-111o yBLI=15:P$=22+15+1+"LOCATION:" zR,29;"COM" |Q,6;:L$="UPPER" }LE=TL$="MIDDLE" ~LE=T+RL$="LOWER" ;L$;Q,19;:6:AS<8"STERN":6049 '"AS>7AS<13""MIDSHIPS":6049 "BOW"  07:NT=Q:ST=Q:ET=Q:WT=Q:BS=Q"1115" *LE=TCAS=TABS=TB7E3X:6555 DT=S17420 DT=S27440 DT=S37460$ DT=S474808 "7600+(*50)" ʔZ=7E3X:Z1=7020l:Z2=7040:Z3=7060:Z4=7080:Z5=7300:Z6=7350:Z7=7352:Z8=7354:Z9=7356 "(AS-1)*10+6100+BS":"6400" "WT=T+R:ET=R:Z:Z1:Z9:P$;C$: WT=R:ST=T:Z5:Z7: -ST=R:ET=R:Z:Z3:Z4:Z7:P$;"STORE ";D$: -WT=R:ET=R:Z:Z3:Z2:Z7:P$;"STORE ";D$: -WT=R:ET=R:Z:Z3:Z2:Z7:P$;"STAFF ";D$: ET=R:WT=R:ST=T:Z5:Z7: "ET=T+R:WT=R:Z:Z1:Z8:P$;C$: ,WT=T+R:ET=R:ST=R:Z:Z2:Z1:Z9:P$;C$: WT=R:NT=T:ST=T:Z5:Z7: 7NT=R:ST=R:ET=R:Z:Z2:Z4:Z3:Z8:P$;"STORE ";D$: "NT=T:ST=T:ET=R:WT=R:Z5:Z7: 2ST=R:WT=R:Z:Z2:Z4:Z9:P$;"STAFF QUARTERS": NT=T:ST=NT:ET=R:Z5:Z7: &ET=3:WT=R:Z:Z1:Z8:P$;C$: ,WT=T+R:ET=R:NT=R:Z:Z3:Z1:Z9:P$;C$: WT=R:NT=T:ET=R:Z5:Z7: -NT=R:WT=R:Z:Z3:Z4:Z6:P$;"RADIO ";D$: NT=T:Z5:Z7: 2NT=R:ET=R:Z:Z3:Z4:Z6:P$;"STAFF QUARTERS": "NT=T:ST=T:ET=R:WT=R:Z5:Z7: ,ST=R:ET=T+R:WT=R:Z:Z1:Z3:Z8:P$;C$:  ET=T:WT="4*(LE=3)":Z5:Z8: ST=BS:WT=ST:Z5:Z8: ET=T:Z5:Z8: ST=T:ET=ST:WT=ST:Z5:Z8: ST=R:ET=T:WT=ET:Z5:Z8: $NT=T:ST=NT:ET=R:WT=NT:Z5:Z8: ,NT=R:ET=T+R:WT=R:Z:Z1:Z2:Z8:P$;C$: %WT=T+R:ET=R:ST=R:Z:Z1:Z2:Z9: NT=BS:ST=NT:WT=R:Z5:Z7: jET=R:Z:Z4:Z8:7390:7392::6001q:7E3X:Z4:Z8:7390:P$;"SERVICE ";D$: NT=T:ST=NT:WT=R:Z5:Z7: /NT=R:ST=R:Z:Z2:Z3:Z8:P$;"STEWARD ";D$: NT=T:ST=T:ET=R:Z5:Z7: ,ST=R:ET=T+R:WT=R:Z:Z1:Z3:Z8:P$;C$: 0NT=R:ET=R:WT=3:Z:Z1:Z3:Z9:P$;C$: NT=BS:ST=NT:WT=R:Z5:Z7:  3ST=R:ET=R:Z:Z3:Z4:Z8:P$;"STEWARDS OFFICE":  NT=T:ST=NT:WT=R:Z5:Z7:  ,NT=R:ET=R:Z:Z2:Z4:Z8:P$;"POST ";D$:  NT=T:ST=NT:WT=R:Z5:Z7:  4NT=R:ST=R:ET=3:Z:Z1:Z2:Z3:Z8:P$;C$: ST=R:ET=T:Z5:Z8: NT=BS:ET=NT:WT=NT:Z5:Z7: NT=R:ET=T:WT=ET:Z5:Z8: NT=T:WT=NT:Z5:Z8: $ET=R:Z:Z4:Z8:P$;"NEWSAGENTS": NT=T:ET=R:WT=R:Z5:Z7: 0NT=R:WT=R:ET=3:Z:Z1:Z2:Z8:P$;C$: :NT=R:ST=R:ET=R:WT=3:Z:Z1:Z2:Z3:Z9:P$;C$: ST=BS:WT=R:Z5:Z7: (ET=R:Z:Z2:Z7:P$;"STAFF QUARTERS": ST=T:WT=R:Z5:Z9: #ET=R:Z:Z4:Z8:P$;"STORE ";D$:  ST=T:ET=R:WT=ET:Z5:Z7: !"ET=T+R:WT=R:Z:Z1:Z8:P$;C$: %0WT=T+R:ST=R:NT=R:Z:Z1:Z2:Z3:Z9:P$;C$: &NT=BS:ST=NT:ET=R:Z5:Z7: '-ET=R:WT=R:Z:Z2:Z3:Z6:P$;"STORE ";D$: (NT=T:ST=NT:WT=R:Z5:Z6: )jET=R:Z:Z4:Z8:7390:7392::6001q:7E3X:Z4:Z8:7390:P$;"SERVICE ";D$: *"NT=T:ST=T:ET=R:WT=R:Z5:Z7: +"ET=T+R:WT=R:Z:Z1:Z8:P$;C$: /,NT=R:ET=R:WT=T+R:Z:Z1:Z3:Z9:P$;C$: 0NT=T:ST=T:WT=R:Z5:Z7: 1%ET=R:Z:Z2:Z7:P$;"PAINT STORE": 2NT=T:ST=T:WT=R:Z5:Z6: 3ET=R:Z:Z4:Z8:P$;"BANK": 4"NT=T:ST=T:ET=R:WT=R:Z5:Z7: 5"ET=T+R:WT=R:Z:Z1:Z8:P$;C$: 9"ET=R:WT=T+R:Z:Z1:Z9:P$;C$: :NT=T:ST=T:WT=R:Z5:Z7: ;$ET=R:Z:Z4:Z8:P$;"GAMES ROOM": <NT=T:ST=T:WT=R:Z5:Z6: =*ET=R:Z:Z4:Z8:P$;"SAFE DEPOSIT ";D$: >NT=T:ET=R:WT=R:Z5:Z7: ?,ST=R:ET=T+R:WT=R:Z:Z1:Z3:Z8:P$;C$: C"ET=R:WT=T+R:Z:Z1:Z9:P$;C$: DNT=T:ST=T:WT=R:Z5:Z7: E(ET=R:Z:Z4:Z8:P$;"STAFF QUARTERS": F"NT=T:ST=T:ET=R:WT=R:Z5:Z6: G.ST=R:WT=R:Z:Z2:Z4:Z9:P$;"GAMES ROOM": HST=T:ET=R:Z5:Z7: I,NT=R:ET=T+R:WT=R:Z:Z1:Z2:Z8:P$;C$: M ET=T:WT="4*(LE=2)":Z5:Z8: N"NT=T:ST=T:ET=T:WT=T:Z5:Z8: OST=R:WT=T:ET=T:Z5:Z8: PNT=T:ST=T:WT=T:Z5:Z8: Q/NT=R:ET=R:Z:Z2:Z4:Z8:P$;"PRIVATE BAR": R"NT=T:ST=T:ET=R:WT=R:Z5:Z7: S,ST=R:ET=T+R:WT=R:Z:Z1:Z3:Z8:P$;C$: W"ET=R:WT=T+R:Z:Z1:Z9:P$;C$: XNT=BS:ET=R:WT=R:Z5:Z6: Y3NT=R:WT=R:Z:Z2:Z4:Z6:P$;"TELEGRAM OFFICE": ZNT=T:ET=T:Z5:Z6: [ET=T:WT=T:Z5:Z8: \NT=T:ET=R:WT=NT:Z5:Z7: ]6NT=R:ST=R:ET=T+R:WT=R:Z:Z1:Z2:Z3:Z8:P$;C$: a&ST=R:WT=T+R:Z:Z1:Z2:Z9:P$;C$: bST=BS:ET=R:Z5:Z7: cpET=R:WT=R:Z:Z2:Z3:Z7:7390:7392::6001q:Z:Z2:Z3:Z7:7390:P$;"SERVICE ";D$: dET=R:WT=R:ST=T:Z5:Z7: e-ET=R:WT=R:Z:Z2:Z3:Z7:P$;"STORE ";D$: fET=R:WT=R:ST=T:Z5:Z6: g,NT=R:ET=T+R:WT=R:Z:Z1:Z2:Z8:P$;C$: k&NT=R:ET=T:WT="4*(LE=R)":Z5:Z8: lNT=BS:WT=BS:Z5:Z8: m(ET=R:Z:Z2:Z7:P$;"STAFF QUARTERS": n"NT=T:ST=T:ET=R:WT=R:Z5:Z6: o"WT=R:Z:Z4:Z9:P$;"TEA ROOM": pNT=T:ET=R:Z5:Z7: q"ET=T+R:WT=R:Z:Z1:Z8:P$;C$: u"ET=R:WT=T+R:Z:Z1:Z9:P$;C$: vWT=R:ST=T:Z5:Z7: w*ST=R:ET=R:Z:Z3:Z4:Z8:P$;"OFFICE": xET=R:WT=R:NT=T:Z5:Z7: y-ET=R:WT=R:Z:Z2:Z3:Z7:P$;"STORE ";D$: zST=T:ET=R:WT=R:Z5:Z7: {"ET=T+R:WT=R:Z:Z1:Z8:P$;C$: %WT=T+R:ET=R:ST=R:Z:Z1:Z2:Z9: NT=T:WT=R:ST=T:Z5:Z7: 7ST=R:ET=R:NT=R:Z:Z2:Z3:Z4:Z8:P$;"STORE ";D$: ET=R:WT=R:ST=T:Z5:Z7: WT=R:ST=R:Z:Z9:Z2:Z4: ET=R:NT=T:Z5:Z7: "ET=T+R:WT=R:Z:Z1:Z8:P$;C$: ,NT=R:ET=R:WT=T+R:Z:Z1:Z3:Z9:P$;C$: NT=T:WT=R:ET=R:Z5:Z7: 0NT=R:WT=R:Z:Z2:Z4:Z6:P$;"PRINT OFFICE": NT=T:Z5:Z7: -NT=R:ET=R:Z:Z6:Z3:Z4:P$;"CHART ";D$: ET=R:WT=R:ST=T:Z5:Z7: "ET=T+R:WT=R:Z:Z1:Z8:P$;C$: ET=T:Z5:Z8: WT=T:ST=T:Z5:Z8: ET=T:Z5:Z8: ET=T:WT=T:ST=T:Z5:Z8: ET=T:WT=T:ST=R:Z5:Z8: "NT=T:ET=R:WT=T:ST=T:Z5:Z8: "ET=T+R:WT=R:Z:Z1:Z8:P$;C$: ,WT=T+R:ET=R:ST=R:Z:Z1:Z2:Z9:P$;C$: WT=R:NT=T:ST=T:Z5:Z8: ET=R:Z:Z4:Z8:P$;C$: WT=R:NT=T:ST=T:Z5:Z8: pST=R:NT=R:Z:Z2:Z3:Z8:7390:7392::6001q:Z:Z2:Z3:Z8:7390:P$;"SERVICE ";D$: NT=T:ET=R:ST=T:Z5:Z6: ,ET=T+R:WT=R:ST=R:Z:Z1:Z3:Z8:P$;C$: ,WT=T+R:ET=R:NT=R:Z:Z1:Z3:Z9:P$;C$: WT=R:NT=T:ST=T:Z5:Z8: #ET=R:ST=R:Z:Z2:Z9:P$;"GYM": WT=R:NT=T:ST=T:Z5:Z8: -NT=R:ET=R:Z:Z6:Z3:Z4:P$;"GAMES ";D$: NT=T:WT=R:ST=T:Z5:Z6: 0ET=T+R:NT=R:ST=R:Z:Z2:Z1:Z3:Z8:P$;C$: ET=T:ST=R:Z5:Z8: WT=T:ET=T:NT=T:Z5:Z8: WT=T:NT=R:ET=T:Z5:Z8: WT=T:NT=T:Z5:Z8: ET=R:Z:Z4:Z8:P$;C$: NT=T:ET=R:WT=R:Z5:Z6: ,ET=T+R:WT=R:NT=R:Z:Z1:Z2:Z8:P$;C$: &NT=R:WT=T+R:Z:Z1:Z3:Z9:P$;C$: 9R:7:16,R;:P$="NORTH":T1=NT:6460<  -17,R;:P$="SOUTH":T1=ST:6460< ,18,R;:P$="EAST":T1=ET:6460< ,19,R;:P$="WEST":T1=WT:6460< ( GT=GT+R * GT="8"DT=DT-R:GT=Q . "5500" <*T1=T+R"IN FRONT OF US IS A PORTHOLE": =#"TO THE ";P$;:T1=Q" IS A WALL" >T1=R" WE CAN SEE A DOOR" ?T1=T" IS A PASSAGE" @T1=T+T" IS AN EXIT HOLE" A !12 ,11 ;" " G 165,68D:-76L,Q:Q,69E:76L,Q:Q,-69E E93],71G:68D,Q:Q,63?:-68D,Q:Q,-63? A126~,71G:Q,63?:163,71G:Q,63?: 109m,105i,7  109m,95_:Q,20  99c,105i:20,Q 95_,119w:8,Q 95_,89Y:8,Q !102f,128:23,Q !102f,127:23,Q  102f,81Q:23,Q  102f,80P:23,Q /I=812 :I,16;" ":I -15,8;" CONGRATULATIONS " 16,Q;"YOU AND YOUR TEAM HAVE FOUND THE GOLD ON BOARD THE TITANIC. NOW! YOU HAVE ENOUGH MONEY TO BE ABLE TO RAISE THE TITANIC UNFORTUNELY THAT'S ANOTHER GAME"  P1:"9E3" Xe5:30,568:Q,110n:194,Q:Q,-110n:-194,Q:40(,15 \(224,568:-40(,15 ^(30,166:40(,-15 `i224,166:-40(,-15:Q,-79O:-112p,Q:Q,79O:112p,Q:7: lJT:128,125},11 :128,125},13 :7: S42*,65A:Q,70F:15,-5:Q,-60<:-15,-5 ?40(,60<:Q,78N:19,-7:Q,-64@ M44,,102f:Q,29:10 ,-3:Q,-26:-10 ,Q 557,99c:-R,Q: T212,65A:Q,70F:-15,-5:Q,-60<:15,-5 A214,60<:Q,78N:-19,-6:Q,-64@ M210,102f:-11 ,Q:Q,26:11 ,3:Q,-28 210,99c:-R,Q: O5:118v,74J:Q,480:20,Q:Q,-480:-20,Q 9116t,72H:Q,524:24,Q:Q,-524 I120x,102f:16,Q:Q,18:-16,Q:Q,-18: /8,4;"WE ARE IN A DARK PASSAGE" )R:30,568:70F,17 (224,568:-70F,17 (30,166:70F,-17 5224,166:-70F,-17:7: 2,30;"N": 2,30;"S": 2,30;"E": 2,30;"W": e7,11 ;"":91[,120x:5,5:5,-5:R:7: 16,R;"You have entered one of the";17,R;"service rooms on this level.";18,R;"On the wall in front of you is";19,R;"a floor plan showing this deck";20,T;"Do you wish to see the map?" "8200":Z$="Y"7400  5Q:Q:6::"" "V=R̰"15":"";"31";"":V $"" KR,11 ;"S.S.TITANIC";12 ,11 ;"FLOOR PLAN 1912" R:7:23,96`::Q,568:193,Q:Q,-568:-194,Q:216,152:30,-5:216,96`:30,5:23,96`:-13 ,T:23,152:-13 ,-T R:3,3;"___";T+T,R;"S _ __ __ __";5,R;"T _ ________ _ ____ B";6,R;"E _ __ _ O";7,R;"R _____ ____ ______ _ W";8,R;"N _ _ _" 3,3;"";4,4;"";4,9 ;"";4,13 ;" ";4,18;" ";4,25;"";5,3;"";6,3;" ";6,16;"";6,19;" ";6,25;"";7,3;"";8,5;"";8,9 ;"";8,16;" ";8,25;"";9 ,3;"" R:Q:13 ,T;"This is a floor plan of the";14,T;L$;7;" deck. It also shows";15,T;"the location of the plan ( )" #10 ,6;:LE=T"15"; LE=R"18"; "^";10 -BS,T+AS;R;" ";18,Q;"We are pointing to the position","of the hole we entered by.(^)",''"THE ROOM. Press R " "8100":Z$="R"  7416 L7:128,114r:106j,113q,T:150,113q,T ;64@,100d:64@,34":64@,-34" ;64@,100d:64@,-18:64@,18 !128,134:Q,30 94^,100d:34",-10 :34",10 :-34",10 :-34",-10 :95_,101e:T1=PNT P98b,89Y:-30,-15:150,89Y:30,-15 142,130:557,-6:30,30:-20,-35#:35#,-30:-45-,25:-24,-2:-32 ,18:150,128:T1=PNT h100d,101e:T,-3:T,3:T,-3:1,5:T,-5:T,5:T,-5:T,6:T,-5:T,6:T,-5:T,6:T,-5:T,6:T,-5:T,6:T,-6:T,5:T,-6:T,5:T,-6:T,5:T,-6:T,5:T,-6:T,5:T,-3:T,T:T,-3:T,T 102f,97a:T,R:T,-T:T,T:T,-3:T,T:T,-3:T,T:T,-3:T,T:T,-3:T,T:T,-3:T,T:T,-3:T,T+T:T,-2:T,T+R:T,-T:T,T+R:T,-T:T,T+R:T,-T:T,T+R:T,-R R:7:15,12 ;" DANGER "'"The diving team have come acrossan unexpected surprise","a GREAT WHITE shark!!.They are","doing combat.....", 8105:P1:20,Q;:COMȰ"8"7510V:" THE SHARK HAS KILLED THE TEAM!!":P1:BT=BT-R:500:1176:1154  q7500L:"THE TEAM HAVE KILLED THE SHARK";21,R;"We are continuing the search":P2:6000p R+T:T1=T+T:6,T1;"";7,T1;"";T1*T,T1;"";9 ,T1;"";10 ,T1;"";11 ,T1;"";12 ,T1;"";13 ,T1;"";14,T1;"" I32 ,568:Q,111o:192,Q:Q,-111o:-192,Q LT+T:40(,167:42*,-110n:60<,167:42*,-110n:557,160PNT:100d,167:42*,-110n:120x,167:42*,-110n:115s,160PNT:160,167:42*,-110n:180,167:42*,-110n:175,160PNT 90Z,90Z:34",13 :94^,80P:34",13 :130,140:34",13 :134,130:34",13 :154,80P:34",13 :158,70F:34",13 7:15,10 ;" EMERGENCY "'" The floor above has fallen on "," the diving team.We are waiting"," too see if the they are OK!!!",:P2 d19,Q;:8105:COM<"7"7500L:" THE DIVING TEAM HAS ESCAPED.. ":P2:"6E3" _"7510":" THE WHOLE TEAM WAS CRUSHED... ":P1:BT=BT-R:500:1176:1154 $T+T:Q:128,110n,502:6:90Z,120x:33!,15:5,-R:5,R:33!,-15 %_90Z,120x:R,-10 :-R,-10 :166,120x:-R,-10 :R,-10 &T90Z,100d:28,-30:10 ,R:10 ,-R:28,30 '7:119w,131:T,-10 :T,11 :132,132:T,-11 :T,10 :115s,75K:T,10 :T,-13 :136,72H:T,13 :T,-10 :132,140:T+T:T1=PNT (R:4,12 ;" ":124|,140:132,140:105i,140:105i,140,T:105i,140,3:150,140:150,140,T:150,140,3:Q )95_,70F:-30,-11 :3,6:28,5:160,70F:30,-11 :-3,6:-28,5 *160,150:95_,-15,-.55 :160,70F:95_,-15,-.95s333:166,75K:T1=PNT +d160,70F:1;Q,80P,1.7Y:R:7:15,12 ;" DANGER " ,}R:16,Q;"The diving team has just bumped"," into a CONGER EEL..";18,Q;"They must fight for their lives":P1 .j8105:19,Q;T;R;:COM<"8"7500L:" THE DIVERS HAVE KILLED THE EEL.":P2:6000p /`7510V:" THE WHOLE TEAM HAS BEEN KILLED.":P1:BT=BT-R:500:1176:1154 86:104h,128:104h,128,2:104h,128,3:149,128:149,128,2:149,128,3:2:112p,91[:142,91[:112p,91[,2:112p,91[,3:142,91[,2:142,91[,3:7:94^,91[:7,5:524,Q:7,-5:-7,-5:-524,Q:-7,5 9(6:80P,91[:T+T,5:7,5:10 ,3:26,R:26,-R:10 ,-3:7,-5:4,-5:-4,-5:-7,-5:-10 ,-3:-26,-R:-26,R:-10 ,3:-7,5:-4,5 :D83S,85U:-5,10 :-T,10 :10 ,10 :3,20:-R,10 :-5,-25:-10 ,25:-3,Q:-5,-7:-3,-10 :Q,-5:R,-13 :3,-3:3,-7:3,-15:5,-T:4,T:70F,140:T1=PNT ;F169,85U:5,10 :T,10 :-10 ,10 :-3,20:R,10 :5,-25:10 ,25:3,Q:5,-7:3,-10 :Q,-5:-R,-13 :-3,-3:-3,-7:-3,-15:-5,-T:-4,T:180,140:T1=PNT 185,95_:15,3:10 ,-15:-3,-25:-3,25:-6,8:-15,-3 ?~557,92\:-T,4:198,92\:T,4:43+,82R:4,-R:209,82R:-4,-R @r579,100d:-7,4:-24,-3:22,-3:70F,84T:-7,3 Ar195,100d:7,4:24,-3:-22,-3:182,84T:7,3 BQ64@,85U:-7,-10 :T,-15:T,12 :6,8 CT188,85U:7,-10 :-T,-15:-T,12 :-6,8 D260<,73I:-T,R:192,73I:T,R Em105i,125}:5,-25:148,125}:-5,-25:90Z,90Z:T1=PNT F.7:15,12 ;" DANGER " GyR:16,Q;"The diving team has come face","to face with an enormous CRAB!!","The crab attacks the divers.....":P1 Ih20,Q;:8105:COM<"8"7500L:"THE DIVERS HAVE KILLED THE CRAB.":P2:6000p Jb7510V:" THE WHOLE TEAM HAS BEEN KILLED.":P1:BT=BT-R:500:1176:1154  @V=Q100d:V: JV=Q40(:V: ""8100 Z$=:Z$=""8102  /COM="*10":S1="(*22)":S1=DT8105 "S2="(*22)":S2=DT8106 "S3="(*22)":S3=DT8107 "S4="(*22)":S4=DT8108  "#Q;Q,Q;"PLEASE PRESS YN " 8100 Z$="Y"Z$="N"85004!:  8200 n'8100:Z$<"0"Z$>"9"8302n p R$="" #0;R,Q;R$;"? " ,8100:Z$=13 ƱR$85004!: -Z$=12 ƱR$R$=R$(̱R$-R):8402 'R$>8Z$<"0"Z$>"9"8404 R$=R$+Z$:8402 !4"": !R$="" !##0;R,Q;"""";R$;"C"" " !,8100:Z$=13 ƱR$85004!: !-Z$=12 ƱR$R$=R$(̱R$-R):8602! !3R$>10 ((Z$<"A"Z$>"Z")Z$" ")8604! !R$=R$+Z$:8602! !E:10 ,Q;"DO YOU WISH TO SAVE THE GAME?":"8200":Z$="N"RST "u''"RELOAD TYPE:-"''"then"''""""":"""""''" DO NOT PRESS BREAK ";#0;"PRESS ANY KEY":8100 "{23613=\,Q:T1=(23641Y\+256*23642Z\)-23296[:"TITANIC_""A",168:"TITANIC"23552\,T1 "T1=24054]:RST #(P1:P1:R:R:7: #*PSAV=Q10 ,T;" DO YOU WANT TO PLAY AGAIN?":8200 :Z$="Y"10 #0J15,6;"Thank you for playing"''12 ;" TITANIC " #2P1:P1:P1:Q %"(AS-1)*10+6100+BS" '23613=\,0:T1=(23641Y\+256*23642Z\)-23296[:"TITANIC_""A",168:"TITANIC"23296[,T1 ' 10 '"TITANIC_""A": '8"TITANIC"9998':"TITANIC_""A",168 ?CTITANIC-The Adventure Begins  1986 YES! SOFTWARE. i:i ''23637U\+256*23638V\: $