FUNCTION MLTPNC(N)
C CONVERT FLAGGED DIGIT TO BINARY INTEGER
C
M = JUNPAK(0,4,N)
MLTPNC = M-"60
IF((N.GE.'0').AND.(N.LE.'9')) R E T U R N
C
MLTPNC = 0
IF((N.EQ.':').OR.(N.EQ.' ')) R E T U R N
C
MLTPNC = M-"111
IF((N.GE.'J').AND.(N.LE.'R')) R E T U R N
TYPE 100
100 FORMAT(' ILLEGAL CHARACTER IN MULTIPUNCHED AMOUNT FIELD'/)
P A U S E
R E T U R N
E N D