/* index.c by Michael Hanson */
/* you may use this, but not for profit, and give me credit */ 
/* find index of char c in string str */

index(str,c)
char c;
char str[];
{
	int ind;

	for(ind = 0; str[ind] != EOS ; ++ind)
		if(str[ind] == c)
			return(ind);
	return(-1);
}