LOCAL lcBuffer, lcMemUsage, lnTotalPhysical, lnTotalVirtual, lnAvailableVirtual, lnTotalPage, lnAvailablePage, lnAvailablePhysical *& *& DECLARE INTEGER GlobalMemoryStatus IN Win32API STRING @lcBuffer *& lcBuffer = REPLICATE(CHR(0),32) = GlobalMemoryStatus(@lcBuffer) *& lnMemUsage = CharToBin(SUBSTR(lcBuffer,5,4)) lnTotalPhysical = CharToBin(SUBSTR(lcBuffer, 9,4)) lnAvailablePhysical = CharToBin(SUBSTR(lcBuffer,13,4)) lnTotalPage = CharToBin(SUBSTR(lcBuffer,17,4)) lnAvailablePage = CharToBin(SUBSTR(lcBuffer,21,4)) lnTotalVirtual = CharToBin(SUBSTR(lcBuffer,25,4)) lnAvailableVirtual = CharToBin(SUBSTR(lcBuffer,29,4)) *& RETURN FUNCTION CharToBin(pcWord) LOCAL lnCount, lnWord *& lnWord = 0 FOR lnCount = 1 TO LEN(pcWord) lnWord = lnWord + (ASC(SUBSTR(pcWord, lnCount, 1)) * (2 ^ (8 * (lnCount - 1)))) ENDFOR *& RETURN lnWord ENDFUNCHTH.