Graphics 640,480,16,2 SetBuffer BackBuffer () Local size=30 Local x,y Repeat x=(MouseX()/size)*size y=(MouseY()/size)*size Rect x,y,size,size,0 Flip:Cls Until KeyDown (1)