UpCase                   Returns Upper-Case Character Equivalent

 UpCase(Ch : Char) : Char;                                               [TP]

    Returns the upper-case character Equivalent of Ch if Ch is in the
    range 'a'..'z'; otherwise, this function just returns Ch.

              Ch    Any character value

  -------------------------------- Example ---------------------------------

           Ch := UpCase('a');       { Ch = 'A' }
           Ch := UpCase('Q');       { Ch = 'Q' }
           Ch := UpCase('2');       { Ch = '2' }