{ (c) 1998 CREEQ <creeq@web.de> }
program Ascii_Zeichen_auf_Drucker_ausgeben;
uses Crt, Printer;
var i, zeichen : integer;
    ausnahme : boolean;
begin
  for i := 1 to 18 do writeln(lst);
  writeln(lst);
  writeln(lst, '                               ASCII-Zeichensatz');
  writeln(lst, '                               ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
  writeln(lst);
  write(lst, ' ');
  zeichen := 0;
  for i := 1 to 255 do
  begin
    inc(zeichen);
    ausnahme := FALSE;
    if i < 10 then write(lst, '0');
    if i < 100 then write(lst, '0');
    write(lst, i,'=');
    if i >= 7 then
    if i < 30 then
    begin
      ausnahme := TRUE;
      write(lst, '  ');
    end;
    if ausnahme = FALSE then write(lst, chr(i),' ');
    if zeichen = 13 then begin zeichen := 0; writeln(lst); write(lst, ' '); end;
  end;
end.