[comp.binaries.apple2] Double Hi Resolution Ampersand Utilities

ST6934@SIUCVMB.BITNET (01/01/91)

This message was originally submitted by ST6934@SIUCVMB to the APPLE2-L list at
BROWNVM. If you simply forward it back to the list, it will be distributed with
the paragraph you are now reading  being automatically removed. If you edit the
contributions you receive into a digest, you will need to remove this paragraph
before mailing  the result to the  list. Finally, if you  need more information
from the author of this message, you should be able to do so by simply replying
to this note.

----------------- Message requiring your approval (163 lines) -----------------
This is something I got from America On-Line some time ago and thought those
without GS's could find use for it.  Those with GS's may use it or keep as
a collector's item.  A location for source code is included.  I haven't
checked it out yet.
FiLeStArTfIlEsTaRt
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789()
LDHR.AMPS.ACU   Awh5AAAABA(4QIAg0yJAS5gLWIisAwh5AMLe
BAABaZGAr5WaAYTAAAAAAAAAA0NAAAwAA4PHAAAAAAgDAAAAdDAAAAwDEAw4AAAA
AAAAAIAAAAAAZIGAiDAARIjrW4a9AYwBElT(ExkQUN0TAIAAEAQAAMAAF8)3AcAA
JAgBAgAAKAwC)rJAOAADA0AAPAAE)vIAS8PkAEBAT8vnAQBAM(fjAUx)WCgF)f5)
T(fkAcx)YAQG)vJAcAgGAsBAd8Pn)rIAgAgHA8BAhAgI))IAk8vkAMCAICQJAYy)
d(fmAcy)o8vh)jJAR)v8Aky)qAwK)7LAtAAL)vKAuAwLAADA2(vuAEz)wCgMAQz)
JCwM)36)1AgN)HLA38Pr))GA4AQO)7MA68vqAsDAP))uAwz)T)fv)f4)3CQPA4z)
A9vyA8DABBgQ)PLAD9fy)TJAy(Pv)z))ZDAR)f8)N)fxAY0)4(vxAU0)Q)fu)X5)
n)v1)f9)IBwR)LNAo()r)b6)J9fh)3NAY))y)T7)LBATA0EAMDgSA40)QBwTAEFA
IDgUAM1)1(P8)f6)t)vw)v9)p(v3)X))g)v7()))j)v9Oyw)cf5ZoJHlL(nz53U4
sXcuMY)tATjaXHxn75VUbdsBrTZrxCCDZMmsfPLrpn)qa35IUm)j0Y3Yelnq)TbO
NKfayivRmp7kXZ8P)bi(DVYRPqxtavv9rcuWKzQ55f)iNTED7(E7mZ7ztHx3X7L0
tm6q1x6juLlvQz7o5eJlqDnz)ucYBvfEaPkOdPtqt9lff64t(x8WHm)Co9pnz38R
WFqyPHW74SFagu(dPXTFad4KV8YtdT2Y9K8pTK)WT5e0yx787VFq7lOPpMlEnB7t
crCNwV3uP8NtnvNm6OOrbNYOs45VNIPPCar)H9mJVPEt3vn5F2XmGKHl8IBa9sf2
mBfsV09R1ZQ6nIVdbHl2ZeGrM8l8SxwlRp9Jyx783wCW7omgX5pa1dqDndDXKvOc
HV4kJFuv2bx)0aEjmX9Q5d)e7dvsVwo48qpF1JUHqSnheS79zfXJnPkFPYdxbUeJ
QnkotHBZ5XLU82n3KfR27QkF(2GV5(5dMnB6KJkvCOTO8miWJPqcJGx2CbeShIu)
eOPesX3I5)Q(DVXusPCtVsMxEV5iaDykuMW)m2Fhenc4Zm471SQfqLpsEnODn1aP
82dyL1Th30VYjIHvqFq27378WSBqwX6LRkOl9JQTfLixtPh7xvDCq(lZd8f00Mfq
jtb(yxr6bn8oI1fk3gWn894P4Y0s)7pnGWOeQ2rsHnlzGMXd8z))57xLYVuBi(z2
tDRSXEj)NrqgT6(9jmRndCW)2Cp28luqbh0ZbrbdMfw7zPV7YJHv)eILJDar8Hy2
rt5eRcsZdP6P(K1VtJZIOEdHSt5k)bjjfZXLfaDvqJYNY6usc)qOkLs)SvSLM48u
p)gN5Iph)0DEP5Q03AtfPl7X7Qk62xI)lXyHkR6GtHx3ZQOUdnJyMMcjtusVDTJG
XvXrdxVc8o2xIMujvqDL95D37X58LeDXoGd2vGhpyjG3)jgdaau3hma2DxHpelAN
IFfubn8pr8c8Bxp8ke3)kPtzl7w73uSxz38TOFmyR0vyhrE1NtRlI5o3XIDTOSyK
8KBaJPqc0Hy2eO4OHh2nlsxPrsR5faD78ouR11fuDLHvnPFJ2uRlSAC9cj5koJHl
L(nzveR3NeWzEA7Pf586gMJRxGm2M0EHJ6vU9EXeB)p72m2(2Z2JzPNlPXzHZe4K
3m86Ie2(LFoJ5okb)eONL0Shae9LrkjSSLrVnI1PyHn2Py7y4LXxZTr8kH9b2hY7
oEDZM(dKOoNovvZVJfe3J(u3DRbR6)teyXyMwn4Es9Pzmg4M)7Zg0WUune5wk7Xz
ORqF2PGtO9Fufbm35ca4NJhV7(ngnicrL(XzveR3hcWzyB))UmarR75w4aHiJXed
fPiwvvNE(g8Zurto9b)HE4w6s(l0lNI1aj3zprcLf6ZgxOHanrpkbNWl2h4Z6)NS
yXyMJl4EF3soiSx22oaHPt73dIqdf1xZP)M8RK()7b0b1CQ)LHy93ZAkHiGuShKH
kyeOzSoNOrq7neRId52Cdcaqa37QDswuaqKWdWDVl9GjdGX)Gi171uqhcOWMHimL
uHPqW(PH2tYYOqBi7qt2DUxifviateaql52POnf1hoNAMo6B31HoasIEWRtBdIq4
rfQ7WHNjtU1q3Fi2123((pT37Hjb7zeL1x6hOLlv4HMI6seHVeAWtemmGkuGB29k
)4MwdtLE3(8x9y2MEpF3yfxuj)3jnrFyMU(K9jgE(oEb7PjEUqGC2LWuTkaH1CZ7
KflzZRffWslDSd1mikBzgXW8u0WErxFvQVuKo6eub(0LjgR)JfbfuCl761KpmPAB
dOixYEcdn1XbxJSf25zrRuCr2lP(7LHv39Deez3XR9E5E1iyjcbyzFv2vl9iulcE
v2hvKDB3HiCj4))no5fmHh1PAszUV2SV350w103(RYd2biV7LOn8x(W2I2O5ziud
JmNHKdhNMfjyDRrT7X)wpBjUiJ59EfPWj4MzBzZpyPdRewh7GqVOLMC3dlZQ9tg)
6Okl1pdIEVnt8S9OPu(aD1CHBcftj)YyioEmnob2mB0zSAMjUML2S8nnPD6hSxjc
clhyv3CNRHuzjXKc5lNMxYf5c0wc7NegRDR5fKk5)Bd5Kjj(R(gm88PekcU(iqz2
3YSHtxRp8sl)Svf6iIbzTVxvbU55t9o8j4bzzFv2vl9i0)folxREvfQzL6(5TW0b
VO(t7f82ivfueh)40SUOnBduUFRuRRc7wzn1(6ufotI(rzmErbHiFnL(QeL72gob
fYyFOkF9Ca5eoUJlPN)xoxs4K9xvQu)GTw)fSKy827YXqW3gHqiW1QVnrxbnWu6K
wceI16taqla9QHnOjCaOubvtdavgjjr2OEnjUV9a33e3IuelZhudzqtSfDx7k(7u
uV5GkOPV3s07fT7awx4VBK64TFfwxMXbpw4(1ZdZHi2ip0Uy)v5RuYmFrh8r7(Nt
mF(HQcOX1O(giZu2iySX2XWHm45wUFpGnfOo7TrZeWEKHTeguNjbKA6zeW889cYf
(E6oTWh1)scQeo863ivUxwmsw(4syxL6r5)IKC6zXwMS5l9mnRusNLqdm)ZhGXOe
lJg7)Xi1rf6HaQ891df7GH(Gy1b8BPJW2ma8XgVuHh2iMPKtTjtfSMCRzHdjWGzU
(t0J7dBzo1t94d9vNvBh1diSgP8zmrtvQ0lYfBT73lN7ynFP7f7YcN8xz3HCovfl
233PwpKDKIZJ55fd1b9)H1HmiNKtyPGLPZR)rxvl(2IR9pc(z8tUCLKqyvVvns)s
19Zc3jfsd8nd9so5062(Pu63oPOchYIoHbwFmr9ps0lYX3hoD5)YgfWkWfu7YHZD
eLeTnNr7TWMUN9TJdpsF521Zg68J2hIvsGNu9YNd(q)TaPDdOe87iOOcrKVr13mY
8CnYctNV2)CmZAjQ06Ep(n9484xvjIfWmBV3px(PxGioFB1ZaPMtXWo6Mb8au3tj
Mb9HhJXhcV33Q5WkIe3VLOMdMYfuuAlqOuL7NI9Kr4QF9vvRwxIeyY8MqSK5qrdx
4Bex5arqs)FMmBVhfS)PjejPafS3FQWUvOgJZQMZZ8u8tHBVI5GuHhWnUWRkz)Q2
E5exw2uEhrntxoZ5Z8(s3GGV1c4(v0g02)B57YDjy4Y0LkR)Mr3)QcG7u9dJs(Bt
c4(8p6o10qFr27(QZp3(h(p8L4Hz8cY(pkUscT)LjZiPz9UYaTCr)(czLWWl52Zm
unM69R8nnlkodIqdbZ3)b(Uk(Zx)CNrmXJY25RjbGryOJTm8kj4vrnZa6)H00fDS
4aPZ)(9rnyh)Ef)6p)vQr)048cX2vKfWbTVEcZW4PBx505r(Yl7QDLHvxGLfiTzZ
6f4brfFWufoCyeb(zGDbKtzMgcWkbHb(BtBjdldNQ1OEnWgbEf)6bUp4MT3jcv5F
(xsoRl9iDwjid)YySzhZuGdDS98o87IkZw(ELdSjOQlftHx3ncOMd)s3p(3FH0uH
OQ16HiTu18eLOFzxUrGnVtOOt39hyW)9D(D5IhVyZT5NIF)bMnzRjs7FXQfg3Y(T
cs0stPxsr)BUh3laf1D0Q5u(qDmtDLHvRELf5zinyA2zFQG8mHr0mxfyjkodVTdd
SJ6xf4WTQH7kEp)fc7)O1BStr3hoddX(wOTNknyZi0)2EFpH648OHlv)I1TOHjWn
d5veRvzJ(Xijp7RsvlNl2UNBhO3FbPC3s4pOg9c(ybhMil3DeJ1kJzIaTjNWNINH
9so5P5w(uCqVTahPZg(tbbO732TcnNeX5ju(obXiM1XuSIixfBT594I7WU(o8(F2
IfX2b06z2loI7TLZOmGr2lI1ffOrUFR9Yy12PXEvn9JItj9(autObcYfOUnxg0dI
ynFPuqzkCdK5OWZHB6ZRudM5170MY9Da(n)xf0nrffrdOLy1RI29ilfisu1ko5Ya
Yp)hKs(V57(hndn0dzRxUuGCuu)C0p446q7gbQ6QXgiXH3l9GmeFVcoCzitVZ7BF
sGi1x(wVP7v5DS3j5xNoajqVmDlVeOMw3if08p423yv2cCjRUML2u(HBp0V5I9(s
HhWnuffzGm(Lf13JWlluWmISR462I7V7)x7Pi8SEp33ysoeQb55T2fBKOfcXpaxb
l824zHrx075GmlefDafj9Zcd4p21fU9rYLnpBQqMl22Fngx43Zpm7C75C5d)Dd7k
2okyYS6rdS4MTMPmuf(7I(7i9FoJyC5)pmtk54Vep9PtI0s8Y2PtKd0iLOYOdXup
qyTOon(VhoLRRHp2iOu73lXaq)oDodcaHd43huNVC(7zWBRuQODybnK184COLI3m
uX88U6IzEpuQGryOJTm8QZ0v6ecbht7JCZuLkLLe352xSgWh2bJrhqkQPxiYLyvl
2mV2uNNx5vTMs3Xzo1YG)E5hLdCksXs)ytDR8v)iWdX28vDRzP3MkLbeOx8XfOMt
jTpxD57zbRbZjw)hvFv25XxtvlPtJTW8jQ1vtDR3XPHKLdigsXs)euDRfG36ut)P
s(BtW97UyM9TMRG5DhUbD2UZ(1905F9b9YY5SOyVR3Rb)0hb9j5tPpvFrn1H8WKf
3JNKOy(muH9mQ4(seRvn06Epde5w7XD1m)TI874UDlNP)AsntPhs3oKGNnEXRp88
v4euczPNdwBPpH1hhLMshPOOj7mttSHONWFcFMIdCa5exTjcReBvGuOrI42Vg4aZ
dIad)O(12LH85jOWakXOfat(HlNmyjGWZhkdVaeyGMHFvnU4EpeRtS2OyV58rjzn
VwMoG9(sH1GUbmr)(qQXuSK7y8Y2(y8Vnt1YUbHic8KPafpTU2HcQDbLQ3O5retv
P3aq4ziSo5oYn)7R)Lp1Snm4Gd7dH2GUe1r991WTxwly564(EsJsdG5cSeIaV0o8
YZhyFiCHw3ddh3gyF9eS7Qk616CnUqf42LWunPVH2uRlGAG9nFb(rQbKc)qH)KLe
m9Q3sUHMHJNPOE)(AAw)HBAAAAQIDAAAAAAAAAAADADAjDAAAwPAAgQAAAAAAAgA
AAAAAMAMuGOA1DAAHYhrtDQDIRkMFJVSD5yUPx0TnMlUAUACxAisDBiNPx0TEBiU
CV1TgUETTVkUPNEIS9ETIdFIMVURIEDArCgCxATMJBAMA8ACDBisDJVSgUETCV1U
V9kUOlEVgBQRAQBCwglqwgF0Y1EywklOwkF0Z1EyI4GABCQGQj1QSFMMAETyegwg
DpKAaDdWKLFKDlsUDpMWAkCWjgQkQpKADBNWDhMWmCAWAgCCPR0rYVMVQlMMZxCW
DlMM8CQWA0CCJx0rBXkTJDDWsgFUIDTWAk1QygQ0E9KAFT1TIDDWsgFUJDTWAk1Q
3gw5M9KAF5USwgVwYBFywkFLZNEyI0OACCAPIMPAxCQQJwAAyOA6B1EIg4USPJFU
BJ1RTBSTSFEVpAAVDIfCocuu7kCNSJkIg4UVJhERTVkUVNlLiMlQJgDAvOA)6cER
SJ0rINVVJcEAqSgBQDDWZpDMwANMJoFAqSAEQj1QQn1QQjFUQjVUqBAMEoRCDBis
T50TOFEVAMFVkkAfYNFB3ID0ZNlOzED0AUjLukAkYREBKPD06g1UQnFRTp8MiCQW
EgTCQjVT1cjMYZkO1UD0zCQNEIUCQnVT6YTOQnlRxkTMJYMAyeA0SREIgcVQSl0Q
Fx0QVDwUHodCwglq6AD0QDTWhDAMHQeCVh0rxAdRrDAMH4eCQLlqAgFR4nw8yA7B
CAAMIIgCwglq6AD0QDTWOAAMIwgCVh0rxAdRYAQNIYhCQLlqAkFRgoAIyALC3AAM
LgrCEBisXFkUPNEIS9ETINEITBVSKMEABugwxAdSyETwKAFAHuAzOxyQOxCWeBQW
LYtCwglqY5E0YRkyKwGAquA4QDTWKnlTAkFRqrgdSp6CZNF0KEIAvuA9FVFSAME0
(rQiyA7CPCAMMggCoCggnAhCEBisBRVQPNEIS9ETOBCLgwCWAklT8oAygMIKwwSM
y0CLsgDLsITLywCMsIDL0wCMsADLDAgMoA6C5Aygx0CL3AjLx0CL3AjLsMDLw4SM
twyNw4SMxwyNtwiMw4SMxwyN3AjLsYDLw4SMxwyN3AjLL4CADmCBxEDIsADL54SL
xwSNtwyM1kjLsADLuwyNsUTOxwCMwwCN54CLAAQNAoAAAAAAAQW7AAAAAAABAAAA
8AAAAAABGAw4gBAAAAAAAIAAAAAAEwDAhDAAAAgrW4a9AswBE1taSlESuMVRCV1U
4k6UDYfjNCWqgNw9dfGInLFImGFpCAMUQbAkwAuGGaBs7To(gwSqg4NwgbO(GALw
6bqigtPp2bOTOCgogCWcy1LAbAPYw)fy4GNCIfA0vDN6enMTy1L66DNYx5O6eDNY
ZjJIgFnDgFnrg1Zvc2LSghEYHREANdEAFR0TVhEAAAdRU9ERMBQxF5USQBQwA4UR
VJlQAg0UHtkQAQkTgt6)aA2qhlcYCJG9hdUYpC2ymXIIAfVrALVrADVrALQrATQr
AHQjA3QjA7VrwDQqkXqAlyRh7Xo5ECAocUq(iyfhppQA8XJAEAO6taPklCcV6H5)
9XKyIrfkmTP07X6(Q)RKmXK7tufhlCMV6HJ)(XKyIrfkmTP07X6(Q)RKgAG7laO(
)my6KuehleAEAlw6KuehF(QKKoA5FogCkXI5KkRpq4RphdLTFCQqpCW7tXIgiXIY
ECuhnUY4FCcKKpkJFaSBnUqJKogCKciJKciJlaiZfkyJFaeBAr4JWAPAwHAwIBqB
QCQajAqCQOQaHBKB4MQaHkOyEuPseYkHqmhZ3CCmtTSY9qAMFOmLAkq7g9ehjVTv
96ehFOGPYA27pMQali6AcUI5FADiAkmCgZPkgtAIh1EIJ7RpBAJKZQCYNWAMQAcV
U14AeQKwk4epGA36RxRpuXiJRaSUtTiJgFAMwkBJU1YBKABwAXVjoAMygKAkvXKA
wtOJcUaCAkmClYSUmE17gZSknUKGkVCLGQC0cArJkNCLpVA8wizHjkGFleShwmmJ
pJAsmUI8weSpfkmApZiZnUI)liBYEk2JkVCLGAC0YApJYAeakRCLlKB8QlmJwDfS
wnkAlaShCAp5mBeanUoJeQKYQ0OJuX6DkZCLK0A8q9uRuXoSuXKY4DtSQkBJZYEB
4gAEImhZgKAEHk6Jp(ehuXIQl6BhQqEHAmgAgxRhl6BpKog7K9uJFOA8FCm7tTy7
pSAECA9DkEQqFATGZYGOGlAMAjcGCAJKFCAoeQo7KwRpFCQagAGHFC2C4oo(FCe5
ljJ)9XY4wyehpiTD8XOApyfh9XOAl2fhljj((Xo4FCQqGA7)(XOOY4fhlyuZiXo(
ECuh9Xa4lyH0FAN)Q7fxFDWAvBr)AkKOq6f5pDQq5XIAmwvBliT)(XO)lqfhAke)
4sfhlrfp(Xo)pvfp)XIAwwOJhASBDAtYiJFIQsPJliBE8Xm(lqfh9X2(MtfhYMGq
lpfp6Xo)ltfp7X4)QxOJ)BiBoykY9CyYXDiYQjeY5bOwgxL0AkKOqyf5lDQq5XY)
m4vBliz)8Xu)lqfh9X()4sfhlrfp8XI)lvfp9XY)QxOJ)BiBqzkY9CyY7TiYYABE
lpfp6Xo)ltfp7X4)khBT6XKGFyfZ7Xq(F2fZsTy(gYAMMJWIgQGGgImUoH21m)L0
7Cd(EMAYBAPHIQgAABCE84xDgBHeAAAQBAAAAcwAAAAAA4XtAAAAAAwAAAAA4AAA
AAwA8Dw4IEAAAAAAAIAAAAAADgDA1DAACYhrW4a9AwwBEZ8JSlESuMVRCV1QVMVR
AoACzAisgQULCV1QEBSRP1URIIDA6Cgb0gy5isTKVJlQEBiTSlESuMVRCV1UAIyU
4hgTgILABJFRCByVLNUQPJ1RE5UVJxEITVkTIMGAvCgg6cERVh0rxAdRvqTNOVEU
IMHABCAjxANW2UTw0cMMACAMAYJCPR0rYVMVAADLgiAkM9KAF5USsgVwxkTMIYJA
CCgqIEKAvCAtVJlQAg0U(igtgILABJFRGByVFZVSPJFIAM1VIjgwYFIAwAtWAQTw
SjA3gILAV9kRDBiUFJUVJByUBBiTPJFIoDwVAwNCalVgBDD0)DwMAYOCQBisJN1T
PlEVPBiTDBiRFJUVJMBAqCA8QDDWKrFWIDDOKrVWAADN6nAJZpKAyANMZhMM0osW
4AAMBQQCsM0hFxCRgIrOM90QTJ1TJYEAtGgD5E9QzQcOAADMYkwU64aAsM0hFxCR
JsGAyGgIFxEIgQlRSFEUPBCVDBiRFJUVJYHABGALwAdSAkTw2kwhKpaAInE0LpTS
IrE0aCgSBAUCQjlqIDDWZpzSwkF0AkUyKlQpI9aAQXUVyCwQBQVCPR0rYVMVAkFL
elgwM9aAF5USsgVwKhcWJ0MAvGAaFVFSAQE0ylA4M9aAF5USsgVwKhcWwMDyJYOA
CGAfJQPAqGghQDDWIDDWAADNQqQDgIbAHlkUgQFSSFEUPBCVDBiRFJUVKgBABGgm
wAdSAkTwkqQKKpaAInE0LpTSIrE00AgSB4qCyAtSKlMMKAEAqGAuYBNWLhMMK8EA
qGgwZBdWxkMMJhMMKoFAvGAzFVFSAME0WrwZE9aAFT1TZxCWKcHAvGA4OlETYFcR
InFLCCgSBouCVh0rFBdRKEJAvGA9U9ERsgVxKhcWKQKAvGg)OlETYFcRInFLzgsS
qCAMCggCDDggCIhCFBisgQkTgY0TUV1TgIVRP9ETAMFUcowy6IoARDggCYiCkDAg
nAhCDBisPx0TWBiUVxUQAMVRasgBgM4J2wyNsIDLsMTM4wSOxEDLsMDLxwSMxwCN
0wiMLgCADeCJxEDIsMDLxwSMxwCN0wiMscDLywiNzEDLskDL3AAOn4yC5Ayg5wSO
5wSOAAQOvwLAInjl3Y0bYtg1EDg4WpU)f7Zwu3F9ea)nqxHZnm)pgotNcqup9n3u
oM)oqgZsq(Nk(rR3J9ea(ej1)I92S8oOCk6iCDUO20eLbVc9l3k3kwRBJAkD0VwN
()KP1ujhq9St3odNv)RvRpLanZIcYnhcAbE7I7Vm8eQJ5Y5LB(Eyuw3c(E8CwF7v
g9iUQMQiOH4nkhqXfzeFZjPA(rC4J9ea2crxfCOZDim2brKm37IEj68jqKGxF5HQ
)JLuSun2Eaa6T1)yQ02GyXwU3kwmO)o8iR8oOAkqCAHkLeBLc2zt9HFe)qaKz2X6
5n6aiEjuEay6W4yKbV8(edrBMMHHDQe4N(o6)opbvXqrtpbyccNXusPcFwENKHhe
eHIa6BxloXV6yBZLn11c9jbDEWy9VonXkugeNsAkeF4UaJDhXfBOuNQkos8PLjyy
(Gnz)DQeAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AIw9