{***********************************************************************}
{									}
{ __FlushKey  Flush the keyboard buffer 				}
{									}
{ procedure __FlushKey; 						}
{									}
{ Description This procedure flushes the keyboard buffer, that is, all	}
{	      remaining keystrokes are removed from the buffer.  It	}
{	      does no damage to flush an empty buffer.	The buffer is	}
{	      flushed by making a call to DOS function C (hex). The	}
{	      buffer may also be flushed by using __FFlshKey which	}
{	      accesses the keyboard buffer directly; hence making no	}
{	      DOS function calls.					}
{									}
{ Version     4.00 (C)Copyright Blaise Computing Inc.  1987		}
{_______________________________________________________________________}

procedure __FlushKey;

  var
    Reg : registers;

  begin {__FlushKey}

    with Reg do
      begin
	AX := $0C06;		       { Function C making a call to 6	}
	DX := $00FF		       { Return immediately, do not wait}
      end;			       { for a character.		}

    Intr(_DOS,Reg)

  end;	{__FlushKey}
