UCASE
#define UCASE 02 /* flag - convert to upper case */
#define UCASE(c) ((('a' <= c) && (c <= 'z'))? c - 32 : c)
#define UCASE(c) (((L'a' <= c) && (c <= L'z'))? c - 32 : c)