home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / scrmod.zip / UPPER.SCR < prev    next >
Text File  |  1992-02-06  |  319b  |  14 lines

  1. > windowshow()
  2. > watch(on)
  3. > text = 'AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvXxYyZz'
  4. > lower = lower(text)
  5. > upper = upper(text)
  6. > watch(off)
  7. > message('  original text = ' + text)
  8. > message('lower case text = ' + lower)
  9. > message('upper case text = ' + upper)
  10. > watch(on)
  11. > timeout = 0
  12. > wait()
  13. > end
  14.