home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 4 / CDPD_IV.bin / utilities / cli / fill / pmodules / upperchar.e < prev   
Encoding:
Text File  |  1994-06-22  |  87 b   |  3 lines
  1. PROC upperChar (char) RETURN IF (char > 96) AND (char < 123) THEN (char-32) ELSE char
  2.  
  3.