Received: by KSUVM (Mailer R2.07) id 3342; Wed, 09 Jan 91 13:30:55 CST
Date:         Wed, 9 Jan 91 14:05:35 EST
Reply-To:     Apple II List <APPLE2-L@BROWNVM.BITNET>
Sender:       Apple II List <APPLE2-L@BROWNVM.BITNET>
From:         ST6934@SIUCVMB.BITNET
Subject:      Double Hi Resolution Ampersand Utilities
X-To:         Apple II Program Distribution List <APPLE2-L@BROWNVM.BITNET>,
              comp-binaries-apple2@ucbvax.berkeley.edu
To:           "Steven E. Nelson" <CMDSENPG@UIAMVS.BITNET>

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


