uses crt,dos;
var kb:procedure;
    klav:array [0..127] of byte;
    aaa:byte;
procedure up9;interrupt;
var key:char;
begin
if keypressed then key:=readkey;
asm
in al,60h;
mov aaa,al;
end;
if aaa<128 then klav[aaa]:=1;
if aaa>128 then klav[aaa-128]:=0;
inline ($9c);
kb;
end;
begin
clrscr;
klav[aaa]:=0;
getintvec($9,@kb);
setintvec($9,addr(up9));
repeat
gotoxy(10,10);
write(aaa,'     ');
until klav[1] = 1 ;
setintvec($9,@kb);
end.