FT_NUMLOCK()
 Return status of NumLock key
──────────────────────────────────────────────────────────────────────────────

 Syntax

      FT_NUMLOCK( [ <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

     lValue is .T. if NumLock 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
     NumLock key for some reason.

 Examples

     IF FT_NUMLOCK()
        Qout( "NumLock is active" )
     ENDIF

   Another one, slightly strange, courtesy of Glenn Scott:


       function numBlink()
          local lOldNum := ft_numlock()

          while inkey( .5 ) != 27
             ft_numlock( !ft_numlock() )
          end

          return ft_numlock( lOldNum )

 Source: NUMLOCK.C

 Author: Ted Means