[Back to KEYBOARD SWAG index] [Back to Main SWAG index] [Original]

    {*****************************************************************************
     * Function ...... IsKeyPressed
     * Purpose ....... To determine if *ANY* key is pressed on the keyboard
     * Parameters .... None
     * Returns ....... TRUE if a key is being pressed
     * Notes ......... Even returns TRUE if a shift/ctrl/alt/caps lock key is
     *                 pressed.
     * Author ........ Martin Richardson
     * Date .......... May 13, 1992
     *****************************************************************************}
    FUNCTION IsKeyPressed: BOOLEAN;
    BEGIN
         IsKeyPressed := ((MEM[$40:$17] AND $0F) > 0) OR (MEM[$40:$18] > 0)
                         OR KEYPRESSED;
    END;

[Back to KEYBOARD SWAG index] [Back to Main SWAG index] [Original]