DECLARE keybd_event IN user32;
    SHORT bVk,;
    SHORT bScan,;
    INTEGER dwFlags,;
    INTEGER dwExtraInfo
 
#DEFINE  VK_NUMLOCK  144
 
IF ! NUMLOCK()
     = keybd_event(VK_NUMLOCK, 0, 2, 0)
     = keybd_event(VK_NUMLOCK, 0, 0, 0)
ENDIF