[comp.binaries.apple2] The Orca Screen Dumper

greggb@nic.cerf.net (Gregg Brekke) (02/05/91)

TOSD - The Orca Screen Dumper (Pronounced Toes_d) is a screen
dump utility that works in the Orca shell environment.

TOSD - by Gregg Brekke & Mark de Jong is FREEware and
       Jesus-a-Ware!

This file contains both C source and a runtime version for
the Orca programming environment.  Unarchive with binscii
and ShrinkIt.

--------------------------------------------------------------
InterNet: greggb@cerf.net                          ||
ProLine : greggb@pro-fred.cts.com               ===||===
                                                   ||
                                                   ||
--------------------------------------------------------------

FiLeStArTfIlEsTaRt
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789()
HTOSD.SHK       AcxGAAAACA(4NIAg2OEADZhEWIhtAcxGAYFb
GVvTlzW6CcKQAAAAWIhDBIwWQEAAbZhEAEgAAEQAAAAAAAAAbAAAAAwFAAAAAAAA
GVvT4EO2DAAPAMAABAAAAoDAAAw4AULAAAAAAAQAAAgAbZREAEgARAQACslFBAQA
WIxDBIwWAEAAAAAAAAwAAAAAEAAAAAAAAAAIAAAABAAAAAAAAAAAAgMACAAAAMAA
sCAAUI7i3AAAAAAEz9GdAAAZAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAb7PAB4YU2WPDADTABAiSAIgAwiAAADJEMEQBwAgs2AMBYkAECmC(c64BmPnM
TkHM8yohZMggoBhULrAoAMAhIAG)EoAoiQZhiQIKAAOQjoAhQDnABAwESCgGYyLG
THAQUQxFIEl4URF4N6EAo0lAAEM0Vi0gqWmGR8MwE(kJyEGBIQQBkAPAgxCCWd(0
NQUoQBgwGlCZljxpIRV2IAwDeIXEHBKAqCMAGLSVBaRNIEaQ31YbHjE4GCs6KsVB
yY4Lh2EAnYKCqIDpB(sqSBgSgISAr)s6KAA20pAiub7WH0bQUriiBA5GCeYUVCxH
yjPqR1bRU7G0tXxG1F9Ruq6R0L1eqW54U87HmmXf3ss6CZY9vN1u)QLadcdru3r6
PueU)p3l6TN)5JV5Vl7bFMhbqNglUAUAjZjhD4JCggB4AAQCAESgBSRZBBgZADAX
0OAlQWc0Zy0AIQJoCFEtaEFB)W2Q7wUDPMJAxwxQ()XlGGZUM(lFVPZEkhCAqQVg
AAxWZpMHIEM4wz6J3wgwAKCTQYhUAkQ5ChLRUUVMNASwQBwJQwRRkuqVAFmAfEOS
MJI3wUBIyQUjlUSgCBNpUUDDqICBSDeFUd9SJCRSQIhURESJAEH7GzAAfCECg6hQ
Fz5JlrCFUEVACWgQEP1Cx0IAkihBFBFNRPeRZwAAAQJ4jgvUoaAyLJBtsPcLEwos
mENVifblBcKL8upOMFxUGhUACgXIRcEQsYDeSBIAkAhGB0lpfMFGUF9MwFzc23HK
3wk0TbaVdM0TTxVtVF0CdZVVWTQLM)qKttkcSWPCDYUIRRMGllXXgdF0SyX7hPGW
ZbnSN(pZ3qtd2UMrrXTzhOSTQIhQ)tBhAlFz8)EEIJVA0XhIIk0VSQ36R2wzEHlo
bT0AKs8wUgBAVkl3fd1wpie0RAwYRDOez8xMWSmFeQ1f8ceERYmd)dBAG5mJGfFE
kaZ(RbYfZJa6ewqJufpqRlW0QEkWCoFAWWGEJgy2CQJgBjtV8k1SNS2wIYuKyw44
BCAdmfjjEOAIwxXL0MawjCK36mDDPwHAgJ9M3wwojimw66DjECKAwSROeUAqCAKA
AJTjOKEeAIcMxoYYconPqLCBOOAaAk1whUYAhAgUyxhhtGMi64zIQww4ohPhAVTj
EGwNQKsJQ0wYdBAycfTizNEOT2gzRB4wCCGCSdgGAKYaAZ8RGbLIDFiH4HEfVAOE
IZQhoFjpFinZfbfoVG(V3r9to9x5ABkQg2zHavQQSEAQMCJkDFEzoRfAYIIgREAg
cQCKgAnoQEABsSjDwUR46LcQAADACwIJiqSA(LiytB0FNIGrHlkmz6jQEITBGQB4
8YB0iAqGAHw7AaAHMDghABQgeMIsBMRmxkkDUIQJlGgAxBAGlYu2gBwADJ3AsigA
uYwhA8AbCj1iH6vKoI8MtCIRDQIgKANkxR5RhD6BMsBh4kAwUAKGAjSAkJPAgBQh
p5IQ6(FEDHNIrBRA6O2EgDQRkJYMeAAgGiECBBOCkQGgIPEQ7QEAIFE0AwDegAfk
hPyBI5QAbMowHw2khShmoUQAsFBoWAIMoANcQRRPUbGNLkRRvw4AAgkKghaCBBCO
4AkAPFAodMAqGAPQAB4M41mcyzxg5MDgBYI6lD(GB6fjZWURmGgZoAQaLKnEijaB
otAFMoBB1gA4DAAGlgVblIJJ0MEJgyEYhgAUkG6LyzUACimHGEiV0VKQdKQtFpm7
0WYOOrhKwFZAkAQKNAQAjgJB0wDAAAwxV5QchKNMojoBQfARFcWzLAB49IKWAi78
GRDN04HSMPwRwBQkaABQojDFBAumCz4gcQwIQMS)XoQa0iiDV1ghp4E5xEtaQYer
TAUAB4CI(FJJB4J1ABcNAq7CBAaFUkSD2KASWpIuMGNwCTUbwanAWUShwDAo9EAI
YiFoCwSTwBaDQSt1EhAguWD1oj)aJLM1YEAxACgorYMsBDOhBDwBAC)g9EGQEHMy
CCrfHIDFKUrVW(qBcuQdCMA8DNE)jSSCxDHB(qIgz5DIiCGHoBbCApQKgIVsrEQE
WVEWZF8XBwKAlratQ0Bh0kAwOYF(DWqvAm9b1oGA(6gAvNYdbBe8AAyMBmMBA5Tx
DwI8zOLkWB9BkojM239UuHAM15KIctSsp46zwxWGcHAaAxVYZACKohFTgDtMAWA0
oX61qFWzKsywjXnzAiwA2KwRBwYoeAKQCjpgRg(PgOQD81xA(BPECE9kX6xhg1YI
YBiL9yIkAMKQh2fyxKJC0grAQHKQrAIaOuAn2(yEF4cESKAxHKQMD)kcv1M0AAnA
AygBdMRg35C0QDeVYCvCY0oSYgiM1IoAVAKODZwQCcfhkkXCAcwQ7UEgYAqUghDJ
GJFybrCAGROMJPW6v2OEBFwSIWYDLog1AMAcACt0ABQOA2gHcI0wAYAMBMGtACAW
wYxGsMTFA0A4DQEEACg6ACjFk5BDmoBQAYQbBACLAAQZQBhP0DABSHwACY4YACgj
AjCalzZHoAkgllQw4AMKwAdqxkDr4SQDAi7QGOJcq1)biRZBYBhAKMJQLoZoBgxy
uASr0xNN1OCgAa94rAEGIuNhAAiaWc7Z2bQDFYIknxAx2g81hWEuG1FgZvNU4ysJ
IaQcEPDbgrA3utSZN0QDGMAi3hnrbizLAJDjuHww7eP4IGxOgK84W8(EaxgB4tV0
EAAFAAlfBsVdYh3a7)NIvAkRv1v3DkiZIZvGUERRGCgjgL(tL0H3g7BNneHjKogA
CQgEwFHQkiiKGidFa1gh41VAfDCxAf0A(qjgAhBS64rIEWAguFf2DyLa3BzFdmcg
FAmPTMAoAekUREQy7Q5DOn1lr4GAt0q3DQLHAnEuyaQkja9CAU2wCBJIeNMlKKNg
f0(7EgudgpDCAC8BYTfAMhwixC4CaAwI7gC9FSrAbwoCajey2KI0A4A8DgePAiYH
mvjRoghaZI8C3g8Axpnpq4O8W1hE8Y8hCEDADN8qfZaAYmBZv6QhD3)GAAD0hCHC
4xBAaUA3C0r6wBMM(AMM3MbAl3e(EIX8hEEgCDJntSmAvoeYuF)OjImgetDhbsVZ
mr(2BfrtxRQjBt1k3Y65EUKd0bEgvbtdr42hQGitJ9qxAldna4AgFUYQGCAg)do6
NUAghbAaKQogJcIghbAcBAoghTA4qXgaZN5yBdA6(VIqqFIw2B4QB9D((VIyEnA8
HszmRfAozzrKBcQM15KQI4DqOFEdd5KcGFYAokLg3BJUEkzsAkDw(QA4jbDUohjg
gQQa9IDV10C88BIQpUwAW0AW(IYc3AAQ3IEApMI21IER4lDClYA2EAIGdkCuCQIg
DMASXAAa3RIzWR4QGIMkGIMAGIMuoJEQfaAWGA7GsUASxNMOEOgWlQwaBhDZqOAs
6GEILLxoPL7aBBwcBIAShUAaoBArQAYggEAwPKZSfhQU4fRcIIho1CIYNcw(khB(
O5ycHJMUlADHDFqsDZLnsdLduJ4mCUUQFU4EeFAOlToATAAWmdDo5DwME4z6hXAc
IYggoVIaQQCWoFAgaEAekRAbTQIBqdKmQMRInaIykBwQYZIA6ZIhIQIABYMulBwS
DcAguZE0HdAl04CEgDU2rdgawu7IEDwGBg6CEDwMixzQqJUawVJ3NTCd9BwgcEgA
0SIUQBwQyuDb966USY5Y7WAb6x7sIGKrIOM7QgEX)CwoHE4g3GKqEzzsO0zYljE7
ihk(QdAnkFBwzWAy3(6S6dAg4aE2tAAg8nEWUk5iJxLvWdgWk5CMFJLeAcAHOXAa
ZlqEEmLr7JBAfiq(ZILDbsAdc4CPdUAFpnDvZJ8AiAALxJMNmIkQ2IAl3AAR4sMD
cKMRBIsepIMirIMrsMIduIM3wAAJEMETARAQgZAiIKAkIO0sYUwSGuEmEU0M3QIE
5dA8vlsS9ZogMNBQxFDoMap0WgSmF5yIEAkOqRAgkYzsOcMbsLMRXFkKKsMKtYEm
KbK(9k0wnZAQ3NEmQrEWmnzyw0j2YXAaNeA14dAr6dAmcuAe6lEBRNIABBIaRBIe
BBIWRBIaBBIS8DAWEQIGCUIGR5IACUJC9NAQNMQ2tAI0vxD2BOAANBAOfCAcwXIA
U1AzN8EIEEDASAw2CJCSvCwDA4guCIKSAISEoFOAAgqIAkS4A4A8OQPADAw2AAAo
ACQiJVA8a8))KiEyQcD8JhYBa8))7oFSpu1CgCAAGAAE4oSBwOQ5DU2BzDNimXAg
QjYBlqK7BQaBJRA8a8))6tCurpneAJOaLt4apw5qrwJEmIKEt4JAKrMErmPEIp9a
btzCAAQqAABoQOgRlhxAFYQB0DNi6r)Kru0aBAQCOobjPAYrPSA8AAAAOApjO4Ij
AAA9AAA9AAA9IpwoOobrFQPSAQfwAQPACIKAAISCwGOAbtzSNGwpY4go6gwYLqv(
bon(rqtWOIarphBSNGAAi6goiIgChDAAAASqOAajOQJnOIJnOYMnOgMnOIMnOQMn
O4LnOAMnOQLnOYLneA4aulUHmV3cjlmZuVWaiBCdr5WYlpHIg8mctVWb5J3bAAA9
PgP9bwgoAAgI)na4rK4)Ast)5c)KAAAAEMQAVERDrUBBYDqWQb0ABw)3EwCF1eEQ
AAOxgHQkCMI(s5EO3DWAEgPAhogAIg1MWKWOWTKnwzu24LQ9zAACCUPBAEC83PAU
bHgOkMAAcHQgREQ(1YQKc3jO)jP9NJACjS4WMrqpaRQ06Z3XDsB0MkgBYUxDh4xG
8kiJPJ0PFCocu(ZlQPstuve5IUQFhMRDtkSJ5UTMFFUPR1USdlVVnkPYHQQAhIxD
y0CJKtTNmBmW9p3cKeIhZS5joWqnEnLtT3syk)N26XP8EMS)T4wBk0hFy8yJSREP
5N2VSu4goG6l(mrsNfcwgjd1pb(4p4)7XExClEiG7YzLNpkPqp1V4J3bHGofWGpi
nSamA3qqKf8wVDdzk)N3(Hv7rQAHEFjLqJWT9JXbkaZiw2qq7i7sQPMwnTe38L)7
OYgIl0hF38iKgFFQvpGZJO4fYK5jnK6m0GrrDD8tXnsxtje4S0gDeoxFnQSIH9jK
YNVTGVhZ49USHS4eADrlYXNyAs92kHu3tr(5AMP8CUvGCkN81PQd2DvADknAwLQ9
3OgDCU)ADYC81PQ9EhvAE0EBA4w9CAAAORAhKC2VDE4j1(6qEcvuAAAAAQIECYvU
EsF(AQwAwLQ9yVQgCUfBGcI(1bwmKigAGspBwLQ9TnAOCUPCJcE81jw1XBvAIMdC
wLQ9XnQXCUPCJMG81jAgQDfAIEYCwHQ9CmQ0CUPCKwO81jw07DvAIctCwHQ9BuAh
BUPCLUI81jAgBBvAIAIDwHQ9B2QlBUPCNYJ81jAgXAvAPgPEb3MA4ZAAEAw2AIAB
bHAAD4AAEAw2FBAMEAw2JAy2H5nCC9ETTxUQyDCIAAAeAQAAABAAWAw2S8)))7vA
TAw2S8)))7vAAsNQ))vG9LgEAs9))))E9LgEFc))AAAAAIQAbzDBb)PAb)PAb)PA
b)PAb)PAb)PAb)PAb)PAb)PAb)PAb)PAy7EAGVvTMfK2DAAPAIAABAAAAoDAAAw4
AALAIAAAAAAAAAgAb9QLAEQAPAwBCslFBAQAWIxDBIwWAEAAAAAAAAwAAAAAHAAA
AAAAAAAIAIAAAAwAzZAAAkAMEQOA0BAAkN3bjNmLAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAb7PAhfIK2(CBSjWqBVEQpiAEDkCocmo4AFWMjkBTZw0pICyNDkG1cy4p
RhAEzHJQb2sxG7mODEClb6sg(OnMRlEk2AOsoaAEClJPaSEBUCSOzwKwYW0pCflF
JQAVJVoAf3iOzhGga6UkMCikSlCSS7I5NQjMYDkqKgEdyFDEBjI5RSsAOfmiBQHZ
FjkQKvWNxRA2YmMIuTXNDkHvboMd)G4MA2j7MY4AYCSGDFHpVKqJiQ3njHiSI0uo
WcUGDmwTaiUkefmMS0BtOQEBiFTGhZ0LZ1(IudTGdBMtib8wPD3MCEAiLQ2h5UxM
zE6jYW8xW02NjGytxjrhqpW65hrqqhAQx4Dl4ToOIggYcnXM79qBb92NhSUNjknm
CV(pAbGEJZ)HiV8x7byIWGSaovmJKDTo9(yOaRpJyQwAiKFGePDp)8wijxu(M(DK
juk9I3(POKmqo4MMoe4QpBm5c9xCy4GKqzjO9UsYDiEzCvYjPqKoEBkL6nAyDig2
OBRDOOgo6DqOS6TyDgj6cBRDGPAdjgk(PqEUDhAzmDRJMiG6cpGNMwbKISYDYX4y
)MMYqRwgGUo4hihGDKBOviCRAAuMXSQQhQhUGnszOMKYgHEC64QYKjLy8RTBEMHg
0tGCIH6giCnkKaCCEKAc4C3GXMYCjJnx8EzIMItIAZMEtkyQqSwpYr)ohwIm85dF
IxItiW3JYaiiIQLqgSGEQNVw1CRQrLVDW9y2t0VSK6QdIKMLhgj1hURl4IIKYggo
BAIQ2KzjAEYg1(masRgFh2Ytj922AcHCcOIOlWADjihztrXLFnOogqwmdw4dVhkG
IsZqfHAUAobLG8IegrhbQTYRwOIgQyut26Ie4WsUskjDhhrBVGWgdtQdVVfet4lx
JSdxIJWFQEGmZAgBIWBBMGrIoieK9cwr5TbRV5DRKHDZ0XWKbYUgxSdc8ExChlvh
tYJEygwIigN5A5C2lFO6oZPBasF2hCIYb8arPuxG2IsGya4u2ISytSFyMMYDaGmq
LY6A2u36mtoomOvf1yrB11eIbDWbGsx2tx5P1iIhrOM2KAA3gDyqGNOgIJJE5Qo4
23J(l967sFMwQIsGa0df7elQeZBdPwhBnI1G1VPf9j4bbVN8trx)Qkc0dT)(d((T
f9c9w5zB3kW4b8oH6(tefB4DUjvdoWeefQwFpKK0h5a45IpPuoGF5cWEhjtUImgp
h8ZDYYuq(ScsD4ytb(wDGGiavPq8G68APs65RoYhdvmJAEg2DA85sGqkAsDCXFQQ
tLAs7xYwaj4A4pgFp(lM7sGDXEwOCCHYgGipJ20f3BAWFMoBACtkZTVCIIlDsXhg
QYATHrN5xYmNtZUAzWlaBtA4XIMkpBKySvXAASlz8QhAnVATYEcQAjBbrwZF4W0W
Ml13zsDQCGJCCxtFYXjCVQFlnQgCZNOEGDifo45MEIUVPGxYlQMmjFpNiy4TQCmt
epigisYMKI22FZeWJ6jJ8c2BHkRQ0IYCEGgoYum(nIq)d)vwEQI0BgNtAX5dGLRS
cMTgQlhmSIIILEIzBBhboR7Wg7Sser3LnM4mCE9tAgoHb1wfVcSpxDpwiQGRNvye
V7lRYShFq1SB6dZUXMCUBQ5uxywLkPoICBC4NgcSlh4ZAZw04GxS4bpEAQyWNGr)
T7nbcA(mfizpAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AYSo