SUBROUTINE PAD(STR,LIM,FILL) C C Pad a string to a specified LIMit with the character FILL C IMPLICIT INTEGER(A-Z) BYTE STR(1),FILL C L = LENGTH(STR) ! Get current length IF (L.GE.LIM) RETURN ! Return if already padded DO 10 I=L+1,LIM ! Stick those suckers on 10 STR(I) = FILL STR(LIM+1) = 0 ! Make .ASCIZ RETURN END