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