Data commit

Task/Show-ASCII-table/Seed7/show-ascii-table.seed7

@@ -0,0 +1,21 @@
+$ include "seed7_05.s7i";
+
+const proc: main is func
+  local
+    var integer: row is 0;
+    var integer: column is 0;
+    var integer: number is 0;
+  begin
+    for row range 0 to 15 do
+      for column range 0 to 5 do
+        number := 32 + 16 * column + row;
+        write(number lpad 3 <& " : ");
+        case number of
+          when {32}:  write("Spc  ");
+          when {127}: write("Del  ");
+          otherwise:  write(chr(number) <& "    ");
+        end case;
+      end for;
+      writeln;
+    end for;
+  end func;