Program Keys;
var
  c : Byte;
Function ReadKey:Byte;Assembler;
asm
   mov ah, $01
   int $21
end;
begin
  repeat
    c:=ReadKey;
    if c = 0 then
    begin
      Writeln(C);
      c:=ReadKey;
      Writeln(c);
    end   else Writeln(c);
  until c=27
end.

Назад