Displays all possible colour combinations (using a 4-step increment)

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    `	------------------------------------------------------------------------
`	16.7 Million Colours                       DarkForge Snippet (20/8/2000)
`	------------------------------------------------------------------------
`	Displays all possible colour combinations (using a 4-step increment)
`	Code by ShaLLow and Requiem

sync rate 0
sync on
hide mouse

for r=1 to 255 step 4
	for g=1 to 255 step 4
		for b=1 to 255 step 4
			ink rgb(r,g,b),0

			dot x,y

			inc x

			if x=640
				x=0
				inc y
				sync
				if y=480
					y=0
				endif
			endif

		next b
	next g
next r

ink rgb(255,255,255),0
set cursor 0,464 : print "RGB Colour Spectrum 16.7 Million Colours, 4-Stepped"

wait key
end