home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / comp / lang / rexx / 1456 < prev    next >
Encoding:
Text File  |  1993-01-05  |  765 b   |  28 lines
  1. Newsgroups: comp.lang.rexx
  2. Path: sparky!uunet!panther!mothost!schbbs!waccvm.corp.mot.com!TCSAR03
  3. From: TCSAR03@waccvm.corp.mot.com (Germain Leutwyler)
  4. Subject: Re: Lower-case alphabetic set
  5. Organization: Motorola
  6. Date: 5 Jan 1993 07:59:12 MST
  7. Message-ID: <1993Jan5.064658.4491@schbbs.mot.com>
  8. Sender: news@schbbs.mot.com (Net News)
  9. Nntp-Posting-Host: waccvm.corp.mot.com
  10. Lines: 16
  11.  
  12. Hi,
  13.  
  14. Here is another routine to translate each letter from uppercase to
  15. lowercase. You may specify the characters that shouldn'tbe converted
  16. in the verify function.
  17.  
  18. Best regards,
  19. Germain Leutwyler
  20.  
  21. /* TRANSLATION OF CERTAIN CHARACTERS WITHIN STRING "ST" TO LOWERCASE */
  22. ST=''
  23. do P=1 to length(ST)
  24.  C=substr(ST,P,1)
  25.  if verify(C,'?!0123456789')/=0 then C=bitxor(C,' ')
  26.  ST=ST||C
  27. end
  28.