Untitled

protected body HANDLER is
				entry A(M: in out MESSAGE)
					when not AA is
					begin
					if BB then
						BB:=FALSE; M:=BUF;
					else
						AA:=TRUE; BUF:=M;
					end if;
				end A;
				entry B(M: in out MESSAGE)
					when not BB is
					begin
						 if AA then
						AA:=FALSE; M:=BUF;
					else
						BB:=TRUE; BUF:=M;
					end if;

				end B;
		end HANDLER;