SUBROUTINE OCTL (INT, OCT, Z)
C
C	ROBERT WATSON
C	CISCO, INC.
C	(918)665-2110
C	4135 S. 100TH E. AVE.
C	TULSA OK 74145
C
C	THIS PROGRAM HAS BEEN DONATED TO THE PUBLIC DOMAIN
C	AND IS NOT TO BE COPYRIGHTED.
C
	BYTE		OCT(6),		Z
	ENCODE (6,100,OCT,ERR=300) INT
100	FORMAT (O6)
	IF (.NOT. Z) RETURN
	DO 200 I=1,6
	IF (OCT(I) .EQ. ' ') OCT(I) = '0'
200	CONTINUE
	RETURN
300	WRITE  (5,400) 7
400	FORMAT (/,' ENCODING ERROR',A1)
	STOP
	END