procedure getCoord parameters xcoord,ycoord Local lcPOINT DECLARE INTEGER GetCursorPos IN Win32API ; STRING@ Declare Long ScreenToClient in User32 Long hWnd, String @cPoint Declare integer GetActiveWindow in WIN32API lcPOINT = SPACE(8) HWnd = GetActiveWindow() ret = GetCursorPos(@lcPOINT) =ScreenToClient( hWnd, @lcPoint ) IF ret == 0 XCoord = MCOL(3) YCoord = MROW(3) ELSE XCoord = ASC(LEFT(m.lcPOINT,1))+256*ASC(SUBSTR(m.lcPOINT,2,1)) YCoord = ASC(SUBSTR(m.lcPOINT,5,1))+256*ASC(SUBSTR(m.lcPOINT,6,1)) ENDIF