|
|||||||
Version 3 Technical Highlights - KBStatusA function which returns an integer which indicates which special keyboard keys are pressed down at the time that the routine is called. To find out whether a particular key is active it is necessary to BITAND the result with a specific integer as shown in the following table. If the BITAND returns false then the key is not pressed. 1 The Right Shift key 2 The Left Shift Key 3 Left/Right Shift 4 The Ctrl Key 8 The Alt Key 16 The Scroll Lock Key 32 The Num Lock Key 64 The Caps Lock Key 128 Insert Key Thus to check whether the user was pressing Right-Shifted-Alt the following code segment would suffice 0001 Declare Function KbStatus 0002 Loop 0003 Input X,-1 0004 Until X = \1B\ 0005 If BitAnd(KbStatus(),1) Then 0006 If BitAnd(KbStatus(),8) Then 0007 Print Char(7) : 0008 End 0009 End 0010 Repeat (Volume 4, Issue 5, Pages 11,12) |
|||||||
| |||||||