Received: by KSUVM (Mailer R2.07) id 3720; Sun, 23 Dec 90 14:18:51 CST
Date:         Sun, 23 Dec 90 15:14:48 EST
Reply-To:     Apple II List <APPLE2-L@BROWNVM.BITNET>
Sender:       Apple II List <APPLE2-L@BROWNVM.BITNET>
From:         Atomic Energy of Canada Limited <aecl@cdnnet.ca>
Subject:      purge.mem.NDA Gs
To:           "Steven E. Nelson" <CMDSENPG@UIAMVS.BITNET>
 
From: mhill@pnet91.cts.com (Martin Hill)
 
Here's a little project I worked on for something to do. It purges all
purgable blocks and then compacts memory. It's basically the Purge.Mem program
in Merlin-16+ in CDA form.
 
FiLeStArTfIlEsTaRt
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789()
MPURGE.MEM.SHK  AgAoAAAACA(4GIAg1OHAzdBARsTtAgAoAUG1
GVvTlzW6CEPTAAAARszFKIhWPIAAadBAAogEAEgAAAAAAAAAgCAAAAACAAAAAAAA
GVvTNBD2DAAPAMAABAAAAoDAAAw4AkLAAAAAAAAAAAgAahgLAoQEkAQARoFEBAgC
RszFKIhWAIAAAAAAAAwAAAAAJAAAAAAAAAAIAAAABAAAAAAAAAwbAgMACAAAAMAA
hCAAF4BOnDAAAAwAyVHUuU2ZtVWTAAAAAAAAAAAAAAAAAAAAAAAAAAAAQBAAnJXd
NBSZv1WZgkncu92YyVmdkVGdyZGIg02blhGdoNHIsxWZwFGIpxGc0F2Yu9WavRHI
oRHIDBSZgEERgknYyFWTulGdphEIuwGbPBCInlmch5WawBCbn9mctFmc5JGIsdEI
g4WZlJnQu9GZA0gLAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAb7PAkTIuK4xAQNAbBIA4VgAAACBECBAMXMACIhBBAUAggCAIzFJ1LyopaXmJ
IDNgINS0MIfkARmIIOisk)2kAmK5NCIEWuomEpCrvUB4SFOAQOA)0GCzoQ2BDABg
FQBoAZAaAoAAAag4EtWVqIAoTSQABqlmSVvKBx8EqxFhASgTCHCwb4AVQgQ)LwhN
c3DEQrmwAqkKAoAZgPEwg6iboY8cLkKgdQYAaFfvQnQ4AyACGctRyJHNA0cGGsKE
SAEMZ0gxAVmNC5AqcyohmPnMDZKra40RoXXMRaAwIyAhnqaETFNpIshZeBlAzn02
s5opK7EEjFK4yCInPvRkzFHpDWkxKwcbBYAq5piPOngZfZ1fBwfHHAe1QdDGIAgX
wBXEAAAZNHkB6ZdKBSIYgihQcripEAhMAZgR6lgAnJKEEElKEAE0RLMhD1wBEhCA
YAFAWAOABRFALkpBgNCBYDEREeQEAAwVIwhBEgHFTmhAaQQ2pDQAYgRQolDQgxBR
FACYAaAAM1z5hNF7KxAAJCQEABgUIQhARTCR9EBxWCB5UiCBgKE4DQEHLoSDaCAE
8jCWwxMYguBQMaQg12CeKKkNl(YKjAjygTtp76GyAQ3MQAQAvALjLrDtPNDuIAUm
dzwwhAA5G4IUQTdLocQBpEYBwgXDEsjQAcMoZREA3QIYtmxSEVAFeCYB9o0RVVdN
TyYMg1Ghl(OEYBPM30oiDglxGmDhQP6KttXX48LgS0Yn(IHhF2(Ct7gp1r9pFAAA
eDRIIDV(deLbTt9rAQSuj3GBb1KV9D8)4RMMW0(2G1ySeUJjgaQEUB65ThXRB0yj
KpKE9XGCG(Foz4HAghhTXFIewFsbYBAbFjDbLMYAVAQkYBGRNaZ4qDy)mjmWDSQw
QzhM1EBogWoO6YTEQAYloAXCGJ4RgiB3AlgrANMMYgg)HEAygHySEdYQCCSioE9N
oGIxDDQI3oQQQoLg(L6AKkAFaBdOZgagUOGAYQDAsJLhWAvBndBAeCQCBAZAf8JJ
mleGHXJAtDECoG0nzimZ8Jha0TAohdWzIcBVQfNO3Ity8LgAxxdZkKOo7xICohhb
SVAgGEGgor(MKJxIkGtLDAykZSUSZ6vZSQAICDIiykDjUUWAxqVVgdZxmHrpQL3m
BcSuYpDCnkYQFhosuXHGACUCRq(BB85(e8qJGMnnewLUWk9AAsH)AlBoDPAfoBEG
YsR7tHGQAGR6H3(XWBIEQsZ7tTFgglQDpHvqIAQIQ8lGgCgACkS8Z8IAAsxnxfJk
AEQQfnRaABQE1HvlfBAAE8VGAKAbrmT85PgALhwxSAACECtnhyFKBccC17EAGjtR
AwTMDAwAAAAA6AQAAMOAEAAAAAAAAAAAAIAARcCAKIhWAIAAaZhOAogEA8gASo1F
CAgCAAAAAMAAAAAAAAAAAAgCAACAAAAAAAAAAAQAAAAAkBAAAAAADAgAAAAA5wiy
AAwAAIQRNBFAlJlLuQWYAUWTAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAb7POCNYC
iFjARiIvOU0422AGAAegc6YpAV2MTnCNc2o5GCCPSmAE2GOca8gFgyLdIgQMkX2O
znEzI0gxbiRMDFJhL14JYnGJZHBsImAImH2OYRLvIwghSjmOS1JCZ2wxnjBMhHAv
Zy0ksmWMzUqGLxUdPSDlYnooZEG8bPxFjAIgZ085UHWOrmmmDykN1NWODgggb6wB
CPGN5xG1YqGddtBjBBAgIwSZOn2iDzA2Qfm5SL3nTFK0MVixYfEEhYAdR5ERcGmw
aDlgYYOw0WnNMSt)EzmR(LXiRkmuKa8wmPXvjQBUi5oWMDiqqlGvIMDVJnKNTRBY
l54h3y5NTVhTYEkp5Gh4z0h7wzkpnbd1rnqvROuBe(SKbnFTc3m9mO14dTj(b5k4
SbvzIm6CviokqDBMB6KEDGUAQ4zTDJHvAFtKzMCISZPs5kTTsAh2AS)Oxuw2QwFI
KfSyuoEpKyTD6GpEK53MazoawukAhYQRNw8koAkyisoALMH6EXrLNq6k6omMzgqU
JLrp6c5O0O0I4h9840w4LjFWh1RIOCHZiICux0o7Mgn1Mj(wxmETQwMJnn6SjKI(
ymzsBNCVIphOioryighpsa(wnOyugbuyt4gCpL7HCOOjqOEYckBLrywKwjK5cPfD
6GMOoZcO386SzhGz6sLw0OWLIa9vbbCyMtsHKp8ROmI7aS4EgS1yGvNTMFQhl4Cx
EA5NcOco2ABdA2ZKYNAgIKnOxUYwjjJ6SUf2fCuAFzabspt9W3duB32WbZR7pCwY
AccP