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

 MEM()
 Evaluates the amount of memory still available.
 Returns <expN> kilobytes remaining.

 Useful before doing anything that requires additional memory,
 such as RUNning an external program.

 Returns Clipper's MEMORY(0) value.  Same as MEMORY(0).

 @ 24,0 SAY "Memory still available: " + LTRIM(STR(MEM()*1024))

 IF MEM()*1024 > 30000
    RUN Aprogram
 ELSE
    ? "Error -- not enough memory"
 ENDIF


             Placed in the Public Domain by Tom Rettig Assoc.