INTEGER FUNCTION INPO(BUF,MAX)
C
C		FUNCTION TO TURN A STRING OF INTEGER NUMERALS
C		INTO A BINARY NUMBER
C		QUITS WHEN IT FINDS THE MAXTH PLUS ONE CHARACTER, OR WHEN
C		IT FINDS A NON-DECIMAL NUMERAL.
C
	IMPLICIT INTEGER (A-Z)
	LOGICAL*1 DELIM(3),BUF(80)
	COMMON /JOBLOG/OUT
	DATA DELIM/" 40," 54,"135/
	RES=0
	IF (MAX .EQ. 0) GOTO 20
	DO 5 J=1,MAX
	IF (BUF(J) .NE. "40) GOTO 6
5	CONTINUE
	GOTO 20
6	DO 10 I=J,MAX
	C=BUF(I)-" 60
	IF ((C .GE. 0) .AND. (C .LE. 7)) GOTO 10
	DO 30 K=1,3
	IF (BUF(I) .EQ. DELIM(K)) GOTO 20
30	CONTINUE
	WRITE(OUT,100)RES,(BUF(J),J=1,MAX)
100	FORMAT('-CONVERSION ERROR. ',O6,' RETURNED FOR THE INPUT: '10A1)
	GOTO 20
10	RES=RES*8+C
20	INPO=RES
	RETURN
	END