home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
ipo-101.zip
/
Samples.zip
/
ASCII.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1997-04-23
|
1KB
|
43 lines
program good(output);
var
c : char;
begin
writeln('ASCII Character Set');
writeln(0, ' Null');
writeln(1, ' Start heading');
writeln(2, ' Start text');
writeln(3, ' End text');
writeln(4, ' End transmit');
writeln(5, ' Enquiry');
writeln(6, ' Acknowledge');
writeln(7, ' Bell');
writeln(8, ' Back space');
writeln(9, ' Horizontal tab');
writeln(10, ' Line feed');
writeln(11, ' Vertical tab');
writeln(12, ' Form feed');
writeln(13, ' Carriage return');
writeln(14, ' Shift out');
writeln(15, ' Shift in');
writeln(16, ' Data line esc');
writeln(17, ' Dev ctl 1');
writeln(18, ' Dev ctl 2');
writeln(19, ' Dev ctl 3');
writeln(20, ' Dev ctl 4');
writeln(21, ' Neg acknowledge');
writeln(22, ' Synch idle');
writeln(23, ' End tran block');
writeln(24, ' Cancel');
writeln(25, ' End of medium');
writeln(26, ' Substitute');
writeln(27, ' Escape');
writeln(28, ' File separator');
writeln(29, ' Group separator');
writeln(30, ' Record separator');
writeln(31, ' Unit separator');
writeln(32, ' Space');
for c := '!' to '~' do
writeln(ord(c), ' ''', c, '''');
writeln(127, ' Del');
end.