The code below works but doesn't track smoothly. Can anyone help iron it
out?

Martin

xstart = 100
ystart = 100
END GLOBALS

LOCAL FN domouse
  x = MOUSE(_horz)
  y = MOUSE(_vert)
  LONG IF x <> MOUSE(_horz) OR y <> MOUSE(_vert)
    x = MOUSE(_horz)
    y = MOUSE(_vert)
    COLOR _zwhite
    CIRCLE FILL  xstart+25,ystart-25,30
    CIRCLE FILL  xstart+75,ystart-25,30
    COLOR _zblack
    CIRCLE  xstart+25,ystart-25,25
    CIRCLE  xstart+75,ystart-25,25
    LONG IF x > xstart
      xeye =10
    XELSE
      xeye =-10
    END IF
    LONG IF y > ystart
      yeye=10
    XELSE
      yeye=-10
    END IF
    LONG IF x > 100 AND x<200 AND y>50 AND y <100
      xeye=0:yeye=0
    END IF
    CIRCLE FILL xstart+25+xeye,ystart-25+yeye,10
    CIRCLE FILL xstart+75+xeye,ystart-25+yeye,10
  END IF
END FN

'------------------ Main ---------------------------
WINDOW #1,"Command . to Exit"
PRINT "Click where you want to be watched"
DO
UNTIL FN BUTTON
xstart = MOUSE(_horz)
ystart = MOUSE(_vert)
'CIRCLE xstart+50,ystart+10,100
CIRCLE  xstart+25,ystart-25,25
CIRCLE  xstart+75,ystart-25,25
CIRCLE FILL xstart+25,ystart-25,10
CIRCLE FILL xstart+75,ystart-25,10
DO
  FN domouse
UNTIL LEN(INKEY$)
END