ZXTape! 2[SUBMARINOS U-95 BATALLA NAVAL MICROPARADISE1984SPANISH ESTRATEGYNONE M-26733-84dU-95 Z Z~\ 0:0:0: "" 1:1 (1,0:"" ` @B><|<|<|<~<<~B<|~fBBBBBBBD@@@B@BBB@x888x88Z@BBBBBBB<|<~<<@$BB~@ fMANUAL >;{ > 1000 Z3f=07:.03{u\,t-f:f:f:1: [QF=621:F,0;"":F:7: \)0.2~L,25:.2~L,30: ]F=0100d:F ^K5;21,0;"(presione tecla para seguir)":=""94^ _92\:: `F=0100d:F a=""97a bSF=1721:F,0;" ":F:92\: 1:7:1: \1:7:2:12 ,5;"PARA EL CASSETTE":0:7:1  1 F=0500:F L6,0;6,0; " MANUAL DE INSTRUCCIONES " )M2;6;11 ,0; " BY Juan del Pozo. " *f=1900:f +I:6;10 ,0;"Quiere copia en impresora?(s/n)":0 , 0 1="s"Ŧ="S"lpr=1 2="n"Ŧ="N"lpr=0 3%"N"Ʀ"n"Ʀ"S"Ʀ"s"1068, 8P:" PULSANDO UNA TECLA APARECEN LAS INSTRUCCIONES DE LA PAGINA SIGUIENTE." G 93] L R Sj$=" MENSAJE A LA FLOTA 365 SYLDAVA LOS BORDURIOS ATACARON ELPUERTO DE SYLVA INESPERADAMENTE.UN SOLO SUBMARINO U-95 CONSIGUIOACABAR CON TODA NUESTRA FLOTA ALLI ANCLADA. POR OTRA PARTE LOS U-95 BORDURIOS SOBREPASAN LA FRONTERAQUE DIVIDE NUESTRAS AGUAS Y LAS SUYAS CONTINUAMENTE. " Tlpr=1j$ Ulpr=0j$ V 93] `yj$= " ESTO SIGNIFICA UNA AMENA-ZA A SYLDAVIA. LA FLOTA 365 DEBE CUMPLIRUNA MISION: DESTRUIR A LOS SUBMARINOSBORDURIOS. CADA DESTRUCTOR DISPONE DE UNA EXCELENTE TRIPULACION Y DE UN PRECISO RADAR. K.L. Lesklovsk (JEFE F.N.)" alpr=1j$ blpr=0j$ c 93] d75; " MAPA DE GUERRA(F.365)" ex=1525516:x,23:0,144:x:y=2316716:15,y:240,0:y j315,119w:7:8,-8:0,-8:8,-8:0,-16:-8,-8:8,-8:0,-8:16,-16:-8,-8:8,-4:0,-4:223,167:8,-8:8,0:16,-8 o175,167:2;2;0,-64@:2,2;80P,0:6;47/,23,2 q2;6;18,7;"X":3;6;12 ,8;"AGUAS SYLDAVAS":3;6;4,24;"AGUAS":3;6;6,23;"BORDURIAS" rlpr=1 } 93] ~j$= " REGLAS DEL JUEGO. _________________ ELECCION DE NIVEL DE JUEGO(1-5) PUEDEN JUGAR DE 1-4 JUGADO-RES.ELECCION DE NUMERO DE SUBMA-RINOS(1-4). CADA JUGADOR ELIGE SU COLOREL ORDEN DE ELECCION SERA IGUAL AL ORDEN DE JUEGO." lpr=1j$ lpr=0j$  93] j$= " HAY TRES FASES IMPOR- TANTES A LO LARGO DEL JUEGO: A)INFORMACION. B)MOVIMIENTO. C)POSIBILIDAD DE DISPARO. " lpr=1j$ lpr=0j$  93] j$= " A)INFORMACION. LA PRIMERA ACCION QUE PUEDE REALIZAR SI QUIERE ES CONSULTAR EL RADAR PARA PEDIR INFORMACION SOBRE LOS U-95." lpr=1j$ lpr=0j$  2j$= "PRESIONE LA TECLA S PARA PEDIR " lpr=1j$ lpr=02;j$ %j$= "INFORMACION." lpr=1j$ lpr=0j$  93] j$= " B)MOVIMIENTO. LA SEGUNDA FASE QUE PUEDE REALIZAR ES MOVER SU DES- TRUCTOR. " lpr=1j$ lpr=0j$  3j$= "PARA MOVER PRESIONE LA TECLA M. " lpr=1j$ lpr=02;j$   Elpr=02; "PRESIONE LA TECLA D PARA NO "  ,lpr=02; "MOVER." <lpr=1 " PRESIONE LA TECLA D PARA NO MOVER."  93] (;j$= " LA CAPACIDAD DE AVANCE DESU DESTRUCTOR ES DE DOS CUADROS: *DOS EN HORIZONTAL *DOS EN VERTICAL *O UNO EN DIAGONAL " )lpr=1j$ *lpr=0j$ 2 93] 9'j$= " N " :lpr=02;j$:: " LAS DIRECCIONES APARECEN INDICADAS ARRIBA.SI PONE ";6 ;"-N,S,E ";7; "U ";6; "O-";7; " ENTONCES PUEDE ELEGIR ENTREVELOCIDAD 1 O 2(1 O 2 CUADROS). EN CAMBIO LAS DEMAS DIRECCIONES SON A VELOCIDAD 1(1 CUADRO) YA QUE SU BUQUE DE GUERRA SOLO PUE-DE MOVER UN CUADRO EN DIAGONAL." ;lpr=1j$: " LAS DIRECCIONES APARECEN IN- DICADAS ARRIBA.PUEDE MOVER 1 O 2CUADROS EN -E,O,N,S- Y 1 CUADRO EN -NE,SE,NO,SO-(MOVIMIENTO EN DIAGONAL)." A 93] BYlpr=010 ,0;6;2; " PRESIONE ENTER CUANDO QUIERA " CMlpr=012 ,3;6;2;"INTRODUCIR UNA DIRECCION" DDlpr=1 "PRESIONE -ENTER- PARA INTRODUCIRUNA DIRECCION." E 93] FfJ$= " C)POSIBILIDAD DE DISPARO. LA TERCERA ACCION QUE PUEDE HACER ES PREGUNTAR SI PUEDE DISPARAR. PUEDE HACERLO EN CUANTO APAREZCA UNA LETRA P IN- TERMITENTE." GLPR=0j$ Hlpr=1j$ JFlpr=02; "PARA PREGUNTAR SU POSIBILIDAD DE" K MElpr=02; "DISPARO PRESIONE LA TECLA P. " N PFlpr=02; "PRESIONE LA N SI NO QUIERE DIS- " R T,lpr=02; "PARAR." Uvlpr=1 "PRESIONE LA TECLA P PARA PREGUN-TAR SU POSIBILIDAD DE DISPARO. PRESIONE N SI NO QUIERE DISPARAR" Y 93] ZJ$= " EXISTIRA LA POSIBILIDAD DE DISPARAR CUANDO TENGA UN SUB-MARINO U-95 A UN RADIO DE UN CUADRO DE SU DESTRUCTOR O DEBAJODE EL. SU DESTRUCTOR SOLO SE PUEDE OCUPAR DE ATACAR A UN U-95AUNQUE HAYA MAS A SU ALCANCE. SI ACIERTA LA PROFUNDI- DAD DEL U-95 LO HUNDE." [lpr=1j$ \lpr=0j$ _ 93] doj$= " MOVIMIENTO DE U-95 __________________ -SE PRODUCE ENTRE LA FASE B Y LA FASE C -EL U-95 ES MAS VELOZ QUE SU DESTRUCTOR PUDIENDO MOVER DOS CUADROS EN CADA SENTIDO(TAM- BIEN EN DIAGONAL)." elpr=1j$ flpr=0j$ i 93] nj$= " ATAQUE DE LOS U-95 __________________ -UN U-95 QUE CONSIGUE COLO- CARSE BAJO SU CASCO PUEDE ATACARLE. -UN U-95 PROTEJE SUS AGUAS TERRITORIALES COLOCANDO MI- NAS CUANDO USTED LAS INVADE Y EL SE ENCUENTRA EN ELLAS. -UN U-95 QUE DESCUBRE SU PUN- TO DE REPARACION(PUNTO X)CO- MIENZA LA INVASION DE SYLDA- VIA,FRACASANDO ASI LA MISION DE LA FLOTA 365. -UN DESTRUCTOR QUE CHOCA CON UNA MINA QUEDA DETRUIDO." olpr=1j$ plpr=0j$ s 93] t j$= " SIEMPRE QUE EXISTE PELIGRO DEQUE UN SUBMARINO LE ATAQUE,UN PITIDO LE AVISARA DEL PELIGRO. ENTONCES DISPONE DE 2 SEGUN- DOS DESPUES DEL PITIDO PARA PRE-SIONAR LA TECLA -E- Y ESCAPARSE. SI LA PRESIONA A TIEMPO PODRAMOVER DE NUEVO." uLPR=1J$ vLPR=0J$ w 93] x&j$= " MISION PUNTO X ______________ -CUANDO LE INDIQUEN ESTA MISION SU DESTRUCTOR DEBE DIRIGIRSE AL PUNTO CITADO(ver mapa). -SU RADAR SEGUIRA LOCALIZANDO SUBMARINOS BORDURIOS SI LO U- TILIZA,PERO NO PODRA DISPARAR FINALMENTE SOBRE NINGUN U-95. -UNA VEZ QUE HA LLEGADO AL PUN- TO X SU DESTRUCTOR ES REPARADO TOTALMENTE,PUDIENDO VOLVER A LA LUCHA." ylpr=1j$ zlpr=0j$ } 93] ~Oj$= " ENERGIA: LA UTILIZACION DE SURADAR ES LIMITADA.CADA VEZ QUE LO UTILIZA SU ENERGIA DISMINUYE 500 PUNTOS. CUANDO SE QUEDA SIN ENERGIA PIERDE EL RADAR.SI QUIE-RE RECUPERARLO Y RENOVAR SU ENERGIA VAYA AL PUNTO X." lpr=1j$ lpr=0j$  93] ;j$= " FUEL: TAMBIEN SU GASOIL ES LIMITADO.CUANDO SE QUEDA SIN FUEL NO PODRA MOVER NUNCA MAS. POR ELLO DEBE REPOSTAREN EL PUNTO X ANTES DE QUE ESTO LE OCURRA.EL FUEL DISMINUYE 10 LITROS POR CADA CUADRO DE AVANCE" lpr=1j$ lpr=0j$  93] #j$= " FASES O NIVELES: 1-GRUMETE-no existen minas 2-OFICIAL 3-CAPITAN 4-COMANDANTE 5-ALMIRANTE-pone mina por todo el terri- torio. ENERGIA Y FUEL VARIAN CON EL NIVEL." lpr=1j$ lpr=0j$ 93]:lpr=0 " SI ESTA JUGANDO Y QUIERE EMPEZAR UN NUEVO JUEGO PRESIONE LA ";2;7;"TECLA F " Mlpr=1 "SI QUIERE COMENZAR UN NUEVO JUE-GO PRESIONE LA TECLA F."  93] j$= " ULTIMO MENSAJE FLOTA SILDAVA. ESTRATEGIA A SEGUIR: *DETECTE LAS MINAS M-95 ESTUDIANDO LA SITUACION DEL U-95 ANTES DE ENTRAR EN SUS AGUAS. *ACORRALEN U-95 EN ZONAS FRONTERIZAS DONDE SU A- VANCE ES LIMITADO. *PROTEJA LA COSTA DE LA INVASION BORDURIA AL ME- NOS CON UN DESRUCTOR EN LA ZONA. K.L. Tlosvsky " lpr=1j$ lpr=0j$  93] >:" QUIERES VER LAS INSTRUCCIO- NES OTRA VEZ? " 21,14;"(S/N)"  0 ="s"Ŧ="S"1067+ $="N"Ŧ="n"2400` . 2310 `n0,0; "AHORA PUEDES CARGAR EL PROGRAMA PRINCIPAL." j2;5,0; " PON EN MARCHA LA CINTA. " o621,14;" ":15,0;" " t"" H"S":1500 .="N"2400` 8 2330 `X:"AHORA PUEDES CARGAR EL PROGRAMA PRINCIPAL. " j:" CONECTA EL CASSETTE" t""   "LOS CONTROLES SON :" : "1 A 5.........VELOCIDAD"  "6.....IZQ.","7.....DERE."  "8...ARRIBA","9.....ABAJO" %9 ,5;"0.........LASERS"  !:"L............MUEVE EL RADAR" :"J....SALTO AL HIPERESPACIO" !:"P............PARA ATERRIZAR" :"H....PARA","S...COMIENZO" 421,0;"CAPS SHIFT Y SPACE..RECOMIENZA"  #(XJS #2 #"ES POSIBLE USAR UN MANDO" #"ELIGE TU OPCION" #::"1........SIN MANDO" #:"2...MANDO INDESC. " #:"3...DATOS TECNICOS" #21,13 ;"(1/2/3)" # ="1" #="2"9215# #"3"9130# #:"SI LA PALABRA 'JOYSTICK'" # "SE ENCUENTRA EN LA DIRECCION" #""60000 DE MEMORIA, LOS DATOS DE" ##"ENTRADA SE ENVIARAN A LA RUTINA" #"SITUADA EN 60010." ##"LOS DATOS DEBERAN VOLVER AL RE-" #""GISTRO 'A'. LA DISPOSICION DE " #!"BITS DEBE SER LA DEL TECLADO." # :"ESTE PROGRAMA LO HACE ASI:" #:9210#: #:74J,79O,89Y,83S,84T,73I,67C,75K,0,0,197,1,254,191,237,120x,203,103g,32 ,9 ,1,254,253,237,120x,203,79O,32 ,250,219,31,6,3,79O,203,25,203,25,203,25,143,16,251,47/,79O,58:,155,234,47/,230,1,71G,121y,502,155,234,176,193,201,255,0 # 90102# $j=60000`60060 $X:J,X $"J: ed]peeJ ULTIMO MENSAJE FLOTA SILDAVA. ESTRATEGIA A SEGUIR: *DETECTE LAS MINAS M-95 ESTUDIANDO LA SITUACION DEL U-95 ANTES DE ENTRAR EN SUS AGUAS. *ACORRALEN U-95 EN ZONAS FRONTERIZAS DONDE SU A- VANCE ES LIMITADO. *PROTEJA LA COSTA DE LA INVASION BORDURIA AL ME- NOS CON UN DESRUCTOR EN LA ZONA. K.L. Tlosvsky S @EAB><|<|<|<~<<~B<|~fBBBBBBBD@@@B@BBB@x888x88Z@BBBBBBB<|<~<<@$BB~@ \+23613=\:ERR,0:ERR+1,0:23561 \,255:23562 \,255:236099\,502 3:3::1;5;0,0; " Juan del Pozo. " x=07 y "b"+x,y:x 00000000,00100000 ,00100000 ,01101100l,11111111,01111100|,00000000,00000000 H1,1;20,0;" "  260  3 ix=031:0.005y# =,x+38&:0.0009vkC,x+25:y=021:y,x;" ":y:x P 3::3:m1=0 Q/7;5,0;"NIVEL?(1,2,3,4,5)" R,0:>535ů<48082R Sa= TH0.1}L,40(:6;5,0;"NIVEL ";a;" " Ua=17,2;7;1;"FASE:GRUMETE";9 ,2;"ENERGIA:5000";" FUEL:400";11 ,2;"NO EXISTEN MINAS" Vka=27,2;7;1;"FASE:OFICIAL";9 ,2;"ENERGIA:3000";" FUEL:350" Wka=37,2;7;1;"FASE:CAPITAN";9 ,2;"ENERGIA:2000";" FUEL:300" Xna=47,2;7;1;"FASE:COMANDANTE";9 ,2;"ENERGIA:1500";" FUEL:250" Ya=57,2;7;1;"FASE:ALMIRANTE";9 ,2;"ENERGIA:2000";" FUEL:200";11 ,2;"MINAS POR TODA LA EXTENSION" Zx=1650:x ] bf9=0:kl=0 cPregunta jugadores dH5,0;7;1;"CUANTOS JUGADORES?(1,2,3,4)" n 0 x$<491ů>524110n zj$=:0.01z# =,40( }55,0;" " 1 Aj$="1"5,0;"O.K. ";j$;" JUGADOR. " Aj$"1"5,0;"O.K. ";j$;" JUGADORES. " 100d O5,0;7;2;"CUANTOS SUBMARINOS?(1,2,3,4) " 0 $<491ů>524175 s$=:0.01z# =,40( 55,0;" " As$="1"5,0;"O.K. ";s$;" SUBMARINO. " As$"1"5,0;"O.K. ";s$;" SUBMARINOS. " 100d 55,0;" " 4:4: Mx=118:5;x,2;" ":x Dibuja rayas verticales 1 x=1525516 x,23:0,144 x Dibuja rayas horizontales x=2316716 15,x:240,0 x dibuja tierra abajo  2 "%x=14:y=120x:z=97a ,r=18 6'x=x+1:y=y-1:z=z-1 @x,y:0,-z Jr T%x=22:y=104h:z=34" ^r=18 h'x=x+1:y=y-1:z=z-2 rx,y:0,-z |r $x=22:y=72H:z=491 r=18 'x=x+1:y=y-1:z=z-1 x,y:0,-z r $x=30:y=568:z=33! r=18 'x=x+1:y=y-1:z=z-1 x,y:0,-z r $x=38&:y=480:z=18 r=18 'x=x+1:y=y-1:z=z-2 x,y:0,-z r #x=38&:y=32 :z=9 &r=18 0'x=x+1:y=y-1:z=z-1 :x,y:0,-z Dr I 600X XDibuja tierra de arriba ] 2 b&x=222:y=168:z=33! lr=18 q'x=x+1:y=y-1:z=z-1 vx,y:z,0 r &x=238:y=160:z=17 r=18 'x=x+1:y=y-1:z=z-1 x,y:z,0 r f9=18600! %0:17,121y,1 $3:35#,89Y,1 $2:35#,579,1 $1:491,41),1 |6,0;0;"";10 ,0;3;"";14,0;2;"";16,0;1;"" 0:0,151:10 ,0:0,-16:-10 ,0:0,16:2;7;2,0;"m" ;a=16;0;0,23;"#GRUMETE" ;a=26;0;0,24;"#OFICIAL" ;a=36;0;0,23;"#CAPITAN" >a=46;0;0,21;"#COMANDANTE" =a=56;0;0,22;"#ALMIRANTE" j$=491j=1 j$=502j=2 j$=513j=3 j$=524j=4  3 #a(4):v(4):c(4):g(4):q(4):r(4):f(4):w(4):x(6):a$(6):i(6):t(4):u(4):d(6):b(6):k(4):l(4):h(6):n(6):z(4):m(502):o(502):p(4):y(4) Tj$"4"j$"1"20,0;7;3;"QUE COLORES QUIEREN?(1,2,3,0)" Lj$="1"20,0;7;3;"QUE COLOR QUIERE?(1,2,3,0) " j=4860\  x=1j  0 $<480ů>513780   790  x=x-1:850R x>1800   840H  y=1x-1 *=a$(y)780  4y H8a$(x)=:21,x*2;a$(x):0.1}L,502 Rx \j=4865a _ 940 aDa$(1)="0":a$(2)="3":a$(3)="2":a$(4)="1" Random submarinos s$="1"s=1 s$="2"s=2 s$="3"s=3 s$="4"s=4   x=1s >t(x)=((((/1.99~Q)*10 ))+9 )*16-1 3u(x)=(((*10 ))+1.5@)*16-1 x>11020  1060$ y=1x-1 !t(x)=t(y)u(x)=u(y)1040  1050 x=x-1:1060$ y $x Z m=-4 [ x=1j \ m=m+5 ] 1;7;0,m;x ^x  x=1j a$(x)="1"i(x)=1 a$(x)="2"i(x)=2 a$(x)="3"i(x)=3 a$(x)="0"i(x)=0 "x "Da valor a coordenadas de barcos  q=1j ,a=1w(q)=5000:f(q)=400 ,a=2w(q)=3000 :f(q)=350^ .a=3w(q)=2000:f(q)=300, .a=4w(q)=1500:f(q)=250 .a=5w(q)=2000:f(q)=300, q k9=w(1)  x=1j i(x)=12015  2020 b(x)=39':d(x)=47/ i(x)=22025  2040 d(x)=31:b(x)=557 i(x)=32045  2060  d(x)=31:b(x)=87W  i(x)=02065  2070 d(x)=15:b(x)=119w x  g20,0;" ":21,2;" " $m1=0:u1=0:z1=1 q=1j Y20,31;" ":h(q)=120,31;7;2;1;"x" 420,13 ;" ";20,23;" " y(q)=15900  u9=0:jr=0 ,Primera parte,da informacion del submarino i(q);6;20,0;"JUGADOR ";q;6;1;20,11 ;"E=";20,18;7;3;"FUEL:":w(q)>10001;7;20,13 ;w(q) Ew(q)10002;1;7;20,13 ;w(q) ;f(q)>13020,23;7;3;f(q) Df(q)1301;7;2;20,23;f(q) Bf(q)07;1;1;20,29;"M": w(q)=03038 320,27;7;1;1;"S" ހf(q)=07;21,0;"SU DESTRUCTOR SIN FUEL. ":7;1;1;20,29;"D" 0 ="f"Ŧ="F"6040 ="s"Ŧ="S"3058 %="m"Ŧ="M"jr=1:5020 %="d"Ŧ="D"jr=1:5350 3040 220,27;" ":w(q)=03038 uw(q)=w(q)-500:20,13 ;" ":1:w(q)>100020,13 ;7;1;w(q) Ew(q)10007;1;2;20,13 ;w(q) x=1s p(x)=14090 f=0 h0.15~,5:t(x)=239u(x)=1516;1;t(x)+3,u(x)-3,0 Tu(x)=167t(x)2236;1;t(x)+3,u(x)-3,0 Tt(x)=255u(x)1516;1;t(x)-3,u(x)+3,0 Tt(x)=223u(x)=1676;1;t(x)-3,u(x)-3,0 +u(x)=151t(x)=2393072 Tu(x)167t(x)2556;1;t(x)+3,u(x)+3,0 Tt(x)=255u(x)=1516;1;t(x)-3,u(x)-3,0 >t(x)=d(q)u(x)=b(q)-32 u(x)=b(q)+32 4000 Qt(x)=d(q)-32 u(x)=b(q)u(x)=b(q)+32 u(x)=b(q)-32 4000 Qt(x)=d(q)+32 u(x)=b(q)u(x)=b(q)+32 u(x)=b(q)-32 4000  4010 [f=1:s>1x;9 ;21,0;"SUBMARINO ";x;" EN RADIO DE ACCION." x=s4005  150 Ms=1x;9 ;21,0;"SUBMARINO EN RADIO DE ACCION. " >t(x)=d(q)u(x)=b(q)-16u(x)=b(q)+164040 Qt(x)=d(q)+16u(x)=b(q)u(x)=b(q)-16u(x)=b(q)+164040 Qt(x)=d(q)-16u(x)=b(q)u(x)=b(q)+16u(x)=b(q)-164040  4050 \f=1:s>1x;9 ;21,0;" SUBMARINO ";x;" A DISTANCIA 1 " x=s4045  150 Ms=1x;9 ;21,0;"SUBMARINO A DISTANCIA 1. " !t(x)=d(q)u(x)=b(q)4060  4070 \f=1:s>1x;9 ;21,0;"SUBMARINO ";x;" BAJO SUS NARICES. " x=s4065  10 [f=0s>1x;9 ;21,0;"SUBMARINO ";x;" ALEJADO. " x=s4075  150 Xf=0s=1x;9 ; 21,0;"SUBMARINO ALEJADO. " x w(q)=00.2~L,45-:0.2~L,502:0.2~L,557:21,0;1;7;1;"HA GASTADO TODA SU ENERGIA ":X=1150:X:21,0;I(Q);9 ;"PARA RENOVARLA IR A PUNTO X. " Segunda parte,mueve el barco  0 ="m"Ŧ="M"5010 ="f"Ŧ="F"6040 ="d"Ŧ="D"5350  5005 8x=1s:u(x)=151t(x)=2395012 cu(x)167t(x)2551;i(q);5;0;t(x)+3,u(x)+3,0 cu(x)=167t(x)223i(q);5;0;1;t(x)+3,u(x)-3,0 ct(x)=255u(x)1511;i(q);5;0;t(x)-3,u(x)+3,0 ct(x)=255u(x)=1511;i(q);5;0;t(x)-3,u(x)-3,0  u9=1 ct(x)=223u(x)=1671;i(q);5;0;t(x)-3,u(x)-3,1 dt(x)=239u(x)=151i(q);5;0;1;t(x)+3,u(x)-3,1 x `15,167:1;208,0:255,23:1;0,128 I20,27;" ";20,29;" ":f(q)=03038 1;"Rumbo?",r$ Er$="N"r$="n"r$="S"r$="s"r$="E"r$="e"r$="O"r$="o"5050 Mr$="NE"r$="ne"r$="SE"r$="se"r$="SO"r$="so"r$="NO"r$="no"5100  5027 #7;"Velocidad? (1,2) ";v$ v$"2"v$"1"5050 "v$="2"f(q)=10 5050 v$="2"f(q)=f(q)-20 v$="1"f(q)=f(q)-10  9800H& .r$="N"r$="n"v$="1"g=0:c=16 .r$="N"r$="n"v$="2"g=0:c=32 /r$="S"r$="s"v$="1"g=0:c=-16 /r$="S"r$="s"v$="2"g=0:c=-32 .r$="E"r$="e"v$="1"g=16:c=0 .r$="E"r$="e"v$="2"g=32 :c=0 /r$="O"r$="o"v$="1"g=-16:c=0 /r$="O"r$="o"v$="2"g=-32 :c=0  5120 f(q)=f(q)-10  9800H& )r$="NE"r$="ne"g=16:c=16 *r$="SE"r$="se"g=16:c=-16 +r$="SO"r$="so"g=-16:c=-16 *r$="NO"r$="no"g=-16:c=16 d(q)=d(q)+g:b(q)=b(q)+c 9+d(q)=47/b(q)=23h(q)=0 <Dibuja linea de movimiento Ai(q) I*d(q)=15b(q)<119w5210Z K)d(q)=31b(q)95_5210Z L)d(q)=39'b(q)47/5210Z M+b(q)=167d(q)>2235210Z NGd(q)<15d(q)>255b(q)<23b(q)>1675340 P3d(q)-g,b(q)-c:i(q);g,c:let=0:9890& Qc=05205U R&g=0d(q)=2559700% S&g=0d(q)2555206V T 5207W UPd(q)-g,b(q)-c+1:i(q);g,c:d(q)-g,b(q)-c-1:i(q);g,c:5208X VVi(q):d(q)-g+1,b(q)-c:i(q);g,c:d(q)-g-1,b(q)-c:i(q);g,c:5208X Wji(q):d(q)-g-1,b(q)-c+1:i(q);g,c:d(q)-g+1,b(q)-c+1:d(q)255i(q);g,c X 8000@ d y=1j iq=y5240x n!d(q)=d(y)b(q)=b(y)5260 xy  5270 d(q)255b(q)1672:d(q),b(q):-2,5:2,-5:2,5:2,-5:2,5  f8=1 0.1}L,30:0.1}L,30:5;1;;21,0;"COLISION!!DIRIJASE A PUNTO x. ":h(q)=1:2;7;1;20,31;"x"  5330 8d(q)=15b(q)<119wb(q)>47/5300 )d(q)=15b(q)47/5310 )d(q)=31b(q)95_5310 )d(q)=39'b(q)47/5310 +b(q)=167d(q)>2235320  5330 f8=0:5;5;1;21-(b(q)/8-(c/8)),d(q)/8-(g/8);"":d(q)=31:2:d(q),b(q):-2,5:2,-5:2,5:2,-5:2,5:let=1:9890& f8=0:5;5;1;21-(b(q)/8-(c/8)),d(q)/8-(g/8);"":d(q)=47/:2:d(q),b(q):-2,5:2,5:2,-5:2,5:let=1:9890& d(q)=239:5;5;1;21-(b(q)/8-(c/8)),d(q)/8-(g/8);"":f8=0:b(q)=151:d(q),b(q):2:-2,5:2,-5:2,5:2,-5:2,5:let=1:9890&  5350 0.1}L,502:0.1}L,557:7;5;21,0;"HA SALIDO DE AGUAS TERRITORIALES":180:21,0;7;5;"JUGADA INUTIL. ":d(q)=d(q)-g:b(q)=b(q)-c g20,27;" ";20,29;" ":m1>40(5359:Tercera parte,mueve submarino 0r=1s:a=55357:poNE MINAS p(r)=15358 5d(q)175b(q)103ga15355  5358 5t(r)175u(r)103ga15357  5358 m1=m1+1:m(m1)=t(r):o(m1)=u(r):x=14:0.009ztj,x*15:254,x:x:r;9 ;21,0;"ATENCION:RADAR DETECTA MINA. ":7;2;1;4,0;m1:60< r #u9=1jr=15369 8x=1s:u(x)=151t(x)=2395362 cu(x)167t(x)2551;i(q);5;0;t(x)+3,u(x)+3,0 cu(x)=167t(x)2231;i(q);5;0;t(x)+3,u(x)-3,0 ct(x)=255u(x)1511;i(q);5;0;t(x)-3,u(x)+3,0 ct(x)=223u(x)=1671;i(q);5;0;t(x)-3,u(x)-3,1 dt(x)=239u(x)=151i(q);5;0;1;t(x)+3,u(x)-3,0 ct(x)=255u(x)=1511;i(q);5;0;t(x)-3,u(x)-3,0 x `15,167:1;208,0:255,23:1;0,128   r=1s p(r)=15550 k(r)=((*3))*16 k(r)=32 5420, k(r)=1654306 "k(r)=05440@ ,l(r)=((*2))*32 1 5450J 6l(r)=((*2))*16 ; 5450J @l(r)=((*3))*16 Jv=(*2) Ov=1k(r)=-k(r) Tv=(*2) Yv=1l(r)=-l(r) ^t(r)=t(r)+k(r) hu(r)=u(r)+l(r) r*t(r)=15u(r)<119w5540 |)t(r)=31u(r)=39'5540 )t(r)=31u(r)=235540 *t(r)<15t(r)>2555540 +t(r)>223u(r)=1675540 )t(r)=47/u(r)=236500d *u(r)<23u(r)>1675540  5550 9t(r)=t(r)-k(r):u(r)=u(r)-l(r):r=r-1:5550 r  y=1s .t(y)=d(q)u(y)=b(q)7500L:5555  5558 d(q)255b(q)1672:d(q),b(q):-2,5:2,-5:2,5:2,-5:2,5 {p=142*:0.009ztj,p/5:254,p:p:0.1}L,30:0.1}L,30:h(q)=1:100d:q;9 ;21,0;"SUBMARINO ATACA AL JUGADOR ";q;". " :150:q;9 ;21,0;"GRANDES DESTROZOS EN EL CASCO. ":170:9 ;q;21,0;"DIRIJASE A PUNTO x. " =2;7;1;20,31;"x":90Z y #random profundidad del submarino.   r=1s p(r)=15590 z(r)=(*3) r GCompara posicion del barco y submarino para posibilidad de disparo 37;1;1;20,27;"P"  0 &"p"Ʀ"P""n"Ʀ"N"5605 20,27;" " ="n"Ŧ="N"5900   r=1s p(r)=15660 >t(r)=d(q)u(r)=b(q)-16u(r)=b(q)+165650 Qt(r)=d(q)+16u(r)=b(q)u(r)=b(q)-16u(r)=b(q)+165650 Qt(r)=d(q)-16u(r)=b(q)u(r)=b(q)-16u(r)=b(q)+165650  !t(r)=d(q)u(r)=b(q)5650  5660 s=15655 n(q)=1:1;r;9 ;21,0;"SUBMARINO ";r;" A SU ALCANCE. ":150:9 ;R;9 ;21,0;"TODO LISTO PARA DISPARAR. ":200:5670&  5660 n(q)=1:1;r;9 ;21,0;"SUBMARINO LOCALIZADO. ":150:9 ;r;9 ;21,0;"TODO PREPARADO PARA DISPARAR. ":200:5670& r :h(q)=15715S Dn(q)=15720X Nas11;21,0;"SUBMARINOS FUERA DE SU ALCANCE ":200:5900  Pas=11;21,0;"SUBMARINO FUERA DE SU ALCANCE ":200:5900  S21,0;2;6;"MISION:PUNTO x ":200:21,0;" ":5900  XA21,0;7;" Profundidad?(0,1,2) " l 0 v"0"Ʀ"1"Ʀ"2"5740l {*0.1}L,60<:21,28; =480z1=0 =491z1=1 =502z1=2 z1=z(r)5810  5824 :x=1252:0.1}L,x/4:254,x:x x=18:0.1}L,-45-:104h,x/5:x:x=13:0.1}L,-27:x:x=18:0.1}L,-502:x:x=14:0.1}L,-27:x s=15815 PR;9 ;21,0;"SUBMARINO ";r;" HUNDIDO. ":5816 >21,0;1;"SUBMARINO HUNDIDO. " <p(r)=1:u1=u1+1:x(q)=x(q)+1:9500% `u(r)167t(r)2556;7;t(r)+3,u(r)+3,1:5825 Qu(r)=1676;7;t(r)+3,u(r)-3,1:5825 Qt(r)=2556;7;t(r)-3,u(r)+3,1:5825  100d Tu(r)167t(r)2555;5;t(r)+3,u(r)+3,0 Eu(r)=1675;5;t(r)+3,u(r)-3,0 Et(r)=2555;5;t(r)-3,u(r)+3,0 Br;9 ; 21,0;"FALLO!!!!! "  200 u1=s6000p  r=1s p(r)=1t(r)=0 p(r)=1u(r)=0 u1=s6000p r  Gn(q)=0:21,0;" ":q  3010 ps=16020 z\i(q);9 ;21,0;"TODOS LOS SUBMARINOS HUNDIDOS. ":200:6021 Oi(q);9 ; 21,0;"FELICITACIONES!!SUBMARINO OUT!":200 H5;1;21,0;"PRESIONE -S- PARA VER RESULTADOS" .0:="S"Ŧ="s"9950&:6040  6023 ax=1502:x::21,0;2;6;"Quiere volver a jugar?(s/n) "  0 ="s"Ŧ="S"6080 ="n"Ŧ="N"6090  6050   80P : d)cuando un submarino descubre el punto x i*0.1}L,0.2~L:0.2~L,0.3 n-6;1;502,26,0 sR;20,0;"SUBMARINO ";r;" INICIA INVASION.":200:21,0;"PUNTO x HA SIDO DESCUBIERTO. ":200:20,0;" HAN FRACASADO ":21,0;" SU MISION " x200:6022 X1cuando todos los barcosson destruidos por minas ]j=17020l b1;5;20,0;"TODOS LOS BARCOS DESTRUIDOS ":2,5;21,0;"LOS SUBMARINOS HAN VENCIDO!!!!!":200 g 7030v l1,5;20,0;"MISION FRACASA.EL ENEMIGO INVADE":2,5;21,0;"NUESTRA FRONTERA . ":200 vC0;5;20,0; " ":230:0.2~L,0.0001sQX:0.2~L,002:0.9ffff,0.001wn:2;1;20,0; " \~ ||~ \/ " { 200  6022 Lsubmarino apuntodeatacar Nhy;9 ;1;21,0;"SUBMARINO ";y;" VA A ATACAR.";2;7;1;"T-E" O<p=112 :0.05|L,p*5/p:254,p:p S}1:23560\=101ež23560\=69Ep=12:0.01z# =,p*20:254,p:p:5020 T ? @+subrutina,borra manchas en campo de juego !4f9=1:280 ! cuando barco encuentra punto x !)d(q)=47/b(q)=238609! ! 8700! !Dp=14:0.01z# =,p*10 :104h,p:p:21,0;5;1;1;"BUQUE EN PUNTO X.REPOSTANDO!!!. ":p=128:p:p=14:0.02{# =,p*10 -p:104h,p:p:21,0;6;1;1;"BUQUE ";q;" LISTO PARA LA LUCHA!!! ":k1=w(q):k2=f(q) !,a=1w(q)=5000:f(q)=400 !,a=2w(q)=3000 :f(q)=350^ !.a=3w(q)=2000:f(q)=300, !.a=4w(q)=1500:f(q)=250 !.a=5w(q)=2000:f(q)=300, !{h(q)=0:20,31;" ";20,13 ;7;1;w(q):20,23;7;3;f(q) !*r(q)=w(q)+(w(q)-k1):q(q)=f(q)+(f(q)-k2) #('subrutina,cuando barco choca con mina #2x=120 #k9r(1)+v(1)1307;3;20,23;f(q) &L5f(q)130f(q)07;2;1;20,23;f(q):0.2~L,60<:0.2~L,502:0.2~L,557:3;7;1;21,0;"ATENCION:DEPOSITO EN RESERVA!!! ":x=1110n:x:7;21,0;"PARA REPOSTAR IR A PUNTO X " &Nf(q)=020,23;1;7;2;f(q):0.1}L,40(:0.1}L,502:0.1}L,60<:21,0;1;5;"SE HA QUEDADO SIN FUEL. ":x=1110n:x:21,0;7;"SU DESTRUCTOR QUEDA AISLADO. " &R &/subrutina dibuja circulo al final de trayecto &1d(q)=255i(q);d(q)-3,b(q),2 &)d(q)255i(q);d(q),b(q),2 &wr$="so"r$="SO"b(q)23i(q);5;1;21-(b(q)/8)+1,d(q)/8;"":9907& &bd(q)255b(q)167i(q);1;5;21-(b(q)/8),d(q)/8;"" &Cb(q)=167i(q);5;1;1,d(q)/8;"" &Od(q)=255i(q);1;5;21-(b(q)/8),31;"" &a(q)=15;5;1;21-(b(q)/8)+1+(c/8),d(q)/8-(g/8);"":d(q)-g,b(q)-c:1;16,0:9912& &d(q)-g255b(q)-c1675;5;1;21-(b(q)/8)+(c/8),d(q)/8-(g/8);"" &U b(q)-c=1675;5;1;1,d(q)/8-(g/8);"" &`d(q)-g=2555;5;1;21-(b(q)/8)+(c/8),31;"" &:r$="so"r$="SO"b(q)23a(q)=1:9914& &a(q)=0 &b(q)=23a(q)=0 &let=15265 &let=05201Q &subr.puntuaciones & q=1j &6a=1v(q)=5000-w(q):c(q)=400-f(q) &6a=2v(q)=3000 -w(q):c(q)=350^-f(q) &6a=3v(q)=2000-w(q):c(q)=300,-f(q) &6a=4v(q)=1500-w(q):c(q)=250-f(q) &6a=5v(q)=2000-w(q):c(q)=300,-f(q) &q & & q=1j &:i(q);9 ;"JUGADOR ";q;" SUBMARINOS HUNDIDOS:";x(q)::i(q);9 ;"ENERGIA CONSUMIDA:";r(q)+v(q):i(q);9 ;"FUEL CONSUMIDO:";q(q)+c(q) &q &q=1j:g(q)=x(q):q &^j=17;21,0;"PRESIONE TECLA PARA CONTINUAR":0:9750&: &1q=1j:x=1q:x(q)x(x)9977& &k=x(x):x(x)=x(q):x(q)=k &x:q &\21,0;7;"PRESIONE -S- PARA CONTINUAR":0:"s"Ʀ"S"9978& &%:K11=0:x=j1-1 &q=1j:x(x)=g(q)k11=1i(q);9 ;" JUGADOR ";q;6;2;" subs.";x(x):g(q)=9 :x(x)=x(j)1;5;" QUEDAN ASCENDIDOS":k11=0:9988' &x=1x(x)=g(q):j-x+1;"o-";i(q);9 ;"JUGADOR ";q;2;6;" subs.";x(x):x(1)=01;5;"EXPULSADO DE LA FLOTA!!":9989' &x(x)=g(q)9984' & 9987' 'x1x(x-1)x(x):j-x+1;"o-";i(q);9 ;"JUGADOR ";q;6;2;" subs.";x(x):g(q)=9 :x(x)=x(j)1;5;" QUEDA ASCENDIDO":9988' 'kx1X(X-1)=x(x)k11=1::g(q)=9 :j-x+1;"os-";i(q);9 ;"JUGADOR ";q; ' 9988' 'q 'x 'a=1o$="OFICIAL" ' a=2o$="CAPITAN" ' a=3o$="COMANDANTE" ' a=4o$="ALMIRANTE" ' 7;19,0;"MENSAJE DE K.L TLOVSKY:":a55;1;20,0;"NUEVO RANGO PARA ASCENDIDOS:";21,15;o$ ' ra=520,0;1;5;"LOS ALMIRANTES ASCENDIDOS RECI- BEN UNA MEDALLA DE GUERRA." 'x=1400:x::x=1j:y(x)=1::9 ;i(q);"BUQUE ";x;" FUE HUNDIDO.":1;5;"QUEDA DEGRADADO A GRUMETE." ''x:x=1100d:x:6040  az jsm gcevJ1S1, ! 1 !N!!g!!22fV1 OR"":"S"16384@,42000:5 S @E@ @^1 \,255:23562 \,255:236099\,502