/***********************************\
*    Convert string to uppercase    *
\***********************************/

void upcase (char *com)
{
    int intcom;
    char *ptr;

    intcom = 'A';
    ptr=com;
    while (intcom != '\0') {
        intcom = *ptr;
        if ( 'a' <= intcom && intcom <= 'z' )
            *ptr = *ptr + 'A' - 'a';
        ptr++;
    };
}