Click above to get retro games delivered to your door ever month!

 numkey()            Return the state of the NumLock key
------------------------------------------------------------------------------
 Declaration
   io.hdr

 Syntax
   func logical numkey extern

 Arguments
   None.

 Return
   A logical indicating if the NumLock key is on.

 Description
   numkey() returns the status of the NumLock mode, i. e. if it is active,
   the return value will be .t. , otherwise it will be .f.

 Example
   #define EXAMPLE_IO
   #include example.hdr

   proc Test_numkey
   clear
   cursor( .f. )
   ? "Press the Num Lock key or Esc to finish"
   do while .not. lastkey() == K_ESC
      inkey()
      if numkey()
         @ 0, 70 ?? "Num"
      else
         @ 0, 70 ?? "   "
      endif
   enddo
   endproc

   proc main
   Test_numkey()
   endproc