SCREEN 400,300,0,2
nopeus#=1.0
Repeat
nopeus=MouseX()/50.0
SetWindow Str(FPS())+" "+MouseX()/50.0,3
aika#=aika+nopeus'Rand(-2,5)
For x=7 To -1 Step -1
For y=5 To -1 Step -1
For a=0 To Rand(500)
Color Max(0,Min(255,(Sin(aika)*127+127+Cos(x*40.154+aika*10.112)*110+Cos(y/20.3+aika/20.102)*150+110)*a/255.0)) ,max(0,Min(255,(Sin(aika*17.42)*127+127+Cos(x*13.23+aika*10.78)*110+Cos(y*12.765+aika/2.102)*110+110)*a/255.0)),max(0,Min(255,(Sin(aika*53.321)*127+127+Cos(x*13-aika*15.112)*110+Cos(y*8.3-aika*10)*110+110)*a/255.0))
Box x*50+a+(Sin((a+aika*5.1782)))*20,y*50+a,32,32
Next a
Next y
Next x
drawscreen
Forever