#include <math.h>
#include <strings.h>
#include <ctype.h>

Toupper(ch)
char ch;
	{
	if (isascii(ch) && islower(ch)) return toupper(ch);
	else return ch;
	}

Tolower(ch)
char ch;
	{
	if (isascii(ch) && isupper(ch)) return tolower(ch);
	else return ch;
	}

setmem(buf,len,ch)
char *buf,ch;
int len;
	{
    	for(;len;--len, ++buf) *buf = ch;
	}

char *strupr(buf)
char *buf;
	{
	register int i;
	for( i = strlen(buf)-1; i >= 0; --i) buf[i] = toupper( buf[i] );
    return buf;
	}

strnicmp( s1, s2, maxlen)
char *s1, *s2;
int maxlen;
	{
	int diff;
	for (; maxlen; --maxlen, ++s1, ++s2)
		{
		if ( ( diff = (int)(Toupper(*s1)) - (int)(Toupper(*s2)) )
			!= 0) return diff;
		}
	return 0;
	}