@blitzbasic better! Graphics 99,99
Local x#,y#
While 1
a=MouseX()*4
x=Abs(x+Cos(a)) Mod 99
y=Abs(y+Sin(a)) Mod 99
DrawRect x,y,1,1
Flip
Wend