diff --git a/lang/m2/test/Wirth/TableHandl.def b/lang/m2/test/Wirth/TableHandl.def
new file mode 100644
index 00000000..38a46783
--- /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.