Click above to get retro games delivered to your door ever month!

 BLIMEMBLK()
------------------------------------------------------------------------------
 Purpose:
 Get CA-Clipper Summer '87 free memory down to nuBlocksize.

 Syntax:
 nuValue = BLIMEMBLK([nuBlocksize])

 Parameters:
 nuBlockSize  Block size in Kb.

 Returns:
 Free memory in Kb of blocks that are >= [nuBlocksize]

 Description:
 This function returns the total dynamic memory available in kilobytes of
 blocks at least as large as the block specified in Kb as a parameter.
 Dynamic memory is the memory used by CA-Clipper to store all temporary
 values of variables and buffers while an application is running.

 If no parameter is specified a default block size of 4 Kb is used, which
 simulates the value returned by a call to CA-Clipper's MEMORY(0). In all
 cases the function will emulate MEMORY(0) and attempt to allocate blocks of
 size 63 Kb, then 48 Kb, then 32 Kb, then 16 Kb, then 8, 4, 2 and 1Kb until
 no block larger or equal to the parameter or default can be allocated. The
 value returned will be the total size of the blocks successfully allocated.
 BLIMEMBLK() executes many times faster than MEMORY(0), so may be used to
 monitor memory in places where MEMORY(0) is found to slow the application
 too much, for example during indexing or profiling.

 Example:
 // Get the available memory in minimum of 8 Kb blocks                       
 //                                                                          
 ? "Memory available in at least 8 Kb blocks is "                            
 ?? BLIMEMBLK(8), "Kb"