From: ceriel <none@none>
Date: Mon, 25 Apr 1988 09:28:10 +0000 (+0000)
Subject: Added TableHandl.def
X-Git-Tag: release-5-5~3338
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=9bd075e3a0c445c55bbd2431e17b9cd86fa084a3;p=ack.git

Added 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.