DEFINITION MODULE PriceTable;
FROM NumTypes IMPORT Real8;
  PROCEDURE ClearGrpCnt();
  PROCEDURE AddGrp(Grp : ARRAY OF CHAR; AddAmt : CARDINAL);
  PROCEDURE GrpTotal(Grp : ARRAY OF CHAR) : CARDINAL;
  PROCEDURE DefinePriceTbl();
  PROCEDURE GetPrice(Line : CARDINAL; Quantity : CARDINAL;
             StartAtLvl: CARDINAL) : Real8;
  PROCEDURE GetPriceTable(TblNbr : CARDINAL;
            VAR Q1,Q2,Q3,Q4 : CARDINAL;
	    VAR P1,P2,P3,P4 : Real8);
  PROCEDURE InitializePrice();
END PriceTable.