SUBROUTINE	FXTRAP
	INCLUDE	'[360,100]FXCOMM.FTN'
C----
C----	SET A SWITCH IN MICS COMMON TO INDICATE ^C ISSUED
C----
	INTRSW=1
	RETURN

	ENTRY	CHECK
C----
C----	ENQUIRE WHETHER USER WANTS TO EXIT OR CONTINUE
C----
50	WRITE(5,100)
100	FORMAT('$ENTER "EX" TO EXIT OR HIT CR > ')
	CALL FXRDTT(600,ICNT)
	IF (ICNT.NE.0)GO TO 50
	INTRSW=0		! CANCEL INTRSW 
	RETURN
	END