1*30487Slepreau static char Sccsid[] "@(#)zeropad	2.2";
2*30487Slepreau /*
3*30487Slepreau 	Replace initial blanks with '0's in `str'.
4*30487Slepreau 	Return `str'.
5*30487Slepreau */
6*30487Slepreau 
7*30487Slepreau char *zeropad(str)
8*30487Slepreau char *str;
9*30487Slepreau {
10*30487Slepreau 	register char *s;
11*30487Slepreau 
12*30487Slepreau 	for (s=str; *s == ' '; s++)
13*30487Slepreau 		*s = '0';
14*30487Slepreau 	return(str);
15*30487Slepreau }
16