IF(?BlockActive)
     PERSISTALL
     IF(Exists(CharCap)=0)
          Go(MakeUpperCase)
     ENDIF
     IF(CharCap="AllUpper")
          Go(MakeLowerCase)
     ENDIF
     IF(CharCap="AllLower")
          Go(MakeInitCap)
     ENDIF
     IF(CharCap="InitialCap")
          Go(MakeUpperCase)
     ENDIF
     LABEL(MakeUpperCase)
          ASSIGN(CharCap;"AllUpper")
          ConvertCaseUppercase
          GO(End)
     LABEL(MakeLowerCase)
          ASSIGN(CharCap;"AllLower")
          ConvertCaseLowercase
          ConvertCaseLowerCase
          GO(End)
     LABEL(MakeInitCap)
          ASSIGN(CharCap;"InitialCap")
          ConvertCaseInitialCaps
          GO(End)
ENDIF
LABEL(End)