Dim As Integer x, y Screen 13 Do GetMouse x, y Locate 1,1:Print x, y, x + y PSet (x,y), 15 Loop Until InKey = Chr(27) 'ESC