SUBROUTINE EXPLOD(NX,NY)
	LOGICAL*1 A
D	TYPE *,' EXPLOD'
	A=7				!Set up Buzzer
	WRITE(5,40) A
	DO 10 N=1,10			!flashing Star
	CALL POSITN(NX,NY)
	WRITE(5,20)
	CALL POSITN(NX,NY)
	WRITE(5,30)
10	CONTINUE
	RETURN
20	FORMAT('$*')
30	FORMAT('$ ')
40	FORMAT(1H$,A1)
	END