{ ASCII2.PAS                                                        }
{ Vypis tabulky ASCII znakov.                                       }
{                                                                   }
{ Author: Juraj Pupak                                               }
{ Date  : 27.10.2006                           http://www.trsek.com }
 
program Ascii2;
uses crt;
var
 i,y,x,a : integer;
begin
 clrscr;
 x := 1;
 y := 1;
 
 For i := 1 To 255 Do
    begin
    a := i;
       IF a mod 50 = 0 THEN
            begin
                 y := 1;
                 x := x + 10;
            end;
            gotoxy(x,y);
            write(i,'..',chr(i));
            y := y + 1;
 
    end;
 readln;
end.