Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50212/incode.f4
There are no other files named incode.f4 in the archive.
	FUNCTION INCODE(N)
C		CONVERTS RIGHT 5 DIGITS OF INTEGER
C		(INCLUDING LEADING ZEROS) N TO ALPHA
	INCODE = ' '
	M=N
	DO 1 I=0,4
	L=M/10
	LDIGIT =(M-L*10+"20)*2**(I*7+1)
	INCODE = INCODE + LDIGIT
	M=L
1	CONTINUE
	RETURN
	END