I apologize if the spacing was not kept. Here is a version with '_' for spaces.
GetFreeMemory __numCards = MemNumCards __for cardNo = 0, less than numCards ____for i = 0, less than MemNumRAMHeaps ______heapID = MemHeapID(cardNo, i) ______if !MemHeapCheck ________if MemHeapDynamic __________// heapFree is total free space, max is largest free chunk __________MemHeapFreeBytes(heapID, &heapFree, &max) __________totalFree += heapFree __________totalSize += MemHeapSize // find the heaps total size + header __return totalFree end -- For information on using the ACCESS Developer Forums, or to unsubscribe, please see http://www.access-company.com/developers/forums/
