[comp.binaries.apple2] New //gs SHR demo

kadickey@phoenix.Princeton.EDU (Kent Andrew Dickey) (07/21/89)

Jason Harper's recent demo of the Apple //gs's fill-mode in SHR
graphics has prompted me to write up this quick demo.  This demo
gives routines which scroll the super-hi-res graphics screen up,
down, left and right at the fastest rate possible in software.
In addition, I threw in a routine which fades the SHR screen
to black without distorting any of the colors.

This demo was produced rather hastily, and it sort of shows.  Sorry.
The documentation file is quite long, but I like to explain how
(and why) my programs work.  If anyone would like to discuss anything
further, or just chat about the Apple //, I can be reached at the
addresses below.

                        Kent Dickey

kadickey@phoenix.Princeton.Edu
kadickey@PUCC


FiLeStArTfIlEsTaRt
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789()
LSHR.DEMO.SHK   AAUrAAAACA(4iIAgySPA0TBGUghsAADAAgsI
GVvTlzW6FoKbAAAAUgBAGMRWAAAAZRBGAYwEAAAAAAAAAAAAAAAAAAAAAAAAAAAA
GVvTeMB2AAAQAEAABAAAA8CAAAw4AQAAAAAAAAAAAAgAZRxFAYwEXAAATkFFAAgB
UgBAGMRWAAAAAAAAOAAAP1EAuUkVEFkRE5SRTN0TCAgAAAAAfBAAAAQXAYjUW6HA
huNANEwDQBIQObmEgczGRSIkMe6AzNBnpgMQMa6MgozG5hM4OZ0csYDmJhBQJRow
aBykERoijDzUwZjxhQJ6NJ6A0BRGsgk3MZ6w0tZwZSJ0Bb6UvRDHkAG5Nb6Uvh4m
UAOzFLuCzNziYKIIhe6UoZBnMyk0MED2jBLnxwIQMZ0GpZjGx5MZgCZIadTQ0LXN
BZK23homJLLeubA(hkZ0hi7wiYTGgc6UIKo)ufyUwQTzJ58xMc6YNBRX4Bo8vNFr
RaT2gSz5ElBbrBBGhQN2oYwcItT14K4e0Z0E11I0pBqzMJU0BxYHIJYL1IgcpdTm
ZzJ3mZs(TjO0lu7XMB40mNjGkqFHBJ64UpyABC8gqs9omBp1GrrXNGRSrRzmJt9B
OY(UugOHymkCow(124AiKPORSSzq6sqUz5IOgGIqNPHF0EdD)OmKIq(N23DSqLrb
cryspMCMwpuOZywIJzAEAtJIqqGiy5Wo6)zoPArxYDzvM4K64JsO1K6KjrBEgnDo
muOEI4MM50o0woKMcXTxOMOeazF7bOy6JBM5mEzpmEvWam5IGUsaxgE5qbjorEHy
0xqNEyEyNqt4oZzQhuqMDLSh7gK6sgfyYSYCLFh4aYy7RD04qxgrKrqQ)ugOAYOi
LywsupkQ2ctIzoaJzYwj0ks8IKPmfagD08Mncjrv6kqCgxG8hvUjhyAiLIqNqwD1
CgCkkiCBIIOeoJYKdogYCuAzkFcjL7CTKKy0ZzgbpKKmQAb0i6iukLXhNlMbpSYj
xYxJMMErobMunojrPuQiiDxJLR9ucpDEYIs8WKXpCJDzMSl(LGTF8oKTBQAOLnlr
QD2abeWapadyjMIJWHDjbJPYy422h264CvHQcJiiIKCEqJUKVOmwCqARFBJClnjJ
bNRlJHF7juhnuspDggvA(fDePSOzZ7xQ(ppQhUn9l)JjKIyKpJ)lNuGswMrAbSKu
pQYEoKnuSTSBjLIkSdiSpUoDCAJkqmvXGNCvIK1NjYSmZZGVeNBaMWt96hJMwaC9
oX0LX6gWnsi(UDbpkC7tvKj5nCK6jrLGtF5jygIQUwNTxyrTlxLXrs6F1myAys4a
Qx)InRH32k8ZL(2mPNkPL6EPhQt8rfnHCKSLpg66wEeDi2u4D(Zed4AeiLBBwcTj
qps61J3I3QKKoLkGuKaxKxMXlKLq3UnaKUhMnzQoIgGigRuOnU4oh)moa55wooJ8
qRH5YQ863N8jWZgx1ha)QE07Mi34jEGQChHRgD34UlCOPmQwUs9kTen9qmCJ6upD
AJr00YDkFEalJJven60lxuUPZBiTzhNKRII8HmSDZ2ZJW27VHy71CaAqgtcpnC3C
RkiFjTQB5)9K(er0vrLDSO)RoL1nZExhDZQKNmzGDhbmw(7sYdzpq3keCJgtukj7
BhQO1IAoPL7NKFKBNInmiQ2GdWxBNMjqcNB0dYPOQhNEybfha4RTSIgAGECDgv4o
WTjpBz(EdNUkc4s88Ak1BxBE5mzJoI6HGhjMTVWCjLvzCISZIX7puxAhdk0w5Axy
hDTI7rSCkkeFmnB6FQY9BASQAAmDQZxAx8YAIYA2cAmELk5PJGnSmUNkaLihFJVU
AkmNQdVLICROlqAALgInGkFUnhZEoEECahQCaMIEBAKxBC4QgKHDMrxABAiUEPIL
TkKJwy6p0IjiKOQZXMIEbAGyAABMZ49D6m3zyjAITAEFBmDaPAUIEs8QI4kiRXUG
pQM2DhscgJ6AQXsHncHBYAKqvIvbM1jiBXACce2zQWKYDFKqiHOGXmhAwuCs1NCB
Q5seEcmIlX1ApGhKQTqYgHhEGpMnCKpHT4)rcSjv7C6ilNYkyYHfk52KTsUWCTtS
EeiR0AG0UIlSTjoq8AZlY5w5ZkI7YQroOweipQeDW1vXvao(58Qxb0LTCaIlhMVE
D1TzbAtqkCAxGwH6Bhfp810QmrikMYEoDrVYYvCFmaKL7)Y6Ay8k0gsKPX(qdeWO
wh0Qae9sCaM9KvNyzBVpwuJslfUKxJcEVNtEKWRO5OtamXtl1eCAq1WgSLEWCiWp
9RKxpBGxDUFmHinfhwKpwdkImOYWxM6FkZrRSWyRUw6q9xNyw4lDCFeRdOyrJghB
pSjVSREqp)BdHiCjIrlz2QtRswzqxeSTtxedRVvcvF4xqdxWutBguEtV6caxBDII
wIHv0L6LWFFRQSyIRCF3tq0)gjigA9wb(PAEPkgJDlJPKqjC8IKvEZo1fGoOYyjE
GBvrYTmDgjul98jangpRbPYCHzhyGZgYvQgT05Y91CGRv6mKho4rIf0iecAUtgUI
OFJLVmZYYo6Ly5UC))GSxCD2HSZNDVJR5pREEfokGtOwO0IOrzyxsauJKjCkk4VQ
GudcwSLiWyBhc6tbWPWlLRCyQEkXnyQcZVK5LaChDrKDINropvsMZNEIurGrtYqV
Nj42iuEH8S5geZttn7VcuJveqKv4K53E6Alq0bXEEjm1KwYJhlmOSIEXgnvu(JNO
TdmPaKikx3kDFcoXQ(Y7RLuMMVADJ3JQ32vGVShwCQqqW0RcipfSkqwkjPBCtz3a
Ja25fhfHgJaXSb9jHdjQdEpe25acQqrVBkcWtfKjsxgUhKJ4yWIEqZHkalSpTlEl
GMJbSwegaKe(rz64JkPVT4pci45dJEADCBXSJTqEsCBBBpAjxmMIiJPBtY8lZOfN
TPJitWOaEZAYX5pZQAfGOwbRVcyW0NUPU2hKHDDkheMsSVvGkUraih0NLK5436Yw
O3tBJEm6oWXdqJZqF(od86GVXsaV9bjeeCukBgmAwKXCIMSD)HG4NPscOBeSEp0B
pVbMR5HQiQ30pLJuCDSOg7GEFxJo3k6ZRKQmyBsWE6RHBUIfyDRgxOPQIEUD26RF
OM)zZWXEgXD0dTWclStYmkroivsSsLH3OiPFvx9fO(kLD5JafHDHiEyTNFvDeaBv
4jRiQ1kJH8Izmy0cNUJ3OxEguA7GR)x8bhG)DzZGA6tuhchp)1E7(AgucJ28igy8
YfWHTojZ6YNZ0V)6PvEk7fyX1tkcHDK8lLPifKhEGkGufiuMudY3cuIM7jSIIB16
T8nqgTDG9MJDzdtuYsHkd2Ni)giR)B2j21zEu7Y)8HwlD(TcBOQ(BAXb)CaA)ubm
)CmGBs829g8I9Oes2A1z)GzNru7szGLVOmoBDkmyIGUn(I4YyuFmdAn8AAQtvFAE
RyL2NKyADMzGhS42Na(kzJ4mhyMQMA7MPIYm5xd6MJ0AlpjHx4rIOI4AgIjmppME
EMwoCNSiQCMQEIg4noCC4wZQFJocCNxgIIoeib(4nkSCBpshMcSahozm5p8UmZ00
x4YSAAraMbSUYQDGZQaygD9s5IZm0JYDNcyMgwTn4YjRMSrsC16mZbpniSvS1sIF
BxVQlZx4kgomRiBjwRSajBBEM6gAEI5SyoRDs(WMia(whRJGJAJQNd2IyNzgJQuw
hSOn09aG54ttKDV(8Ni1IK4ilpRS1hTmVKPnMYCijQZGWBaQNTZPRUdHh78lOeGT
NYwi5yLnNUzslNZS4JolNItLLj7GYS78NY5QCgsyZzc5sql(bO7m0f3OObWHuupa
N8Oeohsz60IQoKpJoHjDM0GSICkOqqSQNALQGyNBm2i0gxtO02AirDoyABvjDN(Y
7hFGw3A6IpNCmLjDBC7y4IdgnCywMOJIIROoGEKqM7Xm6L67ILKUyscp8qw2Yi0h
ZaQYKitZklBBGkEkQOWKYYIEroOfNtRpEsIhQCGGUwUqDDGxSVzqIyMCgjegyEKc
yMlzedxpiMCO6Swp2I6ILKkKSNNq984UIo8pdgAbur5IQE6qIE2qCVJI34YCrgm5
QRZTM0ECEpWO4I0ADAp6afvDImCtotRPT14qupTUaXKjOuIscSiFG6gq0BL3CRtK
qMim6A9h4fMLwPouqh8sGyYRgCGm76UwyjmGiiRMGmEdEzKHZegEJQHuMvhh7wED
EKj7vG0qJOCkdPFVXH6aSFCTyEqzBgmWgbAx4y6mlaJiaVqCPpzlWLNNviE6yAHw
aZlVQ0YbNpFhiMueI4tMT0YyuUpRKvDP8AAajJFEKPFC2xDQ0bqsfNimNayypQoF
iiHkIaiC4mMSQHtIwyQ9WQumllyWbHKskwrBnYYIhSwtuH4Ut88G8YFs1CSiVtqw
BlDrqmBYQKVOTOCi5qkFoJ4XgOcD4pROIZ1FwL4CE6a474QtgI4IRjgoI7oMhPGJ
MqGmIEEY40A)PujwXiQNv7sMewLnLQilSSfMaL6tiWj3N6hrjMCHsbyRTn3ZTNGE
FWIluSzgJLQPaspOYjsjI1ck64zQxAnGqHTYMOMM1JP8y69qUVwaMirD6M0IADHx
AzcgIAupGzs5)C1GiSyzLmKa5IBDr09J)0aDoY4lzLz0)DTamuZewjGM0mGlc0Q0
PeXVKBpD0NuCkc6YWH4sgUcRPDHIixUfxP2JhfnzB6RqkMn9kXnMBG1ISlh2hJDl
3YURaNkuWx54gLhNlxHoxDmEHKpBFDPFbgCR6md2vSp57pSVeFeFS7kRR6DguTnz
nnRQALAwB1MfISjesaWmyk55lsAMUr5YTDDmhGHRnvDCHJhUBTHiBXZW5slLmKIU
HAywHiaQfScEGeEA4dYQ)enpZg4IGKtplgrBRGpIuQ3gzSRVXVKxZlEGX7W7GWTE
vp3BZsI4jILQk6UPYCHDQnvFqN4BK(QpKq6EA4t)eZgMCk4DQk4cDgDnS4nJK7mi
W6924MClqECpAmG4QCN6lM9wCzzBINmGROncgSbpqJ8PeY6w2Y4VMUEbcr)aSJH2
cLzv0R2L79J0QcPZhobYoQSYEwgQCRZOeBvLOtjOJTh9dJCSBUIpLV5qtCgZnwVG
o6GC9Kg2H4KuhQeNDSYiAItcm(lM9BCJkPmwHlMnoUy2stWgCmQCqNIgbBYzlMRQ
po4(sjPoIm4J1Gcm7kA0ETkwjOIcS3x1MIMoqog8ZMv3gJGW6mHtQcJLY1smpIHw
nTTtLe2QVdESx0Li9lWlnDFI2YURoA4m12wMhTqY2eIEkAnsKCIDogs2dv8ZlBLu
IKV9WTtWcJzKGFwpwnN2naESMDosyMCY(sQUQyxUwRcXDl2yWTO8B14tytGCKNCW
SomOoYHOoKHPqyxAMS18jxYaQDEIp5HwFHkQzJUFRMIQVrZ4BzjJQXkCaaXAUmEY
qcGsnIsJgQazazSEtBbZOpWYIPpXq0FBbX6UYUcIxO0S5IfFeF)SQKZ2WbwoBiir
BJcqnQC4pSNkq)HWAtlCMuFYMQaSNvEI25)hVf8nMWltjBZJEIWbmYMgaCpbQMrT
)19qLWSSDnxQW2vRmUBVrp5B)zIQ0atkhgE5I3ECfs0FQzaZI6CNduz8wvuL9MpK
HPEhUgQIEKkpBw0JAiDBLainGwqkOYHAe1KcDZcaZ)wpyxSFftW3xS1YMzvOTJFu
MoZoQqZK0pKzsHGKLxbH8fjF1WyDgNwwTMIshgI0B)Eidl2nmL1tTZFpSQzODe0X
1F5v1Nr9sjcegajeheIEJFebsyxAyOih7iMvJVlRCJyGEYChEtSYS0BsEQdIv5xw
NQ(pKOsFsEyAIO9hygSDIw81Ueo2KQWbQNYwRud)USnvBZCDaTYm2EF4WOJxBg3c
nHqBmXmPZNLJ5FJVeLA4AicGCUGTIhEouAhYhU)IpDDK4WiprTEagUQUZSHyV2BU
AQjHGp50XWR4MtNfOYhDIYrRgYGC0ZYInRzNN1K1rCLhuTRopl6V4H8ABTRRPEgl
QuHijNMai8j3TLyT9PgTlzlpZyF8hfBNMSoIkZAdwdnjmVWfTZJyUGb54V2JLMp0
d0o6mSqIjE1ovDrlC7BPtAN7YBwJoAfGcmjl8WjSkFjfYDkw6BClAsGDGtgXEppl
GHiyc2iSpXlLDCBZp9cRZMAILjhdHcBSxKbcK(sGQgDdNcIFvHAJli6ZcDDvHnZ4
YkpHRSkVryvqVvjuMgczqm6tFsEGCgnTdTVFgzDoehU0D8WKmjpSadEPSUUqq4rK
pysbe1LHQOIZWwwQg((8IyAPLvzEbk60s2oYgh3VM9HXNmJ)T5yqt(wKOOVGkQik
7VEmakRSUsE)hQur5MBZLeFt5nx98gEgjH8n71pO)EsFNgYN(wyJxDRzkORi8pAD
faFUg8JotFOwNLBeOIRYdA0FoIyJKdOWESIcgTLNCHzLiLI2WsfdrcGSt2gyfAIQ
pDrkeTGGYzxAVMV3bTyjPOikYZk(1A3j1VUwp405u00Sj83T3DOsrDXgR8Ws7pio
3fz4h7xUlIyxwozT0j6TLP0vaXxp41Pc2gJdyw5I2oVtOgt4aM79iON(pkOD(io2
1EewwCoi)sGfuEs2DS3ACABw4KHJ5qTWVEQ2NuciRiHuzk0G9OF14g2FcMDG5gxO
OCAlRisw4m4VSmROeOwzvIhNMOydTgdMqCxNAAAM0FAExxr0BJ64opyAYCoyKQkg
jlDipQJ5EYw4zBjm5hLQMD78kFImJBJQOcwM5BzmJAMQMZ6czZxihZIOka0w3BDn
5gr0OI4AJozRca0HJFBWNkCk4JIfMZ2MgkTHJBq7hZ0wnojGs4oMPJTehITGAAoQ
hCVgyJTnZ6oAMLUCrdTSEJPdIUUYqQxkMoQ0EJRSnZAmJwr3NCbG1VqQJAJ4wd(Q
SgIUYobKJc5WA5LiRKcFMT7wvxInMQPzONneih6YpRoywKyAmZA3OPLONYP3s(ZH
5Qa5Ob4g0GtUZQa4pe(QhFjQpzqxoOT(ggzThqpqEnxMhpKkJDL5jK0w7ka7NR)G
mcdLMqozON2R7h7Yg8OTZALztZgv1oKVFqTm0bkmIrJznmCuYBUnG04yKtH9KfKp
vo6AaQPOqoLrjDD3qTbjxOIcrbrMzarjOqh0CfbL8sKgbUHC5IL7jioGUsqjNOgm
4l(CIbTiRoFialIB8APCAyGE2fSorOPPc)4o7OKIqOkEwcKross6cXasB4K2oYWG
Rfb4hvo0BCShMKj2qG0I0HqDOrOSMNZyK36AwZGlZcYADgGQ8I5POmmAE7sgNOqK
juGfQHjjwINGIBk5GHLbxtoRMkMKjKomibikgTzCsJvgGroDqgEUSLqiCASLxrbl
GLYUEIuSFAg1zyYotInKMUKPgOycdKRgow7oOSlX3FACOOKfUvYUO1Y1p00GaV4O
zOcJ4zd3L4rKwL4HaYxKhIPYiJhj5r7AqvqbGqosBzqYw0MT6MywpJvMyyTstWhy
ArMjiL0AiugqXpnoMk6MT3PBpJNqUJaoEuj2kOSZiTI1zZKjILWFBxRIqCRtz(UM
2M0UsjtGuNTjlOuaz7i)fvz0IDMzEq4N72a5MfcR2aaijLGFyPdDmOSZ(ik774tK
uLGUmbQjOkPsYCFEG57rVCeQx9lvYZnCLxTnAdegtu(dVgiTYNkyGwDqEVbetgU3
cDzuozmONYjOhASw2WnnSBa3L5oJTKz3BeMSyMqtEZo4kmsIqdFoX1byrLW0aQ7O
OgEuWDoMf62uojM5EbzoRpBo2L7M4wWTjohpJP4II6MqnqCNZm8YUs2QAtJs072H
aNzUKHi9JUdpMyKhOHqP4qtMR(IMQOTfZ4ryT7qTNR6zP(y7p(4lDtGYG0jaApJE
z8gQNK)L8cDjEO(crWFQ0jKCQZFvEfjqkvTDsOTHG4Yne9srUf5jvvBYOlp72ijr
0QM6Ujhcwwdr1c(NMNVRbo9KYamjhkM4rKTJIqWS7TjZi8KnDvKbSrATgSCA)wQp
F994hAA4gp(ABUGLw1gUbMAENgOFSEphVBHHJEnoCAIkSjYqEIMFBQgIoQCBkdpg
jMIAKQuFUnyVY7Fm5zsg1lnRJRNEhcOKQWg)kMgDj6gzQCrkOQEbPhfbAjuSpCSN
RPDhDA1uHCpxlSVMpyRXGe0lRXRZqUCXLFPGT9jAZSpnQcn53PAzQYqbRoLGCVkj
U0BWODg13EI1IuffSRCHgApEWYjiDkkoCLZ5BSJ(iRoDgvh2nFB8FcQdkt01GwaV
WElSZPjKAOkICgIFyGrOp1taO6fyGdwkIeWpiyTRZRFk2eDohepcYoJZQkqfARjx
w8CmuygIcx8Z6AqpCC3WQqcbsJrw69iyUU5aMLwbRw0zcWgDEv0wkxKMhBQNOjlc
UhTHFZ5EWAlsKN1qUIutE7wPQ1VBQ1dILg0FXiSKdJ3lYdrFMvPwDoHDGM(28K0Z
GGNeDhXTE3N20xc(rserIyUSiJY((axg6eCsSJZKMlMeFr)ZkK9NuygJ9fiVgecx
DlpvV6oHkjOKJhCBRzYe)AFQSlQ7S2Ie6fPCzwjYK1mLemrSiJSnpQCSD3SqIahy
kIFWgiLGaIvBYL9AQEh5OBK9MH(waCrpAGbzmxaVatWJCA(YTxhGRnRkDASH)hZN
GAUoeKsc66t9Y7IEK8aFN4Y74o2uRr(j6LNNAknXz4ZBU9AcYBEd4qvt(kTKPgKp
trKVxQGUVR2wEOaNumnauf9NjNB7cGltQpRGgcxAempEk6YqGTolQJOXErziVMSF
lSq9FUX4r0rR7RJCWjxW6WZdSFZZUgO6MFpRqoZedMwDhzDCsUYirn9UTz2nAGsG
3xQsLMJ2viKPhS7ypkmh8rcEAhyhhQSKMMseo0gFO4CXPSDB2l00GLFqtI)MoFTJ
R42oP3dpCWDJRuNBCZkadrGIyRVQSeVyCWgtxZwHsTspRDlTnRNMKWmNMQWjIwZt
4lTxZsGig8VyhoXq3AQhG8xgJChoi1EOMdi3iQpsMkVF8wRF7pS8aiiIkxBYEYlJ
kDVyKO1ooWMbGiP4Ra2Dr5kTGthLbcUcYJp2CqfFmajZMokOtNxUoQOkKjtppI7F
ApRSg)9YnprcvZidPJVOkxQk0qHf9MYlGo9GlgjRBawdcUJlk87UfiUh0xOVasWI
LSF)L4pI4ha5)vhQmAbcu2RDTq7GGzL2TmSMZli6iT1p2rYBcFxuFcoUUNwijQ5s
T0hLAvsmcSfvn1QIj0dq6w9xAhLHeirBT75w1YJPFr8Fyydesg0Z4PrwS0QhZMQC
QLoULvgDpd1NT2w4mn952ae(zZdZr19rexQW1HlF0NQKxcKdtFzSWKBt8wGSch6U
EYhZOgMSVbJ5UmCAS0VQCZZOGiuxofBU5wOJ9hLoKD6kEpQurrAcS3PWp1UYk1gO
6RPPGz5TGynz7(tWLR5Q40JUtWbyJppOJLA80L(LCZQL4iuUyMq46mNpDbfAcC)S
CHWxoqKTjGVweTlpfZJw8HSUsQmtjQaiAoMs41wBgKV7bIo4nrJ351Pf90X0oDil
80A7UT5w170EYQapgR24KFIEonN17qaIzbai0wF6k3TEzJirB2w1oKnYVmJDPbFM
olxWiaQTPSScfuw36HKoUeDTOre0Sl5mhuHTXRoNKYkUAqIjZakV7qLG3CdD48LB
wujLXs9D5NUsoxGtdiepHlR93J4ixmuX1b2mgX)fyryEkeYt6kVwqRq03Oqielu1
uztR45E5kNxqrYW0Js0gYyQx93bLMpzJfBR2jqhSy9AWBi8SGa0StRCK2ORCRrC1
tP(LZy2kQVDUpWZwqPlI1OJfJANlB8wQgiOInOTexgADsydYiOQmpUZSa4AVmMIH
ykZ4AyFZEGPAykZDMrhcGOWew0pzaygcnMSeDqBIY41LGgETkIJRcD0KGOZkyEkj
OKVamMco0g4D8iubRmV0yssjiUgRCMQXBGUpArRZGMfkQgkDAfOQGPRYxwJ64ucK
iOdmjicx8(uTxOeqvyhKG2FKVrYc6yFqavSNUpbu30hT009RQiKQikYI6qKM4kfq
QYkh4ouQmOWT2shK45NI1rL)5kRzwodYSNAvxscJWMAGYxpPR2xLc7NbmGdAWuBT
8gVempTN30lbGi)bTOTWE2JjcJMdZ0NDYi4Kca(ZmgGYfyBzWWcL2idw)O4bwOcd
HmZOEHWoEH0eEhIapU(zHQ4bGvcuzoNoPpBkCboDjOOIzwqm9y4oJik685tOk60A
QjsizkaDjqr2ARzJCNIm409C3QzIIPKhBtgoO2EgCAJ6QUbAIC2y)hAJoO8kblhF
SQAChCIY2pZA(GGhoKcMnC6opQmUeHbJFxAmwLfMcESixL9EAics2wEry49zQYcE
CAqGIQTj3wE)rdUGTTbqINmUpdRK7G7aEg27cYrrRteHEqsMkMF34LtOSTIDjKJv
QBLKJ162K9MJL34ysAkggbTj6mCY9ZAp6kyABBAdBWgiEEhCqh7Mb40oyC6GxCSs
IzCnowZ(ioowwgOpYsztOAvqrwKx5YbDjKpRPYSrnka30kIFnasMtONc51VB(qWX
zpuJGEYoIDjrQEfjOoAXLAkuyQ9YxvqdG7pKShAWoKOE014ItjcQiraDG68sICnG
EbYwsNjvaSDqQDAbc6iNikk0tSbp(FjqFNQnL476g41AKLRgkiTKhiymuhB0iHIs
jrk1ET9IORHOCSP8YE(j1YRHSOaIlk6edS8qacbsMh78aPITpMACqgbrjeb2KyG3
mge0iXrdaYoMePGNKRHjYYfPgOsEOCB3qWVTxTPe7HjjKI3QtpGJJxDdwKfGi1NQ
NU)I8N3U3EbNs764ozssI7ME(VwC0UcyDDkzKFZqDNkmKiiOWjTU4ytUQa(ZffDv
SVaf6GOSix0(qOoirBKb8BY4iE3iDvTE971Z5CvLe6JpR9Wc660IbWqpiivxc1wH
RUmsIv)fIXazERHSuncsz2KEbbfdS4J8BD9JYQ6KpggIiAJi8bCi65FpH3q64XoH
L4Ns2VL4HLKHsYvGZc8vRzIXH83qFqyK0MG56AHi8fkl(kTpIJvLMz96a(iTMttj
YMaxGAAvRhuMgg0CY0GhbBQQAplsXKrUnjH2p3JKy4UiPHMaxEG5VLWVSxc3AojB
YRlSMIZOSQkOljrOD0Mc(tanHe4Yp9QKaJF92hJURs9Gp5lJhjMM6Qoxty4gTdMb
0I(y2hphNsWvSLwh2xhgFCOqSGVQ1OooECsGn62ERYkghTxF8YQVsYGpLhWZQg(f
NKpx85CcSsV8oeejrS2y6h5ga0xE1iBpFpQ6OJ7Mm2cHJEhlIuyBcgcKGKyZGwwN
82CBa6)XFK05HZesIqvDUBleZ5MRnCo7GltyiYkdRARnahkO0kZiirKJHQEfGo91
ggACAJShjQQAMEMILDEYAxeBhfwXGTMo2cIUvUG0flEL0DgSwDZHEY5jRIAYLDqg
BzAHgaEC2JQpTUIMHikdLJ1WEZWTxqjFPAUIY5ksWKlxTikBYOkCrxjAr1USbAmj
AhBMAkQPEQSB))Zo0gKDPr1BAirAYHhlsxXgJ8Eo7QnDBgw2Jm2PaNI0AA6qGheF
EAxGFFy0xjMOwKcirCi4GAGgojnM0KaQRUErGinsoXGPbIAkUyAEi9HakPcyEKt0
cdUxDtyAwG0EojdrDW6ibkEfFNvLEKzNwwGSIllJGUpighGxQT0FTzFpwkqErRA5
b0kQlCrTmz194KWCmzV4ERJUp2i(oAIMTfLQRoAgX0Az7JNRwCP3nrgr4kULAAag
HwxhpARAqLKZz5HTMcKGwtqsyhdEmUvlkqrRoCCYuwxAWO1kloAhLKfgUBRcQDRW
5VEI)NEGCKN2o7sFi)(aOXFkUM5wyiuilrxtDKffGA4UEILpRyt4CTtZ2yaMABSt
ezXw9DCppsQMDra)ko5vCYOnpk2je0c6xiycvxcNBh)IMUVZrzDNOkKGPGp6LK1C
GbNXLBGSeMUmGCD3BJczitxJD4G1aMCaGQq1XitLLQVuB(93WnSZuZRMmWSroBA(
dMMMyNo6WDOYmes3ISDRiwAYGo7VwtTY0xUJXNNQYHlvVW6QeUFS5nRqGAI0v0HL
ScjhIfKB4UAwe8IomqE4hlMJaWZSrJIDakBYgBINDl0nErzCRaCtp5QYIOcl2iX7
GGix1Cvgi1kS2PIkrSqBUmCDWG0kUZQkr0QwhFdWWjvLIbIzZMTeuBu5BWR9PzAb
BwGMc3JWcXrL(CCtVDbQaWsmmke2xH1yN(3mSJhkNgQxwWdgSuqBRxqIxyTRA6eM
Txaehz87ZgBmaLWMzQJYrqqFxNDrCiOjs79PZKShWhUZXV7JUKJKh(ZN4OwX1lho
PyqSUkj696S6q8KoIm4bNEcimzBd5zo3xUwK(U28rOTdvsXIkPXfgiNSF6ZGT(QA
RbiOGCKQ0VKqKRqPexYTo0GM3Z3bPbhlwKNGDTl3qbWQc8Z6mCAyBijB6jyWD9G8
GWCPOrH4UHhSlfkmBuYn90MZZ82scuiexboNpNTcyzLgHc8KPBUxD2ZEZuOLmvFg
LcpcCUCpvkrgzCRMsi8YEukKWM4gpwNwTQSzJIKecTggZr58IYC3NBuDOaMci8mK
OP450RZ6dumbnsmfIJUWITwyX55kWYypvkKdgK4X4xU5ac1QhmpGozh(lSd15kvP
Y5q9XBK1IszlQBJFAiDEPGSongMz6GtWwTxZ7dqJPhgAgJChCRewIUBiH6g310za
lKFjH4l6q7iU3gic2LEMevzjrnoARD1VGwVgpK1uLSngy3fWcCeWRCvQE8w06)(h
1dJ6dojbKm7Ni)9S4B9i3eusZyg90dcwSV(L)RuDuUpPFwfHJbCq41XuXmU82BXb
WdQMr7XwYhK(Kbg0hcoMTANOleZj8tY(RsV1L439PsLAu3SAzkEoI2gBANHNzkKq
I4whu5CGxAAlb28hkX2OBAAhbosYyLGETBGNdyoJO7GNThIgd2wJCDiMTBDgI4g5
CiEKIiEnFZiMCLnODmDpbEixDDDlDECubIuwVhCOzHphS5spQTHEDnGlGRgAUOGE
jhpNLZiEBl0lxTguIygxfvlNTkMyDr28YzGNqXBvf5ghCb2nIQKNZw0p44iMhEgB
cS(pC72NZHCibyEIZ3nqT1puBDP(zfHhj7iMTnyFX4GNB4oDOb24bETn4B2gDWE2
eTkBDkKjY82tgkmOLS5zIsSVwVzGhDLxboStMMnp6H8tZUSEh9rgN0vZVkooZW3J
ScoeDm2OvPIwLFKhlN(5JDzO5YJ)ZOTFE3iFYHH1YA)MKrrO6ygqrKjpocZpOius
gBExYTjgjqFnecoMsuwgAi8NCCSSDrLDGjeO0oEoKkSA3AT0DOoZgdTLFpoOb7WH
CQgBCiCpmFBvBEKgglQGsgggBiBQglBBGIACY3RG6MawjgB5ILTKOyGacaXOscc0
yxhgEgxGHIHQopsIwELKSSJo95hSIzEXoa4GvgQwNBen0wIjPmyAqJxl3067SuK4
A)OAIG6IQgFGbbINIiBqcT4phMMeoAUpzwwwjqECUzMjj((YwQuwp76QjwJSyfDx
)qgiC2hR62AjLBs7kr6rOAOaKBdOE4MaBIwLQlThrKtcbSGpoWa1OsCqypopyueh
Uoeu1k6Q0ADQ07ahNA)ol1VWRn8ijxJyWAxImYxWdkSSML9wJMo3kbYp)OOq0DF4
n7IsDoCQB8jRGYRj92gQCOcbXupmfTXqZtoiai6M3klzhVCoXI23QhnbFNhB1vKy
OKuucEMJBiqwsBFsZyMj45iEfIQWjlYnDxgwkMCjDoiL6mjPrUjagAtiiJy8YscI
vkZROBWbS6lO5gzYXOppvnj3fFT5dn)hpY79pUoej1nYnxA(6ETnP(ar0YjrPUEQ
dNocTE4dCyoLvUILIP(TBsqgleeK1(7Ajga6yzLjtoG6I4tMZ)0cDXHe2X71Fxif
0Af(5Sm1JqO6oTPRKCEaopJIsml9ZQYGzk5oo0gBI5cpHeiiPil2GnuIpnuhVuQf
g2leXZI01z7aEsh5YK4IioogOgCp5ft0XRVHMHFoiqiq4ruDgj5wqyGKrbrBgbFm
2piUBwpjxp)7YstZ6hqqIXccQ1O663MVvNbY)yybKoplBVgOJyLukgBFjDlvR5SQ
E2LRXSkyDttKcCLXnRk1hAJDYxxwBuKI7QKkaF83WLL79H1PEk3rB8FVDCyYOxqG
ZuUg(73ALCRZGAUycF6EQLkRwTCgh125aksgQOJrkyqtYJXJ4u9w1o7kKQGwejAS
CIYGMG4hwFSIRoEo(ORLm3D7LnzYOX6ybXBEKAONfnOMCYg2dYJNt(kJgVp8YYDV
LChhwU2M(5911Yrs6AOvPkfjQAOC1IthtbHYkdhegCs5rw2Jp3YggnEWWxJIWZei
CJIJQJZExPrtY1Q0jQKZUI6GN4hBAKCBMMkA14qQ(cgAjMZZSNGKdDjputG8aMMH
gCMRIDKJJqVUkfYluCMwfJFUdkCzISWHZ)QFaEXqv180QUJ4nHzh6qvkJFQA)rMR
OCMNZMfpQD(UJEcSQqDaoOV0KLM)Qa8VDtcMio6w7YRdS1O7mGuDgjecayToRaXj
OMInESkGTASxpmzlSaVm1y5ZNYa7No)82ySc4yPnK(IxaEVQIBm2vCcOkLicCaYV
GajkhAt9cRQuwxNmNdkgKRpqOsQoYQdSkYzKM0wIaM)TMSJ8RdIZbp9nCvXOMaeQ
j9QIClIIoAZQBjJmkGpKK3VK05MceWg9ozLkS2dDq3lJKFzcfp4YCgAgFBIHFzzp
oPoowsJA1dSADJECSyirGyVvrjyjVNIDAJTByIKgzSfjX1zXZ4EV6ZIaOFmx6OnL
VE8UXvCyWJ62VQ9wImQxhILQIpakMKqybVieLqxcTzjgylUP3MCxATWaRVD6KTKh
xJTLqTnVsOIRlWn)BDXMK3fal3(UNAXwKOIqQaGbV0MUEQ9cc1QQCPNgjku5qPCu
iS(TwMeHUwgLqnxymqB2ATsBlBsg2DBklpxMmlYzqNvwLKqQ6dt24hmyemQDZnsJ
NnpdYJ2JML7CpvyppUr)dmCkwJFH4cLEz1wM0gIdTXS1IFKVV0vJm2nmUchQ5ZKo
tHCsEK6k49syOSLN09(CHAISAAMPLjvBqtB7nHqpIWQHIsP11SDUmv6F197d4OOv
2KqrOcZFeWAJuO4CizNwuwAWUmlSDkrX608q1(oUkN26iMcRJh(zSaRgokNHZQL3
EIZ5CiiRsJ6nUFChSNbmVKkDbAmC5mXGG(1yhZpssMIIhJ9OApmOTiroD(QKEIVB
pE3Sbsx(QBx(bCZW0zbyE(t0mcEcD2SYwIYbfsho6NZGgXhu7QHWo0FK2e3Q)XlC
(YQKoUTANj(ZS9jOVKNEH)aQ0ai8MlPl4Kr)A9mjUGdSOVBS3qWrBmDGdpBbZ8mh
4Xl(DoU1aQlMkRiNxhlq(UnLValYMkK6DAIeCh)G6seLFvnkbUh6pDi6aWoCBkR1
UE7K9kGKYBf)upDTbRPfvT15JMVLGSVubLEmklfFmeJw1FItQzcpmWI6gIcukyVq
ACpk02JAEwkkZOYLY4mXUDDBzbrGI1rWHe9HNXgzVqEqndXvqXUzbgucGSppVCQy
g2GO1e7iMm6s2gNU4i6UkN1vwU4JZECxcq0RGm(YaIjcaruMVlbdLeGbkzdEJMoQ
mf9s6GZm7GTtoVdRQWE21B1lem6Uox)dsYSFNEsVb1c4S4FZ1))akg1mDNYMRbPQ
WSZ27ThkF9LCUb3M9SSlIfxDVR2bQ6pxDZyFWDny8evtZlSOYLz74Dgk7ae6vj2o
ZbsZ4f93pkrBgAlnLYI2V(uCHu6Gnk4JZQp06B7La5TBCeCnGuT4DHNeGhAwzxP8
67hhZ(UvJ4RQiOLEiRzQNOfd9JYxrZXEde8ehasGWOp1cTLuKKXAx6jwOGhcAz0H
3ToO9XIL0tg6UItH(CD5j90bdIMmhNB2vwp(LMtQ47y82rErKm)HUCFgF)E)WFAp
FLgHNIFAKjWATCBgZ60hcCSOCkLPdwgIkRCEyADwbEKplAhMSHiGA5IUoX2MImAj
FxcMoPHEYFPvEHm8aIUi4TMmLIqkECCEIlH1AD(JdIggIzpZY0UEYHGhDxAeA)sJ
cXmMphBgZwk8QxiMKlhvURUErjgMwkGwb0o5SHmO7FFuPRkBNQQgZilgazo5cyGp
Z1qCdsOJGlGNDikgb2M0F(3hIlnpYVKGm)GO7XHXYGopwFiMpFvUYwsJBZknpz0C
D1UeCfnNoEE5a4kpBBmNzlHkq10xlEbODm2lIUCUH7BODlKsdCmRbwWOSmCQKLDh
eLXMDEGsZ0kguR3MRX3gVGMouDC06wFCbka3bgBqszxmcWqJT)pOLUHmd6kHBhU6
alE2bA(RYy8M3C8KrJEUkVDjlmiOa4QlpGDjjQCCeAejMMigop1qyAcgsDP8aLbo
AICC

krb20699@uxa.cso.uiuc.edu (07/24/89)

     On the subject of Jason Harper's SHR demo, could someone post it here?
I previously uploaded it to /ram5 on my GS, deleted it from my home directory
on the UofI unix machine, and proceded to test it.  I thought "pretty neat,"
noticed the time (some ungodly hour of the morning,) and powered down the GS.
     Considering I don't have a RAMKeeper, the file went kaflewey.  
     Thanks in advance.


							        
                                                        Ken.
                                                krb20699@uxa.cso.uiuc.edu
                                                      (BITNET)