[comp.binaries.apple2] Mad Apple Forth - More Utilities - Part 3 of 3

rat@madnix.UUCP (David Douthitt) (03/21/89)

[Part 3 of 3]

FiLeStArTfIlEsTaRt
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789()
JMAF.UTIL.1     A0XAAAGACA(4AJAgySHA0lQAIsjsA0RAAwQo
rON6(e6XT1jYuOVECEIB6FgEXzu6pcwuTgsg4SBkmqzrCBCWGfii8G6ibBtyCoTY
wu0wIAZB6AHaL5W6ggQYIKNsAZxwnANiEwR6TkQwhuybSAJIFBBsQYlphgQMODop
nWgOAF3O4JFkmQQACjgisJii6EHJj5l7(So6pLg0deBAx0EkA5pJdQKEiCGoetqC
8E82kBZgdXgCOOriGmPinI(IAwVKq6TACDKp(NCsvuqgTa8kZcQACJBbarSKJqEn
4A5JQQQ0zjGhkORiIKCyIEEKmAaQoCriABRU2u(EIFkFPkqjCpJcaJCysSHybb6z
tXgxxhjpGZqMKiAwQCkvRQUAiJZ)6ABs(QVxgAk(Q(Tw1hMfITSoEgy0oZGkVobY
QQEqB9CBnEAmospSQjcNKoJfKJOrVTzw1FTVmiSV1BBNB3GSkQn0Dc(X)Dcq2jCQ
EV4reDBVsbT8skD0WvAeM7bCHkkAotKZQSycNDlbyBJC8YHiGvhaQejYIDh9kHSo
sgA59yUpcWQTRgKiEEABIKsgQBEIJXemBvlbsJ5BKEUBdq2HaQAEBUAjgLvBIIuS
kK0wnY4FJQih75QWGmKAER0hVYoVaAGQekBJNhrQNGiJIuWgV7aJpmGQMHYjD4n3
BUwVAS6QCECcwQJhQa(ZmOcCggIDAq5UkENAXEBiiogVFIYKtBMRgyDIkHMAgAZy
8IJVlLTciQZo0IJIkKcgiMJSgiqTEkOVoQBxkYYRkJZMQqASYy6FkKCDgMpCMJrU
FjDhaCpp2MmAkkUuiocCQVAI1pYtiEpIk0JRylbSDgkCEDGMWhN8Q40ZGDkTEFFg
W2FC4nqdSKAhjwAAO5fQizQCOgsCoc4hEypZDjAMOAmRkvRqLXhbQ6EH2tBXQ4gB
uJcLZxtBhkN8KG0PE2MEBgANnKhM61rvYuecbBmTa2jnYgtSLcnk42M6PXpKbnms
jBhFVrg7C9OnFITqRgcCf3o0DEkjeXHxvVQ2i80FJHH)ne55Rt8xQgHP8gIKRETS
4nuxNsPmgeiiKKOoKA0J8TbQPvu9nDwLyC9GwCk9gooSpCohWRsh3wOmIj45iTwC
LiEe8FCiGEGAzzcGuvDUhAIkYAJCFEKaSC0HLQKYCi5jqBCiigieqJcHzmo4vBOQ
AxyIKMsE6yLqKaiCrTgjNahNEIDRQzMkZAaYBO4bB1iS)GA2YY8h244ojAm6erDD
oMOkw7DEQSgcrgpBCh5SMPPKopNNywwozin0DlDjmIP8ADUiQoksBwt(8eBJJHIZ
YY22)80kDr0RKLTDQNGwITMEsQwAgSv5Czi0P9mKFkDSQNVwDWSRzOFVLVNSqOMV
YNVQ0zezHB10NUTnYocO544gyAfNvZVBXH(s8)PSkhN91BZ6ZqF2PZRdtY6I3QyE
CQJvFkji4QPsNIWupgggiLhWeGcClcPAo7kKhcbyThplDLng)cpMb8WSsoYapgFn
Mm4CgIEe4QanqggoATu5BRhxKEIooDEJtJqSgDhkmoRhIGT3M8nHmIqEhRAipkHA
JHmBEy77kAbeYJSpBtohnfq(oH0nUS2wpRYgB9SZVzO(4wJJkM6q1IVQ2jSaHmCB
F4XoTToACMiO6hBBGkAA79Er(UYdJY8NSXBpHEnFV)RPwtm(o75ugKyBrJxSrXfM
WML(QIySBZLhJEuQQo4KOYIK77atE7x6NGUB4rIgnijCiqWfkIiCJjmnAKn)QcQI
JAAWqhBhXFMgu6rFtWvbLqZ5izRd13pGAiIGSvewAieQshh9215h2)r0bz8ThCYa
lnNvx4vWndo2TrvPBB4hRauMG61IHIaIbIeyYK9JB94YklFAoFkkJIRBQBSASAJg
UgM5YGkIREAFToEZAtdHiABCLkQZAlCECmCIoIaJGCSHSkKQQAcUCWUK4kFUIIC5
K(kIREPTIigEbeBkCkGFEfkYgBjDJwBhFLqgwFjkS0KDLnkkUSkk6QmiRkAhrViF
aVCSWlQNEqAEKXKbXpMxWG0k4RuvYfsFOnVtbmnFWmAxGqwrSUH0KR2te6UtLlDQ
U0y4OHEJMCjwEBHZMYTBcl0MkZoUpJxx60JCXrIk2YjkCV5EerQZn(WGqkHFqjU0
LdlI9jn3QKWWpyJt7nLBbhMOl0X3NFsCvRDtIiTiCW6MELbhBpMH9fDMvfMOvlIL
hjmt)K(IE0GiISjEDFCUBByhBnHNRiQO1ghlJwvcU3vcTdikJwrrFR8HqTGmSQoD
CgKiiBhCEEAWQA3mnggKpgCiuNSCoGkig4pJVEqYuBpQudyIKKseISqIjIAiKiAj
BhQIDBBMEuVDiUs4QRKJO55JyGmAgaalkQoAhAHimlgIEFIAQ6ZKqYi4pzqP5nhp
iKyASruEQsAECzBFPzipLJlgY5GEbiYkvQlJka5QCEIB8hCGwwMcRgaeKu5p1IEY
swz)mQkAvRV9i45pGKimYxWI1TDKKPC2G4fvEQRLM5SG3kClUqWX5gUpJI6GwqAz
NTAFsWOErQCihSXJlADIsrqyVQDEtXBBJpyI1pz5UhYtCpZmJYECEKQHlMkBWdkq
iCSYjdF2SbHC4jZKYAgq2AohjRGpDrUZVCq)qhgtR3fJNyWCGMZHzmjbnpwUW1zi
HJnBZL6edI9m2Zw0yLUmHjHXXFepoHkenhb8BP7CHyFSftguOSAHhmtVQqq4Ewhh
GKkD63ahco1FYXiTfZoqXxcLtvKYOqwlMhSY0jBqJmVDN6cKcAAqU6PT2UCYklad
l8BmkgIWrhDqnEwOM(CEgY(M2wwIoBmySbjjIK6E6q(IfADKoq9M6AxIplMA40Jq
UOyawIkA(1xonIEbQJpIQYUipCgP8ciCka7aahzHfwWL2zElCiyBKKESybQK4PSI
o4lvaBRQsPJmGyMJ93eLpBAQJcmQhG3JS4SzxaIS77zyvUb8PnIAgGkr7uwGd(SN
n(7bypNqkQEEIaaszhiNCuiiDBLOc1(I8aPK8zUFDxt90Dn6shsn12GHpOwHyUtT
1T1f29vvDzeHZU6kG(wswB7PEcE2(FvHw9TciABizFkI3nhzEnHn6qZQwGqMs5DR
)KMlVHysCChmIxSiUZyREFESDCJLBzTzCOcCAg0WGa7FHRI8CphPgQKEqCQBRAoZ
xCY0ALpQIofB42jBgAUieAMGKkSGIiUVA4JdQ2iAEkA6FEIBBROLGqeBgDTgPnQA
BE0Emgk6SPGgY41gWlxw3AI4IECBCDDfkrzB64DhUrkAkQqpFCXphhJTopF0dTCR
)kIxCwlABd()G76CwE0RUqkwqUINiEOCUTNWobGY59JgJNFcbgIUFM1VMAfKBjCg
igI0RIIBgcKiIn0BDBdq1iwJnhAYGCq82gtZSF0Iqohk0DUinYKNTiEUQG9CCreE
kQysbYIcfIMGAJcUSg0mxzhbkofE7qjYIAW)CB4UXjLRQoChLgQ4nvVI(cPHhgRF
axUSdmySPoMc1UmQItEjiAk(G6kS7rIpSKUuSSqxPD)8UAwfHBRZIWMtWCOTBKkv
yODKqnUBdFSUOdOAieE)v6uX0znn290EdtcCDBqgUMgVQTECuOmP0ICJAhKGECPm
BySIb3vno21ZpIM4HFKZhm5Ow50BOx3kyYHVAxJSECmhEQGIt7BB)lTCO8bV3ReC
CgLIjfPIKAGEDZ4cLEJyCCARBURqgsDJAI2J(Q75K0Y8Ih9QAREk645OGQQF8kAQ
iKcdByDLCZQKk4HyoWZaaFuZCIsRyJyzGU(AAhSASFJDQkYp0VkJYgCgIsABc(kI
RmPFIQgAwWEJBNAbIQg4k(0ICEEULYkQABEEBiFxEDmUCSVKyHKOEnA82MlIIDle
IGC0iVFgBQJLJXsoT1gJhQFbVg0g5tAKihEgUQABGWlJRFALUmMhl(gI6EIPTgos
2sDEIAlcPIeUDGwiJ1DFTJa09kCqShp7PQm8s(UnSHJFKOi0sNUHolqFPQkE3ECE
8ggnIADukKEGCxByfFvsoqCEMZhQLbAWGxElJwOtIWjIKDCE4ntOhLTgyACvs7(b
KM(dbZb0Z50qTqaRDRzJ4ZsxWrm9BlWr4BFaRQSJF8zFbHpGTKuoHSjKyzBpTqgY
Bx9ypAN(yBuePpysKBhtpPTRvO1rpW9oSqAcg56JYmgIrqJ4kyoI3IMK4oYIZnoI
gDBQmYprIaM3gDUAf2bYiAkrARYCK4EqAYW)NWYYQgEXCKiijIGoSopAor6CqBjB
CIxwgiqGaJxgokAyiDpgaJyKABFea4NmBcgwKidnS8RCsKwIwW4JDsYKoo9M(5ZA
ILHD40pI3qokuytcqDBKwEo8EUBBGMQgwRYHTlAglIikidTDPMcoRqSwBpTJDDBs
oC1zPYqYtuxLeMtMgokeKZDIB2UQCPJYmCxBIICuwCEvQED1iJCZGBxPJhEUKerJ
67TQMsB7ia8v1U7KrUBKWVSiPg7gGVJrhEUJc2qKwqUNu1IGMWYB6CPeInoKhAso
qQDzIfztpMEyAwEEoGFtINLxcghBTPzyiVVTKsVaCoXbes4Jmu4ETkGUyyVbrtAm
HtFLhEUPMUIIyckgOOetSporjumuQBkjUGLqUNsHmg6UbbP7dmEc0x1trL(bhAVs
Hy2I8bTuCeEIIJED)eQoFksEAnYESNiUygQrB9XCKION0IhIYMiYPtv(LEzQi6O7
sZawXcSEzLYOfOXwcZPHKxqGWuqQNxH8dZJNGiO2DDvrL6V(YSX)okNXGSBdwAzz
EpAl3w7Yn6pOlJic2alKoAkrWRIzMvKYkaLv7vYCcaO6tRYTTEq0EgK3kHSp7AVA
Iud1B1jhFtFD6lmFN4M)tBRRnkgwyzdh9qT4)QC9hNeaoYCiEh6sbRVKNSYI7CiX
JUEdo00gdkxiaYjAIwdb3F5iqkNNbfxL9VIqQ(SkFiWiWbrFY1JZXjlNhBoQYswo
xh83)G0RJxd7M6RU3Ypb3Qh6gzZ3P9KrUNWRhMotzgw9nrdzq6fDudG5UHxoMdy7
YJMeXOOGPCfqjPfJRBASBIIs9BvFfm4jH1vAmAgqQlgpEMJ4viYEQIQBiKwN8cWi
z(D2DaASgy(I1iHa0MBQiUA0(DOMRKupkXq3EVhV2gQIPlC4q0QtIltpX4DDIlYk
I2mTMqt88IBLBALEBIgBACFIlKCGhMhSorITwjFGUIMYQA02EIFQRQ8SakwCkgFR
ngAI0pZQCEPfWsIRYAUKEKeSfgICApKRigQiQERiCJGIRFUAQcsSwLGITJOLBqox
eKSIkZG2fCFwAaGIToKORQJhmAIICFXBjEJS6fALyJMYj4UC4j4VCkBvVQkR6EsX
VmVwh8YiUg4TjiQinUhaIJIUEKVmWuASQdKZxFR(rQZxGYXQEyhHQ8w4GpVQTzHP
QgQhKPnnZGDBqgAMCcOFT0bEI(oRS5fHkIcSnQ5pqG9OTIXLrsNy3hGSRnN7fS1d
EoIUTKYopgIIc5JScycSUQMYHEao7IVYoPfyT50VlHHBiQRimr2UELETmnQyet1K
kyr)MbBSkY4U)7X8DgYNoLGb4dyuJsCGrQcxrnowCDmiQCNtJKAqD5zHIGcThgtB
GKypiGKAAiKJpEabiiqo0KCii4KGKZjhOmK6BBrZyZCttu2SUTwlNM0qozYdB(xH
HFOBcMYIigs0AwzgBAAM8D02QhzCDGMIWMhBQiIXCKUoBEAw8D02QhzCDGMIWMhB
wjIXQowH0CbTlICIiUZiAKlUFICGRsAhSVCERgItZME5EI1UlAG5gUMSUgpQlGQA
qMhoAGEGkJFImIJSEgZQDGKNWQppEw5TDDBHbKJaEMUO0CNFQgg5(JwOToFKjERq
4E2URpdhBggKi1qYUqV1iMdyA51UkJXCHioJsBkTAEyaQoEhcTmKkGFAqIRSMwGI
YynLEHGscGUWjqIKnsVh88FcEJYH9O85G8ffYwvXc0ABjvhj50HQ6y984F0aDrGK
4ut8fvzmXvc1RD8bXHRqYsMEb0QsHrFIz0Tfdyu8k4aLFIUICAcSEgWMZ0zjqTnu
EgLSDCCJInOe8cY3TIVaxTp7spWMU91RpsXPDWs76qIYWcPOhAvWA4DIBYALACFI
lKIapERBUwaSiJQknMBykCEVCaA2Q4Qh0CGNFKAGGiYCAp5TkJVkuQhy0iIIEKJu
kUBCQZHIREHFOa0hKGkHSkGJWqUpgGpLikAlbUEx2ZjNwhO)pk8Z2(3HzlBfYUs5
oQ2M1gS9dqEKW95IRoXLisYSQFpIjDCF0igBaLSS2GPyxydSeq8I1ufT72db8D2N
0gUjrgwLoG6eWHcBIydLMI2NRsnxFrVMb3RfjxShLGucQ5JRCKfmnIRSCKQRiJAc
BswWymiEYsP8RsAhgLII00krpUcxoC6Ta0uZVrgdkY5UE5fEoMUI804CEKRkHKpS
kF0EZ3Lon4mN3v7uzisvWUJCQFKwwCCJkTMf0E0yCgwXjQhu8gKIYHSAoqGNAOns
ut7u38wkowlo4uoABpNKgKCo16IAgYYKWjQqCuJTyWoigA0OIbqGKMojIsRvjwwi
HGoA7pV1fQQDoDKRLIBBFjAJEQVGcoQYsh(pKmsCGHzey6yjNkQMIKxPGliQ4ENa
QaliRQKbBKNKqKCRJ7GEaiioaYQIttrJb2SrF2MxSihhHDbQgIPK4vhBJk(SI5ni
3SgAoBGXCiiCIKKGc3uLbjgEtuE)KpoQ4IyeggmipAbUhq5xPOByHJAp0nXJXgUE
BszsCF8RFFxMQhJEQ0DVSCpW9STS3(wWYoGGgkK6UBjjApoCzGKid5h2UdQdBA)W
jcgyHjEf4uoCKRNkhPa6r5TBo4czIFqUkfgAhPAzJJk2I02OzILmICcY2iLa2GoN
2YTrVTMEb4C7I0I37O3BddzQj4Y4LOoKWgKmzWiTbPZhFw7F2J6lht6JBpXzdjFE
tdMcG6NOXyT4xrmYDsSHzEnGwMkUCw5V11BzJRN1qnSIUIFYyRVw1xE5JRP3QhEE
(lctoWarBBjBFNfngm6jSdIKY32FFblZAGIBtN2VaZtYBpRKwl81XPrhrtnJKiVI
WBieOBhQBL0IkWTZUszLxYDO5FL7ItCWUUGGkg4eCigmwpYCFgMugh66Q8k4RCic
lhFRWnYNEpA1nwWFCYMxJKxNSDm2AHbtKa225DMepSnW7OTtOafGP((yYuGBzpsL
zUX3IgkiU)ev1tsAZMthqt3HQEkNVrWocYPHjta0EIhSILbIigwrCTKdeWSBJKMQ
byA7kEqYTIgSwF(SOFEXVGFsiWAbKPShBn0gY7AHHR64RpHqTWwKW9Aqggk9SzD)
cgj(xD9WECiiOV9CJAogz8NTmgV1hVDoYjQqgEgAoAIUKXmAgcyEhgjkLQgUJZCC
pAlpEVgIxAxCJAEQIQqcbTBiYwHQFGtUNBBCkjDsALVECYhtQgPQFKXEuAhD0BEs
gEj4kkCiUwbQEIAkQpSkA7saKHXWFFixAatQKNf8BgCEpYxdiQvuQxSlNoDPEXhA
dApjEbqbHJpEShiR4BoRJUCCukrjhSCqnTqwNdCkZaB4kWiMUtBi5JRqkdpMJtBS
UpOcEXBGIicjQyaQkWDrT8BjRRTpJRIGPMiQxSwiKEp4OJikgppQJQu8ygh1m6oB
GInE2o7kWMgGLgJTwpKCF4Z5g5UYseykhI1foR8uucekVQBr6QqwReIkF5(Gto5(
24BC5yAYqNZ8OdMiP953qP4HNhIFniMQEJRYu6JUH(Kaga6kQsj6hAnq6TBJI(6(
63JAoAkjpgGgOBZwiALaC)HACQwDQRUPMBRQK8IEYrXoPQCIiiHjISqIvIECw74J
mkw7hANiqiBJiKImYhBkkUcwIAljDJwwEAoc6qG3mk4LSyFgQDph64Qckq3jrQAC
iApg4CSiEywGLUlLYAYqJAgpC6AB58u6oyl1gwsgoIh5IKCCoiGqqh2jTSKriigh
O0rCEkguaIy1isICUhhh(PBzEGvwoVjPXrQUvjCQuWbMOPHjEzulY(0UtKpPG2sP
hIBLizX)SlKE0DYQMLiRI6msLs0JTUQ6nq)QB911YVD8AcHYBIwQ8D02QhzCDGMI
(PhBCGwQts4SA6bLEIOSqUhSGLQKEIFQeA0SgCkOkIFWQowSsFkIAEyakABxkRaQ
CFNBXGpCmPQMFIFIqski4ipUjFNBQEho8QKRklR8kApyaOQDkJMKkGhSG8XPEGbB
kGFq6kpSlobhqiAY6HrVUJAHvSB6m4YSiqQXQMV6uJwXEKOKQwFSe0Pf3xfD1A0R
SS0JClANQsgRDaxJQHBCRsQhE7KIxLEdQgISWeEKknJPiUZrI9JbkLUKPAkcAS6Q
0zIungQCAi6T6LKMdHBSi1koQ1hjp0OB47YV7KqngE5J4qIVEKPGMHZCggaSUFeA
QMhiEQkNEAE5sAWNePQ2kjsYiUZy0coscoYvVTpCoa6UCmnnQc0ohKAQeeqClgCu
bRGnZCYSJDuWgpxJvsKqaKwojiYgQipgCMCMAFokD0wAE7YwOTqBgcMQJK6KLYC7
aXAiuOPNQ98sAFrKDoU3UTb4NtmV6ABP20GiwiIzdfTDCPJe(Y(t4IGp6wcKlnrL
iPommieu66(qbL7KvvrrvuhwOHCvh(ySDCwGoEQBBxAQJTsEgISk5yDmKSkUTBCw
5JFEJKiANsyEAJ4IKRmY1gxixyDnGMoggQBiMSAQFXSMMAhNBTBkHKp8Tpojpyjh
lWkQOIIQQU7tEJB4GtxikQBQkKkABZClUyLmGMcMgACCxABjENgA0c5jlQikKUgU
JpBi8ybfEbRIOVqVErFmjUEKOlZF4qpXJR8W7wpy45(emdeCzZB48IyMnMVgyAxT
4AoWJRaUh4pks5mXrBDiIEy3YA4QFKMDt4ZYlJEnEkhMReM4(e1J0IEDD9SaQoLH
wJeAIor4sw4mzWsMgA9EW6mJ3RoUWcp7mfpc1hVf9BBV)TRiIFZrQlikJTAmKwl4
FJCdHDmhtlncQtIQktiHIAH6MRIRhClilEjki94RkEEoAhmkZcayJonWkmuA70w2
QI4JW8rICBkpa7JrOOMewYuM6kjDuil3MHYOCG0AIoI33(jgwhKoAxyMGEKmipbG
cAaQBKAtIdZhGKAIQrGHhQQEBAoYnFyBGGEg832IYYY0RTOdqtxRIzAhcwGpkegI
hRgor9RBGrMYQJHItgkUTDRaohRLHFJqM3sMqgsEoRUwlJDzEIJ6c1ONhg0sTxc4
1bjzGGD9FDwGgw08SDRhCixREEB3dJgEHxENBgYYjvjyLHF58pvGlOFdzWJFkUvB
THT7NKRG0a08h0IMD2DCGICIYHUQBYoBBRIkhFySHFMuksYPjg1ECRS1SEwVRLQD
M1HVjElchWgnlLETMFEhotlHfeQwOPPhKSCimIOIyouKoKjChCssCJqhJ(MeaqH(
HG6rpIkIi4LoCDLn690ChMQiSBKYGmBSMHP(tllg)YokRV6URuRYHGikAl2YdddN
iyZ9IqSiliOOi72OiI8VQTLKArCCKwkYKYgIfFiwqwbvIacJJGBawSwlVkaIpvna
1x5Assqd4wGEyimEBJAz6diimjrym5GzaUc0aSggImhalCvrGiZAqKDTag(W5FbC
JGmPIIrIXQoGuLGZ(Mya0y06C5V01uVoHBOQTonXehuWqJy(ngYgiiqho6biJGDU
ow5JAuoqphLQYfDjgOEIgh5JAeoajiWQQfeQK0eZYD0rCUi4dgih7S9OoHEEyVQ0
eYdfiBOQlad940KYQ(L3PQYHdeOawNbN3J2BAN61hvQ3NediB5N91LA0IBdK6www
jgBQKnDj4HEAy1RPk07KvulVeDRPKgKCUtD8244oDhC4MDhDNOOkYCkNtv)INAWg
DgcZEAECEOjgh3QodM8mHCk0BAaMIPCBeG1U1PJMAMQ7AAAAAAAAAAAAAAAAAAAA
AM4l
-- 
======== David Douthitt :::: Madison, WI :::: The Stainless Steel Rat ========
FidoNet: 1:121/2 ::::: WittiNet: "Curiouser and curiouser, said Alice." ::::::
UseNet:  ...{rutgers|ucbvax|harvard}!uwvax!astroatc!nicmad!madnix!rat
ArpaNet: madnix!rat@cs.wisc.edu        {decvax|att}!