Return Caps Lock status and optionally set new status
──────────────────────────────────────────────────────────────────────────────

 Syntax

        GT_CapLock(lStatus) --> lRet

 Arguments:

      lStatus -       New status of caps lock.  TRUE means caps lock on.

 Returns:

      lRet    -       The current status of caps lock.
                      TRUE if caps lock is on, otherwise FALSE

 Description:

      Checks status of Caps Lock and optionally sets the status.

      The header file COMPAT.CH contains #defines for the old functions
      from GT LIB version 1.


 Examples:

      ? "Caps Lock Is Turned " + if(GT_CapLock(), "On", "Off")

      /* reverse capslock status */
      GT_CapLock(!GT_CapLock())


 Source: CAPSLOCK.ASM

 Author:  Andy M Leighton