//--------------------------------------------------------
// nesting.toby -- A program to test nested FORs and IFs.
//
// This program will draw boxes increasingly large, and
//  in many colors, to test if Toby can handle some
//  nested FORs and IFs. It should look like a square
//  with different colored lines pulsing, and in the
//  end, four squares, moving in different directions
//  should be drawn.
//
// There are cleaner ways to write this program, but
//  we wanted to nest stuff.
//
// Copyright (c) 1999 Lighting and Sound Technologies
//  Written by Ryan C. Gordon.
//--------------------------------------------------------

function main() returns nothing
	number totalIterations
    number boxSize
	number boxLoop
	number color
	number direction

	hideTurtle()

	for direction = 1 to 4
		color = 0
		for totalIterations = 1 to 5
			for boxSize = 1 to 100
				color = color + 1
				if (color > 15)
					color = 0
				endif
				setPenColor(color)
				for boxLoop = 1 to 4
					goForward(boxSize)
					turnLeft(90)
				endfor
			endfor
		endfor
		turnRight(90)
	endfor

endfunction