Program ce demonstreaza posibilitatea de acces la codurile de scanare ale tastarurii in C

Program Scan_Taste;

Uses Crt,Dos;

Var

tasta:byte;

KbdIntVec:procedure;

Procedure KeyClick; interrupt;

begin

Port[$20]:=$20;

end;

Begin

GetIntVec($9,@KbdIntVec);

SetIntVec($9,Addr(KeyClick));

tasta:=0;

repeat

repeat until tasta<>Port[$60];

tasta:=Port[$60];

gotoxy(20,2);write(tasta:3);

until tasta=129;

SetIntVec($9,@KbdIntVec);

End.