SHIFTY() Determines shift key settings

 Returns
 <lOn> => indicated shift key is on/off

 Syntax
 SHIFTY(nKey)

 Description
 Determines shift key settings for the keyboard shift
 keys, based on <nKey>:

    1     Right shift key
    2     Left shift key
    3     Ctrl key
    4     Alt key
    5     Scroll lock key
    6     Number lock key
    7     Caps lock key
    8     Insert key

 Examples
  do while .t.

    if inkey()=27
      exit
    endif

    @0,0 SAY "Rshift      "
    ??shifty(1)
    @1,0 SAY "Lshift      "
    ??shifty(2)
    @2,0 SAY "Ctrl        "
    ??shifty(3)
    @3,0 SAY "Alt         "
    ??shifty(4)
    @4,0 SAY "Scroll      "
    ??shifty(5)
    @5,0 SAY "Numlock     "
    ??shifty(6)
    @6,0 SAY "Capslock    "
    ??shifty(7)
    @7,0 SAY "Insert      "
    ??shifty(8)
  enddo

 Source: S_SHIFT.ASM