/*************************************************************
 * File: lib/isupper.c
 * Purpose: Part of C runtime library
 * Author: Phil Bunce (pjb@carmel.com)
 * Revision History:
 *	970304	Start of revision history
 */

/** isupper(c) returns true if c is upper case */
isupper(c)
int c;
{
if (c >= 'A' && c <= 'Z') return(1);
return(0);
}