Added TableHandl.def

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.