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

BEGIN -- Draw_Box_with_Loops

  Spider.Start;

  FOR Side IN 1..4 LOOP
    FOR Count IN 1..5 LOOP
      Spider.Step;
    END LOOP;
    Spider.Right;
  END LOOP;

  Spider.Quit;

END Draw_Box_with_Loops;