protected HANDLER is
			entry A(M: in out MESSAGE);
			entry B(M: in out MESSAGE);
		private
			BUF: MESSAGE;
			AA, BB: BOOLEAN:=FALSE;
		end HANDLER;