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

{
> Hello all, I am looking for a scancode for the tab key. I am desperate!
> Please, Any code would be apreciated! Help! Netmail if you wish (1:241/99)

I saw Richard Brown wrote you a reply as a testing program, but it works for
ASCII codes not SCAN codes so :
 }
Var
  old : Byte;
Begin
  WriteLn ('Press any key to begin and ESCAPE to exit.');
  ReadLn;
  old:=$FF;
  While Port[$60]<>1+$80 Do {Until ESCAPE is released, 1 is ESC scan-code}
  Begin
    If (old<>Port[$60]) And (Port[$60]<$80) Then
    Begin
      old:=Port[$60];
      Writeln('Scan code ',old,' pressed - release code is ',old+$80);
    End;
  End;
End.


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