#include <ctype.h>

/* compare two strings without regard to case */

short strcmpa(scan1, scan2)
register char *scan1;
register char *scan2;
{

while( *scan1 != '\0' && toupper(*scan1) == toupper(*scan2) )
   {
   scan1++;
   scan2++;
   }

if( *scan1 == '\0' && *scan2 == '\0')
   return((short)0);
else if (*scan1 == '\0')
   return((short)-1);
else if (*scan2 == '\0')
   return((short)1);
else
   return( (short)(toupper(*scan1) - toupper(*scan2)) );
}