/* $DOC$
   $NAME$
      ft_CapLock()
   $CATEGORY$
      Keyboard/Mouse
   $ONELINER$
      Determine and optionally change the status of CapLock key
   $SYNTAX$
      ft_CapLock([ <lNewSetting> ]) -> lCurrentSetting
   $ARGUMENTS$
      <lNewSetting> is optional and if supplied is the new setting
      for the CapLock key.  Specify .T. to turn CapLock on, or .F. to
      turn it off.
   $RETURNS$
      .T. if CapLock is set, .F. if it isn't set.  The value returned
       represents the setting in effect prior to any changes that might
       by made by <lNewSetting>.
   $DESCRIPTION$
      This function is useful if you need to know or set the status of the
      CapLock key for some reason.
   $EXAMPLES$
      IF ft_CapLock()
         ? "CapLock is active"
      ENDIF
   $SEEALSO$
      ft_Alt(), ft_Ctrl(), ft_NumLock(), ft_PrtScr(), ft_Shift()
   $END$
 */