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

 Syntax

        GT_NumLock(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:

      ? "Number Lock Is Turned " + if(GT_NumLock(), "On", "Off")

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


 Source: NUMLOCK.ASM

 Author:  Andy M Leighton