Clear the high bit for every character in a string
──────────────────────────────────────────────────────────────────────────────

 Syntax

        GT_BitStri(<cStr>) --> cOut

 Arguments:

      <cStr>  - The string to strip

 Returns:

      <cOut>  - The stripped string

 Description:

      Return the supplied string with all high bits turned off.
      Useful for clearing the high bits ready for transfer to a
      system that only understands true ASCII and not IBM's
      bastardized version.

      NOTE:
         invalid parameters will return ""

 Examples:


      local cStr := ""
      local i

      for i := asc("A") to asc("Z")
         cStr := cStr + chr(i + 128)
      next

      ? GT_BitStri(cStr)         // prints ABCDEFGHIJKLMNOPQRSTUVWXYZ

 Source: BITSTRIP.C

 Author:  Andy M Leighton