home *** CD-ROM | disk | FTP | other *** search
- Clean V1.01 by Chris Everett, 21-Sep-89
-
- The only change since V1.00 is a recompile with V1.12 of M2Sprint.
-
- This program de-fragments RAM by requesting a rediculous amount of memory
- (16MB). The system can't get that much, so it flushes all libraries
- and tries again. The process of flushing all open libraries usually will
- de-fragment RAM.
-
- This version does something a bit different from Sweep and all the others -
- it first closes the Workbench screen, then tries to allocate 16MB of both
- Fast and Chip RAM, then re-opens the Workbench screen. This seems to do a
- much better job of de-fragmenting Chip RAM.
-
- For example, use Avail to check on the status of Chip RAM, then run
- DeluxePaint III. Exit from DPaint, then run Avail again. There should be
- a much smaller contigous amount of Chip RAM available. Using Sweep doesn't
- affect this at all, but Clean completely restores Chip RAM to it's original
- state.
-
- While Clean can be run from the CLI, the system cannot close the Workbench
- screen if a CLI window is open. So from the CLI, Clean functions
- identically to Sweep.
-
- I've included the M2Sprint Modula-2 source code. Clean should compile to
- 864 bytes (about half of the 1640 bytes under V1.00...good job, Martin!),
- with all compile options turned off and when linked with RTnoWB.
-
- If you find this program useful, or if you can suggest improvements,
- please drop me a line and let me know.
-
- Chris Everett
- 9900 SE Lawnfield Road, #16
- Clackamas, OR 97015
-
- NAG BBS: (503) 656-7393
- LightSpeed BBS: (503) 777-1252
- (Both are PC-Pursuitable via ORPOR)
-
- (*=========================================================================*)
-
- By the way, if you're looking for a Modula-2 compiler, I highly recommend
- M2Sprint from M2S, Inc. I've owned TDI (ick!) and Benchmark (good), but
- M2Sprint is far superior to either. For a free M2Sprint demo disk, drop
- them a line at:
-
- M2S
- P.O. Box 550279
- Dallas, TX 75355
-
- (The preceeding was an unsolicited endorsement. :)
-