home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / keyboard.swg / 0054_Clear keyboard buffer.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-09-26  |  497 b   |  14 lines
  1. {****************************************************************************
  2.  * Procedure ..... ClearKBBuffer
  3.  * Purpose ....... To clear the keyboard buffer of pending keystrokes
  4.  * Parameters .... None
  5.  * Returns ....... N/A
  6.  * Notes ......... None
  7.  * Author ........ Martin Richardson
  8.  * Date .......... May 13, 1992
  9.  ****************************************************************************}
  10. PROCEDURE ClearKBBuffer;
  11. BEGIN
  12.      WHILE KEYPRESSED DO IF ReadKey = #0 THEN;
  13. END;
  14.