Define Mixed_Case_Tokens For "' .$!@#%^&*()-'_"

//****************************************************************************
// $Module type: FUNCTION
// $Module name: Mixed_Case
// $Author     : NAME
// Created     : 16-11-99 @ 18:50
//
// Description
//    This function returns a nicely uppercased and lowercased string based on
//    the characters which makes it uppercase.
//
// $Rev History
//    16-11-99 VO Module header created
//****************************************************************************
Function Mixed_Case String sIn Returns String
   Integer iLength iPos iUppercase_Next
   String sOut sCharacter

   Move (Length (sIn)) To iLength
   Move (Uppercase (Left (sIn, 1))) To sOut
   Move 2 To iPos
   Move 0 To iUppercase_Next
   While iPos Le iLength
      Move (Mid (sIn, 1, iPos)) To sCharacter
      If (Mixed_Case_Tokens Contains sCharacter) Begin
         Move 1 To iUppercase_Next
         Move (sOut + sCharacter) To sOut
      End
      Else Begin
         If (iUppercase_Next = Dffalse) Begin
            Move (sOut + Lowercase (sCharacter)) To sOut
         End
         Else Begin
            Move (sOut + Uppercase (sCharacter)) To sOut
         End
         Move 0 To iUppercase_Next
      End
      Increment iPos
   End

   Function_Return sOut
End_Function // Mixed_Case