a_to_call(text, tcall)
int a_to_call(text, tcall)
a_to_call(text, tcall)char *text;unsigned char *tcall;{	int i;	int ssid;	unsigned char c;	if(strlen(text)==0)return -1;	ssid = 0;	for(i=0;i<6;i++) {		tcall[i]=(' '<<1);	}	tcall[6] = '\0';	for(i=0;i<strlen(text);i++) {		c = text[i];		if(c=='-') {			ssid = atoi(&text[i+1]);			if(ssid>15)return -1;			tcall[6] = (ssid<<1);			return 0;		}		if(islower(c))c = toupper(c);		if(i>5)return -1;		tcall[i]=(c<<1);	}	return 0;}