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