	FUNCTION IBLEN (BLINE)
C DETERMINE THE LENGTH OF THE LINE AS TERMINATED BY A 0.
C
C	BLINE	THE INPUT LINE (MUST END WITH ZERO BYTE)
C
	IMPLICIT BYTE (B), LOGICAL*1 (L)
	DIMENSION BLINE(1)
	IBLEN = 1
10	IF (BLINE(IBLEN) .EQ. 0) GOTO 20
	IBLEN = IBLEN + 1
	GOTO 10
20	IBLEN = IBLEN - 1
	RETURN
	END
