setup():go()
sub setup()
open window 640,512
setrgb 0,0,0,0:clear window
red=0:grn=0:blu=0
redc=0.25:grnc=0.25:bluc=0.25
tl_v=30:tl_h=20
a=0:hrv=20
end sub
sub go()
a$=str$(a)
wait(0.125/2)
setrgb 1,red,grn,blu
red=red+redc:grn=grn+grnc:blu=blu+bluc
text tl_h,tl_v,""+a$:a=a+1
tl_v=tl_v+15
detect():go()
end sub
sub detect()
if (tl_v>=500) then
tl_v=30:tl_h=tl_h+30
fi
if (tl_h>=600) then
red=0:grn=0:blu=0
hrv=hrv-5:if (hrv<=0) then:hrv=20:clear window:fi
tl_v=30:tl_h=hrv
a=0
cc():go()
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
end sub


