Diver (X4!(Xy*XQDiver by Paul Caris from Sinclair User 29 (Aug.1984)Continuing our series of Cambridge Award programs we present Diver for the 48K Spectrum. Your task is to organise a salvage expedition and search wrecked ships to find treasure. Fearsome denizens of the deep threaten your survival. start with8500 x5:1:7::5,14;"DIVER";7,15;"BY";9 ,12 ;"PAUL CARIS":502 .125},5:.08}# =,5:.08}# =,10 :.08}# =,10 :.25~,10 :.125},12 :.375?,14 .08}# =,10 :.08}# =,12 :.08}# =,14:.08}# =,14:.08}# =,14:.25~,15:.125},14:.375?,12 y.125},9 :.25~,5:.125},9 :.25~,12 :.125},14:.375?,15 .08}# =,3:.08}# =,5:.25~,7:.125},5:.08}# =,3:.08}# =,2:.08}# =,0:.375?,-2 312 ,2;"DO YOU WANT INSTRUCTIONS? Y/N" ="y"8000@ "n"11 >z$=" " y=2000  q=0  5:2:0: (7;2,7;"DIVING SUPPLIES LTD";4,4;"AQUA-LUNG";4,26;"300";5,4;"FACE MASK";5,27;"20";6,4;"FLIPPERS";6,27;"20";7,4;"WET SUIT";7,26;"250";8,4;"HIRE OF YACHT";8,26;"300";9 ,4;"SPEAR GUN";9 ,26;"180";10 ,4;"KNIFE";10 ,27;"20";11 ,4;"TORCH";11 ,27;"20";13 ,4;"KEY QUANTITY REQUIRED";14,4;"YOU HAVE ";y;" DOLLARS" ((7;1;4,3;">" )d *ed=07;15,3;"YOU CANNOT DIVE WITHOUT AN AQUA-LUNG TRY AGAIN":400 ++d=015,3;z$:41) ,gd>47;15,3;"YOU CANNOT AFFORD MORE THAN 4 AQUA-LUNGS TRY AGAIN":400 -+d>415,3;z$:41) .2;4,3;" " /y=y-(d*300,) 0k7;14,4;"YOU HAVE ";y;" DOLLARS";(" "y<1000)+(" "y<100d)+(" "y<10 ) 2(7;1;5,3;">" 3e 4ae=07;15,3;"YOU CAN'T DIVE WITHOUT A FACE MASK TRY AGAIN":400 54e=02;15,3;z$:513 6uy-(e*20)<570:7;15,3;"YOU WILL BE UNABLE TO AFFORD OTHER GEAR TRY AGAIN":400 7Cy-(e*20)<570:2;15,3;z$:513 82;5,3;" " 9y=y-(e*20) :k7;14,4;"YOU HAVE ";y;" DOLLARS";(" "y<1000)+(" "y<100d)+(" "y<10 ) <(7;1;6,3;">" =f >ff=07;15,3;"YOU CAN'T DIVE WITHOUT WEARING FLIPPERS TRY AGAIN":400 ?4f=02;15,3;z$:61= @uy-(f*20)<550&7;15,3;"YOU WILL BE UNABLE TO AFFORD OTHER GEAR TRY AGAIN":400 ACy-(f*20)<550&2;15,3;z$:61= B2;6,3;" " Cy=y-(f*20) Dk7;14,4;"YOU HAVE ";y;" DOLLARS";(" "y<1000)+(" "y<100d)+(" "y<10 ) F(7;1;7,3;">" Gg H`g=07;15,3;"YOU CAN'T DIVE WITHOUT A WET SUIT TRY AGAIN":400 I4g=02;15,3;z$:71G Jvy-(g*250)<300,7;15,3;"YOU WILL BE UNABLE TO AFFORD YACHT HIRE TRY AGAIN":400 KDy-(g*250)<300,2;15,3;z$:71G L2;7,3;" " My=y-(g*250) Nk7;14,4;"YOU HAVE ";y;" DOLLARS";(" "y<1000)+(" "y<100d)+(" "y<10 ) P(7;1;8,3;">" Qh Rhh=07;15,3;"YOU NEED A YACHT TO REACH THE DIVING AREA TRY AGAIN":400 S4h=02;15,3;z$:81Q TWh>17;15,3;"YOU'LL ONLY NEED 1 YACHT TRY AGAIN":400 U4h>12;15,3;z$:81Q V2;8,3;" " Wy=y-300, Xk7;14,4;"YOU HAVE ";y;" DOLLARS";(" "y<1000)+(" "y<100d)+(" "y<10 ) Z(7;1;9 ,3;">" [i \`y-(i*180)<07;15,3;"YOU CAN'T AFFORD IT TRY AGAIN":400 ]By-(i*180)<02;15,3;z$:91[ ^2;9 ,3;" " _y=y-(i*180) `k7;14,4;"YOU HAVE ";y;" DOLLARS";(" "y<1000)+(" "y<100d)+(" "y<10 ) d)7;1;10 ,3;">" ej f_y-(j*20)<07;15,3;"YOU CAN'T AFFORD IT TRY AGAIN":400 gBy-(j*20)<02;15,3;z$:101e h 2;10 ,3;" " iy=y-(j*20) jk7;14,4;"YOU HAVE ";y;" DOLLARS";(" "y<1000)+(" "y<100d)+(" "y<10 ) ki1=i*6 n27;0;1;11 ,3;">" ok p_y-(k*20)<07;15,3;"YOU CAN'T AFFORD IT TRY AGAIN":400 qBy-(k*20)<02;15,3;z$:111o r 2;11 ,3;" " sy=y-(k*20) tv7;14,4;"YOU HAVE ";y;" DOLLARS";(" "y<1000)+(" "y<100d)+(" "y<10 ):100d u v 950 x)m$"n"m$"s"m$"e"m$"w"1175 y(l>1m$="n")(l<7m$="n")6;0;20,0;"YOU CAN'T GO THAT WAY TRY AGAIN (S,E,W)":21,7;Z$(23):200:20,0;z$;z$(7):q=q+1:1170 zl=1m$="n"l=1m$="w"6;0;20,0;"YOU CAN'T GO THAT WAY TRY AGAIN (S,E)":21,6;Z$(24):200:20,0;z$;z$(7):q=q+1:1170 {l=7m$="n"l=7m$="e"6;0;20,0;"YOU CAN'T GO THAT WAY TRY AGAIN (S,W)":21,6;Z$(24):200:20,0;z$;z$(7):q=q+1:1170 |l=8m$="w"l=15m$="w"l=22m$="w"l=29m$="w"l=36$m$="w"6;0;20,0;"YOU CAN'T GO THAT WAY TRY AGAIN (N,S,E)":21,7;Z$(23):200:20,0;z$;z$(7):q=q+1:1170 }l=43+m$="s"l=43+m$="w"6;0;20,0;"YOU CAN'T GO THAT WAY TRY AGAIN (N,E)":21,7;Z$(24):200:20,0;z$;z$(7):q=q+1:1170 ~l=14m$="e"l=21m$="e"l=28m$="e"l=35#m$="e"l=42*m$="e"6;0;20,0;"YOU CAN'T GO THAT WAY TRY AGAIN (N,S,W)":21,7;Z$(23):200:20,0;z$;z$(7):q=q+1:1170 l=491m$="s"l=491m$="e"6;0;20,0;"YOU CAN'T GO THAT WAY TRY AGAIN (N,W)":21,7;Z$(24):200:20,0;z$;z$(7):q=q+1:1170 l>43+l<491m$="s"6;0;20,0;"YOU CAN'T GO THAT WAY TRY AGAIN (N,E,W)":21,7;Z$(23):200:20,0;z$;z$(7):q=q+1:1170 m$="n"l=l-7 m$="s"l=l+7 m$="e"l=l+1 m$="w"l=l-1 l=37%300, Cs$="A GIANT SQUIDA SHARKAN OCTOPUSA HUGE ELECTRIC EELA MANTA RAY" o=(*10 )+1  (o<62:2:7: @o=11;5,10 ;s$(13 ):500 Ho=21;5,10 ;s$(1420):500 Ho=31;5,10 ;s$(2130):500 Ho=41;5,10 ;s$(31491):500 @o=51;5,10 ;s$(502):500 Ao>54:4::5,10 ;"NOTHING HERE" 1151 ,7:5:0: 6J6;20,0;z$(32 );21,0;z$(32 ) @0;14,3;z$(26);15,4;z$(24);16,4;z$(23);17,4;z$(22) J*2;18,4;z$(21) T*2;19,5;z$(19) Yf0;14,29;"";15,28;"";16,27;"";17,26;"" Z82;18,25;"";19,24;"" ^a=4262 h&0;7;14,a;"":a r>7;13 ,3;"";13 ,25;"" |j7;11 ,8;z$(10 );12 ,7;z$(18);13 ,7;z$(18) P7;11 ,8;"..........";12 ,7;".................." ]9 ,9 ;"";9 ,13 ;"";10 ,9 ;"";10 ,13 ;"" 77;8,9 ;" ";8,13 ;" " a6;0;20,8;"THE TREASURE SHIP";21,8;"PRESS""e"" TO ENTER" "e"410  3000 ]8,10 ;"WILL YOU (R)UN";10 ,19;"(F)IGHT";12 ,19;"(H)IDE" a$ !a$"r"a$"f"a$"h"505  a$="f"530 a$="h"600X  a$="r"m=(*6)+1 *m=4m=5m=6590N  Z7,3;"NO CHANCE,THE BEAST HAS YOU CORNERED,NOW YOU MUST FIGHT":150: Mi>08,2;"YOU FIRE YOUR SPEAR GUN":150:533 i=0550& Zi1=09 ,2;"NOTHING HAPPENS,YOU ARE OUT OF AMMO":150:549% m=(*6)+1 i1=i1-1 Rm<59 ,2;"GOOD SHOT THE BEAST IS DEAD":100d:1151 !Gm>49 ,2;"YOU MISSED,NO TIME TO RELOAD":150 % &?j>010 ,2;"YOU DRAW YOUR KNIFE":150 +[j=010 ,2;"YOU TRY IN VAIN TO FIGHT BARE HANDED":150:585I / 0m=(*6)+1 5Sm>411 ,2;"YOU LUNGE KILLING THE BEAST":100d:1151 :\11 ,2;"YOUR LUNGE MISSES";12 ,2;"THE BEAST ATTACKS....":150 ?m=(*6)+1 DKm>413 ,2;"YOU EVADE THE ATTACK":150:559/ It13 ,2;"THE BEAST STRIKES.YOUR LIFE FLASHES BY IN FRONT OF YOU.YOU ARE DEAD.":200:700 NW13 ,2;"THE BEAST GOES IN SEARCH OF EASIER GAME":100d:1151 Xm=(*6)+1 ]m<5525  b10 ,2;"YOU HIDE BEHIND SOME ROCKS ON THE SEA BED";12 ,2;"THE BEAST PASSES BY":100d:1151 0:0:7: 28,2;"DO YOU WANT ANOTHER GAME Y/N?" b$ b$="y"1 3b$="n"17,13 ;"GOODBYE":200: 0:0:7: j5,3;"YOU NOW HAVE ALL THE ITEMS NECESSARY TO CONTINUE. YOU ALSO HAVE ";y;" DOLLARS LEFT." Ř8,3;"YOU ARE TAKEN IN YOUR HIRED YACHT INTO THE CENTRE OF THE DIVING AREA. YOU DON YOUR DIVINGGEAR AND PREPARE TO ENTER THE WATER." 021,3;"PRESS D TO ENTER THE WATER" "d"980  7:5:0:  l=25 [a$=" ":6;20,0;a$;21,0;a$ x=018 $)x,15;"";x+1,15;"" 8.5,4 L)x,15;" ";x+1,15;" " `x t19,15;"" ~46;0;20,3;"NOTHING HERE" Sl=16;0;21,3;"WHICH DIRECTION S/E?":1170 _l>1l<76;0;21,3;"WHICH DIRECTION S/E/W?":1170 Sl=76;0;21,3;"WHICH DIRECTION S/W?":1170 vl=8l=15l=29l=36$6;0;21,3;"WHICH DIRECTION N/S/E?":1170 l=14l=21l=28l=35#l=42*6;0;21,3;"WHICH DIRECTION N/S/W?":1170 al>43+l<4916;0;21,3;"WHICH DIRECTION N/E/W?":1170 Tl=43+6;0;21,3;"WHICH DIRECTION N/E?":1170 Tl=4916;0;21,3;"WHICH DIRECTION N/W?":1170 @6;0;21,3;"WHICH DIRECTION N/S/E/W?" q=22000 m$  120x  5:5:0: 4,3;"A GOVERNMENT PATROL VESSEL HAS PICKED YOU UP ON ITS SONAR, TRYING TO EXPLORE OUTSIDE YOUR DESIGNATED AREA. THEY DESPATCH TWO DIVERS TO ARREST YOU AND BRING YOU UP FOR QUESTIONING.":400 ߖ10 ,3;"THEY LET YOU OFF WITH JUST A CAUTION. HOWEVER THEIR ROUGH WAYOF HANDLING YOU HAS DAMAGED YOURAQUA-LUNG BEYOND REPAIR.":400  d=d-1 d>014,3;"YOU RETURN TO YOUR SHIP AND STRAP ON A SPARE. TO DIVE IN ANDRESUME YOUR SEARCH PRESS ANY KEY":0:q=0:999 m14,3;"YOU RETURN TO YOUR SHIP AND SEND FOR A SPARE. THE PRICE IS 500 DOLLARS WITH DELIVERY."  400: y-500<06,3;"YOU CAN'T AFFORD IT.YOU MIGHTAS WELL GO HOME.";15,3;"BETTER LUCK NEXT TIME":400:700 6,3;"AN AQUA-LUNG ARRIVES AND YOU STRAP IT ON. TO DIVE IN AND RESUME YOUR SEARCH PRESS ANY KEY":0:q=0:y=y-500:999  5:5:0: p=0 a1,3;"YOU ENTER THE SHIP THROUGH AN OPEN PORTHOLE AMIDSHIPS ON THE STARBOARD SIDE." k=03050 x4,3;"YOU ARE IN A LARGE STATEROOM.IT IS EMPTY SAVE FOR SOME BROKENFURNITURE.YOU CLEAR THE WRECKAGEFROM THE DOOR AND GO THROUGH TO A LONG CORRIDOR WHICH STRETCHES THE FULL LENGTH OF THE SHIP. TO YOUR FAR LEFT IS A STAIRWAY UP. TO YOUR FAR RIGHT IS ONE GOING DOWN. ON BOTH SIDES OF YOU ARE THE DOORS TO STATEROOMS.";21,3;"PRESS ANY KEY TO CONTINUE" 0::3200 U4,3;"YOU ARE IN A DARK ROOM. YOU TRY TO FEEL YOUR WAY FORWARD BUTTHE ROOM IS FULL OF WRECKAGE ANDUNFORTUNATELY YOU NEGLECTED TO BUY YOURSELF A TORCH. OBVIOUSLY IT IS USELESS TO GO ON.";10 ,3;"YOU RETURN TO YOUR SHIP AND RADIO ASHORE FOR A TORCH TO BE SENT TO YOU.";21,3;"PRESS ANY KEY TO CONTINUE" 0: O6,3;"A TORCH ARRIVES. FOR SPECIAL DELIVERY THE PRICE IS DOUBLE." y<40(3085 z8,3;"YOU TAKE THE NEW TORCH AND DIVE BACK IN THE WATER.":y=y-40(:k=k+1:400:999 8,3;"YOU CAN'T AFFORD IT.YOU MIGHTAS WELL GO HOME.";15,3;"BETTER LUCK NEXT TIME.":400::700 7:7: a=0255 6a,175:a,120x:a,104h:a,480:a b=120x175 A0,b:63?,b:127,b:191,b:255,b:b b=480104h A0,b:63?,b:127,b:191,b:255,b:b 3a=104h120x:b=0162 b,a:b:a 6a=104h120x:b=2402552 b,a:b:a k1,1;"S/ROOM";1,9 ;"S/ROOM";1,17;"S/ROOM";1,25;"S/ROOM" X3,3;"1";3,11 ;"3";3,19;"5";3,27;"7" o10 ,1;"S/ROOM";10 ,9 ;"S/ROOM";10 ,17;"S/ROOM";10 ,25;"S/ROOM" \12 ,3;"2";12 ,11 ;"4";12 ,19;"6";12 ,27;"8" >a=4288:6,a;" ";8,a;" ":a լ17,3;"YOU ARE STANDING IN THE LONG CORRIDOR JUST OUTSIDE STATEROOM6";20,0;"TO ENTER A STATEROOM KEY ITS No.TO GO UP KEY""u""TO GO DOWN KEY""d""" b$ Sb$"u"b$"d"b$"1"b$"2"b$"3"b$"4"b$"5"b$"6"b$"7"b$"8"3290 b$="d"5000 b$="u"17,3;"YOU TRY THE STAIRWAY TO YOUR LEFT BUT FIND IT BLOCKED. YOU DECIDE TO STAY BELOW AND SEARCH.":3290 ub$="6"17,3;"YOU HAVE JUST COME OUT OF THERE. TRY SOMEWHERE ELSE. ";z$(32 ):3290 zb$="1"b$="2"b$="4"b$="5"b$="7"b$="8"17,3;" AN EMPTY ROOM ";z$;z$(9 ):3290 p=13350 Mb$="3"17,3;"AMID THE BROKEN GLASS AND SMASHED FURNITURE YOU FIND A WOMAN'S HANDBAG.INSIDE IT THERE IS A STOUT LOOKING KEY. ";z$(32 ):400:17,3;"IF YOU WISH TO TAKE THE KEY YOU MUST LEAVE YOUR SPEARGUN IF YOU HAVE ONE. PRESS""Y"" TO DO THIS OR ""N"" IF YOU DON'T WANT THE KEY" c$:c$"y"c$"n"3335 k17,3;z$;z$(38&);"TO ENTER A STATEROOM KEY ITS No.TO GO UP KEY""u""TO GO DOWN KEY""d""" c$="n"3290 "i=0:p=1:3290 17,3;" AN EMPTY ROOM ";z$;z$(9 );"TO ENTER A STATEROOM KEY ITS No.TO GO UP KEY""u"" TO GO DOWN KEY""d""":3290  o4,3;"YOU ARE NOW IN THE BOWELS OF THE SHIP. YOU ARE STANDING AT THE BOTTOM OF THE STAIRWAY IN HOLD B. ALL AROUND YOU IS BROKENWOOD FROM PACKING CASES. RUSTINGCARS LIE TETHERED TO THE FLOOR. A QUICK CHECK AROUND SHOWS LITTLE OF ANY VALUE. IN FRONT OFYOU IS AN OPEN DOORWAY LEADING TO ANOTHER HOLD";21,3;"PRESS ANY KEY TO CONTINUE" =""5012  6000p  5:5:0:  5,3;"YOU ARE NOW IN HOLD A, THE DARKEST PLACE IN THE SHIP. YOU FLASH YOUR TORCH ALL AROUND YOU.ALL YOU SEE IS WRECKAGE. THEN,ASYOU ARE ABOUT TO GIVE UP YOU SEEA SIGHT WHICH CAUSES YOUR HEART TO SKIP A BEAT.";21,4;"PRESS ANY KEY TO SEE IT"  0 | 0:0: a=616 #3;a,8;z$(16) a 6;0;6,8;"o";6,23;"o";7,8;"oooooooooooooooo";8,8;"oooooooooooooooo" Ia=9 15:6;0;a,8;"o";a,23;"o":a 86;0;16,8;"oooooooooooooooo" *3;0;10 ,15;"" /a=63?191:0;a,111o:a e7;18,8;"A TREASURE CHEST";21,4;"PRESS ANY KEY TO OPEN IT":0 p=07;17,10 ;"IT IS LOCKED";18,8;z$(16);19,3;"YOU MUST SEARCH FOR THE KEY";21,0;"PRESS""u""TO SEARCH THE STATEROOMS":0:3200 ֌7;18,2;"YOU PUT YOUR KEY IN THE LOCK";20,7;"YOU TURN IT AND...";21,0;z$(32 ):502 a=65-1 `6;0;a,8;"oooooooooooooooo";a+1,8;"o";a+1,23;"o" C2;7;1;a+1,9 ;"":a  400  5:7: x=0703 a=(*8)  a;" ";:x  j1;6,9 ;"CONGRATULATIONS";15,1;"DO YOU WANT ANOTHER GAME? Y/N":715 p za=0255 a,480:a,175:a a=480175 (0,a:128,a:255,a:a b7,5;"HOLD A";7,21;"HOLD B";1,16;" ";2,16;" " 6a=104h120x:b=2402552  b,a:b:a _20,3;"TO EXAMINE HOLD A ENTER""a""";21,5;"TO GO BACK UP ENTER""u""" b$ b$="u"3200 b$="a"5020  6060 ? @ J0:0:7: Ty2;"WELCOME TO DIVER.A SHIP HAS SUNK SOMEWHERE OFF THE COAST OF A SMALL SOUTH AMERICAN REPUBLIC.THE SHIP IS KNOWN TO HAVE BEEN CARRYING VAST TREASURE.YOUR TASKIS TO DIVE AND FIND THE TREASUREYOUR RESEARCHES INDICATE THE MOST LIKELY AREA TO SEARCH AND PERMISSION HAS BEEN GIVEN TO YOUTO SEARCH THAT AREA,BUT FOR REASONS OF NATIONAL SECURITY YOUMUST NOT STRAY OUT OF THAT AREA. FIRST YOU MUST BUY DIVING GEAR.YOU HAVE AT YOUR DISPOSAL 2000 DOLLARS LOCAL CURRENCY. YOU WILL THEN BE TRANSPORTED TO THE CENTRE OF YOUR SEARCH AREA.DURING THE COURSE OF THE GAME VARIOUS HAZARDS WILL TEST YOUR RESOURCE." ^/21,4;"PRESS ANY KEY TO CONTINUE" h=""8040h r |3,0;" ON-SCREEN PROMPTS WILL HELP YOU MAKE THE CORRECT INPUT.IT ISSTRONGLY SUGGESTED THAT YOU DRAWA MAP TO AVOID SEARCHING THE SAME AREA AGAIN AND AGAIN. GOOD LUCK" /21,4;"PRESS ANY KEY TO CONTINUE" =""8080   13 !41:1:7: !>7,14;"DIVER" !H910 ,0;"Please wait while graphics load" #(9a=00101000(:b=001110008:c=01000100D #2x=18:p$ #<n=07 #F a:p$+n,a #Pn #Zx #d#"A",01101100l,a,a,a,a,b,b,b #n="B",b,01111100|,01010100T,c,c,c,0,0 #xU"C",0,0,0,01111111,01000000@,0,0,0 #e"D",0,01110000p,11111000,11110000,00011111,0,0,0 #m"E",0,0,0,11111111,10000001,11111111,10000001,11111111 #"F",11111111,11111110,11111100,11111000,11110000,11100000,11000000,10000000 #}"G",0,00001110,00001110,00000100,00000100,00001110,00011111,00011111 #"H",00011101,10001000,01000111G,11101010,00010001,11101010,01011100\,10101010 # 1 Y