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

 tw_GetKSt( nKey )
 ----------------------------------------------------------------------------
     Get the status of one of the extended keys. You should include
     TSDWIN.CH where the keys are defined.

       Arguments:

     ney - 'N' Right Shift                  01
               Left Shift                   02
               Control                      03
               Alternate                    04
               Scroll Lock Status           05
               Number Lock Status           06
               Caps Lock Status             07
               Insert Status                08
               Control Number Lock Status   09
               Scroll Lock                  10
               Number Lock                  11
               Caps Lock                    12
               Insert                       13


       Return:

     Value of the status register. The decimal value is returned.

             Key                     Decimal            Hexadecimal
             -------------------------------------------------------
             Right Shift                      1 - If Down     0x0001
             Left Shift                       2 - If Down     0x0002
             Control                          4 - If Down     0x0004
             Alternate                        8 - If Down     0x0008
             Scroll Lock Status              16 - If On       0x0010
             Number Lock Status              32 - If On       0x0020
             Caps Lock Status                64 - If On       0x0040
             Insert Status                  128 - If On       0x0080
             Control Number Lock Status    2048 - If On       0x0800
             Scroll Lock                   4096 - If Down     0x1000
             Number Lock                   8192 - If Down     0x2000
             Caps Lock                    16384 - If Down     0x4000
             Insert                       32768 - If Down     0x8000

       Example:

     twSay( 1, 3, STR( tw_GetKSt( RSHIFT )), ;
                IIF( tw_GetKSt( RSHIFT ) = 0, "w/b", "gr+/b" ))