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

BEGIN -- Draw_Box

  Spider.Start;
  Spider.Face(WhichWay => Spider.West);

  Spider.Step;
  Spider.Step;
  Spider.Step;
  Spider.Right;

  Spider.Step;
  Spider.Step;
  Spider.Step;
  Spider.Right;

  Spider.Red;
  Spider.Step;
  Spider.Step;
  Spider.Step;
  Spider.Right;

  Spider.Blue;
  Spider.Step;
  Spider.Step;
  Spider.Step;
  Spider.Right;

  Spider.Quit;

END Draw_Box;