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)730487Slepreau char *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