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

    {

       Flush the keyboard: removes all characters present in the buffer

                   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
                   º                                        º°
                   º          AVONTURE CHRISTOPHE           º°
                   º              AVC SOFTWARE              º°
                   º     BOULEVARD EDMOND MACHTENS 157/53   º°
                   º           B-1080 BRUXELLES             º°
                   º              BELGIQUE                  º°
                   º                                        º°
                   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼°
                   °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°

    }

    Procedure FlushKeyboard;

    Begin

       Inline ($Fa);
       MemW[$40:$1A] := MemW [$40:$1C];
       Inline ($Fb);

    End;

    { Another solution is  While KeyPressed Do ReadKey; }

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