File: FIBYTE.FT of Tape: Various/System-Tapes/eb-plot

(Source file text) 

---

	SUBROUTINE FIBYTE (IB)
C	-----------------
C
C  STORE ONE BYTE IN BUFFER , DUMP IF OVERFLOW
C
	DATA	IBUFMX/	72 /
	COMMON /FIBUFF/	DUMMY(15) , IPL  , IBUF , BUFFER(12)
C-----------------------------------------------------------------------
	IF	(IB .LE. 0) GOTO 2100
C
C  STORE ONE BYTE
C
	IBUF	= IBUF + 1
	CALL	CPUT (BUFFER,IBUF,IB)
	IF	(IBUF .GE. IBUFMX) GOTO 2200
	RETURN
C
C  FILL LAST BUFFER
C
2100	J	= IBUF + 1
	DO 2110	I = J,IBUFMX
2110	CALL	CPUT (BUFFER,I,32)
C
C  FLUSH BUFFER
C
2200	IBUF	= 0
	WRITE	(IPL,2300) BUFFER
2300	FORMAT	(20A6)
	RETURN
	END

---