KSETNUM()
 Queries/sets the system setting for NUMLOCK
------------------------------------------------------------------------------
 Syntax

     KSETNUM([<lNewSwitch>]) --> lOldSwitch

 Argument

     <lNewSwitch>  Designates whether "NUM LOCK" is on (.T.) or off
     (.F.).  The default value is the system setting.

 Returns

     KSETNUM() returns the current setting for NUM LOCK when no parameter is
     specified; otherwise, it returns the previous setting.

 Description

     KSETNUM() returns the current system setting for NUM LOCK.  If the
     <lNewSwitch> is specified, NUM LOCK is set accordingly.

 Examples

     .  Query the NUMLOCK function:

        lNumLock: = KSETNUM()

     .  Switch on NUMLOCK and save the previous status:

        lOldNumLock: = KSETNUM(.T.)