Initial data commit

Task/Show-ASCII-table/Modula-2/show-ascii-table.mod2

@@ -0,0 +1,26 @@
+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.