TMyO?Ry=v6D:\e6=12345@=MMZXWq0 !G P Pܱ3MayMpWy3wMRyMyT>v ><?1 ]]]pppJ,t.4R>w* ;]n40hܺv,|BB|DB<@<B<B<# <<~@8j<x . < @~< <<1B x<@@N@888DD8D-(Bh888@8@888B@88B8881B888x DD@@88@8xL B\>\%| >= 0123456789 (40( characters) !23658j\,8:4000  NEW GAME SET UP <ST=0:SU=0:MM=0:DC=0:MD=0 (FDD=44,+(11 SK=2):SS=3:S1=0:S=0 2 RESET 1 .5PP=5 F0A$(1)="   " P0A$(2)="  " Z0A$(3)=" " RESET 2 &1:1:7:0: IN=03:N,0;PP;" ":N UPP=0N=040(:Y=(*24)+151:X=(*255):X,Y:N CX=5:Y=0:M=0:P=-1:D=0:B=1 ?21,0;6;"" $900:L=(*5)+15 '#1;1,0;2;D$ X MAIN LOOP 6A$(1)=A$(1,2)+A$(1,1) 8A$(2)=A$(2,32 )+A$(2,31) 6A$(3)=A$(3,2)+A$(3,1) x8,0;7;A$(1);13 ,0;(ST+1);A$(2);L,0;(ST+2);A$(3)  800  W(63486)2551000:change 255 to 191 if you have an issue 3 Speccy M=01600@ M=11700 D=11100L  V(61438)255800 :change 255 to 191 if you have an issue 3 Speccy  300,  PRINT SHIP *3,B;PP;3;(" "DD0);(" "DD=0);0+(7PP=0);"";4,B;2;1;" ":B=B+1 4MB=263,B;PP;" ";4,B;1;" ":B=0 >  PRINT SCORES ETC a#1;0,0;6;0;"LOST:";MM;" D/C:";DD;" SHIPS :";SS;" SCORE:";S;" " AMM=(SK+1)*3M$=" HOME BASE DESTROYED ":2140\   CHARGE SET UP DD=0 RD=1:DD=DD-1:DC=DC+1:.01z# =,20:D=1X,Y;" " 3,B;PP;" ";2,B-1;3;"":.01z# =,25:2,B-1;PP;" ";3,B-2;3;"";3,B-2;" " %900:X=4:Y=B-1: L PRINT CHARGE V1X,Y;" ":.009ztj,-X:P=1X=X+1 `-X=20.1}L,-40(:D=0: j(X,Y)" "1500 ~0X,Y;3;(""P=-1);(""P=1) P=-P: x MISSILE DESTROYED MD=MD+1:S=S+3 pN=71-1:X1,Y1;1;N;"";X1+1,Y1;"";X1+2,Y1;"":.02{# =,0:N HX1,Y1;" ";X1+1,Y1;" ";X1+2,Y1;" ":D=0:M=0  900: (X,Y)=78N1400x  SUB DESTROYED 9OV=0:D=0:SU=SU+1:.1}L,40( <H=Y-5:J=Y+5:H<1OV=1:H=1 pXX=1+(1X=13 )+(2X=L):A$(XX,HJ)=" ":OV=1A$(XX,3032 )=" " 8X,Y-1;1;1;2;6;"" <S=S+(1X=8)+(2X=13 )+(3X=L) *S1=S1+1:S1=ST*72000 " 900: @ POSSIBLE LAUNCH? JYT=(*2):X1=0+(13 T=0)+(LT=1):Y1=(*24)+1 O@R=:R<0+(.66(SK=1)+(.83TzGSK=2) T(X1,Y1)=" "X1=0 ^C=1:X1=X1-2 hZX1+1,Y1;6;"":.08}# =,-20:X1,Y1;6;"";X1+1,Y1;"" rM=1:X1=X1-1  PRINT MISSILE 'X1+2,Y1;C;" ":X1=X1-.5 X1=31800 X1-11900l GX1,Y1;6;C;"";X1+1,Y1;"";X1+2,Y1;2;""   MISSILE BREAKS SURFACE 'Y1B-1Y1ST=3M$="MISSION COMPLETED":S=S+502:3000 0::502 4 SHIP DESTROYED >MD=MD+1:S=S+3 Hj23779\,1:N=160<:23769\:N:0:SS=SS-1:SS=03000 R 130 \D1,5;1;M$:N=0250:23792\:N  END OF GAME PRINT OUT M0:1:0:0::0,0;6;2;D$ h3,3;6;0;" MISSION OVER -";(" CADET "SK=2);(" ADMIRAL "SK=1) E5,1;7;0;" SUBS DEST LOST D/C " V7:N=717:N,1;7;" ":N X=0:Y=1 &N=717:X=SU3110& #N,Y;2;"":X=X+1 N:Y=Y+5:3080 &X=0:Y=12 0.N=7152:X=MD3160X :1N,Y;2;"";N+1,Y;"":X=X+1 DN:Y=Y+1:31200 NX=X+2:31200 XX=0:Y=19 b.N=7152:X=MM3200 l1N,Y;4;"";N+1,Y;"":X=X+1 vN:Y=Y+1:3170b X=0:Y=26 &N=717:X=DC3240 N,Y;3;"":X=X+1 N:Y=Y+1:3210 qK1=S*0.2679X:O=(DC-(SU+MD))/(SU+MD)^.5:K2=(20-(O*3)):K3=(20-MM):K4=(ST*6) K=(K1+K2+K3+K4) ?19,0;6;" SCORE : RATING : % " 419,11 ;1;S;19,25;K M#1;" MISSION :";2;1;("UN"SU20);"SUCCESSFUL" 0:  TITLE SCREEN &0:0:1:5: 'D$=" OCEAN DEFENCE " 00,0;0;7;1;D$ ȥ3,3;"Destroy the marauding subs with Depth Charges, while defending your Home Base from the Missiles they launch...!" 210 ,2;"D/Charges.Top Row/Left" 212 ,2;"Extra Knots....Top Row/Right" H21,0;7;0;" Written by D.Sheehan " .16,3;" Select Difficulty... " !:" 1) Admiral of the Fleet" " 2) Sea Cadet " .1}L,35#:557 ,SK=0+(1Ʀ="1")+(2Ʀ="2") "SK0 ,3N=35#34.45 -.02{# =:.02{# =,N:N 635#:4110 X GRAPHICS ENTRY ]B=65A:CODE "A" bN=(B*8)+64848P l1;"GRAPHIC ";B: vM=07 A:A N+M,A %M:.1}L,10 ::B=B+1 N=N+8:7020l @ SAVE ROUTINE J"OCEAN DEF"8040h T""GRAPHICS""A",17*8 ^ "":"" c h"": D OCEAN DEFENCE  d { =, #=p