:i	static char d_index_sccs_id[] = "%W% %G%";
:1#include "V.h"
/*
* Return a pointer to the first occurrence of c in s, or NULL if it isn't found.
* We stop at the first instance of c or at the first null char.
*/
char* d_index(s,c)
	char*s;
	char c;
{	char x;

:9	V9 "Looking for %02X='%c' in \"%s\"",B8(c),dsp(c),s D;
	for (x = *s; x; x = *++s) {
		if (x == c) {
:9			V9 "Found \"%s\"",s D;
			return(s);
		}
	}
	if (x == c) {
:9		V9 "index: Found \"%s\"",s D;
		return(s);
	}
:9	V9 "Failed." D;
	return(0);
}