home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / qpdemo / beispiel / ascii.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-08-24  |  599 b   |  26 lines
  1.  
  2. PROGRAM Ascii;
  3.  
  4. USES Crt;
  5.  
  6. VAR i,zeit : longint;
  7.  
  8. BEGIN
  9.   ClrScr;                        { Löscht den Bildschirm }
  10.   Writeln;
  11.   Write('Der ASCII-Zeichensatz  ');
  12.   Writeln(' - vorwärts:');
  13.   Writeln;
  14.   FOR i:=32 TO 126 DO Write(i:5,':',chr(i):2);
  15.   FOR zeit:=1 TO 600000 DO;        { Verzögerungsschleife }
  16.  
  17.   ClrScr;                         { Löscht den Bildschirm }
  18.   Write('Der ASCII-Zeichensatz  ');
  19.   Writeln('- und rückwärts:');
  20.   Writeln;
  21.   FOR i:=126 DOWNTO 32 DO Write(i:5,':',chr(i):2);
  22.   FOR zeit:=600000 DOWNTO 1 DO;     { Verzögerungsschleife }
  23.   ClrScr
  24. END.
  25.  
  26.