SUBROUTINE DEAD(JX)
	LOGICAL*1 A
D	TYPE *,'  DEAD'
	A=7				!This is Buzzer
C
C  Loop to draw explosion
C
	DO 10 I=0,5
	CALL POSITN(JX+I,1+I)
	WRITE(5,20)
	CALL POSITN(JX,1+I)
	WRITE(5,20)
	CALL POSITN(JX-I,1+I)
	WRITE(5,20)
	CALL POSITN(JX-I,1)
	WRITE(5,20)
	CALL POSITN(JX+I,1)
	WRITE(5,20)
	IF (I.EQ.5) GOTO 10
	CALL POSITN(JX+I+1,2+I)
	WRITE(5,30)
	CALL POSITN(JX,2+I)
	WRITE(5,30)
	CALL POSITN(JX-1-I,1+I+1)
	WRITE(5,30)
	CALL POSITN(JX-I-1,1)
	WRITE(5,30)
	CALL POSITN(JX+I+1,1)
	WRITE(5,30)
	WRITE(5,40) A
10	CONTINUE
C
C  Reset Position of Base
C
	JX=40
	RETURN
C
C  Format for explosion
C
20	FORMAT('$ ')
30	FORMAT('$*')
40	FORMAT(1H$,A1)
	END