godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added TableHandl.def

Browse Source
This commit is contained in:
ceriel 1988-04-25 09:28:10 +00:00
parent 3aac0be31e
commit 760d905c6d
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lang/m2/test/Wirth/TableHandl.def Normal file
View File

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