Ascii Kodları : Programlama Dillerinde Çok Büyük Önem Taşıyan Ascii Kod
larının Tümüne yakını Bu Programda yer Alıyoruses crt;
var
i,sa,su:integer;
begin
clrscr;
sa := 0; su := 1;
for i := 33 to 254 do begin

inc(sa);
if sa >=25 then begin
su := su + 7;
sa := 1;
end;
gotoxy(su, sa);writeln(i:4,chr(i):2);
end;
readkey;
end.


Alıntıdır!..