SUBROUTINE	FXEXIT
C
C
C
C	AUTHOR:		P. GANDHI
C
C
C	DATED:		AUG 1978
C
C
C
C	FUNCTION:	EXIT ROUTINE FOR "ESFLX" PROGRAM
C

	INCLUDE	'[360,100]FXCBUF.FTN/NOLIST'
	INCLUDE	'[360,100]FXCOMM.FTN/NOLIST'
C....
	IF (CKP.EQ.'N')CALL ENACKP
	IF (LINEON.EQ.0) GO TO 30
	IF (PGSTAT.EQ.'S')GO TO 20
	IF (IDBG.EQ.'Y')CALL TRACE(5)
	WCODE = 'SO'		! SIGN OFF
	CALL	SETXMT(10)
	TMXLN=8		! 10 SEC WAIT
	CALL	LNREAD(RCNT,IRET)
C....
C....	GET MCR PROMPT AND SEND "BYE" TO SIGN OFF
C....
	XMTBUF(1)="3
	XMTBUF(2)="3
	XMTBUF(3)='B'
	XMTBUF(4)='Y'
	XMTBUF(5)='E'
	XMTBUF(6)="15
	CALL	LNXMIT(6)
20	CALL	LNHANG(IRET)
C....
30	CALL	FXCLOS		! CLOSE ANY OPEN FILE
C....
	IF (PGSTAT.EQ.'S')CALL EXIT
	CALL	TERMCM(PGNAME)
	END