SUBROUTINE KILL(INVDER,INVPOS,MX,MISS,IFIRE,ISCORE)
	INTEGER INVDER(5,20),INVPOS(5,20,2)
D	TYPE *,' KILL'
	IF (IFIRE.EQ.0) GOTO 50		!no missile in flight
	DO 10 J=1,5			!Check each Invader
	DO 10 I=1,20
	IF (INVDER(J,I).EQ.0) GOTO 10	!This one is already dead
	NX=INVPOS(J,I,1)		!Get position of Invader
	NY=INVPOS(J,I,2)
	IF (MX.NE.NX+2) GOTO 10		!Is Missile in same column
	IF (MISS.EQ.NY) GOTO 99
	IF (MISS+1.NE.NY) GOTO 10
	CALL EXPLOD(MX,MISS+1)		!Yes Kill it
	GOTO 101
99	CALL POSITN(MX,MISS+1)
	WRITE(5,102)
102	FORMAT('$ ')
	CALL EXPLOD(MX,MISS)
101	IFIRE=0				!Missile is spent
	MISS=0
	INVDER(J,I)=0			!Invader is dead
	ISCORE=ISCORE+10+5*J
10	CONTINUE
50	CALL POSITN(10,21)
	WRITE(5,60)ISCORE
	RETURN
C
C  Format to Display score
C
60	FORMAT(1H$,I5)
	END