Data commit

Task/Show-ASCII-table/Draco/show-ascii-table.draco

@@ -0,0 +1,20 @@
+proc write_item(byte n) void:
+    *char chrstr = "*     ";
+    chrstr* := pretend(n, char);
+    write(n:3, " : ",
+        case n
+            incase 32:  "Spc   "
+            incase 127: "Del   "
+            default:    chrstr
+        esac)
+corp
+
+proc main() void:
+    byte row, col;
+    for row from 32 upto 47 do
+        for col from row by 16 upto 127 do
+            write_item(col)
+        od;
+        writeln()
+    od
+corp