/* This just parses a command line looking for -args */

clparse(argc,argv,args)
int argc;
char **argv;
int args[26];
{
int i;
int arg;

/* clear args to zero */
for (i=0;i<26;i++) args[i] = 0;

/* find any argument flags */
for (i=0;i<argc;i++)
   if (*(argv[i]) == '-')
	{
	arg = (int) *(argv[i] + 1);
	if ((arg >= (int) 'A') && (arg <= (int) 'Z')) 
		args[arg - (int)'A'] = i;
	if ((arg >= (int) 'a') && (arg <= (int) 'z')) 
		args[arg - (int)'a'] = i;
	}
return;
}