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

BEGIN -- Spiral

  Spider.Start;
  Spider.Blue;

  FOR Line IN 1..10 LOOP
    FOR Count IN 1..Line LOOP
      Spider.Step;
    END LOOP;
    Spider.Right;
  END LOOP;

  Spider.Quit;

END Spiral;