home *** CD-ROM | disk | FTP | other *** search
/ Troubleshooting Netware Systems / CSTRIAL0196.BIN / attach / pcmag / v14n05 / ulcase.exe / MACRO1.TXT next >
Text File  |  1995-02-11  |  241b  |  13 lines
  1. DISPLAY(Off!)
  2. IF(NOT ?BlockActive)
  3. PosCharNext PosCharPrevious
  4. ASSIGN(VAR1;?RightChar)
  5. ASSIGN(VAR2; CTON(VAR1))
  6.      IF(VAR2<97)
  7.           TYPE(TOLOWER(VAR1))
  8.      ELSE
  9.           TYPE(TOUPPER(VAR1))
  10.      ENDIF
  11. DelCharNext
  12. ENDIF
  13.