FlushKeyBuffer


Purpose   Removes all keystrokes from the keyboard buffer.

Decln.    FlushKeyBuffer;

Remarks   Use this procedure to stop the type ahead effect.

Example

VAR
  ANS : CHAR;
BEGIN
    FWRITE(1,1,WHITE,RED,'YOU REALLY WANT TO FORMAT THE SERVER? (Y/N)');
    FLUSHKEYBUFFER;
    ANS := GETKEY;
    IF UPCASE(ANS) = 'Y' THEN
       FORMATSERVER;
END;

The keyboard is flushed in case the user had previously typed a Y in
anticipation of a different question.