home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST70.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  399 b   |  20 lines
  1. ********************
  2.  
  3. FUNCTION Memry
  4.  
  5.    PARAMETERS _temp
  6.  
  7.    PRIVATE _bytes
  8.  
  9.    RUN chkdsk qwerta.qaz >mem_free.sst
  10.  
  11.    _bytes = MEMOREAD("Mem_free.sst")
  12.    ERASE Mem_free.sst
  13.  
  14.    _bytes = SUBSTR(_bytes, AT("bytes", _bytes))
  15.    _temp   = OCCUR_AT("bytes", _bytes, (OCCURENCE("bytes", _bytes)-1))
  16.  
  17.    RETURN(INT(VAL(LTRIM(TRIM(OCCUR_AT(" ", _temp, 5, 8))))/1024))
  18.  
  19. * End of File
  20.