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 >
Pascal/Delphi Source File  |  1997-04-23  |  1KB  |  43 lines

  1. program good(output);
  2. var
  3.    c : char;
  4. begin
  5.     writeln('ASCII Character Set');
  6.     writeln(0, ' Null');
  7.     writeln(1, ' Start heading');
  8.     writeln(2, ' Start text');
  9.     writeln(3, ' End text');
  10.     writeln(4, ' End transmit');
  11.     writeln(5, ' Enquiry');
  12.     writeln(6, ' Acknowledge');
  13.     writeln(7, ' Bell');
  14.     writeln(8, ' Back space');
  15.     writeln(9, ' Horizontal tab');
  16.     writeln(10, ' Line feed');
  17.     writeln(11, ' Vertical tab');
  18.     writeln(12, ' Form feed');
  19.     writeln(13, ' Carriage return');
  20.     writeln(14, ' Shift out');
  21.     writeln(15, ' Shift in');
  22.     writeln(16, ' Data line esc');
  23.     writeln(17, ' Dev ctl 1');
  24.     writeln(18, ' Dev ctl 2');
  25.     writeln(19, ' Dev ctl 3');
  26.     writeln(20, ' Dev ctl 4');
  27.     writeln(21, ' Neg acknowledge');
  28.     writeln(22, ' Synch idle');
  29.     writeln(23, ' End tran block');
  30.     writeln(24, ' Cancel');
  31.     writeln(25, ' End of medium');
  32.     writeln(26, ' Substitute');
  33.     writeln(27, ' Escape');
  34.     writeln(28, ' File separator');
  35.     writeln(29, ' Group separator');
  36.     writeln(30, ' Record separator');
  37.     writeln(31, ' Unit separator');
  38.     writeln(32, ' Space');
  39.     for c := '!' to '~' do
  40.         writeln(ord(c), ' ''', c, '''');
  41.     writeln(127, ' Del');
  42. end.
  43.