Invaders 0 4*** INVADERS - @1983 MICHAEL BEWS  I(502)  460 1******MAIN PROGRAM LOOP 270F:220:502 EINVADER SHUFFLE ROUTINE d@X=UP:I(X+L*P)=UX:FX=U:X=U491:I(X)=UX:900 xFX=UFX=0:180 }L+A>21800  L+A,0;:Z=-U" "; %X=UP:B$=I$:I(P*L+X)=UB$=" " B$; X kL=L+U:L>QL=0:Z=-Z:C=C+U:C=VC=0:A,0;" ";:A=A+U o(L=0A>0)0,0;" ";0,(27*);2;G$  **KEYBOARD INPUT**** X$= X$="" $(X$=11 X$="7")330J: .08}# =,-40( X$"5"265  XP27 XP=XP+U:20,XP;T$;: X$8290" 720,XP;" ";:XP=XP-V:XP<0XP=0 20,XP;T$;: "X$9 $920,XP;" ";:XP=XP+V:XP>27XP=27 '20,XP;T$;: @**ROCKET FIRE****** J1XN=(XP-U+W)*T:XS=XN-W*(XN/W):(XSTXST+T) LHRR<121,15;1;" TAKE COVER!! 0 ";0: N.12}u[,35# O?RR=RR-1:21,30;" ";21,30;RR; T19,XP+U;""; ^R=180-U:(R,XP+U)=" "R:19,XP+U;" ";0,XP+U;"";21,W;1;"MISS!";0:.2~L,-15:X=U80P:X:SC=SC-W:21,6;" ";21,6;SC;W;" ";0,XP+U;" ": hX=13:R,XP+U;M$;:.02{# =,30-(3*X):Y=18:Y:R,XP+U;" ";:Y=UV:Y:X:R,XP;" ";19,XP+U;" ";:SC=SC+200-(180*R):21,6;SC; r3RAI(P*(R-A)+U+((XP+1)/4))=1 |  ̃:1:1;7;" I N V A D E R S @1982 M.BEWS":0,1;1;"_____________________________";0 -11 ,5;"I N I T I A L I S I N G" =X=07:A,B:""+X,A:""+X,B:X:I$=""+" " @X=07:A,B:""+X,A:""+X,B:X:T$=" "+""+" " X=07:A,B:""+X,A:""+X,B:X:X=07:A,B:""+X,A:""+X,B:X:X=07:A:""+X,A:X:G$="" JX=07:A,B,C:""+X,A:""+X,B:""+X,C:X:D$=""+" " +X=07:A:""+X,A:X:M$=""  RR=60< HS=0:TS=0 &S1,0;"USE YOUR ROCKET LAUNCHER ";T$;" TO WIPE OUT THE INVADERS ";I$; 0<" ANDTO DAMAGE THE COMMAND SHIP WHICH ARRIVES LATER ";G$; :@:"YOU CAN NOT FIRE WHILE YOU ARE BEHIND A LASER SHIELD ";D$ N:"USE LEFTRIGHT CURSOR ARROWSTO MOVE YOUR LAUNCHER (with CAPS SHIFT to move faster). USE THE 'UP' ARROW TO FIRE ROCKETS." X23;"YOU HAVE ONLY ";RR+1;" ROCKETS." b#"* * * * * * * * * * * * * * * *" lc"SCORE 20 FOR EACH KNOCKED OUT INVADER AND 200 FOR EACH DIRECT HIT ON THE COMMAND SHIP." $"LOSE 10 POINTS FOR EACH MISS!!" F:" IF INVADERS GET CLOSE TO YOU THEY WILL BECOME INDESTRUCTABLE!" <2;1;"";0 =""722 ՓA=0:C=0:FX=0:L=0:P=7:Q=6:T=2:U=1:V=5:W=10 :SC=0:XP=0:Z=1 [5:5::X=06:X,2;:Y=17:1;I$;:Y:X H19,0;:X=16:3;D$;:X:3;""; 20,0;T$; H21,0;"SCORE:";SC;21,15;"ROCKET RESERVE:";RR;  502 ***END OF LOST GAME  5,0;2;7;"YOUR PLANET HAS BEEN TAKEN OVER. YOU SCORED ";SC;" USING ";60<-RR;" ROCKETS";:910 5,0;1;7;"YOU HAVE WIPED OUT THE INVADERS,";7,0;"SCORED ";SC;" AND USED ";60<-RR;" ROCKETS";9 ,1;1;"C O N G R A T U L A T I O N S";0 SC>HSHS=SC  TS=TS+SC 11 ,12 ;6;2;"LAST SCORE ";SC;12 ,12 ;"HIGHEST SCORE ";HS;13 ,12 ;"TOTAL SCORE ";TS;15,2;1;"PRESS ANY KEY FOR NEXT GAME" X$=:X$=""930 :11 ,12 ;2;6;1;"STANDBY";0:X=51-1:17,15;X;:Y=180P:Y:X:X=1491:I(X)=0:X:SC=0:RR=60<:XP=0:725 ****DEF GRAPHICS 60<,60<,140,491,115s,206,513,204,63?,252,111o,246,193,131,192,3 27,224,31,240,26,88X,62>,124|,255,255,255,255,85U,170,42*,84T 0,0,0,0,7,224,31,248,248,31,127,254,0,0,0,0 $0,0,63?,252,240,15,191,253,0,0,255,255,127,254,0,0 .N126~,255,0,195,255,129,255,60< 8255,255,255,126~,0,126~,255,255,255,126~,0,126~,255,255,255,126~,0,126~,255,255,255,0,0,0 BH0,82R,24,124|,62>,24,74J,0 X$=:X$=""2000 X$;" ";:2000 ZA,B,C$:18,30;" ";A,B;C$;:(4,4)="0"18,30;"*"; 3000 -