lang/m2/test/Wirth/TableHandl.def

   1 DEFINITION MODULE TableHandler;
   2
   3   CONST LineWidth = 80;
   4         WordLength = 24;
   5
   6   TYPE  Table;
   7
   8   VAR   overflow: CARDINAL;     (* >0 means table full *)
   9
  10   PROCEDURE InitTable(VAR t: Table);
  11
  12   PROCEDURE Record(t: Table; VAR x: ARRAY OF CHAR; n: INTEGER);
  13   (* enter x,n in table t; string x must end with a blank.
  14   *)
  15
  16   PROCEDURE Tabulate(t: Table);
  17 END TableHandler.