RosettaCodeData/Task/Munching-squares/Craft-Basic/munching-squares.basic

let s = 255

for y = 0 to s

	for x = 0 to s

		let r = x ~ y
		fgcolor  r, r * 2, r * 3
		dot x, y

		wait

	next x

next y