SUBROUTINE REMLED(STRING,LEAVE) C C Routine to remove the leading zeroes from a numeric string C The string must be terminated with a null byte. C At least LEAVE characters are left. (Maybe all zeroes) C Pad Zeroes out to LEAVE if spaces now. C IMPLICIT INTEGER(A-Z) BYTE STRING(1) C L = LENGTH(STRING) IF (L.LE.LEAVE) RETURN C C Changed all leading zeroes (0) to spaces up to LEAVE C DO 5 I=1,L-1 IF (STRING(I).EQ.' ') GO TO 5 IF (STRING(I).NE.'0') GO TO 7 STRING(I) = ' ' 5 CONTINUE C C Change all leading spaces from LEAVE on to Zeroes (0). C 7 J = L-LEAVE+1 DO 10 I=J,L IF (STRING(I).NE.' ') GO TO 10 STRING(I) = '0' 10 CONTINUE RETURN END