>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 >