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

    {
    From: MAYNARD PHILBROOK
    Subj: Re: keyboard buffer
    ---------------------------------------------------------------------------
     TH> How do you write TO the keyboard buffer.
     TH> I need a routine that will put a string into the keyboard buffer then
     TH> exit to the calling program leaving the key buffer full.
     TH> This is to simulate a macro function for a menu program.
    }
     function PushIntoKeyBoard( c:char; ScanCode:Byte):boolean;
      Begin
       asm
           Mov Ah, 05h
           Mov Ch, ScanCode;
           Int $16;
           Mov  @result, Al;       { Results }
       End;
      Result := Not(Result);
      End;

    {returns true if Buffer took it other wise it mite be full or Not Supported}

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