[F90:]integer function gEnqKeyState(key) integer, intent(in) :: key
Arguments
key
key code
Description
The function gEnqKeyState() returns the status of a keyboard key at the time the function is called. The function returns 0 (zero) if the key is not pressed and 1 if it is.
The possible values of key are documented under gGetEventRecord() with the following additional special key codes:
key     Special Key Description -1      Left mouse button -2      Middle mouse button -3      Right mouse button
-20     Shift -21     Ctrl -22     Alt
-30     Caps lock -31     Num lock -32     Scroll lock
This routine is only supported on windowing devices.