1*30485Slepreau static char Sccsid[] "@(#)verify	2.1";
2*30485Slepreau /*
3*30485Slepreau 	If `astr1' contains any characters not in `str2' return the
4*30485Slepreau 	offset of the first such character found in `astr1',
5*30485Slepreau 	else return -1.
6*30485Slepreau */
7*30485Slepreau 
8*30485Slepreau verify(astr1,str2)
9*30485Slepreau char *astr1;
10*30485Slepreau register char *str2;
11*30485Slepreau {
12*30485Slepreau 	register char *str1;
13*30485Slepreau 
14*30485Slepreau 	for (str1=astr1; *str1; str1++)
15*30485Slepreau 		if (!any(*str1,str2))
16*30485Slepreau 			return(str1 - astr1 - 1);
17*30485Slepreau 	return(-1);
18*30485Slepreau }
19