home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 3 Comm
/
03-Comm.zip
/
scrmod.zip
/
UPPER.SCR
< prev
next >
Wrap
Text File
|
1992-02-06
|
319b
|
14 lines
> windowshow()
> watch(on)
> text = 'AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvXxYyZz'
> lower = lower(text)
> upper = upper(text)
> watch(off)
> message(' original text = ' + text)
> message('lower case text = ' + lower)
> message('upper case text = ' + upper)
> watch(on)
> timeout = 0
> wait()
> end