#define NOARGC  /* no argument count passing */
#define FIXARGC /* don't expect arg counts passed in */
/*
   atoib(s,b) - Convert s to "unsigned" integer in base b.
                NOTE: This is a non-standard function.
*/
atoib(s, b) 
char *s; 
int b; 
{
  int n, digit;
  n = 0;
  while(isspace(*s)) ++s;
  while((digit = (127 & *s++)) >= '0') 
    {
    if(digit >= 'a')      digit -= 87;
      else 
    if(digit >= 'A') digit -= 55;
      else                  digit -= '0';
    if(digit >= b) break;
    n = b * n + digit;
    }
  return (n);
}