ASCII Table v1.0

program ascii;
uses crt;

const MAX   = 255;
      PASSO = 10;
      opcoes = [#27, '1', '2'];

type TTable = array [0..MAX] of char;

var tabela : TTable;
    op : char;


procedure Pausa();
begin
    repeat until (readkey = #13);
end;

procedure CarregarTabela(var t : TTable);
var i : integer;
begin
    for i := 0 to MAX do t[i] := char(i);
end;

procedure Caracter(const t : TTable);
var n : Byte;
begin
    write('Caracter numero (32-255)? ');
    repeat
        readln(n);
    until (n in [32..255]);
    writeln('Caracter ', n, ' = ''', t[n],'''');
    Pausa;
end;

procedure MostrarTabela(const t : TTable);
var i, j : integer;
begin
    i:=32;
    repeat
        for j:=0 to PASSO do
            if i+j<=MAX then write(i+j:4, t[i+j]:2, #179);
        writeln;
        inc(i,PASSO+1);
    until i >= MAX;
    Pausa;
end;


begin
    CarregarTabela(tabela);
    repeat
        clrscr;
        writeln('  1 > Ver tabela');
        writeln('  2 > Numero para caracter');
        writeln('ESC > Sair');
        repeat
            op := readkey;
        until (op in opcoes);
        clrscr;
        case op of
            '1' : MostrarTabela(tabela);
            '2' : Caracter(tabela);
        end;
    until op = #27;
end.