ZXTape! WSEA w_:tp\.t:.\pѢD @E"@ D"E p`@~Z$$BUUUUSN:tu].t]WU.\rʕѢD%JEQTUueJSNVU**********************************************************************************************************************************************AABBCCDDEEFFGGHHIIJJKKLLMMNNOOPPQQRRSSTTUUVVWWXXYYZZaabbccddeeffgghhiijjkkllmmnnooppqqrrssttuuvvwwxxyyzzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz "ç:ç:ٰ"7":ç:ç:"60889" %"23675","208":"23676","92" ܼ "2",ç;" " " " -#ç;" VASKO THOMAS'S SOFT 2001" "23739","111":"" "23739","111":"" "23739","111":"" ' "SEA"ç 'ksea scr@o~~~~~~~~p~p0~@~ ~?????` ?@?@`>>>??  @" |||?<@@~~~?~~ ~">b ??????`x?~*D@@??????0?@?0?  d~$@2TH~ D@ @~< F^e X@@3T @   `@"@ @  x`@T ?Q @( xBq `~p J>U@B11 +U` "$HJ @@@ UR@ $  3DA @@I@U@F@@9X ª@@  @  @ B *U@8A!p#PUR@ # b   ꪀH 2V *Oj@@@ ?D$$?À   UT \0@UR@ <k@@ %F@ j@  Dp@@ $`@UR @ P@@E D`A@ dj@@@ /B@T@@ H@<@H`8aUj@1E@ YP@  $@`8`%mj@@R1@YJ @  @  cJҥI@Q@1@i0@@  @ ` o!)WJq.@H0HP`@@@@ 8@@`|@R `@Bp@@@(`.................----.......((((.................----.......((((.................----........(((.................----..........(//...............----(((((((...(////.............----......(....////....//////...----((((......./......////////..(..((*((((((..........////////..(..((*(((((((((((.....///////-------(((((((((((.....(((/(((((-------//////(((((((((((((((((((-------//////(((((((((((((((((((-------//////(((((((((((((((((((---------///------(((((((((((/////////------------(((((((((((/////////------------(((((((((((/////////------------(((((((((((/////////------------(((((((((((/////////------------(((((((((((/////////------------(////((((((/////////((((((------//////(((((/////////((((((------MMMMHHHHHMMMMMMMMMMMMMMMMMMMMMMMMMMMHHHHHMMMMMMMMMMMMMMMMMMMMMMMgsea grp` ]b |;; *=\s#rv͎{ ::\ ( ((<2\6!!"B\!"D\;;}͎{ ͎ 0OG!@!@drrd @  PPUR`PD*RQ*P  @P   @` ߙUϋUGpbUGתUbp @ X7/0*5/5.,Tl6-7(4*7.t ,l4,6/0<4,t<,d0%͒QRR,@I-LIb  @` %$ (DHU>U@VNWhg'p<$eUNV<UUW'U\Œ0 @ 7(0o^`L&Jߣ߫Ъ ?%'= Ч߫ܨר k5ϯ̨ժ3U888|lD(T$HJ$$$I`J!J$@JD$!! PD%$*""6>(((Tl$B$$@@I"$B$BH$(D$"DE$"BBI""6*%-@HH TPHeU%%wJ7C5 +%ԕR  @$" $H@)%A@!B!@@ "A ""@ 8pp8 x 6"""&`   >6"|>>"""&>>>00>>>"">>0>> <$$<>"&><$< <<  $$$>"">&&|d|bb~>" 2>|$$$$|< 800<< 8000< ,$<DD|DLL L|$(0($$ 0<~zJJJJ>&&""">22&&><$< >22&&?>22>$"> >>>"""&&>$$((0 "****>$$$$$"&>>0> 88Tsea prg"r "r.$r"5":ڰ"5":ç:ç:ç:ç: J"23658","8":"23609",:"23562","2":"23606","36":"23607","" \END="4000":PAING="855":WATTER="850":UD1="23675":UD2="23676":CUX="12":CUY="16" VAYR="65533":AYD="49149":60952,64@:60953,31:60899 8RIGHT="9":LEFT="8":UP="11":DOWN="10":FIRE="0" "d" CST= nINK=(CUX,CUY):BRIGHT=(INK/64@):INK=INK-BRIGHT*64@:PAPER=(INK/8):INK=INK-8*PAPER +1;BRIGHT;PAPER;INK;CUX,CUY;"g" R65022=188ƿ49150=188ƿ64510=1759000(# $I$=:I$=""CST=1:17 +1;BRIGHT;PAPER;INK;CUX,CUY;"g" CST>16CST=16 I$=LEFT502 I$=RIGHT557 I$=UP60< I$=DOWN65A I$=FIRE80P  11 2'CUY=CUY-CST:CUY<0CUY=0 3 CST=CST+CST 6CUS2="32":11 7)CUY=CUY+CST:CUY>31CUY=31 8 CST=CST+CST ;CUS2="32":11 <'CUX=CUX-CST:CUX<0CUX=0 = CST=CST+CST @CUS2="32":11 A)CUX=CUX+CST:CUX>21CUX=21 B CST=CST+CST ECUS2="32":11 PAYR,0:AYD,127:AYR,1:AYD,0:AYR,8:AYD,16:AYR,7:AYD,254:AYR,12 :AYD,4:AYR,13 :AYD,0:AYD,ç Y `AYR,10 :AYD,16:AYR,1:AYD,0:AYR,0:AYD,502:AYR,8:AYD,254:AYR,7:AYD,254:AYR,12 :AYD,1 aoI=12 15:J=110 :1;I,J;" ":(I,J)" "AYR,13 :AYD,0 bJ:I cAYR,10 :AYD,0: fç,ç;"qrrrrrrrrrrs" g)I=̰"10":"tddddddddddu":I h"tvvvvvvvvvvu" i*I=ç̺:"t u":I j"wxyyyyyyyyyz"'"{|"'"}" npç;ç;12 ,1;" WELCOME ";13 ,1;" IN GAME ";14,1;" SEA ":95_ o 0 pç;ç;12 ,1;"--CHOOSE--";13 ,1;"1-CONTROLS";14,1;" ";15,1;"3-START ":95_ sI$= uI$="3""500" vI$="1""" w"s" ç;ç;12 ,1;"-CONTROLS-";13 ,1;"1-CURSORS ";14,1;"2-SINCLAIR";15,1;"3-KEYBOARD":95_ I$= FI$="1"UP="11":DOWN="10":LEFT="8":RIGHT="9":FIRE="0":"p" DI$="2"UP="9":DOWN="8":LEFT="6":RIGHT="7":FIRE="0":"p" DI$="3"UP="Q":DOWN="A":LEFT="I":RIGHT="O":FIRE="M":"p" 155  1UDG1=UD1:UDG2=UD2 6S=1400 8S=2420 :S=3440 <S=4460 ? @UD1,UDG1:UD2,UDG2 A UD1,172:UD2,238 T=1410 T=2413 T=3416 0SHX,SHY;"";SHX+1,SHY;"":320@ 0SHX,SHY;"";SHX+1,SHY;"":320@ 0SHX,SHY;"";SHX+1,SHY;"":320@ 0SHX,SHY;"";SHX+1,SHY;"":320@ T=1430 T=2433 T=3436 UD1,172:UD2,239 \SHX,SHY;"";SHX+1,SHY;"";SHX+2,SHY;"";SHX+3,SHY;"":320@ UD1,44,:UD2,239 4SHX,SHY;"";SHX+1,SHY;"":320@ UD1,44,:UD2,239 \SHX,SHY;"";SHX+1,SHY;"";SHX+2,SHY;"";SHX+3,SHY;"":320@ UD1,172:UD2,239 4SHX,SHY;"";SHX+1,SHY;"":320@ T=1450 T=2453 T=3456 UD1,124|:UD2,240 SHX,SHY;"";SHX+1,SHY;"";SHX+2,SHY;"";SHX+3,SHY;"";SHX+4,SHY;"";SHX+5,SHY;"":320@ UD1,252:UD2,239 8SHX,SHY;"";SHX+1,SHY;"":320@ UD1,252:UD2,239 ƈSHX,SHY;"";SHX+1,SHY;"";SHX+2,SHY;"";SHX+3,SHY;"";SHX+4,SHY;"";SHX+5,SHY;"":320@ UD1,124|:UD2,240 8SHX,SHY;"";SHX+1,SHY;"":320@ T=1470 T=2473 T=3476 UD1,124|:UD2,240 ҴSHX,SHY;"";SHX+1,SHY;"";SHX+2,SHY;"";SHX+3,SHY;"";SHX+4,SHY;"";SHX+5,SHY;"";SHX+6,SHY;"";SHX+7,SHY;"":320@ UD1,252:UD2,240 <SHX,SHY;"";SHX+1,SHY;"":320@ UD1,252:UD2,240 ڴSHX,SHY;"";SHX+1,SHY;"";SHX+2,SHY;"";SHX+3,SHY;"";SHX+4,SHY;"";SHX+5,SHY;"";SHX+6,SHY;"";SHX+7,SHY;"":320@ UD1,124|:UD2,240 <SHX,SHY;"";SHX+1,SHY;"":320@  >>>GAME<<< nLHSX=:LHSY=:LDSX=:LDSY=:LWSX=:LWSY=:SHOTT=ç:H$(10 ,10 ):E$(10 ,10 ) JQ(2,4):I=12:O=14:Q(I,O)=O:O:I GSDIR=0:LWSU=ç:WWS=ç:LUG=ç:FCX=:FCY=:LDI=:LUI=ç ç;ç;12 ,1;" PLEASE ";13 ,1;"PLACE YOUR";14,1;" SHIPS ";15,1;"DIRECT.: ":95_ "17,3;"ROTATE!!" TI=1720:I,11 ;"n":I:20,12 ;"nnnnnnnnnnnnnnnnnnnn" DSHLO="7":FUTT=ç:S="4":T="1":SHX="19":SHY="1":300, P15,10 ;"^":FUTT=015,10 ;">" 10 >CUX=17CUY>2CUY<11 FUTT=FUTT:511 NFUTT=0(CUY+SHLO>31CUY<12 ).1}L,-10 :512 NFUTT=1(CUX+SHLO>19CUY<12 ).1}L,-10 :512 &CUX>19CUY<12 512 -(CUY/2)CUY/2CUY=CUY-1  -(CUX/2)CUX/2CUX=CUX-1  VSOX=CUX/2+1:SOY=(CUY-12 )/2+1:FUTT=0590N  FUTT=1595S  $T=2:FUTT=0T=1  SHX=CUX:SHY=CUY:300,  550& #S=S-1:S=0600X FT=1:FUTT=0:SHLO=S*2-1:SHX="19":SHY="1" !SHX,SHY;" "'" "  300,  P15,10 ;"^":FUTT=015,10 ;">" ! 512 % 'S=35600 (S=2570: )S=1580D +gT=2H$(SOX,SOY)="E":H$(SOX+1,SOY)="F":H$(SOX+2,SOY)="G":H$(SOX+3,SOY)="H" ,+T=1H$(SOX,SOYSOY+3)="ABCD" / 0NT=2H$(SOX,SOY)="T":H$(SOX+1,SOY)="U":H$(SOX+2,SOY)="V" 2*T=1H$(SOX,SOYSOY+2)="QRS" 9 :5T=2H$(SOX,SOY)="_":H$(SOX+1,SOY)="`" <)T=1H$(SOX,SOYSOY+1)="]^" C DT=2H$(SOX,SOY)="f" FT=1H$(SOX,SOY)="e" M NCI=SOYSOY+S-1:H$(SOX,I)" ".1}L,-10 :512 RI:3900< SCI=SOXSOX+S-1:H$(I,SOY)" ".1}L,-10 :512 UI:3920P W ENEMY Xq17,3;" ";18,1;" "'" "'" " Yç;ç;12 ,1;"THANK YOU";13 ,1;"@@@@@@@@@@";14,1;" PLEASE ";15,1;" WAIT!!!! ":95_ ` S=4 bNT=(2*)+1:SOX=(10 *)+1:SOY=(10 *)+1 e-T=2SOX+S-1>10 610b f-T=1SOY+S-1>10 610b gT=1620l hT=2625q j.650:S=S-1:S>0610b k 700 l/I=SOYSOY+S-1:E$(SOX,I)" "610b mI:3950n q/I=SOXSOX+S-1:E$(I,SOY)" "610b rI:3970 S=3660 S=2670 S=1680 gT=2E$(SOX,SOY)="A":E$(SOX+1,SOY)="A":E$(SOX+2,SOY)="A":E$(SOX+3,SOY)="A" +T=1E$(SOX,SOYSOY+3)="AAAA"  NT=2E$(SOX,SOY)="Q":E$(SOX+1,SOY)="Q":E$(SOX+2,SOY)="Q" *T=1E$(SOX,SOYSOY+2)="QQQ"  5T=2E$(SOX,SOY)="]":E$(SOX+1,SOY)="]" )T=1E$(SOX,SOYSOY+1)="]]"  T=2E$(SOX,SOY)="e" T=1E$(SOX,SOY)="e"  )I=110 :I,1;H$(I):I  0    I=110:I,1;E$(I):I GOES=1 ç;ç;12 ,1;"THE BATTLE";13 ,1;" STARTED! ";14,1;"FIRST SHOT";15,1;" IS YOUR ":95_ 214,10 ,214,5,190,2,170,5,214,2,170,5,127,2,107k,1,107k,1,107k,1,107k,5,107k,2,107k,10 AYR,7:AYD,255:AYR,1:AYD,0:AYR,8:AYD,16:AYR,12 :AYD,15:AYR,11 :AYD,15:AYR,7:AYD,254 702:I=113 BD:W:AYR,0:AYD,D:AYR,13 :AYD,0:M=0W ""708:SOUNDS M:I AYR,7:AYD,255 XA(4,5):B(4,5):746:740:GOES=02000 Əç;ç;12 ,1;" SELECT A ";13 ,1;" SHIP ";14,1;" WITH YOU ";15,1;"WILL SHOT":95_ 10 &CUY<12 CUX>19715 -CUX/2ɺ(CUX/2)CUX=CUX-1 -CUY/2ɺ(CUY/2)CUY=CUY-1 =SOX=CUX/2+1:SOY=(CUY-12 )/2+1 ,H$(SOX,SOY)<"A"H$(SOX,SOY)>"f"715 'H$(SOX,SOY)<"I"S=4:750 7H$(SOX,SOY)<"W"H$(SOX,SOY)>"P"S=3:760 7H$(SOX,SOY)<"a"H$(SOX,SOY)>"\"S=2:770 7H$(SOX,SOY)<"g"H$(SOX,SOY)>"d"S=1:780   715 .I=15:A(4,I)=9 -I:I .I=14:A(3,I)=9 -I:I .I=13:A(2,I)=9 -I:I .I=12:A(1,I)=9 -I:I GOES=02000  \I=15:B(4,I)=9 -I:I:I=14:B(3,I)=9 -I:I \I=13:B(2,I)=9 -I:I:I=12:B(1,I)=9 -I:I  SGY=CUY:SGX=CUX  AYR,7:AYD,255:AYR,8:AYD,15:AYR,1:AYD,1:AYR,0:AYD,255:AYR,7:AYD,254:AYR,0:I=2550-40(:AYD,I:I:AYR,7:AYD,255 !UD1,188:UD2,242 ";19,0;""'"" #?21,2;A(S,1);18,4;A(S,2) $^S>119,6;"";20,6;"":21,6;A(S,3) %^S>219,8;"";20,8;"":18,8;A(S,4) &S>3UD1,92\:UD2,243:19,10 ;"";20,10 ;"":21,10 ;A(S,5) *2ç;ç;13 ,1;" GUN ":95_ +10 /gCUY>11 18,1;" "'" "'" "'" ":716 0&CUX<19CUX>20811+ 2-CUY/2ɺ(CUY/2)CUY=CUY-1 3SOY=CUY/2 4N18,1;" "'" "'" "'" " 5&SOY=0GOES=0:740 6A(S,SOY)=0710 9ç;ç;12 ,1;" SELECT A ";13 ,1;" PLACE ";14,1;"WHERE YOU";15,1;"WILL SHOT":95_ : GUN=SOY <10 >&CUX>10 CUY>10 710 ?$CUX<1CUY<1828< AE$(CUX,CUY)="!"828< C,E$(CUX,CUY)>"H"E$(CUX,CUY)<"Q"828< D,E$(CUX,CUY)>"V"E$(CUX,CUY)<"]"828< E,E$(CUX,CUY)>"`"E$(CUX,CUY)<"e"828< FE$(CUX,CUY)>"f"828< GAYR,8:AYD,16:AYR,6:AYD,31:AYR,12 :AYD,40(:AYR,7:AYD,1100113:AYR,13 :AYD,0 H 870f RAYR,8:AYD,16:AYR,6:AYD,1:AYR,12 :AYD,100d:AYR,7:AYD,1101117:AYR,13 :AYD,0 S WAYR,12 :AYD,10 :AYR,10 :AYD,16:AYR,7:AYD,111011;:AYR,5:AYD,0:AYR,13 :AYD,9 X AYR,4 Y3I=013 :AYD,30:AYD,33!:I Z7AYR,7:AYD,255:AYR,10 :AYD,0 [ \ fSGX<5900 gUD1,156:UD2,241 h 1 iMSGX-2,SGY;"";SGX-1,SGY;"";SGX,SGY;"";SGX+1,SGY;"" kMSGX-3,SGY;"";SGX-2,SGY;"";SGX-1,SGY;"";SGX,SGY;"" lMSGX-2,SGY;"";SGX-1,SGY;"";SGX,SGY;"";SGX+1,SGY;"" mbSGX-3,SGY;"";SGX-4,SGY;"";SGX-1,SGY;"";SGX-1,SGY;"";SGX,SGY;"" oUSGX-4,SGY;"";SGX-5,SGY;"";SGX-1,SGY;"";SGX-2,SGY;"" zAYR,4:AYD,0:I=SGX-5:SER=1:SIP=20:AYR,10 :AYD,10 :AYR,5:AYD,0:AYR,4 {CSIP=SIP+1:SER=SER*1.1 :I=I-SER:I<0898 }%AYD,SIP:I,SGY;"":I+SER,SGY;""  891{  8AYR,10 :AYD,0:AYR,7:AYD,255  I+SER,SGY;"":0 NGOES=0:A(S,GUN)=A(S,GUN)-1:GOES=0:I=0502:I dE$(CUX,CUY)=" "E$(CUX,CUY)="!":CUX,CUY;"e":WATTER:I=0100d:I:2000 9E$(CUX,CUY)>"d"E$(CUX,CUY)<"g"HIT=1:910 9E$(CUX,CUY)>"\"E$(CUX,CUY)<"a"HIT=2:920 9E$(CUX,CUY)>"P"E$(CUX,CUY)<"W"HIT=3:930 9E$(CUX,CUY)"A"E$(CUX,CUY)<"I"HIT=4:940  >GUN"P"Q$<"W"E$(CUX,CUY)="W":1070. ,Q$"]"Q$<"a"E$(CUX,CUY)="a":1070. ,Q$>"d"Q$<"g"E$(CUX,CUY)="g":1070.  . K LWQ(2,HIT)=Q(2,HIT)-1:Q(2,HIT)=01200:1110V QGOES=1:710 `CUX,CUY;"c" eHIT=11190 fHIT=21130j gHIT=31140t hHIT=41150~ i kII=110 :E$(I,CUY)="]"E$(I,CUY)="a"I,CUY;"c" lI mII=110 :E$(CUX,I)="]"E$(CUX,I)="a"CUX,I;"c" nI o 1190 tII=110 :E$(I,CUY)="Q"E$(I,CUY)="W"I,CUY;"c" uI vII=110 :E$(CUX,I)="Q"E$(CUX,I)="W"CUX,I;"c" wI x 1190 ~II=110 :E$(I,CUY)="A"E$(I,CUY)="I"I,CUY;"c" I II=110 :E$(CUX,I)="A"E$(CUX,I)="I"CUX,I;"c" I  1190 %1290 :GOES=1:710  1220 *I=18:O:AYR,O:O:AYD,O:I 5I=5020-1:AYR,11 :AYD,I:I OAYR,10 :AYD,0:AYR,8:AYD,0:AYR,9 :AYD,0  ĉ7,255,6,4,9 ,16,12 ,0,8,9 ,1,1,13 ,14,7,255  Q(2,1)=0Q(2,2)=0Q(2,3)=0Q(2,4)=0WINNER=1:END LQ(1,4)=0Q(2,4)>0WINNER=0:END LQ(2,4)=0Q(1,4)>0WINNER=1:END   ! COMPUTER BACKSHOT  GOES=1710 2500 :HOVA LONI 2400` :HOVA LONI LWSU=0:WWS=0 UH$(SPSX,SPSY)="I"H$(SPSX,SPSY)="W"H$(SPSX,SPSY)="a"H$(SPSX,SPSY)="g"2010 ,H$(SPSX,SPSY)="!"WWS=0:2010 KUD1,156:UD2,241:1;0,SPSY*2+11 ;""  I=0  1  I=I+2 BISPSX*2I-2,SPSY*2+11 ;"":2030 OI,SPSY*2+11 ;"":I>1I-2,SPSY*2+11 ;""  2024 UD1,28:UD2,242 %B(DSHIP,DGUN)=B(DSHIP,DGUN)-1 H$(SPSX,SPSY)" "2050 WATTER o(SPSX-1)*2,SPSY*2+10 ;"";(SPSX-1)*2+1,SPSY*2+10 ;"" x7:(SPSX-1)*2,SPSY*2+10 ;"";(SPSX-1)*2+1,SPSY*2+10 ;"" o(SPSX-1)*2,SPSY*2+10 ;"";(SPSX-1)*2+1,SPSY*2+10 ;"" x7:(SPSX-1)*2,SPSY*2+10 ;"";(SPSX-1)*2+1,SPSY*2+10 ;"" o(SPSX-1)*2,SPSY*2+10 ;"";(SPSX-1)*2+1,SPSY*2+10 ;"" x7:(SPSX-1)*2,SPSY*2+10 ;"";(SPSX-1)*2+1,SPSY*2+10 ;""  I=060<:I:0 H$(SPSX,SPSY)="!":(SPSX-1)*2,SPSY*2+10 ;"aa";(SPSX-1)*2+1,SPSY*2+10 ;"aa" &WWS=0:GOES=1:710 E BOOMED   ;0:H$(SPSX,SPSY)"A"H$(SPSX,SPSY)"H"HIT=4  2H$(SPSX,SPSY)"Q"H$(SPSX,SPSY)"V"HIT=3 2H$(SPSX,SPSY)"]"H$(SPSX,SPSY)"`"HIT=2 2H$(SPSX,SPSY)"e"H$(SPSX,SPSY)"f"HIT=1 7DGUNHITPAING:WWS=1:GOES=1:710  21004  [HIT=1Q(1,1)=Q(1,1)-1:H$(SPSX,SPSY)="g":2200 "[HIT=2Q(1,2)=Q(1,2)-1:H$(SPSX,SPSY)="a":2200 $[HIT=3Q(1,3)=Q(1,3)-1:H$(SPSX,SPSY)="W":2200 &[HIT=4Q(1,4)=Q(1,4)-1:H$(SPSX,SPSY)="I":2200 7AYR,7:AYD,255:AYR,6:AYD,31:AYR,8:AYD,16:AYR,12 :AYD,150:AYR,1:AYD,12 :AYR,0:AYD,200:AYR,7:AYD,000110:AYR,13 :AYD,0 8 1 9o(SPSX-1)*2,SPSY*2+10 ;"";(SPSX-1)*2+1,SPSY*2+10 ;"" :x2:(SPSX-1)*2,SPSY*2+10 ;"";(SPSX-1)*2+1,SPSY*2+10 ;"" ;x2:(SPSX-1)*2,SPSY*2+10 ;"";(SPSX-1)*2+1,SPSY*2+10 ;"" W$=H$(SPSX,SPSY) @W$="A"W$="Q"UD1,124|:UD2,240:(SPSX-1)*2,SPSY*2+10 ;"";(SPSX-1)*2+1,SPSY*2+10 ;"" AW$="B"W$="C"W$="R"UD1,124|:UD2,240:(SPSX-1)*2,SPSY*2+10 ;"";(SPSX-1)*2+1,SPSY*2+10 ;"" BW$="D"W$="S"UD1,124|:UD2,240:(SPSX-1)*2,SPSY*2+10 ;"";(SPSX-1)*2+1,SPSY*2+10 ;"" CW$="E"W$="T"UD1,124|:UD2,240:(SPSX-1)*2,SPSY*2+10 ;"";(SPSX-1)*2+1,SPSY*2+10 ;"" DW$="F"W$="G"W$="U"UD1,124|:UD2,240:(SPSX-1)*2,SPSY*2+10 ;"";(SPSX-1)*2+1,SPSY*2+10 ;"" EW$="H"W$="V"UD1,124|:UD2,240:(SPSX-1)*2,SPSY*2+10 ;"";(SPSX-1)*2+1,SPSY*2+10 ;"" HW$="]"UD1,172:UD2,239:(SPSX-1)*2,SPSY*2+10 ;"";(SPSX-1)*2+1,SPSY*2+10 ;"" IW$="^"UD1,172:UD2,239:(SPSX-1)*2,SPSY*2+10 ;"";(SPSX-1)*2+1,SPSY*2+10 ;"" JW$="_"UD1,172:UD2,239:(SPSX-1)*2,SPSY*2+10 ;"";(SPSX-1)*2+1,SPSY*2+10 ;"" KW$="`"UD1,172:UD2,239:(SPSX-1)*2,SPSY*2+10 ;"";(SPSX-1)*2+1,SPSY*2+10 ;"" LW$="e"UD1,172:UD2,238:(SPSX-1)*2,SPSY*2+10 ;"";(SPSX-1)*2+1,SPSY*2+10 ;"" MW$="f"UD1,172:UD2,238:(SPSX-1)*2,SPSY*2+10 ;"";(SPSX-1)*2+1,SPSY*2+10 ;"" QLWWS=2:I=080P:I:AYR,7:AYD,255:2080   &Q(1,HIT)=0LWSU=1 Q(1,1)=0Q(1,2)=0Q(1,3)=0Q(1,4)=0WINNER=0:END LQ(2,4)>0Q(1,4)=0WINNER=0:END LQ(1,4)>0Q(2,4)=0WINNER=1:END #0:GOES=0:2000 V _%IMITATED LOGIC THINKING `DGUN=12410j aDGUN=22420t bDGUN=32430~ cDGUN=42440 dDGUN=52450 jFI=14:Q(2,I)>0B(I,DGUN)>0DSHIP=I: lI oDGUN=DGUN+1 tFI=14:Q(2,I)>0B(I,DGUN)>0DSHIP=I: vI yDGUN=DGUN+1 ~FI=24:Q(2,I)>0B(I,DGUN)>0DSHIP=I: I DGUN=DGUN+1 FI=34:Q(2,I)>0B(I,DGUN)>0DSHIP=I: I DGUN=DGUN+1 >I=4:Q(2,I)>0B(I,DGUN)>0DSHIP=I: $GOES=1:746:710 *:   SHOTTING 'SHOTT=0WWS=13000 (WSHOTT=0DGUN=1:SPSX=(10 *)+1:SPSY=(10 *)+1: )'SHOTT=1WWS=13000 *'SHOTT=1WWS=23500 +'SHOTT=2WWS=23550 ,&SHOTT=2NO=13512 -SHOTT=23500 /SHOTT=33600  6LWSU=1WWS=0:SHOTT=0:2500 "NO=0:LHSX=SPSX:LHSY=SPSY #FCX=SPSX:FCY=SPSY:SHOTT=1 DGUN=DGUN+1:3016  4Q(1,DGUN-1)=0DGUN=DGUN+1 3015 6LWSU=1WWS=0:SHOTT=0:2500 @NO=1:SHOTT=2:LDSX=SPSX:LDSY=SPSY:SHOTT=2 'SDIR=(4*):FCX=SPSX:FCY=SPSY /SDIR=SDIR+1:SDIR=4SDIR=0 SDIR=03520 SDIR=13525 SDIR=23530 SDIR=33535  6SPSX=FCX-1:SPSY=FCY:SPSX=03512  7SPSX=FCX:SPSY=FCY+1:SPSY=10 3512  7SPSX=FCX+1:SPSY=FCY:SPSX=10 3512  6SPSX=FCX:SPSY=FCY-1:SPSY=03512   %LDSX=SPSX:LDSY=SPSY:SHOTT=3 6LWSU=1SHOTT=0:WWS=0:2500 (SDIR=1SDIR=3LDI=2 (SDIR=2SDIR=4LDI=1 QSDIR=0:WWS=0:LWSU=0:LUI=0:SHOTT=3:3620$ 6LWSU=1SHOTT=0:WWS=0:2500 4WWS=0LUI>0SHOTT=0:2500 4WWS=0SDIR=1:LUI=0:3620$ $SDIR=0LUI=LUI-1 %SDIR=1LUI=LUI+1 )ZLDI=1SPSX=FCX+LUI:SPSY=FCY:SPSX<1SDIR=1:LUI=0:3620$ *ZLDI=2SPSY=FCY+LUI:SPSX=FCX:SPSY<1SDIR=1:LUI=0:3620$ ,H$(SPSX,SPSY)>"H"H$(SPSX,SPSY)<"Q"H$(SPSX,SPSY)>"V"H$(SPSX,SPSY)<"]"H$(SPSX,SPSY)>"`"H$(SPSX,SPSY)<"e"H$(SPSX,SPSY)>"f"3620$ . ظ ABCDEFGHIJKLMNOPQRSTUVWXYZAABBCCDDEEFFGGHHIIJJKKLLMMNNOOPPQQRRSSTTUUVVWWXXYYZZAAABBBCCCDDDEEEFFFGGGHHHIIIJJJKKKLLLMMMNNNOOOPPPQQQRRRSSSTTTUUUVVVWWWXXXYYYZZZ ; =SOX=13904@ >KI=SOYSOY+S-1:H$(SOX-1,I)" ".1}L,-10 :512 ?I @SOX=10 3907C AKI=SOYSOY+S-1:H$(SOX+1,I)" ".1}L,-10 :512 BI DBSOY+S<11 H$(SOX,SOY+S)" ".1}L,-10 :512 EESOY>1H$(SOX,SOY-1)" ".1}L,-10 :512 G 524  QSOY=13924T RKI=SOXSOX+S-1:H$(I,SOY-1)" ".1}L,-10 :512 SI TSOY=10 3927W UKI=SOXSOX+S-1:H$(I,SOY+1)" ".1}L,-10 :512 VI XBSOX+S<11 H$(SOX+S,SOY)" ".1}L,-10 :512 YESOX>1H$(SOX-1,SOY)" ".1}L,-10 :512 [ 524  oSOX=13954r p7I=SOYSOY+S-1:E$(SOX-1,I)" "610b qI rSOX=10 3957u s7I=SOYSOY+S-1:E$(SOX+1,I)" "610b tI v.SOY+S<11 E$(SOX,SOY+S)" "610b w1SOY>1E$(SOX,SOY-1)" "610b y 618j SOY=13974 7I=SOXSOX+S-1:E$(I,SOY-1)" "610b I SOY=10 3977 7I=SOXSOX+S-1:E$(I,SOY+1)" "610b I .SOX+S<11 E$(SOX+S,SOY)" "610b 1SOX>1E$(SOX-1,SOY)" "610b  618j &  T H E E N D  ~ç;ç;12 ,1;"THE BATTLE";13 ,1;" FINISHED ";14,1;"THE WINNER";15,1;"IS " 5WINNER=1ç;ç;15,4;"YOU " 5WINNER=0ç;ç;15,4;"YOUR HC"  95_ AYR,7:AYD,255:AYR,1:AYD,16:AYR,9 :AYD,16:AYR,10 :AYD,16:AYR,8:AYD,16:AYR,13 :AYD,14:AYR,12 :AYD,0:AYR,11 :AYD,0 -I=0255:AYR,11 :AYD,I:I OAYR,8:AYD,0:AYR,9 :AYD,0:AYR,10 :AYD,0  :100d  SOUND PLAYER   6000p I,P 1I=255Ŧ="0"AYR,7:AYD,255: I=250P:5003 AYR,I:AYD,P  5003 W TITTLES XS236066\,36$:236077\,"":7010b:0:0:7: YR$:R$="ZZZ"7100 I=07:I;R$(12),R$(34);R$(5):I \E:E*100d ][I=70-1:I;R$(12),R$(34);R$(5):I a 7001Y b"0900VASKO THOMAS'S SOFTWARE PRESENTS",1,"0907A LAST-PROGRAM GAME",1,"0900 S E A -THE WARS OF OCEAN-",1.5@ ch"1000PROGRAM,GRAPHICS,SOUNDS BY",1,"1007THOMAS VASKO-THE VTS",1,"1009IDEA FROM PC",1 e"0600THIS PROGRAM USES SOUNDCARD AY-3-8912.WHEN YOU HAVE THIS HARDWARE,YOU WILL HEAR THE BEST SOUNDS,WHAT THE VTS ON SPECTRUM MADE." fj4,"0800THIS IS THE LAST PROGRAM ON SPECTRUM.WHEN YOU CAN,SELL THIS MACHINE TO MUSEUM.",3 gP"1800AND NOW,I WRITE FOR YOU SOME MESSAGES...ON MY MOTHER TONGUE..",2 h"0800jPkTS KI OLYAN RENDSZERT AMELYETHULYjK IS HASZNiLNI TUDNAK -CSAK HULYjK FOGJiK HASZNiLNI.",3 iG"0800A SZiMkTOGjP MEGBkZHATATLAN... AZ EMBER MjGINKiBB...",2 jG"0800HA A PROGRAM BEViLLIK,AKKOR ViLTOZTATNI KELL RAJTA!",2 kD"0900BiRMELY PROGRAM,HA EGYSZER GjPRE KERUL,ELAVULT!",2 lM"0900A PROGRAMOZOK LEGJOBBAN A KiROMKODiS NYELVjT ISMERIK...",2 qE"1000AND NOW ENJOY THE LAST SPECIALITY OF VTS-D40",1 v"ZZZ" H7:0:7:0:7:0:7:0  0  860952,0:60953,0:60899 ! 7000X L"SEA PRG"7200 : @ç;ç;12 ,1;" PROGRAM ";13 ,1;"RESTARTING";14,1;" ";15,1;" ":95_ A 0 #( 'I PROGRAM FINISHED ON 23.12.2001,SAVED-ORIGINAL- 20:28 w