Паскаль / do9 / iriepas201 / Irie Pascal / samples / ascii

program ascii(output);
var
   c : char;
begin
    writeln('ASCII Character Set');
    writeln('  0, 00, Null');
    writeln('  1, 01, Start heading');
    writeln('  2, 02, Start text');
    writeln('  3, 03, End text');
    writeln('  4, 04, End transmit');
    writeln('  5, 05, Enquiry');
    writeln('  6, 06, Acknowledge');
    writeln('  7, 07, Bell');
    writeln('  8, 08, Back space');
    writeln('  9, 09, Horizontal tab');
    writeln(' 10, 0A, Line feed');
    writeln(' 11, 0B, Vertical tab');
    writeln(' 12, 0C, Form feed');
    writeln(' 13, 0D, Carriage return');
    writeln(' 14, 0E, Shift out');
    writeln(' 15, 0F, Shift in');
    writeln(' 16, 10, Data line esc');
    writeln(' 17, 11, Dev ctl 1');
    writeln(' 18, 12, Dev ctl 2');
    writeln(' 19, 13, Dev ctl 3');
    writeln(' 20, 14, Dev ctl 4');
    writeln(' 21, 15, Neg acknowledge');
    writeln(' 22, 16, Synch idle');
    writeln(' 23, 17, End tran block');
    writeln(' 24, 18, Cancel');
    writeln(' 25, 19, End of medium');
    writeln(' 26, 1A, Substitute');
    writeln(' 27, 1B, Escape');
    writeln(' 28, 1C, File separator');
    writeln(' 29, 1D, Group separator');
    writeln(' 30, 1E, Record separator');
    writeln(' 31, 1F, Unit separator');
    writeln(' 32, 20, Space');
    for c := '!' to '~' do
        writeln(ord(c):3, ', ', hex(ord(c)), ', ''', c, '''');
    writeln('127, 7F, Del');
end.