home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / AAKXREF.ZIP / MEMORY.FUN < prev    next >
Encoding:
Text File  |  1986-03-27  |  1.1 KB  |  24 lines
  1. (********************************************************************)
  2. (* THIS FUNCTION WILL RETURN THE VALUE OF FREE MEMORY IN K BYTES    *)
  3. (* INPUT        : NONE                                              *)
  4. (* INPUT/OUTPUT : NONE                                              *)
  5. (* OUTPUT       : INTEGER : FREE MEMORY IN K BYTES                  *)
  6. (* USES         : NO SIDE EFFECTS                                   *)
  7. (* CALLS        : MAXAVIL                                           *)
  8. (* ERRORS       : NONE                                              *)
  9. (* GLOBAL VARS  : NONE                                              *)
  10. (* SUBJECT      : MEMORY, FREE K BYTES                              *)
  11. (* DOMAIN       : ARNO A. KARNER\PUBLIC               LEVEL : 000   *)
  12. (********************************************************************)
  13.  
  14. FUNCTION Memory : INTEGER ;
  15.  
  16. VAR
  17.    Memspace : real;
  18.  
  19. BEGIN (* FUNC *)
  20.    memspace := maxavail;
  21.    IF memspace < 0 then memspace := 65536.0 + memspace;
  22.    memory := TRUNC ( ( memspace * 16.0 ) / 1024.0 ) ;
  23. END ; (* FUNC *)
  24.