18 lines
361 B
Modula-2
18 lines
361 B
Modula-2
|
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.
|