[comp.binaries.apple2] PFS:Write-to-ProDOS TXT converter

dlyons@Apple.COM (David A. Lyons) (02/15/90)

AUTHOR:        James M. Luther
EQUIP:         a 5.25" drive, a 2nd disk drive or RAM disk (128K system)
OS:            ProDOS

WRT.CONVERT is a utility program that will move data from the Apple Pascal 
version of PFS: Write to a ProDOS text file.  The resulting ProDOS file may
be read by AppleWorks or any other word processor that can read text files.

The format of the resulting text file may leave something to be desired -- 
you'll find a carriage return at the end of each line which will have to be
removed if you wish to reformat or edit the text.  At the beginning of the
file, you'll find a complete listing of the original file's printer options
(margins, headers, footers, etc.).

WRT.CONVERT is copyright (c) 1986 by James M. Luther.  The Kyan Pascal
runtime library is copyright (c) 1986 by Kyan Software, Inc.  This is
FreeWare software.  You may distribute these programs freely, but you can't
sell them without written permission from the author.  If you distribute
this program, you must include the documentation file, README.WRITE.T.
----------
FiLeStArTfIlEsTaRt
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789()
IWRITE.SHK      Akz9AAAACA(4eIAg06EAOFxIRQCtAADAA4YS
GVvTlzW6EUDvAAAARMCAB0gWAAAAaFxIAEQDAAAAAAAAAAAAAAAAAAAAAAAAAAAA
GVvTiOP2AAAQAEAABAAAA8CAAAw4A8PAAAAAAAACAAgAX1QKAcwDrAAAMoFDAAQA
RMCAB0gWAAAAAAAALAAASdFAD5CVW50TUJVRCAgAAAAAIBAAAAQTA4yHNMNAJsNA
iGwDCQPATIKAo)FAj1NoXBs4NyhqIBAKRJaBAkYhYmlGRDKiiCQBCAInCtIEIvAJ
zVOodH9dQX2RBED4UDEgp20PqCoHDJoANLYTAAIbMtK8EQQBoEgtAgM0HYEAKKKM
ZAAZtyQVRYKnBgI0RZFgsR20RFLgA5YoKQjEHahoJwh2kUmUXFPMTIwoSSzHVByN
Dk3xqRpkA8GReXKG1giApFEUBAQgwyhrMNOJBAQJABBBEEAAKDEEKUKlulFcgBQp
GspQMoBcTChERBqEXoCgFWgAKROKCsLgJwHiqjDQBQ(xhChACou4f5a0MDlKpF4(
BYblbg2WLXmUBpSnA)dIyTbcdCyFtWFAnUp)fQCGrTFmHsHuVB8nsZlWQBZQCbCA
erDFEOAgAgOMygQIjCJymnDjB(K0cIw)mAEsjCn0GBBDekgKBRVBQQipAEl0Avnp
BAGGwYhCZEQYiBgFWYSABMGAwbROGF4YkhtFWcVgBYGSggyQRJApFiCCY7mgUCKU
BqvCYFwQpAIDKbiHkAGUUF5InkkkAHZIS6HyJ3GzDtnJfkghkAMFiiVAak(gMe9I
FwgDHAEyAAgAECOGDJ21BQ5QFFiumgXAdYA2pAcA6phAFiEkQjOlbGEAqLgfcTRp
FjOK(5Nl4A6SIAABTE4ZAkl3WwXhBEKWQAoBhEQggBmZYgCCNICIoroBjEwggHGH
Y4EiWIAQgLpBlEQhgFGpYUXiAKIYgrpBnEAoAgGZaIiCKKCigRqBrE4oAlGAag0i
VKKQJZfW4BgxjAEGgATmZCSMRAWPQ0AIjAEkYCUCC6AaYKcIkI84jCC3AxDDOIEK
Q6dOgI4Ij4gFIAxDhhhNmmRh4AWkQgi6bY44NICM05iNC0o4jC4nWcDDMICk468N
5MG84AoJQrTDMMKaYItOnQ4ADhC7YPjDOOOegAKC30AEZAtwerCBEMAeA6tJiEYe
hbgCANTDklJE2BwBT24w1BbQejjDcjLEQIsMhiGE6ZTiliqAlLubeNViRueugw8F
LEL7IKKlAgIIGyQwBBw26cDhOgp547SErw(mCiEpAJiixDFAX0hCQEQoYCGomeCi
hjHSINhhnUo449MTLPpAOOsLc8inLomojC6xoIDDNsHMQ6KELY(45(zQ3xNjgB4h
gJ8Oy0wIaeFQ50ZaPuBsoqNNnE3IDdBt52KaBrn92V1nlP4Ae83mKnCBoPEMoccl
huXuVB7Jbwdwkjtng1oAIAGvNEOWeBNbWjcyUozviHAz(H8A)YuuAikMAWHCGP)g
LAKQ69WiAhVZofAAUPCNs1QgHAEq2iVCPwNNYKHQFhAG34DeNEOjDAYbgIdgtLpB
9fYDbM0kBSIChhrKENhD0xxmI0zBMESyatXM2RlHBxaA5s2bMkBl7ca)hGZBIBlA
S382fWLU8xQdZt36wKCzMCCwM4XID3la3UsdhSKEzlXQsbwgVwzd)wuTDhqcgqu7
1ILollYTZ3Be6AgwOEZ0UXCBkQQGeGMSRCVXgRiAoaRBS7zRX8YwgIkIKa5YEwoA
QeNBGhkwCkwELAAgkjP)gjJSwmiAjCikAUGLKmgTCSsAAhKAKFCBDoIAXKH5BACh
QZ)ItWMAtGgMsUGfKnURSSdiwkKAlhCQQUQIKIEiNAWoD4kRIkkAhVRIfUCCKApp
zCZPQYOdCHkQQVQGEAAOlAYdilAKWlWzZr58pZG3AMBWCQKDgXHH(riZSfQUEAAB
Cgpsgr9EebGg2r5k2cK1PpeCzqZhtqgnP9Dald54iKlwlyizJ7EAAggAdCxw)AUY
HCvUS75WADBFhQ05uFtyhSnJo0NNaG3PAOgiheK90UCnTl7TgK(aIRAFKAwRCQaU
AMApmjThpKOIaF5Ume6sqAUCOBpNBAHEA0ilmfWR)pQmfIOgnNji66LAiO3Ci0aV
GcCM6oF3gQzXAUUFANQxm4EUBEOTCiaUnAU5ccShBpQQPIMaKCJQiAYAUXeoSNxD
0BY4UajWCCoTSlAU8FtzcaQFShS1UpclCY5plKlqzUlqt(kmVMj(qhfWK0GWm)4W
Xbbg5IIvXFcshrUeox0UjzUwQblu0Zrer1zbb9oWCS(1g0K4QtKwXP)OgBkCIDyG
lQ2KSozWyaPVs0cybbTQe0Y2bZa95hexRp2sgIyjloBqRliqVRYKVOt1mSFsZ9JL
6T(XQwZ1JUMALwlADRFAIULAKACDaFYAfBGBAAY5g5ALwEAqzoRQmga1UlAz4Tng
g(LvHhyZPIIDDFGSE1y5xsGcq7)U0n5tqYWjIAlfyQcG1Pvx)34LcMecDP)Mq0yI
KQVAoBuijKQIEQUKLIvhAQ0YlADAkLDAQokcCICJv0mMKeSiusWzWj8VqIH)SDgF
CZBXi4hAmECQgoAACIExBAQyACBNcjACYmxAEQIiMAIwiAiRIioAkU1s7gIgVk75
zYegMRKG0kgEeAtIfSjMMEYkaQwZ4RvAHi3jB8N)bmzeqmfOQi6DA(miALggDUQT
Xki8XJzukaurJ7DQQpO3fM)XugYU7sJXIR11ZbNo0VP5fr881ZSj91UqnSlanJoC
7YLtv13r5HsQWgeUNw5I2qG(ZLYK3J0lM1enAVTxzSW09utHqVeHbFKfrS32gb7N
YBjDOt2diBYG(uqAJbU96hG7UD8i3j8LN3lvLGz7AqsWYEAArtNlCeaWmhr1zBbt
lvevXfvG1YcwLmas2Ffog79lkBfBEucRAx0e9Oh23eVLb0dDeMPmrfDBalSw8DFU
OTQAFDHEqDVQchMV3Qz3vVMedOvn8q581ZR)M(bzzMwgQIT9ppujLAFM0yQAeogE
rEEw0BQMlPEo2UKPNH(eGds8VSuV0tSb2tSRUvfduSf5PnbbmucDno1inczLdJ1N
irJ8)bZHOnLwx7UHdveiejAwc4r(JEGDCj9UwAM6whyNbBh3mTcCCTD75nZYhvUp
ICQ6mCgOr(k7105Y6)(W(P81rrXcjMP91EvFizaUYO7zhlbCqohwzJHQc6rJw70B
)vhgDgA4VIsYvDjvh9cf7I)c3yJxFBeeTr3Tq3)V98VWvrVaqjebz(NlJi61A(ab
gM4wwTx9kXQveQ1O0W5G3zPs6)NZ2w1yVshAjMHW)FrsGON)AOy)GgtRADRpAABF
AAVBAu4SACFpEiWANA)aEAgoAi6apMbK7MtMAoR)mCZplOaH1MH(4On(Atx(JA0G
BuL)AQCFARFBARnBBwKCyC3CBCqYAsi94wZEvM9lKAVAFgUAxsZuIq6oFCtMEAEV
OiFU4o8zEIzc3SaJ4McYnMzXCDoQCLZyuszh6ykEFwkJChbR2s0htA082IX1NCfO
3KY5vM23sA8EniUF8OW4(sjB(uFyCOWyAicOnMzy8M9MzqymuslnzMS(3Q3NDoOW
AiLUDPQVDzeJ(Mri9ii0(ic96ON19MWB7uDsqg)OnsDm1yVRCTeNCIWhDh9K1ShQ
tC9EHAJVrSDUwygR1SMQ6QJSnwvS9MV7(wOTAQQTB8g)kCQlpAlApoCQACAoFMD4
p0IxB6dqiCguURpjCKRCRUHkGaEgwc6GhIZsNGQVIGEHijouuM0YA(8FxDlwQJio
CZhuSBIXpokiBoGOgcBSA0KYGgQ6LBFwC2BQNomA0NFq0pDAKgQoqoJVHuUjMnME
xmIrvC85SSksznNNUo6ZmG2XWbj4bqqYmmROwkq4gqc5Cs4Q0qJOnOFISVKUVQWr
Ba9qRNVBwof(6abV2PzFWhY7Tmcbq29mxsHiMgqCqHPZ2vN3iC1rqEpR0yfPpStU
m9aVZjQDKnBYc2JE5tqJFe2IOONIAkBLE4JR(XBrAhnuQQ34AT6HdAxUpECRZhOT
5tLKCa99ABKIqFAz)l1AB6PoxEAEddNwLHOEK(5pG2vwgkGfwNUFtms0pBUASQiD
FjEmaQuPKIiajZ4ytlIigEgtAZxAAUESUzzlokAykGiUWBJQrAvcpOVCdOgThDDm
aQSxJIuczItKdogYiAprKqSCIGIAIgKIagkQCiylTBiCEBQ(aUxJQUUsQQzH1LhB
((6mJL1)L8jkhMg)oTFwFVOARXzCpoAAiipipaTIKIEqgC0JQkg4CjnhSqSCKKKc
shjI6g4ciy4778hiBDFRMhhhQQQxS04H0i)yEUOTE2rLIwECPBcQVEATHmA6gggU
CAhqgkiSKIUqZEOAKJ0ByTdJqOuHSJdAMXckljy9Qq0ryuO88j4VTT94gHEAUJoA
xmDE9QRouSl4ygj4QczroiLLsAFCWtOIwhJAvJa4GgbQCEYIAQIiMFSFXiQJmrKh
AQitCSQKtg(oYJwBGgtDYGQnDCIGSXRKNeCZl5ED4BVEv0YWC434BbLDsODZupdq
xy6WoDEVpvLrhbAC2yuu74(6Z7lJnlFgP0dhcGkITna)NZI)YCZB5q5VXoU5Yjhb
tYUKTBYV121Uq4WVDnP0AGid5BwFXLapBwnXfdZ0uEwf2OQo46jCZU4a1grdT4Fo
ZDLjM4kL0Z8NyWzqU2AaQFwCrCiODF7Zw2ycbpA2b3mKNsMF94YHkhhf2TE0uTWi
55jHfFYkRQGazgsX8Wubu0jnS)pb1ynu2HMT8HSun5kgVRFaVBYBIKBEqdGQWBbp
gQfqUGge1h3DD0Vm9WwgB4NWmBBFM9AzGBM0w14fqvswDBhtgrDA2RMMBZwlJupy
5FzTsiFEYMgzeifOvtuRK(ET4h4JrEioiCmnKaiiCUKSXeOE9SGNy9rtx81ZTlXr
q0H4AoWFscfxPkABNlKrSK1bkhOnpzzJ(9UiIQhAoUEBKgBEQlaUaEP1VnKFKBFf
UuLomiWs9))uzCILp7kM0CkAu3K1aFbVcXbYyBhZuQUggBCq1qi7V7dvpcH7yaJR
icIPwUezR2zMyqXH9oQlbdMtXnQCXpeR5Mnrp2FSZBIiCfFblke3D60AkCg2A8qd
ftG5Xof)hw0Ek4ugIIAbzg8gXYqwNaeOjuHb2(NW0FBq48KxXMSCC7(Rm7iMmJWU
fj5q4OAEGWTtJ0ci9FiFv2qAKAIiAATqAJEKlSul)Ipo8ediGXn6N6FNIYQjSgcQ
5Ao9v4sVll3FGvsI5Q7NCOmMmTyMHjJ)SANV7njYUQxRLuUewJT5MMHbXb2bCCWu
SrDr2xZUMPBuhG9kMJ6QBBTUI6goTKK9jwsUUxhBs06mdDixpIAnKZ2otllqrDQj
RsSBYp05t4swlSZwImfMpw4SdM2czQ94RMXrs2IxUDsmMnMy8pMwpQorDjEATK2A
o6qBI(iRUYKFBmgyk4wc80fnBIzG2msCyMTNIXYGZVmRAigziAAF)Uat2o6S0Haj
xbAPAJKycUAonNVEI3bLS9HUEngT60JNiP2wNbkP1Hjk4bLZmyPgF6KKcRsKincC
Joiu5FtxSLXz(7NBFRvtuFC0I1AicIr1RoIAFgEwCC4IkjnjBCyIJhAwbKEYnCKQ
hFiOAREfNag0GA6tEBQcfUbiIUMKWaXoo1Z8aoJrEYcsgC5VRARlt3BJxmNuRSZj
BQgvGkLIhQogfZpTf3WDTNHaSmUwqyJcARCTeIYQbem8iGgPm4h7Fk5yWWLMHgAv
Vv4DTRQ19rrSuIrabvp8rWs2ZwvVRKyE()aWFyKMw1O9PE)UBwPUA4MBiW(asDVa
4QLKDv7JKBLCsRVxaNCQWcZRdfZQCYqs9DWhTtFFb)QQBgowrAdJY(yXYdyJShQo
KEBwTCungTqHyk4BaMKLQEAh(hdXfX8YHQ)VSesO6TXFonR1ink1gGjmy7ZL(SAR
GyleMaNQswK8gt4GW1sApEmLswk3av8h257fdjfmgUesJesqRSbkpUsJWbmOachw
rRbjxxV7NtDzMZJ9JCev6mQR4i0UsecJxEwqW9JjNlqyW6pNJAcPwsJTCaqzsWIy
6h(oaGDH0mnJH0YpQIdpAW3PkRgwz5S4Mc9O5o9zqG8ZPHk8Kj7uG7eOI5rcs5n8
yc009YbOYUNwCGHQCazTjQZGUaP92Y4gUDyA0vJlMHvaidNS2YrGm3OlLEsUa)wT
uBGL4eOSMs5u)DQApGwDKQFAYoEkgIBKJhk6UEQtuYCAwZiFaKOCpeIFiQkAAoOk
LkVR6HY)EL0BGSFlCkOQKcWwSFFC6wOQkKZKESVy0JLVmMVClEZzD4zTntWxEZmq
U67dWMqgBQHgoGgKdCSFRIIQrIKKpFsgSdgm5aaqnRtuBppqSnyUnId2EIljokg0
UBKRFuaAQCoCsG8UG9FSs561goUGDAIgiVyUwW6OEQMVKAYALQFo)DRFNgpolHLQ
ACVW0J82A1kWJFQrCWBA1VDQwiQODxmDJD4NA0mtqQqUTHFQA8YSOhPQ0eQhgAeU
t5CQqTj(XpK1wCQLrCaECoDgo(QTAU3EqRnO8fXGmNBGdGgKGrVX7HBkcDwYHKzB
6bhGuvOQ3fctx7sjCva43w(G6Yp8Q0zLPvj1i)fv(A2Cyi65a5r6uvsr(2Pty(w8
raCgMLL7uLEz4V4lE52CQ6DEF4hAuugxYmCEFeAK6ZCVUJKKIDqJ0woIBgu4z6j8
USa6rxCBTDipInqyE5on7Yy6tMBjBaipwkku6ZWp566KLor62zLgItu6DRMONEDh
SrTyIGfDNnA3iycgAxzQMQjzkPrMP(MED(tO2g08SuLxBsDMAzEXrPyNL3CssPNM
C6MSIy88TjE9VXrLkPgWmhdtP2wqpJVFTeLouxgfEPBO5WzKyhp8n7riOyKJuwvw
76O74AEVSZBUxoRKj5F1FHnS9RFVSkQkHUAQMyFlAXlQBQHViYpqqksUSBJOZJWE
1nwNrRy8Q1yVdhksKGoEBoAVEWYhULoFVCHKA2wG76k0AULlNNIXYqtNFSIKYYBV
BiVlKVTnbhX1(6abzGPWbtDc0PRwUQCpaVf59thVrGOcE5qGRg4Pi5cTNwHEgRM2
xSWVzjBWeXRABwUhudRBsT6(FfJycDdPBgEV2VQ5QUyqKbvJ9CbWVIBqfkCQFUkz
AaBlzctdlWOnVXzFX2s7L53UGFYadUVgmllTYuTPh1YVWhX5MGzhyxLW47hKyIr4
CtzQ0vStKZNu5tA(Jl7VYhglGMFFMgN3CCmWycBlh8oS1euSMtOF329NcRjt4GFa
eXckhymt173Ezng7vjp)OVyWK7WB7(pPdp7p(AdhfvUWu9(ubtfKF9VVYnHRonZl
zumxpybk9nSTkIvqiVZJhci8zE5Um6JNt4DfC2di66ySLJM7247Lqx5c2gYKG8p(
316K1wncTdb1vkRxAPXc7dyOZTIZoB822CJ(Oa)e)4YmYITAHzP6pXLsnGW7u)w6
4YARvn8XSJMRMWUGGHQVGhc5RLNJT7QRUA)ok0SpqIEYzGOmGgdnA(yNcFhg3coQ
EEAwDiQbQ6MHAejBtCHATE4AKAJop1iM4YQIWGBkiJIAGEFGFjkRnwBAgcZNecow
MUAACiFUw5tKogGD0wxwknx5EAB9Cgo(yUJCoQlwooYgMIA5SgOWBybMs9iDpxwg
cMEaCIkpjNtjYqHcFUjiDVRMIcBJEjnix6CJqReijGCHPpImlELqFADTg2tF65SR
9BUcYIIhWibykrLEIuMjSRB52AICEAhtDiCbQheGerxxQcIMswNc9kxNIRhx0QUA
BJhImQEoAFvOixpjYxKDuxCzIvYsFJS(GjjwQqoMskGh3Sip3MAENUi7DC0ZIc2K
CyzSNr2aUEC9cOs0BhsdpV)FUzxxdBRSQKtElyfvy3oI4ABRgWhUpYGoMF3YzYyS
zp5kTeipU1sEfOGWHzDKJMVNADzhyxQoZUGUGAH3hAqO8H(hThj1AhaApIlDkTk8
ZLobq(BSyQBAMEGQMpoVT5CTkzzk)MD5SYUalGkWDSDK5DLDUOD0bRQAZMADDqKJ
STNVlkEKDRDKCKcSxpcSkp9kKs5J2OjgSeqQPVE7GoRHALIoI(GDRG1oxtsSmWtV
b2xBabaUWTrVOBK1JqWrQILIQC3BRvxRubLHCcT(v4OOCNZzG6q(VZfKG3n7JFEs
SUXTP7Me5eSSgW5JsMyVXQcuMjfDJIH9MAhOoTi4TQWWXfTWRCpJYCqFXqQAmodw
KEEPBCQRwjJEsEChUVSwIIAeEAvhhi1J4IFCcUw1bx1VIBgMJUkkX1pL1UOvPr3t
U6UJAvlHs1G2hKNItBgDj0x9K9cWSyMuUjr999Svnw0TQCQQetLKIFH0h1Wal(lG
LIDEVQCLBALoHLF0FetXHYnTC0Jrze1bBxPVCc(ZqhyAx)F0cdD)gEDMVhm3BRNY
KoL(pvxS2wNLHELRrZOE9PAkRH2qB(Q)QwcABKl7yJ0VRHSYCBrchss6K6uQgtYC
BkIrOEOTk1wsV4cLw1QIL5hrZDMOH2ZpgxXh4EcU4clJ2LSyQB2(EWpXYbESck5j
iUA5KFpiqMWatwoIqM7MA8fFA9RxXyA4JQIzBB6eLAiKNFcwV4MsWEJhiBuZ1g9h
AcSF25Vh9(J9xBsVp2bpSvNmcChRoPrYKEQuDA3Ngr(NIJlCmVhAkQ4a2GGMuWgv
QeKcC8NhZR70GUkTqdNHT4jqgCKCvVDdsQIIJAEgChWQSzVEAeBBVlAgSIAoCsAh
hwAFICSBw5QQFhNwhQ7H2T5iKtKTXq1JQZtcUIMCEAhh7QgJQKUCkChQktGgJs3K
CiQWwA0EYcShXpQg1eDKU1OoOmDXVMDyB0D6B8AwACKMlcB0Q9TlIC0)qIJmAgCA
MhPILGbAEGc4dM1CxhBeQUkYkqhvqfg2mckRAB3GFJTMpUxxUgaSkEUAgUJCMJJR
iJQWnMpCACEVjGBQU0YxkCkOqAgGQcEQkiJJRFsAOSl4YAqTQiKRqiYYy1iHRgbz
KSkomO0EKNgwcc0VkiQpIC1CCkKQUAQ6iDgKQMQmyihsxsSdKBIFdIFAJpidYoKS
dPFYCvAAQABnPzRnDUIAp0BR1yQq2hb7DHOdjdRitWASUpuDEo()0SOqTjmYBW0E
0ruZGSNbUsJlVgNvwmNuyEzW5DETJo1ocKHojFJlXucZWfWMzlJvY20JSYmVDESb
eLVqT93TV4XPkbtYe8bx)swR5P)IOUkz3thf72tbrqt8C87rw24KDxQKaHDTsjGQ
KqcMGwUcL)CClUBLMMvowJENjC7MjOFBWXbbttoXYottABv4bRHE0nqqoJHpqHuP
Gj0Yjw2pGMiLLtkmAZBJioUSQjpJQsRYCBICIejjiIGeg55KmoooJIvZGHKKpoyO
bu3FI3LShPg192RPGHr6EjHVPc0zLJYJsrrLvskwCwvvcDDTQyFQgccMy(2YDzS(
yEDzwQtg6EUF08O3jVVBFUTzQTWTXRkN9EBbMI23xirbTSDbcQFzkEB6AYYkTeYZ
hjtxXSCyJLPbUfKKxzjDvpii9u0yMpClcI8qUN9kRNM5AVOLtUVFwdaR4870TS6A
PsDwxOHzMmvBAJEbsR3KNM1DRRSBr9FPIRElUOZZr8WIF1e371ITVYkiRo2nliX3
LEIALRE0cD193zKWsAhXV0EAwoHUbMN9xr8zMqwVSkUF4gHUeURqCjghvGTCKKGr
AhamgosopSKqSuCCIIKGMFmLIPYZPZnVIJ7qii3QU6MgP5bm4gWLIIQlFmmPQCqH
pgooaKhJkqiiKiJuYA0Jnkg4CjEqKqSiEGAYAcYoQkWYigqoWPvpVUTzjIyEzU(2
0D)TVz51NXJHDuPZ5A8EzT7BplWbBU6SN5uyCSdpsO1P0xTkeIYYWp2HGi1mrY12
H65mHcKvO4anso4T6bpOfaKioLEkCJYIXsYIBgEnA)BhqIh7IyTqzWPrA1)PYIe8
tZ9FVWJZB40WQwy6ROT23vSRnb3)G05CWYE7T1z7CLYygyJVUBNUFDgHzP0BabD(
2NPc)5rf4xzCqxo9Hh9TIFyetvfJ72cGsBlHEAB0AwCHN0YojjBQaBxAEGQEgApW
AwcF(8SBA0LxUYAKUCTQRKFzUDbAVDgAtAEEEApBCQBQIUrALXAwYFQAbAGHAgB6
Bo)E2gAh5uhwjAG2LEpvDAKdQbXhvvQBYsAoZIupNSCBlifHExxGI6CceBW2BYh8
jDqjDIDZECgIiAACWYqqUgnAQdQBAHgrtnHcNoceOICGBBAUY26QaOSYWtYwRAL2
FBuz0Rt414pJclnD4)JSpgP3PnJmKMRb6B54nSAAyFcOCPXUGDl5EVgrnFpBBE20
MKdrl7ZHcG0hDMRzEQEUiEhHeRaS3pKZ11ltB4ja2EUAKApTSCURICQIJNCDGh88
KYk5iQHTI2IF5NJxnmi8IIAa6GGxAwbVYMTSa6yooJUoNCAIhQXxgbBPClhjuDwY
TECsDAP3AzhJUUXMbsh124rhOOvcCurOi8kAAAihaCpUK31SakEFn67dM5Ylm9bZ
alcSWKvYPRGnD8tLdanylSZZqUGPeg8EkLTeySfltAx5UhZuEIBZlz8mZbXWG81y
zAwkiUMSBooCmxFUQkFSGvgw3YA8MEK2DDqcQCXkw9linYRpHS0QRVtPvqAWgIwP
ANrXIAIktdC0CCWBAQ6CAUqCImBQ0QQQGGA9gBoWYr0GgWQKDIomXICoAhUXAqSI
UWUAoKQgaoG(KCKRAAAXoWCAIxDAEYIWOEAMgiYCakKVmtawdtadXFehVr5wgaBt
IlpA1P16pEgYCIoFAxhIQxSKApADlWgIUxOUBG4CVJeyNz1qx8FQAcF8DACFAXwg
htIZUgXAUwBw(IAYGCAhAilQIdBEsEQhCh5qUAKZAVdtQ5QKc1AipJg1sBAIBG3S
ljONJ(gAgaQhkdQAacBMog)aQ1SaE1gBJOgAZ4WNMCoN1bH7JqYI(WABVH4SsCCC
ACWhQpsY0IUgFgBoDQEgKsJUhATBImwDYEzS3nIA7aRkGBkGQYTK3EQiEAs9BCsv
Yj5IV4eD5(QHGaArC49S8e9IujAY7dLcU1LXDQBAx4GYJAgKTACIgIAFtRWMrzNE
7ireAUQ4Lk8cyweXZLrbFAXJDsos3OTFwaBHZAZcEpNvErGlGjiGBASBvShgWkMe
bTAghxka5uVBmdAwGeigNoAUAbLWu2Fuccgdu1(CDlAgtJMGbBUOlo(2u6wAq0lK
fMMACg50uCS6sWfmE1wl2PwQ(tahlHfE68AQJw8vjGIQnEQgAjzpyYqjBrAbnITA
arrFF0SzEuMLBCxQGjFzfEIwdUu8jm)awBqAcBMH3Kg3BmiuPYshB2ETJ(fWWnZu
zjYdKUGjGrJlA54AwHxcKWf5r(Wec4mZm1Gg7TTDgXKwCQDAVYAADYxXuDdcwOzq
fmR7QHb(meIONwwSXwCc4ixuJbXcIwIjZCAYuAdpRq0AqifAkmtm(erXGswshiNE
AkMCZSDQ4aN8CUlcAiJhIVzgggwlVEg1DQMLctrFDQ0B4CtAckDgB0AABMOm4At5
gNCyAlgDm3xQ0AAmYEKziBMMBALAeN0QGC3qhX864DYh(UiTbpIAQYMnDQIix7vO
8)IkHZC6WtTO01gDBYNvAiHhg5REQfgBSNwFFIGpBg2rAiNAo4Q0gOAwY4QMNghb
D0UihClAgog9YmwFoIAQMCKEgBFWADdqj)7xGSYkHAMgBDgRQT5AT879DCPIYwzL
HGtG9ILZAmZGahwREcQMg7LSCg0FBAvAk4kAPWRoaE4BB(sB9OL0gASrQJxQkZIA
gDKBCBzjQRgMQPE8FAgfRA8lAGkkhPtgoBGCQ8RBQQAk4LKNAcklQrIPXYrC4II3
eUIaOANEzRCOPa9DgIwAQAAM6)JS(es1)O740QQfJ)gwDwHfP8A1)zUEYme8UvCQ
IdxnC6NJFY3)PKuEokLgQi2PLA)BAlTPoYGg7KovB3shASCAAvQBwEVAoXMArb7B
TZLBoigBwY1hrNOwcPABAbFsoajvAbkvgblvQbjvgbkvE5gPoYCgE9gvsnAA8tQB
4WMPDuLQQmHAgcEQwRABs)RhLdchAcQg4MTgEBigEFCg6nKA0RiP08hhDF9OUMCg
gDhPAS1PAMwBkVQgadqKL1sPQwgArseQkPRwYZnv0YRwEhBQUMwPwDQB8oSwYPih
YUgBsXCArGNhsXyQbfMgARwQ4A3B4jGAEohBEyARAsHgNE0A(DaABOQIskQAuCSf
EEcHSsgIahBMQHUvC(gJbNhRIGauGL(5o0mVYkr3bUhsuYni1ymndKmhb1yiIFaq
ML(5okmVYmrzOwwEajQiIScWQPGQ(0oj3wmhJHlsS1(kZrlNL3tsnFjRZvqtObG6
bsjdwQX9GVc0dFyFRTHnMVs0JnzF7AjIa3(Nj)mtr1jle7ydnrXu71p8e52dcCGB
zQH5L100dfyNzSHhE1c0YgQxc43ZlLXebs4ys78coPTOzIKz878doGbGy1LB1quo
ON1s21JTwPoKqwkDyz0AJCMJG6FAgDPFhDQUElkCSjAOEgGBcWVvaAA6jcQXHCky
gqMnGsU6BoBAbgo6JkvI03dPTft6O9bZ54NHa36nOC7Ak2DwrjNE(DwLEks0YGgl
JACuBIFHo3BouMC0EjQAnqiKgTuBiHTChCgUbwQkC5M1AKFBH4BAElsUdYAR6CLh
4JFnWJMowqudQ4TEPGHC0omoVUUExS2du0THGJpIcXmEQxQCFgKAyQHAZkQ2ACBY
m4hpyQYnrmypReMrzBxMQxUBmAlDqw5lRAQAB4OCBYxojmC4ARglJGGiohiQKAJs
Rwi3YZgnCcILssBP9I4pyCXMpEEjAWCqt6gMCoIAusgff7TgASUqAqiU3IIY0Q9J
LYEUUQbjhIpC5P1gUEKIOFOOZEQBJpSJ01BAAQB3uFgmAOTdM15PHNhxnn)0d6Fw
fQArJvyRQY15iCDGA0mgAACKBQZZlMQwREiaAoAhEMBSAw4EcV5ACElmCAADAAGE
wogAEAA4AxoJokggCCMqIDzCQQIABiBRMJBhFGAOICGFZYYQBjKawthhIGAyYQII
igogCgDjgSSiKKEioiaKroowCgMsEDDjMOIG4wsM004ADhI4onjjOOMqID)OAB5A
EmBBMIEkRSQOJCCRJJJREnKKwskkPRQyYTJ5lkwUz3NIxgB13QNgcDPALAxsAnrC
SIUyQCaDAACDMAFt04CyBN7gfAQgwAzASNYIDgCL4sAbCqbrFfxUoFxEmEszCLQF
aWhPhA0BLAAwAjKTGoABYe8vpB6CIE1xViDDxxjTdQCU5Q1AO1UNAkwKb00bASGr
oigSKBIpg(rOWOgkZBCRZAdfQ8BHigFjQQH93UMURpAHEUJIgmlCwXAFBWGLMmZP
FAVZ(GLkLce(aCAWUYJAFYBIgEiiKXweWCQKXpKbKIBIf(nzORyUEIQRAxZW9n3I
CA2FAWCnMdAICUAKAEhkvgDaEaQAaUqBhLAAREKgAgENwp2Ip7aK2ymzBcgQAi3F
wjiUrDOggCA4QEc849ufetVyHq981MPhK83T37J4AUEKCF4SrSOfOjjEEw4VbMCQ
EAGYADhGggEpkSAArIAYGigiw6AAEWCgXgAAqDIqQsQ0HhGIzx3PYUlHjLQEqQ8a
ADEECDrRolAjMuCRxAISBIguEv25II5Ks8Fgwz4AdAFQbCOFCQTAABKjLjBw0cMO
AIsgjz2YYPOHCbjiZf0I7MaaCig4DJyO8y3jaRgIIdcUVED(kEx0AVRIOmjRX2YM
wUE)AiH9hhBZoz0jFoy4UZcAQCCHlziRZ(QKwG2onfUMoMSi(ADJm6vBMEXEb0RU
csYAWcSTEHYRhoxLEJ6izqpokoIKLmkqiykoa1tm0ATJ)sUOXAqgFBQTAIgngChS
gkAoTcASAEMQSLYUBmdTmWawLN4ERAaCUgrMwdGIMNfqFYBsFQIaAG2aujuQIVIA
QbDwQAQcJEMzFqE2ULtAkCguMJgwIEoARBrh0gnHLlaAa8TxhI9RVgANSyJoRCaB
SwxjgYKcjXGBBHjWCbbm0DqgaIQaoFEYYCKRiwL(KaZAxbAjtCA1CEE4DqNgx5lq
AjzPaJjKsOQkR8qPeV5WK47I8chgKXYQz75YBcEoPEV6DrNAabvn41j2HCCdGty4
h7bliByQv33oy99ikcL8PwoCIJiHFAURTZUKVGnlnAzzI8eLqocDhR5bdQKLME8f
LIGzL98AOFwg0A4tkuAhAUSLAhJCOCNhmGgFK1eRSBzg06214DwovhEawQwSHQFb
t3aK6sESobFytuKgWFA2QHzW0hhBQz0ViMhx2AtMPNB8oBTr56)GcyxJR3jy8B4q
BaErUygZw0(UwSCKU1DUeAQgvAw3xodBuGP0Vk3lF0CEeNDpp4O1oAUFA4pRIhCY
5CMlAPLz3lpdyQeAMLyLctZhMCYLACGSASBGw0jxMQUcAYO(szMOrOJUXlQ3pmEg
gBMQHG0UhepFo1WxGwRMtJ8CAEGKDhEGcyGGxzKAIYM2OGLw)wwgIbsAkoPyIAAV
lvADEAQgCC2kAjSMApBBS1U4FJkZGCwBN14rALAbG0yUucKszJwlbBMBQxi48sAj
RVROlLvnGAImJCDKDgJG2W)nmwAjLHC6GiEAFgoJlaFgWCgo8MjKoVKKNzY4K8mA
qv4GB4SEegKNdDXABTxsavYrOZX60EhKRVnGBQUBICDBOUjg8FIAFIMpCa2WQDqP
gCBIwUhOsKH2qx9tADDeAaBG0RQg1tWPYHEQACDMANqqghya5EBQW7VMKAILjBCZ
NEP10LDAEsIDPnNyCqYCduhtsZhix8ZWuCsS4w9pAjxCwWgBsFQAbAAMGAMCBCbA
RDqm3k0mdysyBupUgXWSJkOSgcBbmz9WIHoRv1U4zt0X(ZRGkJVgY0WjhzFGuZL8
PTEGmRkAuU9tJGP8kD2X48LIO6kBUAVATcBIMQDGIgIGQyBYGWmHJcLAMcbcAMAV
AAHsUxpDgygjTxtIO3t9uD3DjsRLIT6ABwMgMUPAeMIQNZfXwg5AJQU5X6AodMnL
A2jNKVVSSgMOu0AQusa3fI41HCf1RrWe8r2jlJyABwBQGGFMiShAL2IAQCQhCjAg
UEwI8BUA8Ys9J0PAYTAArIEW8AMfiTbBdx2BAMpUd1AUaAbZASRJBmi4xDX64dlC
FQkILUlbDA8fAhGfosxAsCIACkZj4fhfaX(ySd3XHIBA)5Fy(AfACQIMwiKAEk3R
A8IYS8JJuWQqfCnMn2tp5(uTe2)3eXPs)EBN)v6(tkymNb1TC886Aur(gCj)dt7v
W4Hgp8EWoCCC5yqQKYIALJOvIBYIS9JMAAAGMaARSB8IAAAyC9LrATB2sK78)uT4
Cw7A6bJwZ35OF)RAPL5cQb4gm0zGW3bM91TSNJoScB4ANdRAgWZ6FYwgqRIwHBCO
iS5s3DwADNBSs5zyKNRSi(JALBwEyQ50XTz0XtbQtDS2uPxwOH7SHxyGk9ReABYA
tCIEpIxcddAtB4bcpQBcWoD3YEEdHZKREB4SpDQAAEMuM0KoBIBbhoDCIAADA0LI
oQAwSAIEU3BZsUx6mMcYNBQG4E4g6MMnTTL3cRz4PLRwHBwEBcYqFPEg7Q0CRQMJ
PTMPBQ8UHNE(INEpeFMFaFQAQIIoEIYEHUIKIIIKiQAa4CISHCYMXAwqTUECTAAg
IBAiA)C2xDYcHMoKAADCQNIaQRIbtxJHWYBo2JAGWB4moVECOVMEUxTwXFAhTRZs
HQQKCRJ4QAAeqcAmIIDWCRJcJBIiyA4cRZ8sJWML0C4ebRZCDEBRHU80IUIKCdMQ
CBYgCBIgvBQiBNJ1wAQq4tJw1BDN2RJLHUALRRJ0wQEL)ZJoqhESAUQuGVvTCGC2
AAAQAEAABAAAA8CAAAw4AQAAAAAAAAAAAAgAYtQHAsAFsAAAMoFDAAQARMCAB0gW
AAAAAAAAOAAAFJFANRUQX5SRUlkUU5SRCAgAAAAAaAAAAAQCAUA2xdCAUsNAXFQC
hSCpETgUOdCkRSBrEVgQTdiEpiEqKRoMTRoErxmGBFakUB4gMxBXhBLugkjmByrx
Od0koNjmABI6FYSM5gBiAgNcPYSIhVCCBRp2FQc21ZCCpAK6oc8ILpCCJzyGNY8E
hhCCJwo5EawwupDnRQK6NJoCyFjGxjswlLTevYpys68YnPTeg4pztZlpNWOM3pTG
hZJ1NDd4QdKG1Y72MdqICuSmxzcQwi1Cvxy0oBo6PZyEnIzAUgb6MQ7kDVKCROcT
MZ(8oYj2uQTzPYywyIdYOR28EWfW0mDzuJ6uOB(0ZWqGx5dZOdYSwtaG5YLmNfSO
AE)W
FiLeStArTfIlEsTaRt
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789()
IWRITE.SHK      Akz9AADACA(4eIAg06EAOFxIRQCtAkw9Ao(c
yu6G5Q73ERRvoRKmFQj3MAd411NCecoP7pZXrChae(7W9jxQzpj5xYKZOYKzUOdG
zmuOoa8Nwi6QrDhwMDhONOISwzlMRSCCIKFEaDRIEOgC8wBp4fqzKuAXBRwuN6IM
4ptrT7wwQhEyIy(wE2wQACOIrG84qqtslXxqB5Gqy46vdogYCiLQfDQOq4O84ho1
TroYDCsyaYgjxCBfbqh724wojLHxfXCjJLPaj3kKxcCzssGT4JDDGlo8T8xG504b
PDhG8dzO1MgeUoUO438jqhhxV6jMrEnIkR9qpkz0wRXGbgAq0oMgjT8MgYCTyxcZ
)6yymQFXrfjMywKrRhlwK3uMLDNCo590Q0EAuuq)bZTM8GOa44Ez3EVswRN2clzK
MOuCtOFNr6wQxTJS9bTOUDoaoAdMT)zajAk7LhWDrALdFpENidikRy1UMTTz4(8s
lKaOGX9oDXJKsDhU0MAL0TWmggK1O0O62PTz)O2ctHzLWwkjvAkGa461JVF5Aqdl
plz0Xs)8kNvXl(OFqhb)TEM9txF64f(PBlEXCB1N5MTgZWC(WXKs(oIZQ)tBCX20
s0jURiUB0qMYrIPyW44AhqmewgzZ0mFJYYsO7YTOYNZ8fBhRjG80SyIGiwqAQKaG
JzKpOI4SE8ujQw0UihspLdETbbBtV)7QBQACOKsv00etEpFhM5B474k2BRQYmCCi
IIGSOq8FmgIqbRn2yrDAiNEgYqVELQCcBDRqNx3uLE6ErN(yI5AmKCzZGLDi)OOS
N(Kt78j9q3hri0sVNM(OEP5pFe2bu(YGRVMaPP4SQjdO2408JDXyMcDVHNLRcKJx
Wt1oiQZlBRMCNM2mnzmwgvTvK(ahNNOeP94Q)ka6M0QaqqcUcPju6dBkTxIFF3jy
eN)8haTLJJNYg4FE7QwH)EKvMGiQniLjMT5HujHY4XRgWcNFMzdGwQzIIJhSMThx
8pcwDhJK3VBBIBShPkQwsKQOGQukOkd4J5iXgacWYRCIDiSuVuk1iB1coQ9KuViT
PGJ4aOMoH2GEBhyWgO30yMD1pYC3OIwGwI8TUXjho4QA(NQUNSrprn6tJI5Wgkxg
aEJ5zUAGYiTd1HtFgsjhXK2CZ(gMgILUwlbG6UESXzgkvjDoM6YvKr8rXztGCWgr
nwlySeVSjiMdAF4zzoIjKjwElyJcxpKEPktpmHNIYCqh27kxuTWYIftbBSNO7R)K
EVViLPA0nda7Yq5a1BkkgLbSCvSkjiZEVgG3umS8zcueedVULgcZpssyDhQTjVyH
tDPrmulhm5keZICYxiDObpIDghPkuQZN6gcJlFtVI5LCoNfQ6(HyWFFLvgilLQow
53NQcyRpyYywmAdbDxQWH1sL28yQwlA4GnFGHYjhAXTq7WlBesp25UAdSFQzKAzN
w69E6anSTO2USuEDnohCJzcODm(OIPqEjQB5ReGiolp4lyyuZhXToAUJkpZG6MPH
0nlPliBohXx0uYoVwYsNKpaZgnNK00mg5DAQYM4ebSgHHC5HhwKCBxiGHKMcIIbU
miRLSy5goABBjd2cYlAULBG6pk(VlZhWW7nwoIA0BxGuXjZR4FfS4LChj95CZteL
kA0iIiRJ13AaMstk4aN8rUj3KDkLqAonMWCAgjS5GpYYPCPAWgTbN(osnUGLA4wW
GVvTUzF2AAAQAEAABAAAA8CAAAw4AQAAAAAAAAAAAAgAaxQLAEADtAAAMoFDAAQA
RMCAB0gWAAAAAAAAPAAASdFAFRVSONkLuQlVG5USAIwTAAgAAAAAAUwmEkAAeAAA
bDw(BUQoIq(UDMaUogABUYqRnICvy0ZD8iOInjSOnEZDQB0UHOYKjggDUidaibQ2
c4AAILWLDFCaYgoBMTXNzHCgigoB0g6UxKFMQEUTwwYQkEaAGsZTWO0OFlX(qIhS
MwVRELeepEhSgCEVjkBaQ0gB8IvYiOJnhGZACxIdSEKRwygBQqeYQGVSag4BkqNI
nNVc3kNrwy9dGORexgID4q(bQNVok2gRQpaQEJfQS6giES5BmNVamgoDwAkLmuY6
GwJjUJaRlLQSEggM66eYCwCcGmJBwqsdbFBADvhhMLNZbMWW3Q8NIBkcELdCiDnt
gXGbiJAW54pTUu9D6hexKSZAsf6FkKMTsYMi4qIUcBhJxkpTkXuEGFWApYdq)nHG
RgmpGk9YCJqmsqqKEogwDgX4Q(aoPoJHOrojzOGkIANi7M6wjImQydzrC38sozM2
IKUiDAogOEpDOOmCQLcM5cDMjjk5AdTDMOMeaJxgHGKqoopI6)uthi(yThujNSjK
BPgSqnTvtMCYg78Niw7LjwWUEnPj9iMgaCswTQ8rCg7y8UTu)60Qg6d(kT7oODk7
ffAszOKGUxcODL80xBqwGO8S(gK9wZekqkSADQjk9sSOEFnsrtTJoks8SQ6(nviI
MmyEknuD92MTo0JI6s9S9M8Sop1w8QYABujEr3QD28y2oVuFzwIKDyCtkrjjOFPo
qESNF9zYjhwyARDDvMGYA5Oih14IwBcQqARViAF7tpGsyM8gjvEDrTlR4YFa1dqY
5A1zx0KEdwWOPTrWwP4IqdFiLj9zr5UDdHPv7U3PnVdNsXzWafT1HNJAjG7Y3F9V
jsUkadjXEQPlc7xzkH66jAo39kRrKF8QeaROGU4gMviSp)INNPyezeXkXwQdUAhU
GwKQqqOrEBBr84IDDojGQ9YDFOCGAL3luYYwsqdiC98sX14Gk4YOlIKFzgs8bURx
xOklrgDtx0gNvTJJs9MQhnlxyXbnhiWGaZYisli6OOOpbzNM3kQLIajVRQAUMmK5
GGOMz4Ei77O3SwCyKt(yrB75(yIS1JOIgjoDzAHjcL0z804mcvldx72IEMOd)5xj
2ctlzUFv3tQsGhIfTzEOY44aPR6ZjfHxp1pMYL5ggDvta(tERoQcCzFjjbnN2Eot
uDs6ZrLQxvKkImMJO7wsQNrFxrhRK2U3gIoIomooqonmNEgKSLsgAG0xl3w4vw58
6ojjNi9uDNpMq3ArsAf6OFDDi5xBv2AC6RjRQd51kQIlMcI8PBYdQzuGMzLoQYVa
c)R4YMKDmhpMAZUUARvzkTII1teHIrHeTCZGtMyh5xQocMJaQCFyBBEIpgkCIFVV
1Q7pAMQbhj8)IXnD6)xw9gIMOIGHAAQyGVvTaiK2AAAQAEAABAAAA8CAAAw5AkMA
AAAAAAAAAAQAa1gCAEADKAAAMoVDAAQARMCAB0gWAAAAAAAALAAAJZEAFRkTE5iU
BRVQAAgAAAAAUBAAAAAAAAAVAEAAEAAJAsEAAEAtAAAABAAAAQB8PEAaJJ1VuUEV
W50QJ5CVPZkTUAfAAINAFJlDNRUQX5SRUlkUU5SRwHgU8AAFXtAAuQlUO90QSVkV
G5EVAI1TAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAOk
-- 
David A. Lyons, Apple Computer, Inc.      |   DAL Systems
Apple II Developer Technical Support      |   P.O. Box 875
America Online: Dave Lyons                |   Cupertino, CA 95015-0875
GEnie: D.LYONS2 or DAVE.LYONS         CompuServe: 72177,3233
Internet/BITNET:  dlyons@apple.com    UUCP:  ...!ames!apple!dlyons
   
My opinions are my own, not Apple's.