PROGRAM DisplayChars;

{  This program displays all the printable characters for the     }
{  IBM PC.  Written for TurboPascal by Jeff Firestone. June 1984  }

VAR
  i,j: INTEGER;
  a: CHAR;

BEGIN
  i:= 32;
  REPEAT
    FOR j:= 0 TO 15 DO WRITE((i+j):4);
    WRITELN;
    FOR j:= 0 TO 15 DO WRITE(CHR(i+j):4);
    WRITELN;
    i:= i + j + 1;
  UNTIL (i >= 256);
END.
CHRSPAS           !        ііііііііііііііііііііііііііііііі ііііііііііііііііііііііііііііііі ііііііііііііііііііііііііііііііі