Sync on:sync rate 60
a=0
increase_rate=0
rate=1
Do
cls
inc increase_rate,rnd(2)-1
if increase_rate<-3 then increase_rate=-3
if increase_rate>3 then increase_rate=3
inc rate, increase_rate
if rate>10 then rate=10
if rate<-10 then rate=-10
inc a,rate
a=wrapvalue(a)
r#=mousex()*1.0/screen width()*(sin(a)+1)/2.0
g#=mousey()*1.0/screen width()*(cos(a)+1)/2.0
cls rgb(r#*255,g#*255,r#*g#*255)
sync
loop
a bit more spiced up.
Also, i don't think anyone would have a problem if you posted a bunch of these simple snippets up at one time (like a collection of programs you wrote when you were bored). It's just that making a post for this is kinda pointless.