(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *)
(*        Soubor: ORDTEST.PAS                                              *)
(*        Obsah: no comment                                                *)
(*        Autor: Mircosoft                                                 *)
(*        Posledni uprava: kdysi                                           *)
(*        Upozorneni: tyto zdrojove kody pouzivate na vlastni nebezpeci    *)
(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *)
program test_ordinalnich_cisel;
uses enhkbd,{tuto jednotku muzete vyradit a pozorovat zmeny}
     crt;
var o:char;
    i:word;
BEGIN
repeat
clrscr;
write(' Mezernik - vypis ASCII, Enter - cteni klaves, Esc - konec');
o:=readkey; clrscr; writeln;
if o=#13 then begin
              repeat
              o:=readkey;
              writeln(o,' = ',ord(o));
              until o=#27;
              o:='x';
              end
         else if o=' ' then begin
                            i:=0;
                            repeat
                            writeln(i:3,' = ',chr(i));
                            inc(i);
                            if (i mod 24)=0 then repeat o:=readkey until not keypressed;
                             {po kazdych 24 znacich cekani na klavesu}
                            until(i>255)or(o=#27);
                            o:='x';
                            end;
until o=#27;
END.