WITH Spider;
WITH Spider.My_Stuff;
PROCEDURE Draw_Box_with_Loops_Left IS
------------------------------------------------------------------
--| draw 4 x 4 box with spider - use nested loops and turn left
--| Author: Michael B. Feldman, The George Washington University
--| Last Modified: July 1995
------------------------------------------------------------------

BEGIN -- Draw_Box_with_Loops_Left

  Spider.Start;

  FOR Side IN 1..4 LOOP
    Spider.My_Stuff.Step(HowMany => 5);
    Spider.My_Stuff.Left;
  END LOOP;

  Spider.Quit;

END Draw_Box_with_Loops_Left;