option explicit
option default none
cls rgb(white)
dim integer i
for i=0 to 255 step 1
line i,0,i,239,4,rgb(i,i,i)
next i
line 256,0,256,239,,0
print "This is strange!"
pause 4000
for i=0 to 255 step 1
line i,0,i,239,4,rgb(i,min(i+4,255),i)
next i
line 256,0,256,239,,0
print "This is better"
end
'
function min(a as integer, b as integer) as integer
if a<b then
min=a
else
min=b
endif
end function