ZXTape! 2JInvasionSpanishArcadeNot original tapeTZXed by Juan Pablo LopezINVASION &&%H&20:7:0::23658j\,8  8000@ 2X=(*8)+1:Y=(*8)+1: d n-" 12345678 CUADRANTE NAVES " x7"1      " +"2  ENERGIA BARRERA " ;"3      " +"4  MISILES ALERTA " 9"5      " +"6  " "7 " "8 " "" 14;" RADAR " +14;"       " 14;" " +14;"       " 14;" " +14;"       " 14;" " 45-,63?,20:35#,63?:20,0:45-,535:0,20:10 ,5;"90";14,0;"180";14,9 ;"0";17,4;"270"  , I=0 6 10 @Q$(X,Y)" "3106 J Q$(X,Y)=X$ T I=I-1 ^X$(1)""300, hX(I+1)=X rY(I+1)=Y | 300, N1=(G(XG,YG)/100d) I=N1 X$=""  300, (N2=((G(XG,YG)-N1*100d)/10 ) I=N2 X$=""  300, &N3=G(XG,YG)-100d*N1-10 *N2 I=N3 X$="*"  300,  XI=18 bI,1;Q$(I) lI v01,13 ;XG;" , ";YG;24;NK;" " B3,13 ;("0000"+E)(E);22;("0000"+B)(B); #5,15;("0"+M)(M);  Y$="VERDE" #G(XG,YG)>99cY$="ROJA " 22;Y$ 11 ,14; I=XG-1XG+1 J=YG-1YG+1 4I=0J=0I=9 J=9 815/ M$(I,J)" "740 #M$(I,J)=("00"+G(I,J))(G(I,J)) I=XGJ=YG770 " ";M$(I,J);  8204  $" ";7;0;M$(I,J); * 8204 / "  "; 4J 9 : ; 14; >I C45-,63?,20:35#,63?:20,0:45-,535:0,20:10 ,5;"90";14,0;"180";14,9 ;"0";17,4;"270" H  F=0 AX=(X+.5) AY=(Y+.5) Q$(X,Y)=" "X,Y;" " X=X+D Y=Y+D .AX=(X+.5)AY=(Y+.5)910 1X<.5Y<.5X8.5Y8.5 Q$(X,Y)" "940  X,Y;"" J=110 J  905 Q$(X,Y)="*" X,Y;" " Q$(X,Y)=""F=10 Q$(X,Y)=""F=100d Q$(X,Y)=""F=1   400  100d  600X  6000p  21,0;"COMANDO : " X$ $X$=""1050 .X$(1)="C"2000 8X$(1)="N"3000 BX$(1)="B"4000 LX$(1)="T"5000  1040  E" 1 2 3 4 5 6 7 8"  I=1 !7;0;(I+480) I=82080   I=I+1    2030  I=18 *J=18 4I=XGJ=YG2130R > X$=M$(I,J) H 2170z R X$=" " z;7;0;2*I-1,4*J-3;X$ J I ,18,9 ;"MAPA DE LA GALAXIA" X$  1010 618,0;" " !21,0;"DIRECCION :" D !21,0;"DISTANCIA :" L !21,0;" " D=-D/180* L=01030 E100d3075 .18,0;"ENERGIA INSUFICIENTE"  9000(#  F=0  X=XQ+D  Y=YQ+D X>.53170b &XG>13140D 0418,0;"NO TE SALGAS DE LA GALAXIA" : 1030 DXG=XG-1 N X=X+8 X F=1 bX<8.53220 lXG=831200 vXG=XG+1 X=X-8 F=1 Y>.53270 YG=131200 YG=YG-1 Y=Y+8 F=1 Y<8.53315 YG=831200 YG=YG+1 Y=Y-8 F=1 F=03360 XQ=X YQ=Y L=L-1 E=E-100d Q$(8,8) Q$(XQ,YQ)="" 400  600X  3070 Q$(X,Y)"*"3390> *C18,0;"PARADA DE SEGURIDD":J=130:J 4 1030 >Q$(X,Y)""3450z HE=10000' R M=10 \B=2000 f118,0;"RETORNO A LA BASE" kB3,13 ;("0000"+E)(E);22;("0000"+B)(B); p#5,15;("0"+M)(M); u 1030 zQ$(X,Y)""3500 -18,0;"COLISION INEVITABLE" XQ,YQ;" " X,Y;" " 9000(# XQ,YQ;" " X,Y;"" Q$(XQ,YQ)=" " Q$(X,Y)="" XQ=X YQ=Y 1,24;NK;" " E=E-100d %3,13 ;("0000"+E)(E)  L=L-1  3070 618,0;" " 621,0;"ENERGIA TRANSFERIDA A LA BARRERA" X X<04020 XE4060 318,0;"NO POSEE BASTANTE ENERGIA"  4020 E=E-X B=B+X 618,0;" " 621,0;" " B3,13 ;("0000"+E)(E);22;("0000"+B)(B);  1030 618,0;" " M>05040 )18,0;"BAJO DE MISILES"  1030  M=M-1 !21,0;"DIRECCION :" D !21,0;" " D=-D/180* X=XQ Y=YQ  900 F>05150 =X>.5X<8.5Y>.5Y<8.5X,Y;"*"  "5,15;("0"+M)(M) 9X>.5X<8.5Y>.5Y<8.5X,Y;"*"  1030 G(XG,YG)=G(XG,YG)-F #M$(XG,YG)=" " ( Q$(X,Y)=" " 2F10 5210Z <NB=NB-1 F(18,0;"BASE DESTRUIDA" P 1020 ZNK=NK-1 d+18,0;"ENEMIGO DESTRUIDO" nNK=09500% x 1020 pZ=N1 z Z=0 X=X(Z) Y=Y(Z) Q$(X,Y)""6500d 618,0;" " RD=((Y-YQ)+1)*/2+(Y-YQ)*((X-XQ)/((X-XQ)*(X-XQ)+(Y-YQ)*(Y-YQ)))  900 F>06080 =X>.5X<8.5Y>.5Y<8.5X,Y;"*" J=140( J ;X>.5X<8.5Y>.5Y<8.5X,Y;"*"  6210B F>15150  X$(3)  X$=((*900)+100d)  B=B-X$ G18,0;"LA BARRERA DISMUNUYE EN ";7;0;X$ J=1150:J B06190. .19,0;"BARRERA INSUFICIENTE" $ 9000(# .%3,22;("0000"+B)(B) 8 XQ,YQ;"" BD=*2* LJ=(*10 )+1 VJ=06500d [618,0;" " ` X=X(Z)+D j Y=Y(Z)+D t K=0 ~ L=0 X<.5K=-1 X>8.5K=1 Y<.5L=-1 Y>8.5L=1 !K=0L=06390 AXG+K<1XG+K>8YG+L<1YG+L>86500d %G(XG+K,YG+L)=G(XG+K,YG+L)+100d M$(XG+K,YG+L)=" " G(XG,YG)=G(XG,YG)-100d M$(XG,YG)=" " Q$(X(Z),Y(Z))=" " ,18,0;"EL IMPERIO SE FUGA"  600X  6500d Q$(X,Y)" "6500d X(Z),Y(Z);" "  X,Y;"" Q$(X(Z),Y(Z))=" "  Q$(X,Y)="" (X(Z)=X 2Y(Z)=Y < J=J-1 F 6230V d Z=Z-1 n 6010z ? @*2,10 ;"GUERRA EN EL ESPACIO" rB17,0;" UN MOMENTO, ESTOY CREANDO UNA GALAXIA..." w 0 |NK=(*30)+4 NB=(*10 )+1 G(8,8) Q$(8,8) I=1NK  10 G(X,Y)=9008110 G(X,Y)=G(X,Y)+100d I I=1NB  10 ;G(X,Y)-(G(X,Y)/100d)*100d=90Z8160 G(X,Y)=G(X,Y)+10 I I=18 J=18 $G(I,J)=G(I,J)+(*9 )+1 &J 0I :E=10000' DB=2000 N M=10 X 10 bXG=X lYG=Y v 10 XQ=X YQ=X Q$(XQ,YQ)="" M$(8,8,3) X(9 ) Y(9 ) !4 !9"NAVES DEL IMPERIO: ";NK,"BASES DE AVITUALLAMIENTO: ";NB,,,,,"RADAR: XYZ",,,,"X=NAVES ENEMIGAS ()","Y=BASES ()",,"Z=ESTRELLAS (*)" !>D,,,,"COMANDOS:",,,,"N=NAVEGACION",,"T=TIRO",,"B=BARRERA",,"C=MAPA" !H,,,,"ACEPTAS? (S/N)":X$ !RX$="S"1000 !\X$="N"8620! ! #((20,0;"HAS PERDIDO.": %)20,0;"HAS GANADO.": &Z"INVASION"9910&:"DEF""A",32 :"INVASION"9910&:"DEF""A",32 : &"": ',"INVASION"9910&:"DEF""A",32 E mkm k i mm   dd d E  xy DEF Xa"~~~~~~pPpp~BBBB~$$