PACKAGE BODY Spider.My_Stuff IS
------------------------------------------------------------------
--| Child Package Body for Additional Spider Commands
--| Author: Michael B. Feldman, The George Washington University 
--| Last Modified: July 1995                                     
------------------------------------------------------------------

  PROCEDURE Left IS
  BEGIN
    IF IsFacing = Directions'First THEN
      Face(Directions'Last);
    ELSE
      Face(Directions'Pred(IsFacing));
    END IF;
  END Left;

  PROCEDURE Step(HowMany: IN Positive) IS
  BEGIN
    FOR Count IN 1..HowMany LOOP
      Step;
    END LOOP;
  END Step;

END Spider.My_Stuff;