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

(Source file text) 

---

	SUBROUTINE FIGETB (IB)
C	----------------------
C
C  GET NEXT BYTE FROM FILE
C
	COMMON /FIGET /	IREAD , IBUF , BUFFER(12)
C
	IF	(IBUF .LT. 72) GOTO 100
C
C  READ NEXT LINE
C
	READ	(IREAD,1000) BUFFER
1000	FORMAT	(20A6)
	IBUF	= 0
C
C  PICK OUT ONE BYTE
C
100	IBUF	= IBUF + 1
	CALL	CGET (BUFFER,IBUF,IB)
	IF	(IB .LT. 32) GOTO 110
	IB	= IB - 32
	RETURN
110	IB	= IB + 32
	RETURN
	END

---