Path: news.uiowa.edu!hobbes.physics.uiowa.edu!zaphod.mps.ohio-state.edu!darwin.sura.net!sgiblab!cs.uoregon.edu!news.uoregon.edu!cie.uoregon.edu!nparker
From: nparker@cie.uoregon.edu (Neil Parker)
Newsgroups: comp.binaries.apple2
Subject: Memory info NDA with purge memory button
Date: 18 May 1993 07:43:06 GMT
Organization: The Universal Society for the Prevention of Reality
Lines: 153
Message-ID: <1ta42a$s9@pith.uoregon.edu>
NNTP-Posting-Host: cie.uoregon.edu

On comp.sys.apple2, somebody was recently asking about an NDA that can
purge memory.  I happen to have one that I wrote a couple of years ago, so
I decided to post it here.

IIGS required.  Written under GSOS 5.0.2, but should work under other
versions.  Source and docs included.

               - Neil Parker
--
Neil Parker                 No cute ASCII art...no cute quote...no cute
nparker@cie.uoregon.edu     disclaimer...no deposit, no return...
parker@corona.uoregon.edu   (This space intentionally left blank:           )

FiLeStArTfIlEsTaRt
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789()
KMEM.NDA.SHK    AkxXAAAACA(wOIAg6KLAyCQFAUhuAkxXAMtH
GVvTlzW6D0imAAAAA8AAEARXAAAAdBwDAQAEAIAAAAAAAAAAfBAAAAQGAAAAAAAA
GVvTxtN2BAAPAMAABAAAA8CAAAw4AALADAAAAAAAAAgAbNgJAEwAmAAADs1AAAQA
A8AAEARXAAAAAAAAAAwAAAAAKAAAAAAAAAAIAAAABAAAAAAAAAAAAgMACAAAAIAA
AAAAhMGAzCAAAAwCNVUTZJ1TSNlLAAwQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAUbGADuNAbHwCYBCQMY6UgABHpRp2OZ08BYgnZQbEOZw8LQonxZ(GMbS0NZAm
EpjMOIGCyBTnUAE6MZGSpFAwgwJaJQuEuJDnExqTlJP0BlJz5BrhMe6M9gozUCcQ
IPTSppDGcTu3pQXmuRC05At0lKtynQj0ACsZnWZwng5VgSMSsNaYnET1kZIErKBO
cdTmQhKksZf4nghmE7OyBYaS4sZTEpZSiJTqplTnBwJ3oSWcsBDmEyu5Mb0grRjZ
xPrNNEJHkATmBx8knaG7ldDGmILSMXrI3Cz5G9zNyQ1MOFBi5ytyJlpE7MpGfQwv
MnpH6uzmJAb2iAz8U3NnB9cdi3zkELpYhCU3ne2IIsYyX(4wGJ0scvubvOXt6DvL
T6t9RwwROaq80IzG342sb4H)tqggtCL2INNtGGgGLq(9c7zDQQoJo4cADDDjUXyC
lLE0CtBheLvK6MCYaSa6h8IjDAG6(DTi5CzSgqcK8o4YPjg5igeOKIm(T7JNdmb8
NMETIFRoIaM27wcAVXbKtpmbAptt8KBKrZNyQgk0hAmasGIQL9ATTrt8bQqkNSBv
SFIN5GnMzwI8WSYCrLAEKiczF(K(I29OquychqD)ihBhGaA2FqgA(CYwpIJfbNAv
QrANjNgRAvK9hAIWtw00woUtK6MpwaQAK2uPNLl0Snq8S(bSqWdCVrnfkb6LOMOC
g2dEO54YLKRw)FVBLHajlTUGWYaVVPGA435UMMJzsCGEHFIqNzYEIlDJusmiwCUj
OG6qKIJo23JB)((6CCROaQY91hvZsZBLGOFQFicsFHENWsMykrji2OCOq0RbDDzi
qqhgWQIKnm2SbKyx3ILrsvsL5Uzs62MDkhY0VHCEtOHWIhDjoqoEDimMC4TTvMS1
LGZOHJpESzUgOm84ZaSWwgjSNjqjj4fwwlK2pjS3dUIJ3y8g(PyhKOkk4ObOhxpv
PMgpwqok6cyAOSvsARvDqrPqMqc92wIaSqjDcBChdNwGu4HhBGUW77ixSrxtEshX
goo2du6Qw5m4Jprh2sraYosqNQ6gYifxtyLJ1UtzYhdOp0A)sPD)1ybjMniIoJ23
YDHQZKMEZ0p40pzvLqANPeNScvCvMEDPGK5PQhenxY)mIehUJsaIXrD9gjV9FMfo
wYXu32y4L4LEDhuFj8OoocxhRAZcJKqKioo)xWjoQ7WyAdtBNg4RHJKOIzAQC4aq
oPtj83GsoEkQfnP4)AAcdrutyzjfO9n6w44wB8KtbDXRQj(Sx6rECUXgdOQC7cHZ
sEepra(deCeVr)jkk9YYQPcQ0LVyYOyGswwiAGpMBPu7gVM5rfWeS9Goe4pV5EaG
RICuG(ZChXMOVA3bvFiK8gqTQyqFyQwh9Ahn)LECFBLiCFaywacrKnhhiSUo1HSu
)apuoqXHZ6LiSTxy3eIoDhWcSk9NwoWC1fgl1gA6S4kWFBDiEGyMBugCtsxQSaEN
(ELogI)ACUQE8ujogZEK05Iv9MiuEHZtg8WCgHnw5LDMBIBGkD2XZxBHSCElKaUQ
lQKpfM2YhyNNS(cIqn9IiMC2BFCllNT7pslFiVTSNGSrJMa0mizWRq)FkErRUDkm
9fIMW1a3Cj5d1QXSBpxo6bZQFo9o(ec1QE3(E96i1KjpXkBOXOnHQz7sp0mH1XpH
lhASkNEOAlAnSoPMQQEmhwg5r1M25Ij3nJjzkuHAyT2yALocgDOH)CtivW7)ARmS
KK5DSyDc5BHoRPYzHB6sBhNuMcyaJARbEAGjT47OEPCB6xIp0QIhrEEsiCYZyNCF
m3nvUazjLN8cKnuoSA8L8v9nirMJq9UadOj5mMxioGQMh)BNnsJddASr4gtLLUOr
S7qV)HRy5I8MVpWzjQKpiiUENQlLYZCjCzRyNZrhN3hhBipM(cGYLQ74B0QQBswd
gLMdNAbaxIABAKeZFgDW60RTc7NRQPUc0wBIioSYxiJuvIIIE4NVkONZNuBTwqOc
mMRY6o8D6CzcngD9F6JYMtdJnOaSYuMz46NbiNQOyUJBEjOenLFc4cEpsIcZDFIB
mcx4I)sQ0KIQ3IRQKASaiOQLp6pp8YeSRqUgz2pJk(6CFOQcNyhjKfqZ3tWpUyQh
oRMbHOElGOYTONyDGGMBFSNjWedaQsWaILUo6WMYUkf8gqpJsH0QXvXrhc54UeeQ
kIUc8AJiq1(onPCFviYMuNSYZij1iMATM8etnpUEAmtTCXDh0vEnxAFSMjdY5kf(
5i(qC0KpcOyD3wJuGFl0ipUnB04WUeqVkPWoywZjWO4w(hjtYwQYj3m46(Gw7sRy
JigyICtOpogMQrmOhgrLLCrpmyfug(s4jR9L43zzPOHw8dzNO6(2oMsBwgr7oNvk
cCdu6OweC5J8WA7QsDw1iNYRO8ocqxwpRYLzhDoTa0IBhm2uo5WE28AQhiI4qJAI
o2uswRGpWYgIxIqZemKoGMGpEnaKFq86BSqsRoyyMMKIAWsMp24gSwkjwxKyGBKR
ybgwpiMKhTAedszRHN7wU07HsQoELz)oPcSLFSHLFLAGtAs8SUbDgQa0RRbXU8AM
5I1M0wxvkdyUOTNs0qOrUOCCNXjTKfPilmOyiqVlDZtLpp8p4IT1QJ1s1n1WrD0a
SRIDXggS0osqabIr(siqptcbw75pMMmKYQMvTa1oV2sbNZ201IkqKwz3EQFqWxLd
K75JmWJ8N3saJ1lV2WfzeLDDVhS3Nd8UghSCSy9sqfa0qo8oiXLZ79tKo1e7EYiw
oKiEkJWMpoqdVM6paO5JILAEaehPKWYg42b4rzYj6eb1lKI0)x8QvNd6UyK4hjVP
N8HhcdVjKbyatSXWMWjWIhYMX54wTKSWnR1IWnnNGeilNKcQ67nAH)5ClIEaGdpo
OwAIhRS8nd6PqM3UdeDJyWyygryC9MqIoA7IlEkQZQoF6bJ5kpzKaJEIunPpb(Fb
20)u2BxZVblhWAo2jumGa7TEkn5bp9uvTyGqrqmmMseD3KjVrPqJO95rF28cbTKk
bM7It3DKF8StyoYAjhB5GojMSlxTn1Uu7GiebBc3bl27xrLTL3qtBPeK2d9CDSsa
zrlH2svoPnWN8aqsjmc6xlh7XfBzPPPqd5QnhLNbjEEokGJ10UXY76P2jDDw2itB
uGK37qK3b598jYq))o9lonAAL5Wc(scGGEi4ogWObOZ)3zPD9CwnEaXo3BhUHiCE
P3(BbitPBMwnBEEGRtu8ORBFo6ygCyAwy5D4HE0oBjSIQ3IT0ihgQFPCVSgZKEEs
dKq0QpYaoX9G8wAc7HKpDLnixRQlx)BiKvRWNSMk1Ze2dvZsyIBbkgjNoQICbo0O
EDP4B39x74ZP35gYPLDWOEFhhT8YEP3FBfdM9anTc498CegRB2YmzAcDIjBSF2KY
JGDketRJ4KNTaSiRmyX0bAVqDL1NEn590uziCThC6cBMJFBPdhVNTZAYcbAmgwCj
BNG8GApBoTvGRmzRGd(lSZYOVKjnYSMoJpEEYChSAWpEcIqkQCb6Sp5WcHolhtSo
aIQeGwKeBCGMgklM(X2ASuIixIGFGmZcgFrHcrdm6F0kUA404gcrRxwoDLiRAkql
Aq58c0oiKlP0yr(aoM0R6IBDyawxqEH(URQs57n8KzlzKtkMwUiwCC3xEwIks1EB
yv3gQMAoaCCkKp1B5o6UuNIAHYwAJgMWGCJWSQKGBEQbUiaDHNUwQYjxMi8AghTO
jkAzUqscmGdA3sJToLvciHEABCMRE3ZBCFAAHOUIcA22CHIACC0oIzpMSkGIQMUo
UCGMyHES0sIBA7UMylAcaOsBU9UDGOVmLWEDyVDGwpEJaikhe22CymLSqec5eGrM
TFIPQ80JKEoPHqUpsGtxEuZSCPQwJSMT8itYmNbGve8YW(abStIh2uUJOIMN2tlH
f(8ZCcYQ2Fvr8AJrUyJIGMcSwQJBUatcSNUkSmWhYAENGMSKcwIRCJYOgvtXyIII
UjsbvBvBf)2GL8Xvc40DhHPuzN4xOBgAYbU98UUZAEAAAAgAAEAAjDwLAAAAAAAu
BAAACAAArAAADs1AAAQADwCABMwWAAAAdBwDAQAEAAAADAAAAAAAAAAAAYAAgAAA
AAAACAgAAAAAxAAAAAgCAYwwF1EAS9UTAAQWAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAA0y2Jo622aQAACTAACAxIowgYgDBDCKQIAghAAAs2AMBkPBEoxTFACi4BsgB
phApBBMTMGgFBAABZmkok)mNRGA5Z2IxQy1NBAFqSGNY60aV2CYFSkQBpfgegIQV
CEkyDfQEjGdoVnUBK8pRVpAMVhGwoDApbuQ4ACEF3eAVgkUITLsCagGqQoSjBS1t
gukpXjgAeLId(nKcksW)WXFtaVQQ01RcaUNYAAwJnsRAEaAk9cQAAAFAA4AY)3wG
4ARDLLEgnFzlpwr1Y00penmORFAuZAwAAMEAAPAIdoEAKfWOpYInQdy0kAfoq5OK
TvGu58XBsVXCvEB38xYAGjUCEadGAUAZQqFwsODDgrDB0DRICxO52twxHhE4GCMA
u2aLQrwFhunS5AUAAYJ6IklkSygnaiQMZQQAkBoBgBAE(HUQPAWAoKNDVM4bmnEA
ASKqUAQEYAgBQlAExNDOaSSOtI6QCC(vTo5RRQTSDIRxsAJ(RoFAWAgRRQ3Q(rgg
eOgQqxoVmXRJqnuTEhyQECQGhshIwek5IxDseHAFqum2ar68)KoESHrWCFQxosM(
gjQUuyEgKzMW2IQREuE(jBjJo68sinCBbXzn5MJfUUfOn7ENADPH4tszFPLh47jp
(A1qHg)AwdAFAkAHoKVH7WEkLxJW(jAycQkE1BwfVo6MTX6HZyjTPVpcRw)RjHAK
HHIVFUThIBK6oBpqGlEpSRsloLwlUCViIaUBOhiTEKusCe8KeCgKl0xIVBAtkLw9
JY1GMDWhpiOq2ogoLmfQo7sHWJSgNRdHDUgClQD2Tjl34ocjIBUcQZQBgAgDKk2k
eSGyw0igIEBAGEB6gEHBfVKAgBGGCsJpGFvGw43qrck9oxAEDQAJAGIh92z1RaLB
KQ7PkmNBW6ECJbWKHKBbuhldVFDBgyClbcZHrQaK8AbblZOWK24mD72VAWSGp4gR
BQJYknkGSAb5mppP0lVpWWUmSyVWdZSxCCEX607Xwaj630hliQR5AAygATLZ6Jm8
7NGMUPRAoFFZLEhFnn0mbbEz3VrKXtPbRGAuG52mamrFx7oHvznTxulvoWsmb(RB
hPL8tNi0Wbte3GgcDKdprfcckrgTmXvy2x1mTMWOTKnXuUuWdyuAKwSPX2r32Jmn
v237SPcdhbHzelyyRZXX37BCgqAshf3l9m9G3xuCML4n5FOyKtcAEunEZxeuBwFj
woNDIV8nANCnJHeCKO5ZTwxvVEIqhCJAoDwfWAyQbIMoGAB6gCoNRiaDA5QitJIQ
AAOwAGALQReEoEuB5hDkDAOaCgwIACIFIViYrSQwycIMBGCkgy9CoEyAKCRQgQIk
TAEAHAowBjJERIsgevxA1YIMFCNchwwH4YEDMHSQllAxCMASGARohyaOgJHDU5Uy
aIBwIAMgDARZQKGCEzxg1DAAH9AqfiFxkBo(ICAjUjE0SKKSkMM1KFBPREOHEXqx
0AQEeAAAEIUTlQGAAc0jqfFAxmJCKED5kCEABBOAkbYBQqQ8bkMNXCDAGrHP8knL
oDABFJBaAILAEwXeZVUIAw0nmxBYzAMBZCHAgYEPE4JACUAgTiEUAACaJRTgpQWC
0OpSXDAIMMSydCqABZFPILAmMaxoGxcuAIiDjqcI5TaIa7DTCcp82U60AERdRX(H
Mb9FOPzop1koJBKBHRReUyKAIEwxm0JwAAYufkmbSQQAQYyMy7JA6NI2IMjamQN(
aCwEMgyRY6BtAIY2SmmXUjxLINGJKkEqNBQIRQimkirARAUSQCQUYGqI)UQeHB5B
AhQbpbSnWCghwdEVYBOCHxReJULTMHwDU4hc9AYBPorPToGnwOAAGEwJAsEsoCGR
Ayq2J8XUMsxj55FYUFE1HBZDAyALcnHYOAgwvcklhBCDDzWeW6CAMgzRYOGQHDAH
Him8sgXAQm3jNVlk0cgwAUR1AghjYI)y4GQiU6Ir2oKyYH0LiJJPFoCA4rCAV1sq
xAADFzXeqxFAAklE1upVQDIGLiq6zqmrND6FGUzYTWLEqBsDGxedKMPWmbtjZ2R8
8MezHvJHWR1eQt)mFNFrzCAQ3Kv8Bwr2rpTAQ0hkmILQBEQ(bsILWxiAISQDb3BX
2CIQOQgmmW91giAIYMpWnCggzRW)Iket1qD6AQgFx5RW66dsaMqwdBNBxErH(e6X
EDwg8M6yUvO9gSBBklXedCIQCIoOP(CVwAkJAGGfO3WM1FM4EGI7EKQTANgCgWQC
fOibyDAUKEV5mZ9HgpQFmxjvdNcA2AL2iBWxhqZbrCPAGxxY6cEnggFjxA9)wGwj
L8xYAkB5GVvTnIE2BAAPAIAABAAAA8CAAAw4AQAAAAAAAAAAAAgAbBAHAEQBjAAA
FsFAAAQAA8AAEARXAAAAAAAAAAwAAAAAMAAAAAAAAAAIAIAAAAgAAAAAAYAyE0GA
BBAAV9kQN5CVP1URAklUAAAAAAAAAAAAAAAAAAAAAAAA0iAAvuNAbHgBoRleMRK0
ydzmIBo8MYs4hZjw5RK6Eaw4BJyERhgGMRK6gYjGRSIoMa6sGZAnRioyke2UsohQ
ITMQGNSkDA4gBB1GOY2kldDCgAo7Ob2UhBhGpwoxhegOfsjwpIdQkZww1djn5BKQ
NR7IoFTnxQLQERB6XpomBg86OQQElZDH5YiFBVqMjBxTpoM1OY44iV4G5oLPOL6A
kJDnRhIQOfECyNzmxTrwNZcGopjYB6r4iLzYzJcWZys8mbi2f5q1944wuCNmRF9z
JodkMGz8ggLG14KHmZCXZuc5JxcQze0oYCRGZI74oYaeoxbH5gr64au(x1bm1tzV
4MTov5Zm8iywrZ1ehxTGJ5IikHxAcCxbtzS55b6GgcBH5LJ2iFpLyrKmE0A8TKZE
xC64JpjpEFJjx8MggI9OQIjiDsAIG7pDo8G(TZJ8QoDqjAk7iwto)O6GU7jizGiL
PqCfsQ6NEDyaL9aEWQk6jySS66OD7u(ibIcO6I7jDgH6ykoIwALBIiMOQEDCDDry
MXIJKNESYoc4yIygJgo5(Ujo5s(MY6NObj7YgimyjABS5ugAqCM4wwI7IQVV8RMK
yAr(ixNpM04IxzwbSj7ovqmQbYowewETzB)hVADDNjepASEum3qQIiCQawTtIPIF
CuiI8qiqxgnwwsYON4uQggOpn7YDLTri2HTjwOuC6EZSnrLSOxrPIH7RxEnWqhCv
m8sy0KVJYXsTRNOeEKmywI94sP2KsJj020(w4e9ZU8zLJjhr09cjn(Gyzpxuhnil
DqqtcLTD5EOOo4dMqFIsKSaQubRjNOCkinvV)0682sSPf(kJ340kzRqOf(q8qVk6
HsAViQnB4a(N7A99XXO9dD4Xy0M8MyY4HJ2iYZ8COTDr5OOQaYU0yEz0Tpgv4Mvu
xGxMaavB601wuwjWWTTuOalkNKr5nt9ajxSKTsGzzaxGK4yuUUowggmGmeSCIICo
IgpJkoogiAnnWpyamvQPV)UUGyCtyvDdDSlYLlEi7ZMO1wq7iWyTcVDqpKECW0Hj
9u74rzCTnO1w02IEvERDPUscLq10)ho3wqMP18EMiyi4IIkTuXoRxysZAstCoUQA
iPCHAlSiYFIw81BvJLLLtzIQOSoDwOsUEo65EZqKzI1l1qKuiVhsGrHE46rSjsFd
r6RBIKCm4o4IbU1eSQXrXd7VhuPh(kOlI2I(doX6OQsxEv8gPHcAGu(Qwjm3xNiO
tuebqiP7zd8g5RQ(eB1d14)v8qYljqyZ0JZeCeAQuGM9A6iBktQgiADcdlYiXmHW
kKtYAbTpoNTwm1hySQDoEk5PSKFBKC3wFLYBzcWBWkUnnxBahVNEtsiByj0WAQNp
MR0NBMVgm(kTeU7l2AfvItIL04XWwWuhlTyxXGu4EJg4kUrCR3nMm9Uk3QLBFmCR
KEstSiHrhSXsg8jDtKMqqUs)uTFEoeXhM(LitNqwCAGgICbLiA0RYKpEAYC52cM(
IllByohQchYkLEC5AMQeAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
A0ZO
