{ (c) 1998 CREEQ <creeq@web.de> }
program Ascii_Zeichen_aud_Bildschirm_ausgeben;
uses Crt;
var i : integer;
begin
  clrscr;
  for i := 33 to 255 do
  begin
    if wherex > 70 then writeln;
    if i < 10 then write('0');
    if i < 100 then write('0');
    write(i,'->',chr(i),' ');
  end;
  readkey;
end.