r?qw42D:\E80":f Mf=79 :f,15;0;6;1;1;"":f Of=10 13 :f,15;0;4;1;1;"":f K L@f=0100d:(*256),(*120x)+502:f tbm7=11 :m1=0:m2=10 :m3=1:m4=3:m5=5:m6=7:m8=9 pok,bic:m3,m2;" ";m4,m2;" ";m5,m2;" ";m6,m2;" ";m7,m2;" ";m8,m2;" ";m1,m2;" ":m2=m2+((x>m2)-(x17m1=0 6;m1,m2;""  x<2y,x;" ":x=2 "x>29y,x;" ":x=29 5;m3,m2;"" 4;m4,m2;"" 3;m5,m2;"" 2;m6,m2;"" 1;m8,m2;"" 7;m7,m2;""  ?f=0502:(*256),(*120x)+502:f 1#1;"...EL FINAL HA LLEGADO...LUCHA!!"  ?f=0502:(*256),(*120x)+502:f -#1;" " w x?f=0502:(*256),(*120x)+502:f yUpok,esc:f=05:1;f,0;0;6;1;"":f zLf=05:1;f,30;0;7;1;"":f (*7):0  ?f=0502:(*256),(*120x)+502:f (*7):0 ?  dm=100d m1=0:m2=16  pok,mon1 8m1,m2;" ";m1+1,m2;" ";m1+2,m2;" " Gm2=m2+((x>m2)-(x15m1=0 J5;m1,m2;"";6;m1+1,m2;"";m1+2,m2;"" pok,dis:1;10 ,3;"";13 ,6;"";5,10 ;"";8,15;"";3,0;"";12 ,20;"";7,25;"";6,30;"";3,28;"" x>28x=28  /m1=0:m2=15:dm=20:pok,bic ;Npok,bic:m1+3,m2;" ";m1,m2;" ";m1+1,m2;" ";m1+2,m2;" " ?Om2=m2+((x>m2)-(x17m1=0 DW6;m1,m2;"";m1+1,m2;"";m1+2,m2;"";m1+3,m2;5;"" E;6;m1,m2;"";m1+1,m2;"";m1+2,m2;"" Npok,dis:1;10 ,3;"";13 ,6;"";5,10 ;"";8,15;"";3,0;"";12 ,20;"";7,25;"";6,30;"";3,28;"" k lApok,bic:0,15;6;"";1,15;"" m pok,mon2 p:0,12 ;4;"";0,17;"" dm=502 m1=2:m2=15 pok,bic:m1,m2;" " Tm2=m2+((x>m2)-(x17m1=2:m2=15 (pok,mon1:7;1;m1,m2;"" x=12 yy,xx;" ":3;100d,167:3;0,-130:1:.10}L,40(:0:f=117:f,12 ;7;" ":f:v=v-1:810*:v=0v=1:460 x=19yy,xx;" ":3;157,167:3;0,-130:1:.10}L,40(:0:f=117:f,19;7;" ":f:v=v-1:810*:v=0v=1:460 pok,dis:1;10 ,3;"";13 ,6;"";5,10 ;"";8,15;"";3,0;"";12 ,20;"";7,25;"";6,30;"";3,28;"" x<2x>29x=xx  &dm=502:m1=0:m2=15 !Bpok,mon1:m1,m2;" ";m1+1,m2;" ";m1+2,m2;" " !Im2=m2+((x>m2)-(x15m1=0 ! A6;m1,m2;" ";m1+1,m2;"";m1+2,m2;"" !pok,dis:1;10 ,3;"";13 ,6;"";5,10 ;"";8,15;"";3,0;"";12 ,20;"";7,25;"";6,30;"";3,28;"" !3 !4dm=100d !\m1=0:m2=15 !f pok,mon2 !g8m1,m2;" ";m1+1,m2;" ";m1+2,m2;" " !kIm2=m2+((x>m2)-(x15m1=0 !pepok,mon1:4;m1,m2+1;"":pok,mon2:m1+1,m2;5;"";m1+2,m2;"" !zpok,dis:1;10 ,3;"";13 ,6;"";5,10 ;"";8,15;"";3,0;"";12 ,20;"";7,25;"";6,30;"";3,28;"" ! !?dm=200:m3=0:m4=3:m1=0:m2=16 ! pok,mon1 !8m1,m2;" ";m1+1,m2;" ";m1+2,m2;" " !Gm2=m2+((x>m2)-(x15m1=0 !J5;m1,m2;"";6;m1+1,m2;"";m1+2,m2;"" !8m3,m4;" ";m3+1,m4;" ";m3+2,m4;" " !Im4=m4+((x>m4)-(x15m3=0 !J4;m3,m4;"";6;m3+1,m4;"";m3+2,m4;"" !pok,dis:1;10 ,3;"";13 ,6;"";5,10 ;"";8,15;"";3,0;"";12 ,20;"";7,25;"";6,30;"";3,28;"" !x>27x=27 ! !pok,mon2:dm=502 "^0,13 ;"";1,8;"";1,16;"" "1,13 ;"" "# int=0 "$m3=2:m2=14 "%cn>10 int=5 "&'sp10 cn10 int=20 "'sp>10 int=5 ". m1=(*int) "3m1=1pok,mon2:f=117:f,8;"";f,8;" ":f:3:1,8;4;"":0:pok,nav:x8x12 y,x;4;n$:9760 & "4m1=2pok,mon2:f=117:f,16;"";f,16;" ":f:3:1,16;4;"":0:pok,nav:x16x20y,x;4;n$:9760 & "8pok,bic:m3,m2;" " ":Tm2=m2+((x>m2)-(x17m3=2:m2=14 "@(pok,mon1:7;1;m3,m2;"" "Bpok,dis:1;10 ,3;"";13 ,6;"";5,10 ;"";8,15;"";3,0;"";12 ,20;"";7,25;"";6,30;"";3,28;"" "_ #2[f=021:f,0;"";f,31;"":f:f=031:0,f;"";21,f;"":f:f=0212:f,0;"";f,31;"":f:f=0312:0,f;"";21,f;"":f:0:0:f=71-1:1,12 ;f;"ASEXT II" #3=f=71-1:1,12 ;f;"ASEXT II" #41;3;13 ,9 ;"5) TECLADO";7;5,9 ;"1) REDEFINIR";7,9 ;6;"2) INSTRUCCIONES";9 ,9 ;5;"3) JUGAR";11 ,9 ;4;"4) JOYSTICK KEMPSTON" #6E7;1;15,2;"1988 JN.18 PSY & SCATHING S." #7J18,1;"RECORD POR ";6;A$;7;" CON ";5;HI #<="1"9025A# #=="2"9030F# #>="3":502 #?(="4".10}L,40(:joy=1 #@(="5".10}L,40(:joy=0 #A5:f:90113# #B6;"IZQUIERDA: ";t$(1):5;"DERECHA: ";T$(2):4;"DISPARO: ";T$(3):3;"PAUSA: ";T$(4):2;"ABANDONO: ";T$(5):9000(# #Fm$=" NO HABIA ACABADO TODO,EL MALVADO GRINING DESPUES DE UN ANO,VUELVE PARA VENGARSE CON MAS TROPAS,AHORA EL NO IRA A TI,TU DEBES BUSCARLE...! " #G^F=1̱m$-31:20,0;6;m$(ff+31);:2:f:9000(# %Of=70-1:5,9 ;f;"TODO HA ACABADO":5:f %B502::f=0502:(*256),(*176):f %NEsc>hihi=sc:10 ,12 ;" RECORD ":"COMANDANTE: ";a$ %bs10 ,0;" ":10 ,0;5;"RECORD DE HOY POR ";6;A$ %l 0:0::9000(# % %>:750:x=16:y=17:lv*100d+8000@ %Q#0;1,0;"ENEMIGO: ";5;dm;" ":dy=18:dx=0 %xx=x %Ax=x-(=t$(1))+(=t$(2)):x<1x>29x=xx %Njoy=1x=x-(=162)+(=161):x<1x>29x=xx %Ddy=18=t$(3).020{# =,30:dy=16:dx=x %Qjoy=1dy=18=176.020{# =,30:dy=16:dx=x %8=t$(4)(*7):0:0:0 %%=t$(5)v=1:450 %lv*100d+8050r %P(17,x)7v=v-1:810*:v=0v=1:460 %dy<189700% %-dm0pok,nav:lv=lv+1:lv<8sc=sc+lv*10000':f=017:f,0;" ":f:f=160-1:f+1,x-1;" ";f,x-1;n$:f::10 ,12 ;" FASE: ";7;2;lv;" ":0:0: %lv=8:f=0502:(*256),(*176):f:5;80P,80P,80P:f=211-1:pok,nav:f,25;"":10 :f,25;" ":0,0;"LA TIERRA HA SIDO SALVADA...":f:9995 ' %<pok,nav:17,xx-1;" ";17,x-1;n$ % 9620% %cn=1dy,dx;" " % cn1dy,dx-1;" " % cn1dy,dx+1;" " &*dy=dy-2:dy<0dy=18: & 9cn=1(dy,dx)<79790>&:dy=18: &!Acn1(dy,dx-1)<79790>&:dy=18: &"Acn1(dy,dx+1)<79790>&:dy=18: &%Acn=1(dy+1,dx)<79790>&:dy=18: &&Icn1(dy+1,dx-1)<79790>&:dy=18: &'Icn1(dy+1,dx+1)<79790>&:dy=18: &4 cn=1pok,dis:dy,dx;d$ &5(cn1pok,dis:dy,dx-1;d$ &6(cn1pok,dis:dy,dx+1;d$ &= &>Ldm=dm-sp:dm=dm-cn:#0;1,0;"ENEMIGO: ";5;dm;" " &C &HSprog=-(23635S\+256*23636T\)+(23641Y\+256*23642Z\) &ISfree=-(23641Y\+256*23642Z\)+(23730\+256*23731\) &J>"PROGRAMA: ";PROG;" BYTES ";(PROG/1024);" KBYTES" &KX1,0;"FREE:";1,10 ;FREE;" BYTES ";(FREE/1024);" KBYTES" &f 0:: ' 200::0,0;7;"DE NUEVO LA ARMADA ASEXT HA VEN-";2,0;"CIDO,EL MALVADO GRINING PARECE";4,0;"SER QUE HA HUIDO,PERO...";6,0;"POR MUCHO TIEMPO?..." ' m$=" PROGRAMADO POR LUIS E.M.,RUTINA PRINCIPAL POR J.G.D.L.N.R,ASIS- TENCIA ESPECIAL POR T.V.A.( CONTINUARA EN.... ASEXT III (a new start) " ' Ev=0:f=1̱m$:6;m$(f);:f:0::9550N% '63999:"": 'H:"ASEXT II"9998':"ASEXT II"64000,1536:"":"": ALUIS'o|\asiiononoT90nhg3#"" '[MrMM3m3pm3r3)4-e3v>XBfDC@@ZZff~<''"'BB$$<><|?T8o8T~~A**A?/'s fZBfD8TT((X qe~ P H ;8((8<~B$X<: B$<\~BfBBB$$$BB ! ZRffJZ~~~a<<:w<.Z(((((8(88(8||||lD(DDDTlD8(88888<<TT88T8((TT||8888T8DTT8|֒8Tֺ88D8D8D8TTTTX>k>II**|֪|~~k]II*~ۥZ$**II>k> H))J QRۥZ$!RBJ!*BQB*!pHB)")BDJBRTBBT<8x:9| rNNrXDE"UWUW*UPVUUW*UV@<<Z<  P P  P 3\MP=P \Wq !v>((l|T8,<:T08hxT((1u@@@\u5@@\X0(yk߯  /??? %%/?5? ?m`l ?!?00HxH -s0HHH<;" ";1,14;" ";0,15;" "  mx=14:pok,esc:f=017:f,0;4;1;" ":f 17,14;" ";16,14;" ";15,13 ;" ";14,12 ;" ";13 ,11 ;" ";12 ,10 ;" ";11 ,9 ;" ";10 ,10 ;" ";9 ,11 ;" ";8,12 ;" ";7,13 ;" ";6,12 ;" ";5,11 ;" ";4,10 ;" ";3,9 ;" ";2,8;" ";1,7;" ";0,8;" " Y4;1;17,17;"";15,15;"";16,16;""  ?f=0502:(*256),(*120x)+502:f pok,esc mf=58:1;f,10 ;0;6;1;"";0;7;1;"":f S TKpok,esc:f=0502:6;(*15),(*31);"":f  Kx=15:f=0502:(*256),(*120x)+502:f epok,esc:f=05:(*15),(*31);0;2;1;1;"":f  ?f=0502:(*256),(*120x)+502:f `f=36:1;f,0;0;7;" +":f /f=36:f,3;7;" ":f  ?f=0502:(*256),(*120x)+502:f m1=0:m2=16 pok,bic:m1,m2;" ";m3,m2;" " Tm2=m2+((x>m2)-(xy+2m1>17m1=0 6;m1,m2;"" x<2y,x;" ":x=2 "x>29y,x;" ":x=29  ?f=0502:(*256),(*120x)+502:f Vpok,esc:f=510 :f,3;1;0;6;1;"":f G H?f=0502:(*256),(*120x)+502:f I`pok,esc:f=02:f,0;3;1;" ":f J/f=02:f,2;7;" ":f  apok,esc:f=017:f,0;3;1;" ":f 17,1;" ";16,1;" ";15,1;" ";14,2;" ";13 ,3;" ";12 ,4;" ";11 ,5;" ";10 ,6;" ";9 ,7;" ";8,6;" ";7,5;" ";6,4;" ";5,3;" ";4,2;" ";3,1;" ";2,2;" ";1,2;" ";0,2;" "  apok,esc:f=017:f,0;3;1;" ":f 17,1;" ";16,1;" ";15,0;" ";14,0;" ";13 ,0;" ";12 ,0;" ";11 ,0;" ";10 ,0;" ";9 ,1;" ";8,2;" ";7,3;" ";6,4;" ";5,5;" ";4,6;" ";3,7;" ";2,8;" ";1,9 ;" ";0,10 ;" " 9f=017:f,0;3;1;"":f s uapok,esc:f=017:f,0;3;1;" ":f v17,9 ;" ";16,9 ;" ";15,9 ;" ";14,10 ;" ";13 ,11 ;" ";12 ,12 ;" ";11 ,13 ;" ";10 ,12 ;" ";9 ,11 ;" ";8,10 ;" ";7,9 ;" ";6,8;" ";5,7;" ";4,8;" ";3,9 ;" ";2,10 ;" ";1,11 ;" ";0,12 ;" "  apok,esc:f=017:f,0;3;1;" ":f ګ17,11 ;" ";16,11 ;" ";15,10 ;" ";14,10 ;" ";13 ,9 ;" ";12 ,9 ;" ";11 ,10 ;" ";10 ,11 ;" ";9 ,12 ;" ";8,13 ;" ";7,14;" ";6,15;" ";5,14;" ";4,13 ;" ";3,12 ;" ";2,11 ;" ";1,12 ;" ";0,13 ;" " ; m1=46;15,5;"-":3:15,5;" ":0:y=15450 g j?f=0502:(*256),(*120x)+502:f lVpok,esc:f=58:1;f,20;0;6;1;"":f mVpok,esc:f=58:1;f,23;0;4;1;"":f  @f=0100d:(*256),(*120x)+502:f m1=0:m2=15 pok,bic:m1,m2;" " Gm2=m2+((x>m2)-(x17m1=0 m1,m2;""  x<2y,x;" ":x=2 "x>28y,x;" ":x=28 / 0pok,esc:f=020:(*256),(*120x)+502:f:f=05:2;1;f,0;" ":f 1'f=05:f,20;" ":f  apok,esc:f=017:2;1;f,0;" ":f 17,19;" ";16,19;" ";15,18;" ";14,18;" ";13 ,17;" ";12 ,17;" ";11 ,16;" ";10 ,17;" ";9 ,18;" ";8,19;" ";7,20;" ";6,21;" ";5,20;" ";4,19;" ";3,18;" ";2,19;" ";1,20;" ";0,21;" " *2;1;16,21;""  apok,esc:f=017:2;1;f,0;" ":f 17,20;" ";16,20;" ";15,19;" ";14,19;" ";13 ,20;" ";12 ,21;" ";11 ,22;" ";10 ,23;" ";9 ,24;" ";8,25;" ";7,27;" ";6,28;" ";5,27;" ";4,26;" ";3,25;" ";2,24;" ";1,23;" ";0,24;" " }7,28;2;1;"";6,29;"";7;0;6,27;" ";7,26;" " [ \Lpok,esc:f=0200:(*15),(*31);6;"":f  Lpok,esc:f=0200:(*15),(*31);6;"":f Lf=05:1;f,0;0;6;1;"":f # $epok,esc:f=05:1;(*15),(*31);0;2;1;"":f %]f=010 :1;(*15),(*31);0;6;0;"":f  x=15:f=0502:(*256),(*120x)+502:f:pok,esc:f=02:f,0;" ":f &f=02:f,5;" ":f  Ypok,esc:f=017:f,0;" ":f 17,4;" ";16,4;" ";15,5;" ";14,5;" ";13 ,6;" ";12 ,7;" ";11 ,6;" ";10 ,5;" ";9 ,4;" ";8,3;" ";7,4;" ";6,3;" ";5,2;" ";4,1;" ";3,0;" ";2,0;" ";1,1;" ";0,2;" " 0f=05:f,0;"":f O PYpok,esc:f=017:f,0;" ":f Q17,1;" ";16,2;" ";15,3;" ";14,4;" ";13 ,4;" ";12 ,5;" ";11 ,6;" ";10 ,5;" ";9 ,4;" ";8,5;" ";7,6;" ";6,7;" ";5,8;" ";4,9 ;" ";3,10 ;" ";2,9 ;" ";1,8;" ";0,7;" "  Ypok,esc:f=017:f,0;" ":f 17,6;" ";16,6;" ";15,5;" ";14,5;" ";13 ,4;" ";12 ,4;" ";11 ,5;" ";10 ,6;" ";9 ,7;" ";8,6;" ";7,5;" ";6,4;" ";5,3;" ";4,4;" ";3,4;" ";2,4;" ";1,4;" ";0,4;" " 0f=04:f,5;"":f  Ypok,esc:f=017:f,0;" ":f )f=017:f,3;" ":f 21;5,3;0;7;"++" { |Ypok,esc:f=017:f,0;" ":f }17,2;" ";16,2;" ";15,3;" ";14,3;" ";13 ,2;" ";12 ,2;" ";11 ,2;" ";10 ,2;" ";9 ,3;" ";8,4;" ";7,5;" ";6,6;" ";5,7;" ";6,8;" ";5,9 ;" ";4,10 ;" ";3,11 ;" ";2,10 ;" ";1,9 ;" ";0,8;" " ~(f=05:f,8;" ":f 5f=05:f,11 ;"":f  Ypok,esc:f=017:f,0;" ":f (f=017:f,8;" ":f L17,7;" ";16,7;" ";15,7;" " C D^pok,esc:f=1100d:1;(*15),(*31);0;5;"":f  ^pok,esc:f=1100d:1;(*15),(*31);0;5;"":f Kf=05:f,0;0;7;1;1;"":f    ^pok,esc:f=1100d:1;(*15),(*31);0;5;"":f  Mf=05:f,29;0;6;1;1;"":f o pKx=15:f=025:(*256),(*120x)+502:f  ?f=025:(*256),(*120x)+502:f Upok,esc:f=03:f,30;0;7;1;1;"":f 7 8?f=025:(*256),(*120x)+502:f 9Vpok,esc:f=03:f,29;0;6;1;1;"":f  ?f=025:(*256),(*120x)+502:f m1=0:m2=15 Tpok,bic:m1,m2;" ":m2=m2+((x>m2)-(x17m1=0 6;m1,m2;""  x<2y,x;" ":x=2 "x>29y,x;" ":x=29  ?f=025:(*256),(*120x)+502:f (%m1=0:m2=15:m3=5 3npok,bic:m1,m2;" ";m3,m2;" ":m2=m2+((x>m2)-(x17m1=0 4m3>17m3=0 <6;m1,m2;"" =6;m3,m2;"" A x<2y,x;" ":x=2 B"x>29y,x;" ":x=29 c dHpok,esc:f=025:(*256),(*120x)+502:f e@f=062:f,0;0;4;"":f fBf=062:f,15;0;3;;"":f gBf=062:f,31;0;2;;"":f  Lpok,esc:f=0300,:(*15),(*31);6;"":f + ,?f=0502:(*256),(*120x)+502:f _npok,bic:m1,m2;" ";m3,m2;" ":m2=m2+((x>m2)-(x17m1=0 `m3>17m3=0 h5;m1,m2;"" i4;m3,m2;"" m x<2y,x;" ":x=2 n"x>29y,x;" ":x=29  Jpok,mon2:f=0100d:(*256),(*120x)+502:f F5,0;4;1;"";5,27;"" m1=(*2) Ǔm1=16;5,5;"-":3:5,5;" ":0:y=5450  f=0502:(*256),(*120x)+502:f:pok,esc:f=0314:0,f;1;0;6;1;"":f ]f=0295:1,f+1;1;0;5;1;"":f W Xjx=15:pok,esc:f=0200:1;(*15),(*31);0;5;"":f  ipok,esc:f=05:f,0;5;1;1;"":f 8f=05:f,6;" ";f,13 ;" ":f   x<9 x=6 !x>9 x=13 %jpok,esc:f=017:f,0;5;1;1;"":f (16,6;" ";17,6;" ";15,6;" ";14,6;" ";13 ,5;" ";12 ,5;" ";11 ,4;" ";10 ,3;" ";9 ,4;" ";8,5;" ";7,4;" ";6,5;" ";5,6;" ";4,7;" ";3,8;" ";2,9 ;" ";1,10 ;" ";0,11 ;" " *15,13 ;" ";17,13 ;" ";16,13 ;" ";14,12 ;" ";13 ,11 ;" ";12 ,10 ;" ";11 ,9 ;" ";10 ,8;" ";9 ,8;" ";8,7;" ";7,8;" ";6,9 ;" ";5,10 ;" ";4,11 ;" ";3,12 ;" ";2,13 ;" ";1,14;" ";0,14;" "  bpok,esc:f=017:f,0;1;"":f x<13 x=11 x>13 x=15 17,11 ;" ";16,11 ;" ";15,11 ;" ";14,10 ;" ";13 ,9 ;" ";12 ,8;" ";11 ,7;" ";10 ,6;" ";9 ,6;" ";8,6;" ";7,6;" ";6,6;" ";5,7;" ";4,8;" ";3,8;" ";2,8;" ";1,8;" ";0,8;" " 17,14;" ";16,14;" ";15,14;" ";14,14;" ";13 ,14;" ";12 ,15;" ";11 ,16;" ";10 ,17;" ";9 ,17;" ";8,17;" ";7,16;" ";6,16;" ";5,17;" ";4,18;" ";3,19;" ";2,20;" ";1,20;" ";0,21;" "  Hpok,esc:f=0502:(*256),(*120x)+502:f Lf=03:f,15;0;7;1;1;"":f Lf=46:f,15;0;5;1;1;"*!" <<~B>>  |~x~~>B>| < >B<|B<<>> > B~x~@>B>B ~ >B<B<<<>B<<BBBBBBD@BHH@fB@Bb@@B@BDB (BBBb(BB@D(@BBBbB@ B@BB(B(<@pp|ZB<BR||@@BBB B<<R<B<(<@B~R@<BBN~|HBB@HH@B|BJ@@@~BB >BBBJB|*@~BJNBBBBBD~BBBBDD@B@BBFB@B@BDB BBBFB@BDBBBBFBB< <<<<<<@<:<B<<<!@|~<<|x|<|@B><<<<<<<<!@!@   G FED C G @# # <@3#7#T\\\y\hkxܠmmr\f̝X![!UPP ! K SR P 0:0:7: a$="LUIS":hi=10000' mpok=23676|\:nav=255:esc=254:bic=253:dis=252:mon1=251:mon2=250 joy=0:t$="90nhg"  9000(# 2x=16:y=17 3/en=20:v=5:sc=0:p=0 4Zp$=" >1 >2 >3 >4 >5 >6 >7F " 5e$=p$:fu=1000 6*d$="":sp=1:n$=" ":cn=1 7in=1:c$=" " 8q=0:vx=0 <60<:s$(17,3):f=117:s$(f):f:" ","","","","","","","","","","","","","","","","" = lv=1 Aw$="" Z 700 dm$="":xx=x:yy=y n=k$=:k$=t$(1)vx=vx-2:m$="":vx<-invx=-in s5k$=t$(2)vx=vx+2:m$="":vx>invx=in uQjoy=1=162ſ=166vx=vx-2:m$="":vx<-invx=-in vOjoy=1=161ſ=165vx=vx+2:m$="":vx>invx=in w0x=x+vx:vx=vx-vx:x<0x>31x=xx x<y=y-1:y<0y=17:p=p+1:700 yen>20en=20 z8=t$(4)(*7):0:0:0 {%=t$(5)v=1:460 200+(y,x) q>0400 yy,xx;" " pok,nav:y,x;m$ p*100d+1050 100d q=q+(y,x) 161 M.010z# =,40(:v=v-(v>1):v=v-(v>1):810*:161 8.010z# =,40(:v=v+2:810*:161 <.010z# =,40(:v=v-(v>1):810*:161 8.010z# =,40(:v=v+1:810*:161 <.010z# =,40(:sc=sc+p*5:8204:161 >.010z# =,40(:sc=sc+10000':8204:161 :.010z# =,40(:in=in+1:850R:161  161  460 ?.010z# =,40(:in=in-(in>1):850R:161 ?.010z# =,40(:sc=sc+10CP:8204:161  8.010z# =,40(:en=20:800 :161 (J.010z# =,40(:sp=sp-(sp>1):d$=w$(sp):870f:161 0J.010z# =,40(:cn=cn-(cn>1):n$=s$(cn):860\:161 8K.010z# =,40(:sp=sp+(sp<21):d$=w$(sp):870f:161 @K.010z# =,40(:cn=cn+(cn<17):n$=s$(cn):860\:161  161 ;1:en=en-q:q=q-q:0:en<0450 800 :171 Icn>1cn=cn-1:n$=s$(cn):en=20:860\:410  950 /v=v-1:810*:v=09500% +x=xs:y=ys:cn=:n$=s$(cn):en=20 700:171  166 Q 166 R"in=1:880p:166 T(sc=sc+2500 :8204:166  166 [xx=x:yy=y:f=017:f,0;7;" ":f 4e$(p+1)<">"e$(p+1)=">":9600%: e$="F"9800H& ys=17:xs=x !pok,esc:p*100d+1000  800   810*  8204  830>  840H  850R  860\  870f  880p  890z   R18,0;3;"ENERGIA:";4;""(en);" ": *pok,nav:#0;0,0;" ":v<27#0;0,0;5;"VIDAS:";6;""(v): +7#0;0,0;"VIDAS:";6;v;" ": 4?19,16;6;"PUNTOS: ";1;2;sc: >67;20,16;"PANTALLA:";5;p: H{21,19;3;"[";6;p$(p+1p+10 );3;"]";7;1;21,20;"*": R<21,0;6;"INERCIA: ";5;in;" ": \Epok,nav:4;20,0;"CLASE N:";6;n$;" ";cn: fIpok,dis:5;19,0;"DISPARO:";4;d$;" ";sp;" ": p+in>121,9 ;5;in q z19,14;3;c$ { Ay,x;" ":yy,xx;" ":pok,bic:f=116:.010z# =,f y-f0y-f,x;"" y+f17y+f,x;"" x-f0y,x-f;"" x+f31y,x+f;"" Py-(f*1)0x+(f*1)31y-(f*1),x+(f*1);"" Py+(f*1)17x-(f*1)0y+(f*1),x-(f*1);"" Oy-(f*1)0x-(f*1)0y-(f*1),x-(f*1);"" Qy+(f*1)17x+(f*1)31y+(f*1),x+(f*1);"" >f:sp=1:d$=w$(sp):in=1:q=0:850R: ?f=0502:(*256),(*120x)+502:f K LKpok,esc:f=0502:(*16),(*31);6;"":f  Kpok,esc:f=0502:(*16),(*31);6;"":f  fpok,esc:f=0502:1;(*16),(*31);0;5;0;"":f =5,12 ;0;1;6;1;"" w xfpok,esc:f=0502:1;(*16),(*31);0;5;0;"":f yLf=510 :f,15;0;7;0;1;"+":f  fpok,esc:f=0502:1;(*16),(*31);0;5;0;"":f Wf=05:f,0;6;1;" ":f 'f=05:f,15;" ":f ? Aapok,esc:f=017:f,0;6;1;" ":f B17,14;" ";16,15;" ";15,16;" ";14,17;" ";13 ,16;" ";12 ,15;" ";11 ,14;" ";10 ,13 ;" ";9 ,12 ;" ";8,13 ;" ";7,14;" ";6,15;" ";5,16;" ";4,17;" ";3,18;" ";2,19;" ";1,20;" ";0,21;" "  apok,esc:f=017:f,0;6;1;" ":f 17,20;" ";16,19;" ";15,18;" ";14,17;" ";13 ,16;" ";12 ,17;" ";11 ,18;" ";10 ,19;" ";9 ,20;" ";8,21;" ";7,22;" ";6,23;" ";5,24;" ";4,23;" ";3,22;" ";2,21;" ";1,20;" ";0,19;" " 13 ,19;" "  fpok,esc:f=0502:1;(*16),(*31);0;5;0;"":f  Lf=35:1;f,15;0;7;1;"":f k lKpok,esc:f=0502:(*16),(*31);4;"":f  Xx=15:pok,esc:f=0100d:(*16),(*31);6;"":f 3 4 pok,mon2 5?f=0502:(*256),(*120x)+502:f 6F5,0;4;1;"";5,27;"" 8F9 ,0;4;1;"";9 ,27;"" fm1=(*3) km1=16;5,5;"-":3:5,5;" ":0:y=5450 lm1=26;9 ,5;"-":3:9 ,5;" ":0:y=9 450  Kpok,esc:f=0502:(*15),(*31);3;"":f (5,5;0;4;""  ]pok,esc:f=0502:1;(*15),(*31);0;5;"":f @f=372:f,4;0;3;"":f _ `?f=0502:(*256),(*120x)+502:f &m1=0:m2=16:m3=5: pok,bic:m1,m2;" ";m3,m2;" " Gm2=m2+((x>m2)-(x17m1=0 6;m1,m2;"" 5;m3,m2;"" x<2y,x;" ":x=2 "x>29y,x;" ":x=29  Ĵpok,esc:f=0502:1;(*15),(*31);0;5;"":f:f=04:f,0;4;1;" ":f 'f=04:f,10 ;" ":f ' (apok,esc:f=017:f,0;4;1;" ":f )17,9 ;" ";16,9 ;" ";15,10 ;" ";14,11 ;" ";13 ,12 ;" ";12 ,13 ;" ";11 ,12 ;" ";10 ,11 ;" ";9 ,10 ;" ";8,9 ;" ";7,8;" ";6,9 ;" ";5,10 ;" ";4,11 ;" ";3,12 ;" ";2,13