From 9bd075e3a0c445c55bbd2431e17b9cd86fa084a3 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Mon, 25 Apr 1988 09:28:10 +0000
Subject: [PATCH] Added TableHandl.def

---
 lang/m2/test/Wirth/TableHandl.def | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 lang/m2/test/Wirth/TableHandl.def

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