SUBROUTINE	FXBFMV
C
C
C
C
C	AUTHOR:		P. GANDHI
C
C
C
C	DATED:		AUG 1978
C
C
C
C

	INCLUDE '[360,100]FXCBUF.FTN/NOLIST'
	INCLUDE '[360,100]FXCOMM.FTN'
C....
	INTEGER		WBLKNO		! BLK SEQ # IN WORK BUF
	INTEGER		RCNT
	INTEGER		XCNT
	INTEGER		NRET

	ENTRY	SETXMT(XCNT)
	IF(PGSTAT.NE.'M')GO TO 10
	IF(IDBG.NE.'Y')GO TO 10
	CALL TRACE(5)
	WRITE(5,5)WCODE
5	FORMAT(' TRANSMIT CODE = ',A2)
C....
C....	TRANSLATE DATA TO ASCII CHARACTER CODE IF ANY DATA PRESENT
C....
10	IF(XCNT.GT.10) CALL FXENCD
C....
	ENCODE(4,15,WSEQNO) XBLKNO
15	FORMAT(I4)
	XBLKNO=XBLKNO+1
	WBUFID = 'ESFX'
	DO 20,I=1,XCNT
	XMTBUF(I)=WRKBUF(I)
20	CONTINUE
	CALL	LNXMIT(XCNT)
	RETURN

	ENTRY	CHKRSV(RCNT,NRET)
	DO 50,I=1,RCNT
	WRKBUF(I)=RSVBUF(I)
50	CONTINUE
C....
	DECODE(4,65,WSEQNO) WBLKNO
65	FORMAT(I4)
	NRET=1
	IF(WBLKNO.NE.RBLKNO) RETURN
	NRET=0
	RBLKNO=RBLKNO+1
C....
C....	TRANSLATE ASCII CODE BACK TO BINARY IF DATA PRESENT.
C....
	IF(RCNT.GT.10) CALL FXDECD
C....
	IF(PGSTAT.NE.'M')GO TO 80
	IF(IDBG.NE.'Y')GO TO 80
	CALL TRACE(5)
	WRITE(5,75)WCODE
75	FORMAT(' RECEIVE CODE = ',A2)
80	RETURN
	END