Graphics 640,480,16,2 SetBuffer BackBuffer () Local x#,y#,dx#,dy#,mx#,my#,x1#,y1# Repeat mx=MouseX() my=MouseY() x=x+(mx-x1)/22 y=y+(my-y1)/22 x1=x/2+x1 y1=y/2+y1 x=x*.8 y=y*.8 Rect x1,y1,6,6 Flip:Cls:If KeyDown(1) End Forever