{ Donated by Warren Smith, Feb 1982 }

Module Utility ;

Function Upper (In_Char : char) : char ;

  Begin { Upper }
  If (In_Char >= 'a') and (In_Char <= 'z') then
    Upper := chr( ord(In_Char) - 32)
  else
    Upper := In_Char
  end ; { Upper }

ModEnd.

.