/*Copyright (C) 1992, 1996 by Thomas Glen Smith.  All Rights Reserved.*/
/* execqnlt APL2 V1.0.0 ************************************************
* Called from execqnls to see if name passes.  Returns 1 if ok.        *
***********************************************************************/
#define INCLUDES STRING
#include "includes.h"
int execqnlt(name,delim)
char *name; /* name to be examined */
char *delim; /* allowable first characters */
{
	char *ch;

	if (delim == NULL)
		return(1); /* name ok */
	for (ch = delim; *ch != '\0'; ch++)
		if (*name == *ch)
			return(1); /* name ok */
	return(0); /* name no good */
}