{(c) 2001 Emur http://emur.org}

program Asciihelp;
uses crt;
var x,y, x1,y1: integer;
    ch,key: char;

procedure vstup;                {nacitani znaku}
begin
       window(37,3,50,3);
       key:=readkey;
       while key<>#27 do
       begin
       textcolor(lightcyan);
       write(key,' . . . ',ord(key));
       key:=readkey;
       clrscr;
       end;
       window(5,3,80,25);
end;

BEGIN
textcolor(yellow);
clrscr;
window(35,9,75,20);
writeln('Emuruv ASCII helper');
writeln('-------------------'); writeln;
writeln('Ovladani pomoci sipek,');
writeln('Enter -prepnuti do 2. modu');
writeln('Esc   -navrat nebo konec');
writeln;writeln;writeln('(C) Emur 2001');
window(1,1,80,25);
textcolor(15);
writeln; writeln('    >>ASCII TABULKA<<');
gotoxy(35,2); writeln('>>KODY KLAVES<<');

window(5,3,80,25);
for y1:=1 to 16 do                      {vykresleni ascii tabulky}
  for x1:=1 to 16 do
  begin
    gotoxy(x1,y1);
    write(chr(x1-1+(y1-1)*16));
  end;
x:=1; y:=1;
repeat
gotoxy(3,19);
textcolor(lightcyan);
write(x-1+(y-1)*16:3,' . . . ', chr(x-1+(y-1)*16));
textcolor(15);
gotoxy(x,y);
ch:=readkey;
case ch of
  #72: if y>1 then y:=y-1;                   {sipky, pohyb v tabulce}
  #80: if y<16 then y:=y+1;
  #75: if x>1 then x:=x-1;
  #77: if x<16 then x:=x+1;
  #13: vstup;
  end;
until ch=#27;
END.