1*30488Slepreau static char Sccsid[] = "@(#)zeropad.c 1.2 02/15/87"; 230487Slepreau /* 330487Slepreau Replace initial blanks with '0's in `str'. 430487Slepreau Return `str'. 530487Slepreau */ 630487Slepreau zeropad(str)730487Slepreauchar *zeropad(str) 830487Slepreau char *str; 930487Slepreau { 1030487Slepreau register char *s; 1130487Slepreau 1230487Slepreau for (s=str; *s == ' '; s++) 1330487Slepreau *s = '0'; 1430487Slepreau return(str); 1530487Slepreau } 16