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

    Program StuffKeyboardBuffer;

    Uses Crt,Dos;

    Var
           Name : String;

    Procedure Stuffit(DChar:Char);
    Begin
         asm
            mov ah,05h
            mov ch,1
            mov cl, DChar
            int 16h
         end;
    end;

    Procedure StuffKeyboard(D : String);
    Var
           l : Integer;

    Begin
       for l:=1 to length(d) do
           StuffIt(D[l]);
    End;

    Begin
           Clrscr;
           Write('Enter your name : ');
           StuffKeyboard('Robbie Flynn');
           Readln(Name);
           Writeln('Your name is : ',Name);
    End.

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