home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a016 / 1.ddi / CLP / BLFRGPRG.PRG < prev    next >
Encoding:
Text File  |  1992-03-15  |  541 b   |  22 lines
  1. *
  2. *        BLFRGPRG - Fragmentation display program
  3. *
  4. declare x [1000]
  5. m = memory (0)
  6.  
  7. for i = 1 To m             && Loop through a few times
  8.   x [i] = space (1000)     && Take some big blocks
  9. next i
  10. for i = 1 to m             && Loop through a few times
  11.    x [i] = "  "            && Replace them with some small ones
  12. next
  13. clear
  14. blidisfrg ()               && Display the fragmentation
  15. @ 23,0
  16. wait
  17. blimempak (-1)             && Pack memory
  18. clear
  19. blidisfrg ()               && Display the fragmentation again
  20. @ 23,0
  21. wait
  22.