1*30488Slepreau static char Sccsid[] = "@(#)patoi.c	1.2	02/15/87";
230475Slepreau /*
330475Slepreau 	Function to convert ascii string to integer.  Converts
430475Slepreau 	positive numbers only.  Returns -1 if non-numeric
530475Slepreau 	character encountered.
630475Slepreau */
730475Slepreau 
patoi(s)830475Slepreau patoi(s)
930475Slepreau register char *s;
1030475Slepreau {
1130475Slepreau 	register int i;
1230475Slepreau 
1330475Slepreau 	i = 0;
1430475Slepreau 	while(*s >= '0' && *s <= '9') i = 10 * i + *s++ - '0';
1530475Slepreau 
1630475Slepreau 	if(*s) return(-1);
1730475Slepreau 	return(i);
1830475Slepreau }
19