BARCOS-AJ  BARCOS-AJ 0:0:0: ""16384@,6912 (6,0; 2"" ] BARCOS @C  `  33 9999ffNrNrNrNr3̙̙33'333̟'''3'''' 000 0 00 0rNrrNrNrNrffr999:99339    <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<611 9500% w=1ju:p$(w)="0":("Nombre del jugador ";w;" ?");j$(w):"Jugador ";w;" = ";1;j$(w);0:w:23658j\,0::: i3;7;1;1;"Puntos por hacer blanco ? ";punto:"El punto vale ";1;punto 1;2;7;1;"Puntos por hundimiento ? ";hund:::"Por hundimiento, ";1;hund;" puntos"'0'"Por terminar, ";1;hund;" puntos mas" :mayor=hund:::1;"Muchas gracias !":350^: :r=(1+*ju)  7500L  n$=" "  TABLERO (w=1ju:p$(w)="0":w:9000(# a=5:b=7 i17,0;" ";21,0;" " %ag=0:bl=0:dis=0 -18,0;"Disparos= " $19,0;"fallos= " +20,0;"BLANCOS= " w=215 z=3162 w,z;a;"";b;"" #z $c=a:a=b:b=c %w (#0,3;"abcdefghijklmn" )W=19 *W+1,1;W +W ,W=10 14 -w+1,0;w .W 1 q5=7 28q4h1=0:q4h2=0:q4v1=0:q4v2=0 3Tq3h1=0:q3h2=0:q3h3=0:q3v1=0:q3v2=0:q3v3=0 4pq2h1=0:q2h2=0:q2h3=0:q2h4=0:q2v1=0:q2v2=0:q2v3=0:q2v4=0 5y2h11=0:y2h12=0:y2h21=0:y2h22=0:y2h31=0:y2h32=0:y2h41=0:y2h42=0:x2h11=0:x2h12=0:x2h21=0:x2h22=0:x2h31=0:x2h32=0:x2h41=0:x2h42=0 6y2v11=0:y2v12=0:y2v21=0:y2v22=0:y2v31=0:y2v32=0:y2v41=0:y2v42=0:x2v11=0:x2v12=0:x2v21=0:x2v22=0:x2v31=0:x2v32=0:x2v41=0:x2v42=0 7y3h11=0:y3h12=0:y3h13=0:y3h21=0:y3h22=0:y3h23=0:y3h31=0:y3h32=0:y3h33=0 8y3v11=0:y3v12=0:y3v13=0:y3v21=0:y3v22=0:y3v23=0:y3v31=0:y3v32=0:y3v33=0 9x3h11=0:x3h12=0:x3h13=0:x3h21=0:x3h22=0:x3h23=0:x3h31=0:x3h32=0:x3h33=0 :x3v11=0:x3v12=0:x3v13=0:x3v21=0:x3v22=0:x3v23=0:x3v31=0:x3v32=0:x3v33=0 ;xy4h11=0:y4h12=0:y4h13=0:y4h14=0:y4h21=0:y4h22=0:y4h23=0:y4h24=0 xx4v11=0:x4v12=0:x4v13=0:x4v14=0:x4v21=0:x4v22=0:x4v23=0:x4v24=0 ? 9000(# bf#1;2;1;1;"ESPERE..";1;7;0;"(estoy colocando barcos)" c BARCO de 5 d:p=(1+*2) ep=2150 f (horizontal) gy=(2+*14) hx=(3+*10 ) j(y,x)=63?y,x;8;7;"@";5;"@";7;"@";5;"@";7;"@":7751G:1,18;"" k(y,x)=47/y,x;8;5;"@";7;"@";5;"@";7;"@";5;"@":7751G:1,18;"" l 200  (vertical) y=(2+*10 ) x=(3+*14) w=yy+4 (y,x)=47/y,x;8;5;"@";y+2,x;"@";y+4,x;"@";y+1,x;7;"@";y+3,x;"@":7752H:1,18;"" (y,x)=63?y,x;8;7;"@";y+2,x;"@";y+4,x;"@";y+1,x;5;"@";y+3,x;"@":7752H:1,18;"" w  2 BARCOS de 4 p=(1+*3) p=2209 p=3213 2h ?220:q4h1=1:7741=:2,19;"" ?220:q4h2=1:7742>:3,19;"" 400 hv ?220:q4h1=1:7741=:2,19;"" ?300,:q4v2=1:7744@:3,19;"" 400 vv ?300,:q4v1=1:7743?:2,19;"" ?300,:q4v2=1:7744@:3,19;"" 400  h y=(2+*14) x=(3+*11 ) '(y-1,x-1)" "221 (y-1,x)" "221 '(y-1,x+1)" "221 '(y-1,x+2)" "221 '(y-1,x+3)" "221 '(y-1,x+4)" "221 (y,x-1)" "221 (y,x)" "221 (y,x+1)" "221 (y,x+2)" "221 (y,x+3)" "221 (y,x+4)" "221 '(y+1,x-1)" "221 (y+1,x)" "221 '(y+1,x+1)" "221 '(y+1,x+2)" "221 '(y+1,x+3)" "221 '(y+1,x+4)" "221 T(y,x)=63?y,x;8;7;"@";5;"@";7;"@";5;"@" T(y,x)=47/y,x;8;5;"@";7;"@";5;"@";7;"@"  , v -y=(2+*11 ) .x=(3+*14) /'(y-1,x-1)" "301- 0(y-1,x)" "301- 1'(y-1,x+1)" "301- 2(y,x-1)" "301- 3(y,x)" "301- 4(y,x+1)" "301- 5'(y+1,x-1)" "301- 6(y+1,x)" "301- 7'(y+1,x+1)" "301- 8'(y+2,x-1)" "301- 9(y+2,x)" "301- :'(y+2,x+1)" "301- ;'(y+3,x-1)" "301- <(y+3,x)" "301- ='(y+3,x+1)" "301- >'(y+4,x-1)" "301- ?(y+4,x)" "301- @'(y+4,x+1)" "301- Ai(y,x)=47/y,x;8;5;"@";y+2,x;"@";y+1,x;7;"@";y+3,x;"@" Bi(y,x)=63?y,x;8;7;"@";y+2,x;"@";y+1,x;5;"@";y+3,x;"@" D  3 BARCOS de 3 .p=(1+*4):p=2409 p=3414 p=4419  3h >430:q3h1=1:77313:4,20;"" >430:q3h2=1:77324:5,20;"" >430:q3h3=1:77335:6,20;""  600X  2h 1v >430:q3h1=1:77313:4,20;"" >430:q3h2=1:77324:5,20;"" >450:q3v3=1:77368:6,20;""  600X  1h 2v >430:q3h1=1:77313:4,20;"" >450:q3v2=1:77357:5,20;"" >450:q3v3=1:77368:6,20;""  600X  3v >450:q3v1=1:77346:4,20;"" >450:q3v2=1:77357:5,20;"" >450:q3v3=1:77368:6,20;""  600X  h y=(2+*14) x=(3+*12 ) '(y-1,x-1)" "431 (y-1,x)" "431 '(y-1,x+1)" "431 '(y-1,x+2)" "431 '(y-1,x+3)" "431 (y,x-1)" "431 (y,x)" "431 (y,x+1)" "431 (y,x+2)" "431 (y,x+3)" "431 '(y+1,x-1)" "431 (y+1,x)" "431 '(y+1,x+1)" "431 '(y+1,x+3)" "431 G(y,x)=63?y,x;8;7;"@";5;"@";7;"@" G(y,x)=47/y,x;8;5;"@";7;"@";5;"@"   v y=(2+*12 ) x=(3+*14) '(y-1,x-1)" "451 (y-1,x)" "451 '(y-1,x+1)" "451 (y,x-1)" "451 (y,x)" "451 (y,x+1)" "451 '(y+1,x-1)" "451 (y+1,x)" "451 '(y+1,x+1)" "451 '(y+2,x-1)" "451 (y+2,x)" "451 '(y+2,x+1)" "451 '(y+3,x-1)" "451 (y+3,x)" "451 '(y+3,x+1)" "451 '(y+4,x-1)" "451 (y+4,x)" "451 '(y+4,x+1)" "451 X(y,x)=47/y,x;8;5;"@";y+2,x;"@";y+1,x;7;"@" X(y,x)=63?y,x;8;7;"@";y+2,x;"@";y+1,x;5;"@" W X 4 BARCOS de 2 Yp=(1+*5) Zp=2612d [p=3618j \p=4624p ]p=5630v ^ 4h _=640:q2h1=1:7721):7,21;"" `=640:q2h2=2:7722*:8,21;"" a=640:q2h3=3:7723+:9 ,21;"" b>640:q2h4=4:7724,:10 ,21;"" c 700 d 3h 1v e=640:q2h1=1:7721):7,21;"" f=640:q2h2=2:7722*:8,21;"" g=640:q2h3=3:7723+:9 ,21;"" h>670:q2v4=8:77280:10 ,21;"" i 700 j 2h 2v k=640:q2h1=1:7721):7,21;"" l=640:q2h2=2:7722*:8,21;"" m=670:q2v3=7:7727/:9 ,21;"" n>670:q2v4=8:77280:10 ,21;"" o 700 p 1h 3v q=640:q2h1=1:7721):7,21;"" r=670:q2v2=6:7726.:8,21;"" s=670:q2v3=7:7727/:9 ,21;"" t>670:q2v4=8:77280:10 ,21;"" u 700 v 4v w=670:q2v1=5:7725-:7,21;"" x=670:q2v2=6:7726.:8,21;"" y=670:q2v3=7:7727/:9 ,21;"" z>670:q2v4=8:77280:10 ,21;"" { 700  h y=(2+*14) x=(3+*13 ) '(y-1,x-1)" "641 (y-1,x)" "641 '(y-1,x+1)" "641 '(y-1,x+2)" "641 (y,x-1)" "641 (y,x)" "641 (y,x+1)" "641 (y,x+2)" "641 '(y+1,x-1)" "641 (y+1,x)" "641 '(y+1,x+1)" "641 '(y+1,x+2)" "641 :(y,x)=63?y,x;8;7;"@";5;"@" :(y,x)=47/y,x;8;5;"@";7;"@"   v y=(2+*13 ) x=(3+*14) '(y-1,x-1)" "671 (y-1,x)" "671 '(y-1,x+1)" "671 (y,x-1)" "671 (y,x)" "671 (y,x+1)" "671 '(y+1,x-1)" "671 (y+1,x)" "671 '(y+1,x+1)" "671 '(y+2,x-1)" "671 (y+2,x)" "671 '(y+2,x+1)" "671 G(y,x)=47/y,x;8;5;"@";y+1,x;7;"@" G(y,x)=63?y,x;8;7;"@";y+1,x;5;"@"   5 BARCOS de 1 <750:7711:q11=1:11 ,22;"" <750:7712 :q12=2:12 ,22;"" <750:7713!:q13=3:13 ,22;"" <750:7714":q14=4:14,22;"" <750:7715#:q15=5:15,22;"" 1w=115:w,23;1;"+":w  7000X  unico y=(2+*14) x=(3+*14) '(y-1,x-1)" "751 (y-1,x)" "751 '(y-1,x+1)" "751 (y,x-1)" "751 (y,x)" "751 (y,x+1)" "751 '(y+1,x-1)" "751 (y+1,x)" "751 '(y+1,x+1)" "751 -(y,x)=47/y,x;8;5;"@" -(y,x)=63?y,x;8;7;"@"  O}y11-1,x11-1;8;1;"###";y11,x11-1;"#";y11,x11+1;"#";y11+1,x11-1;"###": P}y12-1,x12-1;8;1;"###";y12,x12-1;"#";y12,x12+1;"#";y12+1,x12-1;"###": Q}y13-1,x13-1;8;1;"###";y13,x13-1;"#";y13,x13+1;"#";y13+1,x13-1;"###": R}y14-1,x14-1;8;1;"###";y14,x14-1;"#";y14,x14+1;"#";y14+1,x14-1;"###": S}y15-1,x15-1;8;1;"###";y15,x15-1;"#";y15,x15+1;"#";y15+1,x15-1;"###": Yy2h11-1,x2h11-1;8;1;"####";y2h11,x2h11-1;"#";y2h11,x2h11+2;"#";y2h11+1,x2h11-1;"####": Zy2h21-1,x2h21-1;8;1;"####";y2h21,x2h21-1;"#";y2h21,x2h21+2;"#";y2h21+1,x2h21-1;"####": [y2h31-1,x2h31-1;8;1;"####";y2h31,x2h31-1;"#";y2h31,x2h31+2;"#";y2h31+1,x2h31-1;"####": \y2h41-1,x2h41-1;8;1;"####";y2h41,x2h41-1;"#";y2h41,x2h41+2;"#";y2h41+1,x2h41-1;"####": ]y2v11-1,x2v11-1;8;1;"###":p=y2v11y2v11+1:8;1;p,x2v11-1;"#";p,x2v11+1;"#":p:8;1;y2v11+2,x2v11-1;"###": ^y2v21-1,x2v21-1;8;1;"###":p=y2v21y2v21+1:8;1;p,x2v21-1;"#";p,x2v21+1;"#":p:8;1;y2v21+2,x2v21-1;"###": _y2v31-1,x2v31-1;8;1;"###":p=y2v31y2v31+1:8;1;p,x2v31-1;"#";p,x2v31+1;"#":p:8;1;y2v31+2,x2v31-1;"###": `y2v41-1,x2v41-1;8;1;"###":p=y2v41y2v41+1:8;1;p,x2v41-1;"#";p,x2v41+1;"#":p:8;1;y2v41+2,x2v41-1;"###": cy3h11-1,x3h11-1;8;1;"#####";y3h11,x3h11-1;"#";y3h11,x3h11+3;"#";y3h11+1,x3h11-1;"#####": dy3h21-1,x3h21-1;8;1;"#####";y3h21,x3h21-1;"#";y3h21,x3h21+3;"#";y3h21+1,x3h21-1;"#####": ey3h31-1,x3h31-1;8;1;"#####";y3h31,x3h31-1;"#";y3h31,x3h31+3;"#";y3h31+1,x3h31-1;"#####": fy3v11-1,x3v11-1;8;1;"###":p=y3v11y3v11+2:8;1;p,x3v11-1;"#";p,x3v11+1;"#":p:8;1;y3v11+3,x3v11-1;"###": gy3v21-1,x3v21-1;8;1;"###":p=y3v21y3v21+2:8;1;p,x3v21-1;"#";p,x3v21+1;"#":p:8;1;y3v21+3,x3v21-1;"###": hy3v31-1,x3v31-1;8;1;"###":p=y3v31y3v31+2:8;1;p,x3v31-1;"#";p,x3v31+1;"#":p:8;1;y3v31+3,x3v31-1;"###": my4h11-1,x4h11-1;8;1;"######";y4h11,x4h11-1;"#";y4h11,x4h11+4;"#";y4h11+1,x4h11-1;"######": ny4h21-1,x4h21-1;8;1;"######";y4h21,x4h21-1;"#";y4h21,x4h21+4;"#";y4h21+1,x4h21-1;"######": oy4v11-1,x4v11-1;8;1;"###":p=y4v11y4v11+3:8;1;p,x4v11-1;"#";p,x4v11+1;"#":p:8;1;y4v11+4,x4v11-1;"###": py4v21-1,x4v21-1;8;1;"###":p=y4v21y4v21+3:8;1;p,x4v21-1;"#";p,x4v21+1;"#":p:8;1;y4v21+4,x4v21-1;"###": wy51-1,x51-1;8;1;"#######";y51,x51-1;"#";y51,x51+5;"#";y51+1,x51-1;"#######": xy51-1,x51-1;8;1;"###":p=y51y51+4:8;1;p,x51-1;"#";p,x51+1;"#":p:8;1;y51+5,x51-1;"###": ,visibles 6 uno 7u(y11,x11)="*"q11=1y,x;7;0;"":11 ,22;" ":9300T$:5711O:7000X 8u(y12,x12)="*"q12=2y,x;7;0;"":12 ,22;" ":9300T$:5712P:7000X 9u(y13,x13)="*"q13=3y,x;7;0;"":13 ,22;" ":9300T$:5713Q:7000X :u(y14,x14)="*"q14=4y,x;7;0;"":14,22;" ":9300T$:5714R:7000X ;u(y15,x15)="*"q15=5y,x;7;0;"":15,22;" ":9300T$:5715S:7000X A((y2h11,x2h11)="*")((y2h12,x2h12)="*")q2h1=1y2h11,x2h11;7;0;"":7,21;" ":9300T$:5721Y:7000X B((y2h21,x2h21)="*")((y2h22,x2h22)="*")q2h2=2y2h21,x2h21;7;0;"":8,21;" ":9300T$:5722Z:7000X C((y2h31,x2h31)="*")((y2h32,x2h32)="*")q2h3=3y2h31,x2h31;7;0;"":9 ,21;" ":9300T$:5723[:7000X D((y2h41,x2h41)="*")((y2h42,x2h42)="*")q2h4=4y2h41,x2h41;7;0;"":10 ,21;" ":9300T$:5724\:7000X E((y2v11,x2v11)="*")((y2v12,x2v12)="*")q2v1=5y2v11,x2v11;7;0;"";y2v12,x2v11;"":7,21;" ":9300T$:5725]:7000X F((y2v21,x2v21)="*")((y2v22,x2v22)="*")q2v2=6y2v21,x2v21;7;0;"";y2v22,x2v21;"":8,21;" ":9300T$:5726^:7000X G((y2v31,x2v31)="*")((y2v32,x2v32)="*")q2v3=7y2v31,x2v31;7;0;"";y2v32,x2v31;"":9 ,21;" ":9300T$:5727_:7000X H((y2v41,x2v41)="*")((y2v42,x2v42)="*")q2v4=8y2v41,x2v41;7;0;"";y2v42,x2v41;"":10 ,21;" ":9300T$:5728`:7000X K((y3h11,x3h11)="*")((y3h12,x3h12)="*")((y3h13,x3h13)="*")q3h1=1y3h11,x3h11;7;0;"":4,20;" ":9300T$:5731c:7000X L((y3h21,x3h21)="*")((y3h22,x3h22)="*")((y3h23,x3h23)="*")q3h2=1y3h21,x3h21;7;0;"":5,20;" ":9300T$:5732d:7000X M((y3h31,x3h31)="*")((y3h32,x3h32)="*")((y3h33,x3h33)="*")q3h3=1y3h31,x3h31;7;0;"":6,20;" ":9300T$:5733e:7000X N((y3v11,x3v11)="*")((y3v12,x3v12)="*")((y3v13,x3v13)="*")q3v1=1y3v11,x3v11;7;0;"";y3v12,x3v11;"";y3v13,x3v11;"":4,20;" ":9300T$:5734f:7000X O((y3v21,x3v21)="*")((y3v22,x3v22)="*")((y3v23,x3v23)="*")q3v2=1y3v21,x3v21;7;0;"";y3v22,x3v21;"";y3v23,x3v21;"":5,20;" ":9300T$:5735g:7000X P((y3v31,x3v31)="*")((y3v32,x3v32)="*")((y3v33,x3v33)="*")q3v3=1y3v31,x3v31;7;0;"";y3v32,x3v31;"";y3v33,x3v31;"":6,20;" ":9300T$:5736h:7000X U((y4h11,x4h11)="*")((y4h12,x4h12)="*")((y4h13,x4h13)="*")((y4h14,x4h14)="*")q4h1=1y4h11,x4h11;7;0;"":2,19;" ":9300T$:5741m:7000X V((y4h21,x4h21)="*")((y4h22,x4h22)="*")((y4h23,x4h23)="*")((y4h24,x4h24)="*")q4h2=1y4h21,x4h21;7;0;"":3,19;" ":9300T$:5742n:7000X W((y4v11,x4v11)="*")((y4v12,x4v12)="*")((y4v13,x4v13)="*")((y4v14,x4v14)="*")q4v1=1y4v11,x4v11;7;0;"";y4v12,x4v11;"";y4v13,x4v11;"";y4v14,x4v11;"":2,19;" ":9300T$:5743o:7000X X((y4v21,x4v21)="*")((y4v22,x4v22)="*")((y4v23,x4v23)="*")((y4v24,x4v24)="*")q4v2=1y4v21,x4v21;7;0;"";y4v22,x4v21;"";y4v23,x4v21;"";y4v24,x4v21;"":3,19;" ":9300T$:5744p:7000X _'(y51,x51)="*"q5=08751/" `(y51,x51)="*"ƪ(y52,x52)="*"ƪ(y53,x53)="*"ƪ(y54,x54)="*"ƪ(y55,x55)="*"q5=1y-4,x;7;0;"";y-3,x;"";y-2,x;"";y-1,x;"";y,x;"":1,18;" ":9300T$:5752x:7000X X8800`": DISPARO Y 9100# Z?.1}L,20:1;"DISPARE: ";d$:d$=""7002Z [.d$<97ad$=d$(d$)+d$((d$-1)) \d$="0"17,0;1;0;6;"Quiere comenzar de nuevo ?":n$:n$(1)="s"n$(1)="S"0,17;" ":20 ]'n$="no"n$(1)="N":9999' _d$37012d `d$=17014f azd$=2*(d$(1)>96`)*(d$(1)<111o)*(d$(2)>480)*(d$(2)<58:)7015g bzd$=2*(d$(2)>96`)*(d$(2)<111o)*(d$(1)>480)*(d$(1)<58:)7015g c 7014f dd$=3*(d$(1)=491)*(d$(2)>47/)*(d$(2)<535)*(d$(3)>96`)*(d$(3)<111o)7015g ed$=3*(d$(1)>96`)*(d$(1)<111o)*(d$(2)=491)*(d$(3)>47/)*(d$(3)<535)7015g fE.1}L,20:.1}L,20:.1}L,20:7002Z gx=d$-94^ ly=d$(2)+1 m(y,x)="#".2~L,20:.2~L,20:.2~L,20:#1;2;7;1;1;"Ese punto ya ha sido atacado":200:7002Z n(y,x)="*".2~L,20:.2~L,20:.2~L,20:#1;2;7;1;1;"Ese punto ya ha sido atacado":200:7002Z o(y,x)="".2~L,20:.2~L,20:.2~L,20:#1;2;7;1;1;"Ese punto ya ha sido atacado":200:7002Z qBdis=dis+1:18,10 ;1;7;dis;"/196" v(y,x)=" "#1;1;" AGUA ! ":63951,7:63950:y,x;8;1;"#":ag=ag+1:19,10 ;8;9 ;ag:7000X  (y,x)="@"#1;2;7;1;1;" TOCADO ! ":w=15:.005y# =,5:w:7100:1:p$(r-1)=(p$(r-1)+punto):r=r-1:y,x;2;1;"*":bl=bl+1:20,10 ;1;7;bl;"/35":6000p .w=300-1:.003xD,w:w  w=130:254,2:254,0:254,2:254,1:254,2:254,1:w: L"A"+0,0 M""+1,1 N""+2,125} O""+3,29 P""+4,255 Q""+5,127 R""+6,63? S""+7,0 V"B"+0,0 W""+1,14 X""+2,30 Y""+3,32 Z""+4,255 [""+5,255 \""+6,254 ]""+7,0 `"C"+0,0 a""+1,1 b""+2,61= c""+3,29 d""+4,255 e""+5,255 f""+6,255 g""+7,0 j"D"+0,0 k""+1,24 l""+2,60< m""+3,126~ n""+4,126~ o""+5,126~ p""+6,102f q""+7,126~ t"E"+0,126~ u""+1,126~ v""+2,126~ w""+3,126~ x""+4,126~ y""+5,102f z""+6,126~ {""+7,126~ ~"F"+0,126~ ""+1,126~ ""+2,126~ ""+3,102f ""+4,126~ ""+5,126~ ""+6,126~ ""+6,60< "G"+0,0 ""+1,24 ""+2,8 ""+3,126~ ""+4,255 ""+5,255 ""+6,126~ ""+7,0  COORDENADAS  UNO y11=y:x11=x:  y12=y:x12=x: !y13=y:x13=x: "y14=y:x14=x: #y15=y:x15=x: (  DOS ).y2h11=y:y2h12=y:x2h11=x:x2h12=x+1: *.y2h21=y:y2h22=y:x2h21=x:x2h22=x+1: +.y2h31=y:y2h32=y:x2h31=x:x2h32=x+1: ,.y2h41=y:y2h42=y:x2h41=x:x2h42=x+1: -.y2v11=y:y2v12=y+1:x2v11=x:x2v12=x: ..y2v21=y:y2v22=y+1:x2v21=x:x2v22=x: /.y2v31=y:y2v32=y+1:x2v31=x:x2v32=x: 0.y2v41=y:y2v42=y+1:x2v41=x:x2v42=x: 3Hy3h11=y:y3h12=y:y3h13=y:x3h11=x:x3h12=x+1:x3h13=x+2: 4Hy3h21=y:y3h22=y:y3h23=y:x3h21=x:x3h22=x+1:x3h23=x+2: 5Hy3h31=y:y3h32=y:y3h33=y:x3h31=x:x3h32=x+1:x3h33=x+2: 6Hy3v11=y:y3v12=y+1:y3v13=y+2:x3v11=x:x3v12=x:x3v13=x: 7Hy3v21=y:y3v22=y+1:y3v23=y+2:x3v21=x:x3v22=x:x3v23=x: 8Hy3v31=y:y3v32=y+1:y3v33=y+2:x3v31=x:x3v32=x:x3v33=x: =by4h11=y:y4h12=y:y4h13=y:y4h14=y:x4h11=x:x4h12=x+1:x4h13=x+2:x4h14=x+3: >by4h21=y:y4h22=y:y4h23=y:y4h24=y:x4h21=x:x4h22=x+1:x4h23=x+2:x4h24=x+3: ?by4v11=y:y4v12=y+1:y4v13=y+2:y4v14=y+3:x4v11=x:x4v12=x:x4v13=x:x4v14=x: @by4v21=y:y4v22=y+1:y4v23=y+2:y4v24=y+3:x4v21=x:x4v22=x:x4v23=x:x4v24=x: E F CINCO Gtq5=0:y51=y:y52=y:y53=y:y54=y:y55=y:x51=x:x52=x+1:x53=x+2:x54=x+3:x55=x+4: Htq5=1:y51=y:y52=y+1:y53=y+2:y54=y+3:y55=y+4:x51=x:x52=x:x53=x:x54=x:x55=x: @7a=1:b=2:c=3:d=4:e=5 JFq5=0a=1b=2c=3d=4e=5"bien" TEq5=1a=3b=5c=1d=2e=4"mal" "?((y22,x22)="*")y21,x21;7;0;"":7000X " 7000X "Q((y32,x32)="*")((y33,x33))="*"y31,x31;7;0;"":7000X " 7000X "%/((y42,x42)="*")((y43,x43)="*")8743'" "& 7000X "'A((y44,x44)="*")y41,x41;7;0;"":7000X "( 7000X "//((y52,x52)="*")((y53,x53)="*")87531" "0 7000X "1((y54,x54)="*")((y55,x55)="*")y51,x51;7;0;"":1,18;" ":9300T$:5751w:7000X "2 7000X "`w=115 "j(w,23)="+"7001Y "tw "u9p$(r)=(p$(r)+hund):r*3+1,26;p$(r) "vO9000(#:0,18;2;7;1;1;"Gana: ";g$ "~L21,0;2;1;"!TODOS HUNDIDOS!":d$="0":7003[ #(w=1ju #2Aw*3,24;j$(w);":";w*3+1,26;p$(w) #3&p$(w)>mayorg$=j$(w):mayor=p$(w) #<w #F #Wjuega=10,18;" ";1;"Juega :":r=ju+1r=1 #Tjuega=00,24;4;0;1;"SALE:":juega=1 # 9000(# #Cr*3,24;0;4;1;j$(r):r=r+1 # $Tp$(r)=(p$(r)+hund): %nju=1j$(1,7):p$(1,6):j$(1)="..Usted":p$(1)="0"::::14 %&T:p$(ju,6):j$(ju,7):23658j\,8:ju;" jugadores, que son:"'' %0 %0:5:0 %<1,1:z=212 :w=21z-1 %l13 ,w;0;5;"-":2:13 ,w;5;" ":w:.1}L,7:9650%+z:z %L200:w=18:63976:7:w:100d:9 %13 ,z;"I": %13 ,z;"R": %13 ,z;"I": %13 ,z;"S": %13 ,z;" ": %13 ,z;"*": %13 ,z;" ": %13 ,z;"1": %13 ,z;"9": %13 ,z;"8": %13 ,z;"5": %4w=6395063950+502:w;"= ";w:w: %4w=64593Q64593Q+20:w;"= ";w:w: %;w=118:(63975+w),(64592P+w):w: &H a$="" &Ia$(1)"s" &M0:2;7;1;"INSTRUCCIONES": &R^"Todos los jugadores actuan suce-sivamente contra una flota ""ene-miga"" comun formada por:" &W:"1 acorazado (de 5 cuadros)"'"2 cruceros (de 4 cuadros)"'"3 destructores (de 3 cuadros)"'"4 fragatas (de 2 cuadros) y"'"5 submarinos (de 1 cuadro.)" &\:"La computadora coloca aleatoria-mente los barcos...los cuales nose tocan (tampoco por las esqui-nas) y que pueden estar situadosen posicion vertical, u horizon-tal, en cualquier zona de table-ro." &fB:"La computadora tambien sortea eljugador que debera comenzar." &pE#1;7;1;"Pulse tecla para pasar pagina":0 &z+:1;7;1;" DISPAROS " &1:"Cada jugador, en su turno, marcael punto del tablero que desee yutiliza para ello una letra y unnumero, siendo indiferente si elorden es uno u otro (p.ej. es lomismo ";2;7;1;"h12";0;6;0;" que ";1;2;7;"12h";0;6;0;")." &G:"Para abortar el juego pulse ";2;7;1;"0";:"." &s:"Si se comete un error al pulsar,LO RECHAZA la computadora (3 pi-tidos..) sin que pierda el juga-dor su turno." &8:"El jugador que acierta un blancovuelve a disparar." &]:"GANA el jugador que al finalizarel partido haya acumulado la ma-yor cantidad de puntos." &E#1;7;1;"Pulse tecla para pasar pagina":0 &&:0;7;" HUNDIMIENTOS " &:"A la derecha del tablero figuranlas siluetas de los barcos."''"Tales siluetas van desaparecien-do cuando se han hundido los co-rrespondientes barcos del table-ro." &ʛ:"Cuando un barco se hunde se for-ma a su alrededor una orla de ";7;0;"##";6;"que anula posibles disparos a lazona de aislamiento." &A:::"NOTA: Es conveniente utilizar unamplificador de sonido." &D#1;0;7;"PULSE UNA TECLA PARA EMPEZAR":0 & ' Asuegbarcos-CM ,a.!͵R !W &+ >?