TR?A! 6XD:\^!6=12345?,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 ;"`20";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\: @Jqrtynw ian\Iڢr5]#333M43MMHMJz?(83fMT>v[>~>~~ / 0?<<<$$$<<$$$<<<"DD"Ȉ<<<<  +!   @@ `@D@  $H@@@@@ B@ @@  D   @@ P@$?O@@`@@@A@? D @@  $H@$@@@`@@A@ D  $H@@@ P@@  @?E  $H@ @@ H@@ @@ 0C???~ @ $H@ @@ H@ @@@@  C  @ @@B   $H@@@@ D@  @@@ C  @ @@`0 @@@ $H@@@@ B@ @@  `B~@<BB>BB@B@B~|@BB@BBB@ZBD@B><<<~<<<@$BB~<GH( [s=\:S\( :!\>2:\v9# #  <@T2]\\\ g\f\'v]X|![!HX! ! 1ϡ~l^z5W 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