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