PACKAGE BODY Chop IS
------------------------------------------------------------------------
--| Chopstick Body 
--| Author: Michael B. Feldman, The George Washington University 
--| Last Modified: January 1996                                     
------------------------------------------------------------------------
 
  PROTECTED BODY Stick IS

    ENTRY PIck_Up WHEN NOT In_Use IS
    BEGIN
      In_Use := True;
    END PIck_Up;

    PROCEDURE Put_Down IS
    BEGIN
      In_Use := False;
    END Put_Down;

  END Stick;
 
END Chop;