PROCEDURE CheckAdjustMemory LPARAMETERS PctMax LOCAL cBuffer DECLARE GlobalMemoryStatus IN Kernel32 STRING @ lpBuffer cBuffer = REPLICATE(CHR(0),32) =GlobalMemoryStatus(@cBuffer) * Percent of memory usage; 1st byte of 2nd DWord IF ASC(SUBSTR(cbuffer,5)) > PctMax CLEAR RESOURCES ENDIF RETURN