sw/src/pascal/ASCII.PS

   1 PROGRAM ASCIICODE(OUTPUT);
   2     VAR I: INTEGER;
   3 BEGIN
   4     WRITE("DIE VORVEREINBARTE PROZEDUR   A S C I I ( N )");
   5     ASCII(13);
   6     FOR I := 1 TO 45 DO ASCII(95);
   7     ASCII(13,10,10,10);
   8
   9     FOR I := 65 TO 90 DO ASCII(I,I+32,32);
  10     WRITELN;
  11
  12     WRITE(" ":40);
  13     FOR I := 1 TO 10 DO ASCII(8,10,64);
  14     WRITELN;
  15
  16     FOR I := 0 TO 127 DO
  17       BEGIN
  18         WRITE(I,"""":5);
  19         ASCII(I);
  20         WRITELN("""")
  21       END;
  22     FOR I := 1 TO 50 DO ASCII(7)
  23 END.