
/*
** same -- YES if c same as lower case lc, else NO
**         c may be upper or lower case
*/
same(c, lc) char c, lc; {
  if((c >= 'A')&(c <= 'Z')) c = c + 32;
  if (c == lc) return YES;
  return NO;
  }
                                                                                                                                                                                                                                                                                                     