44 Invaders
300 SOUND 1,120,2
310 IF RND <0.6 THEN 330
320 ' XW=U+INT(RND*P): IF I(XW+L*P)=0 TH EN XV=8-16*(Z=—U)+(XW—U)*32:YV=167—(L+A) *8:PRINT CHR$(22);CHR$(1);:PEN 2:PLOT 64 +XV,YV:DRAW 0,-143+(L+A)*16:SOUND 1,120, 4:SOUND 1,90,4:PEN 0:PLOT 64+XV,YV:DRAW 0,-143+(L+A)*16:PRINT CHR$(22);CHR$(0);: PEN 1:IMP=U
330 L=L+U: IF L>G1 THEN L=0:Z=—Z:C=C+U:IF C=V THEN C=0:LOCATE I,A+1:PRINT J$;:A=A +U
340 IF TC=U THEN TC=0: GOTO 630
350 IF L<>0 OR A<0.5" THEN 430
360 XZ=INT(RND*27):LOCATE 1,1:PRINT J$;: LOCATE XZ+1,1:PEN 3:PRINT G$;:PEN 1
370 IF RND >0.6 THEN 430
380 PLOT XZ*16+68,386,2:DRAWR 0,-288,2:S OUND 1,90,4:SOUND 1,60,4:SOUND 1,30,4:PL OT XZ*16+68,386,0:DRAWR 0,-288,0
390 PLOT (V+XZ)*16+60,386,2:DRAWR 0,-288 ,2:SOUND 1,90,4:SOUND 1,60,4:SOUND 1,30, 4:PLOT(V+XZ)*16+60,386,0:DRAWR 0,-288,0 400 IF XZ=XP+U OR XZ=XP+T OR XZ+4=XP+U 0
XZ+4=XP+T THEN LOCATE 11,22:PRINT"<ZAP >";:SC=SC-50:FOR X=U TO V:LOCATE XP+1,21 :PEN 3:PRINT N$;:PEN 1:SOUND 1,120-10*X, 2:FOR Y=U TO 8:NEXT:LOCATE XP+1,21:PEN 2 :PRINT T$;:PEN 1:FOR Y=U TO V:NEXT Y,X
410 LOCATE 7,22:PRINT"	";:LOCATE 7,2
3:PRINT MID$(STR$(SC),2);: LOCATE 11,22: PRINT"
420 REM KEYBOARD INPUT
430 IF INKEY(9)=0 THEN SOUND 1,180,3:GOT 0 500
440 IF INKEY(8)=0 THEN XP=XP+1*(XP>0):LO CATE XP+1,21:PEN 2:PRINT T$;:PEN 1:GOTO 130
450 IF INKEY(8)=32 THEN LOCATE XP+1,21:P PINT " --XP=XP—V:XP=—XP*(XP>=0):LOCA TE XP+1,21:PEN 2:PRINT T$;:PEN 1:GOTO 13 0
460 IF INKEY(1)=0 THEN XP=XP—I*(XP<27):L OCATE XP+1,21:PEN 2:PRINT T$;:PEN 1:GOTO 130