SUBROUTINE FXRDTT(TMXTT,ICNT)
C
C
C
C
C	AUTHER:		P. GANDHI
C
C
C
C	DATE:		AUG 1978
C
C
C
C.....	FUNCTION:	TO READ THE MESSAGE FROM USER TERMINAL
C.....			WITH TIMEOUT.
C.....

	IMPLICIT INTEGER (A-Z)
	INCLUDE	'[360,100]FXCBUF.FTN/NOLIST'
C....
	INTEGER		ISTAT(2)	! STATUS RETURN FROM WTQIO
	INTEGER		IPRM(5)		! PARAMETER LIST FOR WTQIO
	LOGICAL*1	IBST
	EQUIVALENCE	(IBST,ISTAT(1))
C....
C....	READ THE TERMINAL UNTIL CARRAIGE RETURN OR TIME OUT.
20	IPRM(1)=TTBBAD
	IPRM(2)=80
	IPRM(3)=TMXTT			! TIME OUT IN SEC
	IPRM(4)=0
	CALL	WTQIO("1200,5,1,,ISTAT,IPRM,)
	IF(IBST.NE.1)GO TO 40
	IF(TTB2BY.EQ.'EX') CALL FXEXIT
	ICNT=ISTAT(2)			! NUMBER OF CHARS READ
	RETURN
C....
C....	ERROR EXIT
40	ICNT=0
	IF((IBST.EQ.2).AND.(TMXTT.GT.1000))CALL FXEXIT
	RETURN

	ENTRY FXWRTT(ICNT)
	IPRM(1)=RSVBAD		! BUFFER ADDRESS
	IPRM(2)=ICNT		! DATA COUNT
	IPRM(3)=0
	WRITE(5,100)
100	FORMAT(X)
	CALL WTQIO("410,5,5,,ISTAT,IPRM,)
	WRITE(5,110)
110	FORMAT(X)
	RETURN
	END