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

 shiftkey()          Test if the Shift key is pressed
------------------------------------------------------------------------------
 Declaration
   io.hdr

 Syntax
   func logical shiftkey extern

 Arguments
   None.

 Return
   A logical indicating the status of the Shift key.

 Description
   This function returns .t. if the Shift key was pressed at function call.

 Example
   #define EXAMPLE_IO
   #include example.hdr

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

   proc main
   Test_shiftkey()
   endproc