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

    {
    NAME      : SHOWKEYS.PAS

    AUTHOR    : SCOTT TUNSTALL B.Sc

    CR. DATE  : 8th July 1996

    This program shows the Up/Down status of all keys on keyboard,
    so you can determine what key has what scancode.

    ESC = Exit (If by any chance you're wondering what the
    Scancode value of ESC is, it's 1)

    --------------------------------------------------------------
    }

    { NWKBDINT is in June 96's KEYBOARD.SWG, author of the
      program is Scott Tunstall.
    }

    Uses NWKBDINT,CRT;

    var x,y: byte;

    Begin
         hookkeyboardint;
         textmode(CO80);
         repeat
               For y:=0 to 7 do
                   For x:=0 to 15 do
                       begin
                       gotoxy((x*4)+1,(y*2)+1);
                       textcolor(WHITE);
                       write((y * 16) + x);
                       gotoxy((x*4)+1,(y * 2) + 2);

                       if keydown[(y*16) + x] Then
                          begin
                          textcolor(LIGHTGREEN);    { Highlight the key }
                          write('DN')
                          end
                       else
                           begin
                           textcolor(RED);
                           write('UP');
                           end;
                   end;

         until keydown[1];  { ESC }
         unhookkeyboardint;

    End.

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