ZXTape! 2a SEA BATTLES #ATLANTIS / ZAFIRO SOFTWARE DIVISION1987ENGLISHSTRATEGYNONE M-14599-1987SEA BATTLE`MQbSEA BATTLE LOADER "CODE""a" #(6:6:6: #2: 0,0;" " #<(" " #F," " #P/4,4;"ZX SPECTRUM GAMES FROM" #Z68,1;" " #d49 ,1;" " #n710 ,1;" " #x711 ,1;" " #712 ,1;" " ##15,11 ;"SOFTWARE" #:19,0;" " #(" " #(" " #$A=130:.05|L,A:A #16,0;" " '"Sea Battle" #eCODE XMD"??Sea Battle=R=R\?R0:6:6::23659k\,0:21,0;:"":6:21,0;:"":21,0;:"":21,0;:"":21,0;:"":23659k\,2 160899:23658j\,8:3000 :  :7 f="":0:1:2:3:4:5:6:7:60899:5  60899 !SEARCH=0:GN=8100:J=0:K=0:RUN=6:HQ=3:ACK=5:HIT=0:ATT=0:EAC=1:EB=2:EC=3:ED=4:ES=5:EHIT=0:sound=0:ch=0:RUNX=2:AC=1:B=2:C=3:D=4:S=5 ERUNX=2:EHQ=3:ERUN=6:EAA=5:EACX=5:EBX=8:ECX=9 :EDX=8:ESX=5:ACX=5:BX=8:CX=9 :DX=8:SX=5 d$(25,30) e$(25,30) f$(25,30) 2P:23692\,2:N=121:E$(N)=" ":N F7n=120:n,5;e$(n,525) JN<10 N,4;N KN>9 N,3;N ON P)0,5;"ABCDEFGHIJKLMNOPQRST" s 120x t 200 xE400:l$:n=13:4;0+n,5;l$:n }J4;4,5;"";7;"";4;"" /410::l$:4;5,17;l$ C415:l$:4;6,18;l$;7,18;l$ C420:l$:4;8,20;l$;9 ,20;l$ C420:l$:4;10 ,8;l$;12 ,9 ;l$ G415:l$:4;11 ,7;l$;13 ,10 ;""  ""  ""  ""  "" X*A$(3):"ENTER A. C. POSITION. ";A$ ZF(A$(1)>84TůA$(1)<65A)5500|:600X [(A$(2)>579ůA$(1)<480A$(2)=" "ůA$(3)>579(A$(3)<480ƯA$(3)32 ))5500|:600X ] 8000@ ^/(X>20X<1)5500|:600X _MN=04:(E$(X,Y+N)""ū(X,Y+N)568)5500|:600X `N a?9600%:N=04:Z$:E$(X,Y+N)=Z$:X,Y+N;Z$:N b q=0 c"ENTER B. S. POSITION. ";A$ dF(A$(1)>84TůA$(1)<65A)5500|:611c e(A$(2)>579ůA$(1)<480A$(2)=" "ůA$(3)>579(A$(3)<480ƯA$(3)32 ))5500|:611c f 8000@ g/(X>20X<1)5500|:611c hMN=03:(E$(X,Y+N)""ū(X,Y+N)568)5500|:611c iN j?9610%:N=03:Z$:E$(X,Y+N)=Z$:X,Y+N;Z$:N l#q=q+1:q<2611c u q=0 v"ENTER C. POSITION. ";A$ wF(A$(1)>84TůA$(1)<65A)5500|:630v x(A$(2)>579ůA$(1)<480A$(2)=" "ůA$(3)>579(A$(3)<480ƯA$(3)32 ))5500|:630v y 8000@ z/(X>20X<1)5500|:630v {MN=02:(E$(X,Y+N)""ū(X,Y+N)568)5500|:630v |N ~?9920&:N=02:Z$:E$(X,Y+N)=Z$:X,Y+N;Z$:N #q=q+1:q<3630v  q=0 "ENTER D. POSITION. ";A$ F(A$(1)>84TůA$(1)<65A)5500|:655 (A$(2)>579ůA$(1)<480A$(2)=" "ůA$(3)>579(A$(3)<480ƯA$(3)32 ))5500|:655  8000@ /(X>20X<1)5500|:655 MN=01:(E$(X,Y+N)""ū(X,Y+N)568)5500|:655 N ?9930&:N=01:Z$:E$(X,Y+N)=Z$:X,Y+N;Z$:N #q=q+1:q<4655  q=0 "ENTER S. POSITION. ";A$ F(A$(1)>84TůA$(1)<65A)5500|:700 (A$(2)>579ůA$(1)<480A$(2)=" "ůA$(3)>579(A$(3)<480ƯA$(3)32 ))5500|:700  8000@ /(X>20X<1)5500|:700 6(E$(X,Y)""ū(X,Y)568)5500|:700 %9940&:Z$:E$(X,Y)=Z$:X,Y;Z$ #q=q+1:q<5700 #N=17:10 :N:N "ENTER HQ POSITION. ";A$ F(A$(1)>84TůA$(1)<65A)5500|:750 (A$(2)>579ůA$(1)<480A$(2)=" "ůA$(3)>579(A$(3)<480ƯA$(3)32 ))5500|:750  8000@ /(X>20X<1)5500|:750 yN=01:(E$(X,Y+N)""ū(X,Y+N)32 ū(X+1,Y)32 E$(X+1,Y)"")5500|:750 N dn=01:9950&:Z$:E$(X,Y+N)=Z$:X,Y+N;Z$:N:e$(x+1,y)=z$:x+1,y;z$  q=0 "ENTER RUNWAY POSITION. ";A$ F(A$(1)>84TůA$(1)<65A)5500|:760 (A$(2)>579ůA$(1)<480A$(2)=" "ůA$(3)>579(A$(3)<480ƯA$(3)32 ))5500|:760  8000@ /(X>20X<1)5500|:754 MN=02:(E$(X,Y+N)""ū(X,Y+N)32 )5500|:760 N ?n=02:9960&:Z$:E$(X,Y+N)=Z$:X,Y+N;Z$:N #q=q+1:q<2760  Q=0  "ENTER ACK-ACK POSITION. ";A$  F(A$(1)>84TůA$(1)<65A)5500|:780  (A$(2)>579ůA$(1)<480A$(2)=" "ůA$(3)>579(A$(3)<480ƯA$(3)32 ))5500|:780   8000@ /(X>20X<1)5500|:780  6(E$(X,Y)""ū(X,Y)32 )5500|:780  H9970&:Z$:E$(X,Y)=Z$:X,Y;Z$:Q=Q+1:Q<5780  :#0;"Do you want sound effects? (Y/N)":0:"" =89Ysound=1  6000p *+8204:1000:SEARCH=1GN +2R=(*20)+1:M=(*20)+5 ,E$(R,M)="*"811+ -EE$(R,M)=""0,1;" ";1,1;" ":811+ .A((R,M)=32 hq=0run=0ack=0)811+ /Q((R,M)=568AC=0B=0c=0D=0S=0)811+ 01,1;R 1)pos=60<+m:0,1;(pos) 3 830> 42,26;"AC= ";AC;4,26;"B = ";B;6,26;"C = ";C;8,26;"D = ";D;10 ,26;"S = ";S;14,26;"HQ= ";HQ;15,26;"AA= ";ACK;16,26;"R = ";RUNX 90,26;"AT SEA" :12 ,26;"LAND" ;S20,31;" ";20,26;"HIT=";HIT;18,26;"AT=";ATT < >900:845M M:E$(R,M)="*"0,1;" ";1,1;" " Ee$(r,m)=""9990':e$(r,m)="":r,m;"":30:948  948 (E$(R,M)=""e$(r,m)=""e$(r,m)=""e$(r,m)="")hit=hit+1:9300T$:E$(R,M)="*":BX=BX-1:R,M;"*":SEARCH=1 (E$(R,M)=""e$(r,m)=""e$(r,m)=""e$(r,m)=""e$(r,m)="")hit=hit+1:9300T$:E$(R,M)="*":ACX=ACX-1:R,M;"*":SEARCH=1 z(E$(R,M)=""e$(r,m)=""e$(r,m)="")9300T$:hit=hit+1:E$(R,M)="*":CX=CX-1:R,M;"*":SEARCH=1 n(E$(R,M)=""e$(r,m)="")hit=hit+1:9300T$:E$(R,M)="*":DX=DX-1:R,M;"*":SEARCH=1 `E$(R,M)=""hit=hit+1:9300T$:E$(R,M)="*":SX=SX-1:R,M;"*":SEARCH=1 iE$(R,M)="H"hit=hit+1:9300T$:E$(R,M)="*":HQ=HQ-1:8;R,M;"*":SEARCH=1 kE$(R,M)=""hit=hit+1:9300T$:E$(R,M)="*":ACK=ACK-1:8;R,M;"*":SEARCH=1 kE$(R,M)=""hit=hit+1:9300T$:E$(R,M)="*":RUN=RUN-1:8;R,M;"*":SEARCH=1  0,1;" " 1,1;" " ATT=ATT+1 $E$(R,M)=""E$(R,M)="":R,M;"" e(AC=0B=0C=0D=0S=0run=0ack=0hq=0)1210  1211 <20,26;"HIT=";HIT;18,26;"AT=";ATT LACX=0AC=0 M(ACX=12,30;"1" QBX=4B=1 R&b=14,30;"1" VBX=0B=0 [CX=6C=2 `CX=3C=1 b&C=16,30;"1" eCX=0C=0 jDX=6D=3 oDX=4D=2 pRUN=3RUNX=1 qRUN=0RUNX=0 tDX=2D=1 v&D=18,30;"1" yDX=0D=0 ~S=SX 'S=110 ,30;"1" (HQ=114,30;"1" )ACK=115,30;"1" SX=0S=0 *RUNX=116,30;"1" #AC=02,30;"" "B=04,30;"" "C=06,30;"" "D=08,30;"" e(AC=0B=0C=0D=0S=0run=0ack=0hq=0)1210 #S=010 ,30;"" $HQ=014,30;"" %ACK=015,30;"" &RUNX=016,30;""  ;#0;"Bad luck, you loose":200:"":4510 e(AC=0B=0C=0D=0S=0run=0ack=0hq=0)1210 -8204:1000:5::7100 2600( H5000:#0;"WELL DONE! Enemy fleet Destroyed":200:"" 4510 3100 >60899:0;8,9 ;"STOP THE TAPE!" :#0;" PRESS ANY KEY TO PLAY... ":0:"" 7:0:7: D$(686) SG=3500 SG 5000 K=0 (n=021:M=031 K=K+1 x(sg=3500 K=661)K=0:SG=3600:#0;"Press Any Key To Continue":0:""::3030 f(sg=3600K=686)K=0:#0;"Press Any Key To Continue":0:""::7 N,M;D$(K) M N '#0;"PRESS any key to Commence."  0  D$=" SEA BATTLES  1984 Robert Bradshaw. SEA BATTLES IS A BATTLESHIP GAMEFOR THE 48K SPECTRUM. THE FORCESARE DEFINED AS FOLLOWS: = Aircraft Carrier or AC = Battleship or B = Cruiser or C = Destroyer or D = Submarine or S HH H = Headquarters or HQ = Runway or R = Ack-Ack Gun or AA & * Indicates hit Indicates miss"  D$="TO SET UP YOUR FORCES:- ENTER the coordinates of the extreme left block of the objector the vertex of the HQ, making sure that SEA forces are posi- tioned at SEA and LAND forces onLAND. EXAMPLE: To set up the Aircraft Carrier on the screen at the position shown below, then the Coordinates You should ENTER are B2 ABCDEFG IT IS IMPORTANT TO 1 REMEMBER THAT THE 2 FORCES ARE SET UP 3 HORIZONTALLY, UNLIKE TRADITIONAL BATTLESHIPS. When the BORDER becomes striped thenPRESS ANY KEY"  M:120x:n=120:8;n,5;e$(n,524) n<10 N,4;n n>9 N,3;N n *0,4;" ABCDEFGHIJKLMNOPQRST"  810* e5800:N=10 21:0;5;N,0;" ":N >9600%:n=04:z$:9 ,27+n;z$:n ?n=2610 -1:5:9 ,n;" ":n Q=0:A=0 Q9610%:n=03:z$:5;0;10 ,28+N;z$:n Sn=2711 +A-1:5:5;0;10 ,n;" ":n Q=Q+1:A=A+5 Q<24540 a=0:q=0 Q9620%:n=02:z$:5;0;11 ,29+n;z$:n Rn=2912 +a-1:5:5;0;11 ,n;" ":n q=q+1:a=a+4 q<34580 q=0:a=0  Q9930&:n=01:z$:5;0;12 ,30+n;z$:n *Qn=2913 +a-1:5:5;0;12 ,n;" ":n 6q=q+1:a=a+3 8q<34650* [q=0:a=0 \99940&:z$:5;0;13 ,31;z$ fPn=3014+a-1:5:5;0;13 ,n;" ":n hq=q+1:a=a+2 kq<54700\ &D$(116t):K=1:4990~ 'N=14:M=131  N,M;D$(K)  K=K+1 $K>116tK=1:4775 M:N &#0;"ANSWER (Y/N)":0:"" "Y"9495% EN=04:N,0;" ":N 25000:N=0200:64243:N PN=290-1:2:.01z# =,.01z# =:9 ,N;" ":N 9 ,0;" " } 3 ~wD$="YOUR FLEET HAS BEEN RE-BUILT. DO YOU ACCEPT THE CHALLANGE OF ANOTHER MISSION ? "  n=13 64647  5 n  n=51-.1}L  .01z# =,n n .6,.1}L  |9#0;"INPUT ERROR, PLEASE TRY AGAIN":0:"": 23659k\,0:22,0;"PRESS ""R"" To Reveal ENEMY FLEET,ANY Other KEY To CONTINUE ":1:1:0:22,0;" ":23659k\,2 82R"":: N120x:n=120:8;n,5;d$(n,524):n ]n=120:m=524:(f$(n,m)""f$(n,m)""f$(n,m)"")n,m;f$(n,m) m:n 4#0;" PRESS ANY KEY TO CONTINUE":0:  pR::23692\,2:N=121:F$(N)="":N uP:23692\,2:N=121:d$(N)="":N z7n=120:N,5;D$(n,525) N<10 n,4;n:n N>9 N,3;N:N N )0,5;"ABCDEFGHIJKLMNOPQRST"  120x &#0;" PLEASE WAIT A MOMENT"  7000X Bn=15:(f$(p,o+n)""ū(p,o+n)568)6100 n 49600%:n=15:z$:f$(p,o+n)=z$:n  q=0  7000X Bn=14:(f$(p,o+n)""ū(p,o+n)568)6150 n 49610%:n=14:z$:f$(p,o+n)=z$:n $q=q+1:q<26150 8 q=0 B 7000X LBn=13:(f$(p,o+n)""ū(p,o+n)568)6210B Qn V49620%:n=13:z$:f$(p,o+n)=z$:N [$q=q+1:q<36210B  q=0  7000X  Bn=12:(f$(p,o+n)""ū(p,o+n)568)6400 n 49930&:n=12:z$:f$(p,o+n)=z$:n $q=q+1:q<46400  q=0  7000X :n=1:(f$(p,o+n)""ū(p,o+n)568)6600 $9940&:z$:f$(p,o+1)=z$ $q=q+1:q<56600  7000X BN=12:(F$(p,o+n)""ū(P,O+N)32 )6830 n K(f$(p+1,o+1)""ū(P+1,O+1)32 )6830 PN=12:9950&:Z$:F$(p,o+n)=Z$:f$(p+1,o+1)=Z$:N  q=0  7000X O>216860 .N=13:F$(p,o+n)""6860 n 2N=13:(p,o+n)32 6860 n 4n=13:9960&:Z$:F$(p,o+n)=Z$:n $q=q+1:q<26860  q=0  7000X +(F$(p,o)""ū(p,o)32 )6890 9970&:Z$:F$(p,o)=Z$  q=q+1 q<56890 W:4000 Xo=(*20)+5 bp=(*20)+1: M:120x:n=120:8;n,5;D$(n,524) n<10 N,4;n n>9 N,3;N N:0,0; )0,5;"ABCDEFGHIJKLMNOPQRST"  7170  7190 2,26;"AC= ";EAC 4,26;"B = ";EB 6,26;"C = ";EC 8,26;"D = ";ED  10 ,26;"S = ";ES  14,26;"HQ= ";EHQ  15,26;"AA= ";EAA !16,26;"R = ";ERUNX 0,26;"AT SEA" 12 ,26;"LAND" 18,26;"AT=";ATT 720,31;" ";20,26;"HIT=";EHIT 7550~: 23659k\,0:22,0;"Press ENTER To Aim, Any Other Key For Random shots.":1:1:0:22,0;" ":23659k\,2 =13 7200  "" ch10007200  2k=(*20)+5:j=(*20)+1 6(D$(j,k)=""D$(j,k)="")ch=ch+1:7193  7299 $#0;"TRY Again!":0:""  (K$(3):"ENTER Co-Ordinates..";k$ %K=(K$(1)-60<) *$(K<5K>25)7200  H(K$(2)>579ůK$(1)<480K$(2)=" "ůK$(3)>579(K$(3)<480ƯK$(3)32 ))7200  RJ=(K$(23)) p0(J<1J>20)5500|:7200  hf$(j,k)=""9990':d$(j,k)="":J,K;"":n=1502:n:ch=0:5:4000 &(d$(J,K)=""CH=0)7199 &(d$(J,K)=""CH>0)7193 &(d$(J,K)=""CH=0)7199 &(d$(J,K)=""CH>0)7193 D(f$(j,k)=""f$(j,k)=""f$(j,k)=""f$(j,k)="")EBX=EBX-1 R(f$(j,k)=""f$(j,k)=""f$(j,k)=""f$(j,k)=""f$(j,k)="")EACX=EACX-1 8(f$(j,k)=""f$(j,k)=""f$(j,k)="")ECX=ECX-1 f$(j,k)=""ES=ES-1 ,(f$(j,k)=""f$(j,k)="")EDX=EDX-1  f$(j,k)=""ERUN=ERUN-1 f$(j,k)=""EAA=EAA-1 f$(j,k)="H"EHQ=EHQ-1 sound=15100 ehit=ehit+1 d$(j,k)="":j,k;"" ehit=4917980, EHIT=4912500 LEACX=0EAC=0 QEBX=4EB=1 VEBX=0EB=0 [ECX=6EC=2 `ECX=3EC=1 eECX=0EC=0 jEDX=6ED=3 oEDX=4ED=2 tEDX=2ED=1 vERUNX=3ERUN=1 wERUNX=0ERUN=0 yEDX=0ED=0 { 7550~ } 7593 ~)EACX=12,30;"1" %EACX=02,30;"" 'EB=14,30;"1" #EB=04,30;"" 'EC=16,30;"1" #EC=06,30;"" 'ED=18,30;"1" #ED=08,30;"" (ES=110 ,30;"1" $ES=010 ,30;"" *ERUN316,30;"1" &ERUN=016,30;"" )EAA=115,30;"1" %EAA=015,30;"" )EHQ=114,30;"1" %EHQ=014,30;""  !7170:5:4000 ,G5000:#0;"Mission Ended, Fleet Destroyed.":200:"" 6 2510 ? 9000(# @Y=(A$)-60< rX=(A$(23)) w hy=m:q=1 &(q=-1e$(r,m)="")8114 +(q=1e$(r,m)="")q=-1:M=HY d(M+q5e$(r,M+q)""e$(r,M+q)"*"M+q24)m=m+q:900:gn=8105:845M 6q=-1search=0:gn=8100:811+ Q=-1:M=HY  8105 #} 6000p $Tsound=15100 $Y % 0 %"","","","","" %"","","","" & "","","" & "","" &"" &"H" &"" &"" & 9999' 'lsound=1N=60<-60<-10 :.02{# =,N:N:N=12010 :.01z# =,N:N ' ?HMS Nelson@s<~<|<@~<@@BBB@@@<|B|B@|<@~B~@@B@BBB@@B<~B|B~~<?p@.2Q#@@}>?">0@=)*(?@?h @П*(D20A0  A*8(C ?R@B* /rB~P @CJ8 _'@888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888==============================88==============================8888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888880000000000000000000000000000000000000000000000000000000000000000lBattleCODEX? (;;$x l?voG6 :>b B<