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

 coreleft()          Return the amount of available dynamic memory
------------------------------------------------------------------------------
 Declaration
   memory.hdr

 Syntax
   func ulong coreleft extern

 Arguments
   None.

 Return
   The amount of unsued memory in bytes.

 Description
   The coreleft() function returns the amount of available dynamic memory.

 Example
   #define EXAMPLE_MEMORY
   #include example.hdr

   proc Test_coreleft
   vardef
      ptr( byte ) pMem
   enddef
   do while .t.
      ? coreleft()                     // display free memory
      pMem := malloc( 50000 )          // allocate 50 Kbytes
      if pMem == 0                     // if allocation failed
         ? "Memory exhausted"          // display message
         exit                          // leave loop
      endif
   enddo
   endproc

   proc main
   Test_coreleft()
   endproc