# color test.bas



draw -1



for r=0 to 255

for g=0 to 255

for b=0 to 255

draw color r,g,b,1

draw 40,40,40,40,7

r$=r:g$=g:b$=b

draw r$+", "+g$+", "+b$,40,100,1

next b

next g

next r



print "done."

end

    Source: geocities.com/greenchile505