Added TableHandl.def

diff --git a/lang/m2/test/Wirth/TableHandl.def b/lang/m2/test/Wirth/TableHandl.def
new file mode 100644 (file)
index 0000000..38a4678
--- /dev/null
+++ b/lang/m2/test/Wirth/TableHandl.def
@@ -0,0 +1,17 @@
+DEFINITION MODULE TableHandler;
+
+  CONST        LineWidth = 80;
+       WordLength = 24;
+
+  TYPE Table;
+
+  VAR  overflow: CARDINAL;     (* >0 means table full *)
+
+  PROCEDURE InitTable(VAR t: Table);
+
+  PROCEDURE Record(t: Table; VAR x: ARRAY OF CHAR; n: INTEGER);
+  (* enter x,n in table t; string x must end with a blank.
+  *)
+
+  PROCEDURE Tabulate(t: Table);
+END TableHandler.