Паскаль / 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.