home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol072 / utility.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-04-29  |  271 b   |  15 lines
  1. { Donated by Warren Smith, Feb 1982 }
  2.  
  3. Module Utility ;
  4.  
  5. Function Upper (In_Char : char) : char ;
  6.  
  7.   Begin { Upper }
  8.   If (In_Char >= 'a') and (In_Char <= 'z') then
  9.     Upper := chr( ord(In_Char) - 32)
  10.   else
  11.     Upper := In_Char
  12.   end ; { Upper }
  13.  
  14. ModEnd.
  15.