home *** CD-ROM | disk | FTP | other *** search
/ Troubleshooting Netware Systems / CSTRIAL0196.BIN / attach / pcmag / v14n05 / ulcase.exe / MACRO2.TXT < prev   
Text File  |  1995-02-11  |  716b  |  30 lines
  1. IF(?BlockActive)
  2.      PERSISTALL
  3.      IF(Exists(CharCap)=0)
  4.           Go(MakeUpperCase)
  5.      ENDIF
  6.      IF(CharCap="AllUpper")
  7.           Go(MakeLowerCase)
  8.      ENDIF
  9.      IF(CharCap="AllLower")
  10.           Go(MakeInitCap)
  11.      ENDIF
  12.      IF(CharCap="InitialCap")
  13.           Go(MakeUpperCase)
  14.      ENDIF
  15.      LABEL(MakeUpperCase)
  16.           ASSIGN(CharCap;"AllUpper")
  17.           ConvertCaseUppercase
  18.           GO(End)
  19.      LABEL(MakeLowerCase)
  20.           ASSIGN(CharCap;"AllLower")
  21.           ConvertCaseLowercase
  22.           ConvertCaseLowerCase
  23.           GO(End)
  24.      LABEL(MakeInitCap)
  25.           ASSIGN(CharCap;"InitialCap")
  26.           ConvertCaseInitialCaps
  27.           GO(End)
  28. ENDIF
  29. LABEL(End)
  30.