home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / lang / rexx / 1498 < prev    next >
Encoding:
Text File  |  1993-01-21  |  988 b   |  23 lines
  1. Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
  2. Path: sparky!uunet!paladin.american.edu!auvm!UCSFVM.BITNET!GOMBERG
  3. Message-ID: <REXXLIST%93012111161215@UGA.CC.UGA.EDU>
  4. Newsgroups: comp.lang.rexx
  5. Date:         Thu, 21 Jan 1993 08:11:48 PST
  6. Sender:       REXX Programming discussion list <REXXLIST@UGA.BITNET>
  7. From:         Dave Gomberg <GOMBERG@UCSFVM.BITNET>
  8. Subject:      Re: Lower-case alphabetic set
  9. In-Reply-To:  Message of Thu, 21 Jan 1993 14:11:08 GMT from <jt@FUW.EDU.PL>
  10. Lines: 11
  11.  
  12. Since we are back on lowercase, how about:
  13.  
  14. Lowercase:   /*   Passed a single character  */
  15. RETURN   D2C(C2D(ARG(1)+C2D('a')-C2D('A'))
  16.  
  17. This should work correctly for ASCII and EBCDIC and any table where either
  18. the pattern of lowercase letters is the same as the pattern of uppercase,
  19. even if the uppercase and lowercase letters are interleaved.
  20.  
  21. Dave Gomberg    GOMBERG@UCSFVM  Internet node UCSFVM.UCSF.EDU     fax-> 7797
  22. Seven Gateview Court, San Francisco CA 94116-1941      voice-> (415)731-7793
  23.