{ KLAVESY.PAS                                    Copyright (c) Pheo }
{ Program vypíše kód stlačeného klávesu.                            }
{                                                                   }
{ Datum:15.04.2005                             http://www.trsek.com }
 
Program klavesy; {ASCII-hodnota stlacenej klávesy}
uses Crt;
var  C : Char;
     A : Byte;
begin
  writeln('Stlac neaky klaves - zobrazim jeho ASCII hodnotu');
  repeat
    C := Readkey;
    writeln('Stlacil si:',C);
    {if C = #0 then C := Readkey;}
    A := Ord(C);
    Writeln( C, '  ASCII hodnota je ', A, '.');
    REPEAT UNTIL KEYPRESSED;
  until A = 27; {Koniec na stlacenie klavesy ESC - ASCII-hodnota je 27}
  readln;
end.