FlushKeyBuffer                                                 MiscTTT



Purpose   To remove all keystrokes from the keyboard buffer.

Declaration    FlushkeyBuffer;

Remarks   This procedure is most frequently used when you want to stop
          the type-ahead effect.

Uses CRT, DOS, MiscTTT.

Example


               USES CRT, FASTTTT, DOS, MISCTTT;
               VAR ANS : CHAR;
               BEGIN
                 WRITEAT(1,WHEREY+1,WHITE,RED,'ARE YOU SURE YOU WANT TO
                 DELETE IT? (Y/N);
                 FLUSHKEYBUFFER;
                 ANS := GETKEY;
                 IF UPCASE(ANS) = 'Y' THEN
                 DELRECORD;
               END.


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