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

 BLISTRFRG()
------------------------------------------------------------------------------
 Purpose:
 Get CA-Clipper Summer '87 free pool fragmentation as a string.

 Syntax:
 cValue = BLISTRFRG([cString])

 Parameters:
 cString  String containing block characters.

 Returns:
 Fragmentation as a string.

 Description:
 This function returns a string containing a summary of CA-Clipper Summer
 '87's dynamic memory to show the degree of fragmentation. Each character
 position represents up to 512 bytes, and adjacent equal characters
 represent contiguous blocks larger than 512 bytes.

 The optional parameter is a five character string in the form "ffuua" as
 described below. The first two characters (ff) are used to represent free
 blocks and the next two characters (uu) to represent used blocks, with the
 final character (a) used to represent the next allocation point. The
 returned string contains a map of both the near heap and the far heap (FREE
 POOL), separated by a ',' character. The layout and meaning of the display
 is detailed in the discussion of the function BLIDISFRG().

 Example:
 // Get the string showing memory fragmentation                              
 // Use 'f' for all free blocks, 'u' for all used                            
 //                                                                          
 TMPSTRFRG = BLISTRFRG("ffuua")                                              
 ? "The state of dynamic memory is currently"                                
 ? TMPSTRFRG