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

  Name:     kbdstat() - get status of shift/num/caps/scroll/alt keys
  Usage:    <logical> = kbdstat(<keyvalue>)
  Params:   integer <keyvalue> - a number denoting which key state you
            want to check based on the following table.

                 KEYVALUE  - MEANING
                 128       - insert
                 64        - caps lock
                 32        - num lock
                 16        - scroll lock
                 8         - alt key
                 4         - ctrl key
                 2         - left shift key
                 1         - right shift key

  Returns:  .T. if the specified key is depressed, .F. if not.

 ---------------------------------- Example ---------------------------------

                 ? "Press NumLock to popup the calculator"
                 do while .T.
                      if kbdstat(32)
                           do popcalc
                      endif
                 enddo

                 ? "Press scroll lock to move the window"

                 do while kbdstat(16)
                      if (inkey() = 19)
                           do MOVELEFT
                      elseif (inkey() = 4)
                           do MOVERIGHT
                      endif
                 enddo