home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / SASC6571.LZX / rexx / tolower.se < prev    next >
Encoding:
Text File  |  1996-12-24  |  287 b   |  20 lines
  1. /* rexx */
  2. options results
  3. 'GT'
  4. options
  5. line = result
  6. options results
  7. 'GI'
  8. options
  9. index = result
  10. num = SUBSTR(line, index+1, 1)
  11. if num == " " then 
  12.   do
  13.    'NC'
  14.   end
  15. /* num = upper(num) */
  16. num = translate(num, "abcdefghijklmnopqrstuvwxyz", "ABCDEFGHIJKLMNOPQRSTUVWXYZ");
  17. 'IN'
  18. num
  19. 'IN'
  20.