d0p1/ack
1
0
Fork 0
Code Issues Pull requests 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 816c7e6416
commit 9bd075e3a0
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.