home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / epmsmp.zip / CASECHAR.E < prev    next >
Text File  |  1996-02-06  |  538b  |  13 lines
  1.  
  2. defc casechar =  -- Toggle the case of the current character.
  3.    getline line
  4.    char = substr(line, .col, 1)
  5.    if char <> lowcase(char) then      -- Must be uppercase;
  6.       newchar = lowcase(char)         --   replace with lowercase.
  7.    elseif char <> upcase(char) then   -- Must be lowercase;
  8.       newchar = upcase(char)          --   replace with uppercase.
  9.    else                               -- Neither?
  10.       return                          --   Nothing to do!
  11.    endif
  12.    replaceline overlay(newchar, line, .col)
  13.