DEFINITION MODULE CalcBrains;


TYPE
  OpType =     (OpLeftParen,	(* "("	*)
		OpRightParen,	(* ")"	*)
		OpEqual,
		OpPlus,
		OpMinus,
		OpTimes,
		OpDivide,

		OpAnd,
		OpOr,
		OpXor,

		OpClearAll);	(* CA	*)


VAR
  value    : LONGCARD;
  stoValue : LONGCARD;


PROCEDURE InitBrains(): BOOLEAN;

PROCEDURE EnterOperation(op:OpType);


END CalcBrains.
