ZXTape! 0Created by SpectaculatorG.Persico $$$R23658j\,16:0:0:0::8000@:.1}L,-5 9re=0:rec=0:var=6000p:pan=5000 2wpun=0:ptos=0:8;6;18,12 ;"000000";8;4;3,12 ;"000000" 07060 Jbarcos=pas:8;c;20,6;"":e=1barcos:8;3;20,5+e;"":.001wn,e+30:e:pas=0.05|L,0:85004! ^49800H&:d=09 :da:.01z# =,da:d f  100d *********************** fase 1 )lb1=lb:cb=24:cb1=cb:7030v Vn=1barcos:7080:x$="":7010b:1;5;lb,24;"" |cb=6.005y# =,65A:7010b:pas=pas+1:7050:cb=24:lb=(*7)+10 :650 z$=:z$"z"z$"a"z$=x$ &cb1=cb-1 0lb1=lb+(z$="z")-(z$="a") Xm7010b:(lb1,cb1)8ū(lb1,cb1+1)87040:cb=24:cb1=24:650 v 7020l "lb=lb1:cb=cb1:x$=z$:530 n: *********************** fase2 &7090:sw=0:lb1=13 m=1barcos:re=0:sw2=0:23560\,0:sw=0:lb1=(*7)+10 :lb=lb1:cb=24:cb1=cb:7020l Yj=16:1200:sw=1pas=pas+1:7050:7010b:m:  +sw2=1n=m+1:7080:m: 4m(j,2)=m(j,2)+1:in=m(j,2) pv=1m(j,2)>6m(j,2)<26:1;0;m(j,1),m(j,2)-1;" " \(m(j,1),m(j,2))=72H7130:7110:t=j:6025:1110V  7120 1110V:v %v=1in<6:1110V:v $1w=1in=6:7120:1110V:w .zs=1in=26:0;1;0;m(j,1),m(j,2)-1;" ":t=j:6025:1110V:s Vj:1025 ~ -------- 2in=23560\:in122zin97ain=re cb=6sw=1: cb1=cb-1 %lb1=lb+(in=122z)-(in=97a) re=in  7010b l(lb1,cb1+1)8ū(lb1,cb1)87040:7140:lb1=lb:cb1=24:sw2=1:  7020l lb=lb1:cb=cb1  ******************** fase3  500: ***********************  pantalla1 aq=616:1+4*(q<10 );0;q,6;" ":q ;8;4;8,6;"" ;6;0;9 ,6;""   pantalla2 aq=616:1+2*(q<10 );0;q,6;" ":q ;8;4;8,6;"" ;4;0;9 ,6;""   pantalla3 Yq=616:1+(q<10 );0;q,6;" ":q ;8;2;8,6;"" ;4;0;9 ,6;"" =g=10 11 :0;3;g,6;"":g =g=1516:0;3;g,6;"":g Rm=9 12 :8;0;1;m(m,1),m(m,2);"":m Zk=120:1;7;60<+(*140),114r+(*12 ):k  ********************** p variables zm(12 ,2):9000(#+(10 *f):q=112 :m(q,1),m(q,2):q:lb=13 :cb=24:lb1=lb:cb1=cb: $t=16:6025:t: Im(t,1)=(*7)+10 :m(t,2)=(*4)+2:  ********************** aborra petrolero b!1;0;lb,cb;" ": g--------------- kpinta petrolero l#1;5;lb1,cb1;"": q--------------- upinta minas v^f=1m=18:8;0;1;m(m,1),m(m,2);"":m: x {---------------  explosion hf=21;0;0;lb1+(lb1=9 )-(lb1=17),cb1+((lb1,cb1)=14);" " f3.005y# =,60<:g=01:1;2-(g=1);6-6*(g=1);8;lb1+(lb1=9 )-(lb1=17),cb1+((lb1,cb1)=14);"":.0005vn,60<:10 :g f=3.05|L,0:cb1<9 g=01:1;2-(g=1);6-6*(g=1);8;lb1+(lb1=11 )-(lb1=15),cb1;"":.005y# =,60<:10 :g:7046 f=3.05|L,0:g=01:1;2-(g=1);6-6*(g=1);8;lb1+(lb1=9 )-(lb1=17),cb1+(cb1=9 );"":.005y# =,502:10 :g .g=05:.0005vn,65A:g: ----------------  pinta vidas T1;8;4;20,5+pas;"":pun=pun+502:7060  ---------------- puntos h=ptospun5+(20*(pun-ptos>502)):18,18-h;8;8;h:.001wn,60<-(20*(pun-ptos>502)):h:ptos=pun Cptos>recrec=ptos:3,18-rec;8;8;rec .01z# =,0  ----------------  borra vidas :8;c;20,6+barcos+1-n+pas;"": ----------------  pinta minas {p=112 :m(p,2)>6m(p,2)<241;1;0;m(p,1),m(p,2);"" p: ******************** --rutinas fase2-- borra torpedo =0;1;0;m(j,1),m(j,2);" ": -------------- pinta torpedo =1;1;6;m(j,1),m(j,2);"": --------------- choque ڡ.005y# =,557:g=01:2-(g=1);6-6*(g=1);(g1);m(j,1),m(j,2);"":.005y# =,60<:g: ------------- busca cu=16:m(u,1)=lb1m(u,2)=cb1m(u,2)=cb1+1t=u:6025: u: L V ----------- @***presentacion*** T graficos ^23692\,0:9100#:f="a""n"-1:a:f,a:.01z# =,f/5:ٺ(*6)+1;(65537-f)*;""'':f `7:.5,0:502::47/,38&:162,0:0,91[:-163,0:0,-91[ c3g$="":h$="" hAv=0:c=2:n=04:v,c;n,0;g$:n r;n=517:v;c;n,0;h$;n,27;h$:n |-n=1821:v;c;n,0;g$:n @8;5;1;1,8;" GOLFO PERSICO "  1;7;7,10 ;"-controles-";4;9 ,9 ;"arriba.......";1;"a";0;11 ,9 ;"abajo........";1;"z";0;5;13 ,9 ;"";2;" C.Uzquiaga";6;15,9 ;"--MICROHOBBY--" Y.1}L,10 :1;5;20,6;" pulse una tecla ":0  ************* !4final !>wn=10 0-1:.1}L,n:254,n:n:1;20,6;5;" Otra partida ? (s/n) " !HA0:z$=:.05|L,30:z$="s"8032`:502 !Rz$="n"9990' !\ 8520H! !**************** #212 ,21,11 ,14,14,20,16,18,13 ,12 ,15,8,10 ,17,11 ,9 ,13 ,21,12 ,13 ,14,14,16,18 #E0,0,0,0,255,63?,15,0 #H0,0,4,10 ,255,252,248,0 #F0,0,16,40(,84T,40(,16,0 #F0,0,16,40(,84T,40(,16,0 #C0,0,0,0,126~,0,0,0 #J81Q,145,74J,74J,82R,74J,41),68D #G0,60<,66B,90Z,90Z,66B,60<,0 #I0,0,0,0,113q,255,255,188 #J0,0,0,60<,255,255,255,219 #I0,0,0,0,198,255,255,222 #N137,137,72H,88X,145,137,82R,204 #L36$,36$,165,165,41),69E,74J,137 $J81Q,145,74J,74J,82R,74J,41),68D &H[30,32 ,34",36$,34",32 ,30,28,24,26 'sn=021:3582 :.005y# =,20+n*2:n:7:0:7::1,-12