26 lines
506 B
Text
26 lines
506 B
Text
MODULE AsciiTable;
|
|
FROM InOut IMPORT Write, WriteCard, WriteString, WriteLn;
|
|
|
|
VAR row, col: CARDINAL;
|
|
|
|
PROCEDURE WriteItem(n: CARDINAL);
|
|
BEGIN
|
|
WriteCard(n, 3);
|
|
WriteString(": ");
|
|
CASE n OF
|
|
32: WriteString("Spc ")
|
|
| 127: WriteString("Del ")
|
|
ELSE
|
|
Write(CHR(n));
|
|
WriteString(" ")
|
|
END
|
|
END WriteItem;
|
|
|
|
BEGIN
|
|
FOR row := 32 TO 47 DO
|
|
FOR col := row TO 127 BY 16 DO
|
|
WriteItem(col)
|
|
END;
|
|
WriteLn
|
|
END
|
|
END AsciiTable.
|