ZXTape! 2i Batalla NavalParaninfo Soft, S.A.1984Spanish Board GameNone Original GameTZX'ed by Quickie JJLF"":5:5:15,0:"":15,0:"" \ @ o   B88xx8@88@B @< B< >FB@BD@@BBFB  B D0DDB< >FB@BD@@BBFB  |< B<@BB~~B<>BB  |< BB | < << @D DDDDBDBB @ @ RBBBB|@B@RB |  | < << @D DDDDBDBB 0@ @ RBBBB|@B@RB U@N9?!@?D8| $B*N9 !@D(/B|N9 !@@8/B @ _ ?B!4@0< UU B!@) $I$Wu @ O!@@&GP| !j@?RI DPx  $I$0 ??00?0?0 ?0< '0 ??00?0?0 ?0B@|B<<<@ "h?000 0 00 0 0 000 0<0 00 0888@D88B8f88x8(BBB  !"@ (?000 0 00 0 0 000 0<0 00 0D@D@D0@BD8x@D8Dx|DBD xDD>>B@"$0 0 0 000 < 0 0 0 0?0 0 ??0 0 0 0 ?BD@@DD@DDBD @DDBB@/?0 0 000 3 0 0 0 0B<8x<~88x<< B88B8 <<<?0 0 000 3 0 0 0 0<888888888888888888888888888888888000000:0001111111111111111111008800000:0001111111111111111111008000000:000111111111111111111100800000088888888888888888888888888000000888888888800000088888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888===================================))))))))))))))))))))))))))======))))))))))))))))))))))))))===================================))))))))))))))))))))))))))))))))8888888888888888888888888888888888888888888888888888888888888888 X ?b~@"@~p y (((a(10 ):l$(10 ,14):sj=0::gu=6:3111' :wr=3:hor=16:t$="":v$="":w$="":x$="":y$="":10 ,4;1;7;" PARANINFO SOFT S.A. ":21,0;"-J.L.del Rio Moreno-1983" 7:0:7 3100  20: # 3200 (7:7:0: 2z$(32 ) FO236099\,30:;8;1;6;0;" BATALLA NAVAL " K 3110& PG'"Bienvenido a la BATALLA NAVAL"'"El Computador tiene esta Flota:"' Rm$="b"m$="B"110n Z1'" 1 PORTAVIONES PPPPP" _0'" 1 ACORAZADO AAAA" a9'" 2 DESTRUCTORES DDD DDD" d@'" 3 CRUCEROS  CC CC CC" iE'" 4 SUBMARINOS   S S S S" k 140 n.'" 1 PORTAVIONES PPPPP" p7'" 2 ACORAZADOS AAAA AAAA" s>'" 2 DESTRUCTORES DDD DDD DDD" v@'" 4 CRUCEROS CC CC CC CC" yB'" 5 SUBMARINOS S S S S S" D'"Debe destruir todos los barcos con el menor numero de disparos" &wr=1:hor=21:3100 7100   3110& n4,0;"Fije primero la linea y despues la columna, para efectuar el disparo pulse ENTER." x'"EJEMPLO: Para disparar sobre la linea 3 y columna 6 debe pulsar:"''" 36 y despues ENTER ":70F " 3110& #sj=13241 $51;15,5;"* COLOCANDO LA FLOTA *" 'cm$="b"m$="B"19,0;"Si en 300 saltos no se situan los barcos,empezara nuevamente" , 3106 121,14;6;1;;"NUEVA DISTRIBUCION":.3,26:502:.2~L,18:21,0;" " 6b$(12 ,12 ) ; kwk=0 @n=1NB EC21,14;1;7;n-1;" BARCOS SITUADOS" G)m$="b"21,0;kwk;" Saltos" Jl=a$(n):.01z# =,15 Tp=1+(*(11 -l)) ^q=1+(*10 ) h"400+(100dƥ>.5) 'x=02:.01z# =,30 :kwk=kwk+1:m$="b"21,0;kwk;" Saltos" kwk300,3051 1b$(x+q,pp+l+1)z$(l+2)340T x  x=1l :kwk=kwk+1:m$="b"21,0;kwk;" Saltos" kwk300,3051 -b$(q+1,p+x)=a$(n):.01z# =,20 x  580D )x=0l+1:.01z# =,20 -b$(x+p,qq+2)z$(3)340T x  x=1l -b$(p+x,q+1)=a$(n):.01z# =,35# &x Dn EM21,14;1;7;n-1;" BARCOS SITUADOS":40( IB15,3;1;6;"* LA FLOTA ESTA COLOCADA *" NWR=1:hor=21 S 3100 U 7100 X ](1,3;1;"0123456789" b*2,2;1;"" ln=09 vc0;2;n;" ";6;0;"";2;7;" ";2;n n "2;1;""  3;1;"0123456789"  9290J$  g=0 318,0;1;3;"DISPAROS ";g  g=g+1 518,13 ;"Linea/Columna "  3000  x+1,y+1; *b$(x,y)=" "2400` 4 n=b$(x,y) >wn=6n=020,10 ;6;"REPETIDO!":.01z# =,31:.1}L,18:rep=rep+1 @-n=6n=0g=g-1:700 H h=h-1 RWn=11;9 ;"S";20,14;7;1;"Submarino" \Un=22;9 ;"C";20,14;7;2;"Crucero" fXn=33;9 ;"D";20,14;7;3;"Destructor" pYn=54;9 ;"P";20,14;7;4;"Portaviones" zWn=45;9 ;"A";20,14;7;5;"Acorazado" T.1}L,35#:.06|u\,1:20,7;0;6;"TOCADO"  b$(x,y)="6" n=11600@  c=1 i=1n-1 y+i>11 990 b$(x,y+i)"6"990  c=c+1 i i=1n-1 y-i<21040 b$(x,y-i)"6"1040  c=c+1 i i=1n-1 x+i>11 1090B $b$(x+i,y)"6"1090B . c=c+1 8i Bi=1n-1 Lx-i<21140t Vb$(x-i,y)"6"1140t ` c=c+1 ji tc=n1600@ ~q=120  2000 :q=110 :q,0;a(q):q,6;l$(q):q  @n=5ex=2 Bn=4ex=4 Dn=3ex=6 Fn=2ex=8 Hn=1ex=10 q=110 94:ex,26;1;2;6;"####" >.01z# =,q+10 :5:2:.01z# =,30-q /20,6;0;6;"HUNDIDO" 'ex,26;1;6;" " /20,6;7;0;"HUNDIDO" q  7 n=1SU=SU-1 n=1SUH=SUH+1 n=2CRH=CRH+1 n=2CR=CR-1 n=3DEH=DEH+1 n=3DE=DE-1 n=4ACH=ACH+1 n=4AC=AC-1 n=5PO=0 n=5POH=1 n=5POT=0  9290J$ h>0700 Gq=1721:q,0;" ":q =17,0;2;"Flota destruida en ";g;" tiros" @rep019,7;6;rep;" TIROS REPETIDOS" 5punt=((15000:/(g*(NB-3)))-rep+.5) y18,0;2;7;punt;" PUNTOS";18,11 ;2;7;"MAXIMA PUNTUACION ";a(1)  7100  qq=0 qq=qq+1 punt>a(qq)2044 qq<10 2035  2399_ 6q=10 qq+1-1:a(q)=a(q-1):q  a(qq)=punt 8q=10 qq+1-1:l$(q)=l$(q-1):q ;:10 ,8;1;7;"INDIQUE SU NOMBRE" l$(qq) 12 ,6;l$(qq)  502:  3110& E4,0;1;1;"***** PUNTUACION DE HONOR ****" G4;1;6,0;"N0. PUNTOS NOMBRE "  q=110 :7+q,0;1;q;7+q,6;0;6;a(q);7+q,18;2;7;l$(q);0;7:q  7110  :3110& _ 6900 `5;1;" " jS.02{# =,38&:20,10 ;5;" AGUA !! ":.05|L,17 o b$(x,y)="0" ~ 700 i$ i$23070 n=12 !i$(n)<"0"i$(n)>"9"3070 n 20,0;z$ x=2+i$(1) y=2+i$(2)  f.03{u\,10 :.02{# =,30:20,0;"ERROR Pulse nuevos valores "  3000 Zh$(524):h$=""+t$+""+v$+""+w$+""+x$+""+t$+""+v$+""+w$+""+x$ !ew=1wr:q=121:6:.02{# =,-10 :hor,0;h$(qq+31):q:w " & gu=0 'gu,0;5;1;0;"BATALLA NAVAL" ( 3110& D6,0;6;0;"ESTE JUEGO TIENE DOS OPCIONES" 8,0;" OPCION 'A' ";6;9 ,0;"1 Portaviones ";10 ,0;"1 Acorazado ";11 ,0;"2 Destructores";12 ,0;"3 Cruceros ";13 ,0;"4 Submarinos " 8,16;" OPCION 'B' ";6;9 ,16;"1 Portaviones ";10 ,16;"2 Acorazados ";11 ,16;"3 Destructores";12 ,16;"4 Cruceros ";13 ,16;"5 Submarinos " Z15,0;"La opcion 'A' tiene puntuacion mas alta que la 'B'." S17,0;"La opcion 'B' tarda mas en la colocacion de barcos." &hor=21:wr=2:3100 f.005y# =,25:21,0;1;5;1;" PULSE 'A' O 'B' PARA SEGUIR " /m$=:m$"a"m$"A"m$"b"m$"B"3230 3rep=0:PO=1:POT=0:POH=0 m$="b"m$="B"3300 &AC=1:ACT=0:ACH=0 &DE=2:DET=0:DEH=0 &CR=3:CRT=0:CRH=0 &SU=4:SUT=0:SUH=0 a$="54332221111" NB=11 h=25 3400H &AC=2:ACT=0:ACH=0 &DE=3:DET=0:DEH=0 &CR=4:CRT=0:CRH=0 &SU=5:SUT=0:SUH=0 a$="544333222211111" NB=15 h=35# Hpunt=0  :sj=1:10 ,5;1;3;"Para seguir pulse S";0," ";1;"Para acabar pulse A":3110& q$= q$="S"q$="s":290" &q$"a"q$"A"6930 0 :w=31815:q=0202:q,w;6;0;" A D I O S ":.1}L,q+10 :.02{# =,30-q:q+1,w;0;6;" A D I O S ":q:w ? 40000@ D 621,0;" " X.005y# =,30:1;1;21,0;"PARA SEGUIR PULSE UNA TECLA" =""7120  L7::0 #(n=112 #2b$(n) #<n $JS0,17;"Barcos  N  H":2,17;t$;" P ";PO;;" ";POH;4,17;v$;" A ";AC;" ";ACH;6,17;w$;" D ";DE;" ";DEH;8,17;x$;" C ";CR;" ";CRH;10 ,17;y$;" S ";SU;" ";SUH $Ka12 ,17;5;0;"N Navegando";13 ,17;"H Hundidos " $T