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

    {****************************************************************************
     * Procedure ..... ClearKBBuffer
     * Purpose ....... To clear the keyboard buffer of pending keystrokes
     * Parameters .... None
     * Returns ....... N/A
     * Notes ......... None
     * Author ........ Martin Richardson
     * Date .......... May 13, 1992
     ****************************************************************************}
    PROCEDURE ClearKBBuffer;
    BEGIN
         WHILE KEYPRESSED DO IF ReadKey = #0 THEN;
    END;

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