DECLARE INTEGER GetClipCursor IN user32 STRING @lpRect
 
* points to a RECT structure (four DWORDs - 16 bytes) 
lpRect = REPLICATE(Chr(0), 16)
= GetClipCursor(@lpRect)
 
? "left:  ", buf2dword(SUBSTR(lpRect, 1,4))
? "top:   ", buf2dword(SUBSTR(lpRect, 5,4))
? "right: ", buf2dword(SUBSTR(lpRect, 9,4))
? "bottom:", buf2dword(SUBSTR(lpRect, 13,4))
 
? "SYSMETRIC():", SYSMETRIC(1), "x", SYSMETRIC(2)
 
FUNCTION buf2dword(cBuffer)
RETURN Asc(SUBSTR(cBuffer, 1,1)) + ;
    BitLShift(Asc(SUBSTR(cBuffer, 2,1)), 8) +;
    BitLShift(Asc(SUBSTR(cBuffer, 3,1)), 16) +;
    BitLShift(Asc(SUBSTR(cBuffer, 4,1)), 24)