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

    (*==========================================================================
    Date: 08-25-93 (00:32)
    From: MARC BIR
    Subj: CLEAR KEYBOARD

      Here's a quick way to clear keyboard buffer:
    *)

    Procedure ClearKeyBoard;
    Begin
     ASM CLI End;
     MemW[$40:$1A] := MemW[$40:$1C];
     ASM STI End;
    End;

    (*
    MemW[$40:$1A] = ptr to next char in cyclical kbd buffer
    MemW[$40:$1C] = ptr to last char ""

      Incase you haven't had data structures, when the next ptr equals the
    last ptr in a cyclical buufer, the buffer is empty.
      Hope that helps  ( doesn't need CRT )

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