DECLARE GlobalMemoryStatus IN kernel32 STRING @ lpBuffer  
      
lpBuffer = REPLI (Chr(0), 250)  
= GlobalMemoryStatus (@lpBuffer)  

= _display ("This buffer length, in bytes ..........:",  1) 
= _display ("Memory in use, % ......................:",  5) 
= _display ("Physical memory, in bytes .............:",  9) 
= _display ("Physical memory available, in bytes ...:", 13) 
= _display ("Committed memory limit, in bytes ......:", 17) 
= _display ("Available memory to commit, in bytes ..:", 21) 
= _display ("User mode portion..., in bytes ........:", 25) 
= _display ("Unreserved/uncommitted memory .........:", 29) 

PROCEDURE  _display (lcCaption, lnOffs) 
    ? lcCaption + TRANS(buf2dword(SUBSTR(lpBuffer,lnOffs,4)),; 
        "999,999,999,999,999,999") 
RETURN 

FUNCTION  buf2dword (lcBuffer) 
RETURN; 
    Asc(SUBSTR(lcBuffer, 1,1)) + ; 
    Asc(SUBSTR(lcBuffer, 2,1)) * 256 +; 
    Asc(SUBSTR(lcBuffer, 3,1)) * 65536 +; 
    Asc(SUBSTR(lcBuffer, 4,1)) * 16777216 
ENDFUNC