open window 640,512
setup():go()
sub setup()
red=0:grn=0:blu=0
redc=0.25:grnc=0.25:bluec=0.25
fr=0.06:href=0
end sub
sub go()
wait(fr)
setrgb 1,red,grn,blu
red=red+redc:grn=grn+grnc:blu=blu+bluc
line 0,0 to href,512
line 0,512 to href,0
line 640,0 to href,512
line 640,512 to href,0
line href,0 to href,512
href=href+ran(10)
detect():go()
end sub
sub detect()
if (href>=640) then
cc():fi
end sub
sub cc()
cc=ran(7)
if (cc<=1) then
redc=0.25:grnc=0.25:bluec=0.25
elsif (cc<=2) then
redc=0.5:grnc=0.25:bluec=0.25
elsif (cc<=3) then
redc=0.25:grnc=0.5:bluec=0.25
elsif (cc<=4) then
redc=0.25:grnc=0.25:bluec=0.5
elsif (cc<=5) then
redc=0.5:grnc=0.5:bluec=0.25
elsif (cc<=6) then
redc=0.25:grnc=0.5:bluec=0.5
elsif (cc<=7) then
redc=0.5:grnc=0.25:bluec=0.5
fi
setrgb 0,ran(10),ran(10),ran(10)
clear window
end sub

