[comp.binaries.apple2] ImageWriter II Tear Bar CDA

David.Empson@actrix.gen.nz (David Empson) (06/30/91)

The following is a CDA which provides "tear off" capabilities for an
ImageWriter II.  It can also do form feeds, reverse form feeds and
retract the paper from the platen.

It is public domain.


FiLeStArTfIlEsTaRt
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789()
KTEARBAR.SHK    AQRuAAAACA(4MIAg2GOAhLgHC4htAQRuA0A)
GVvTlzW6CEKwAAAAC4RAGAwWCIAAbJgHAYAAAEgAAAAAAAAA5CAAAAAFAAAAAAAA
GVvT5SP2DAAPAMAABAAAAoDAAAw4AkLAAAAAAAQAAAgAbRBBAUQHIAQAAslACAgB
C4RAGAwWAIAAAAAAAAwAAAAAHAAAAAAAAAAIAAAABAAAAAAAAAQrAgMACAAAAMAA
DDAAPMTajDAAAAwCBVEVBJkUAAgUAAAAAAAAAAAAAAAAAAAAAAAAAAAAJBAAnFWb
ydVZlRXaJBicUBSSyFWZhJEIDBicgEER5JGIhREIklmdtVEIvNHcN0gbphGVwByc
n9mctFmczlGI1BHIpxmYkByYh12bu4WaQBCIhVGbgU2czlGZpJHd0VnYmBSZgIXY
k5WYpdHIhUGZEBCIn42bmBCdnJ3bgQXZg8Gdj5WakVHb0BSZgUGaj9GZl1WdhRnb
vlGdhBib3BycsxWZzFGIoRHIDBSZuEERAAQDAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAb7v5g74W2K6CQCTABASRAIgAwiAAADJEMEQBwAgs2AMBYkAECmC(c64BmPnM
TkHM8yohQAggoBBK7ECIiAQhYDVMCH4pBEhWoCEDDcKMpZQAihEACKG8jhRlYBhO
AbKQXkQnpxvCAaAExUkIg0kICZ6TankCTlDhcqo5KTHNBFAyYyUpeLUtJCod9YyA
MJihwCAIB4FiWtKAxBZiIAIAFpQVAMDHf3EeFF4vIJFaeH7LAJuxAIAvwAIDIADE
4KFpDXhJzog0M4(bj8dQ)0JCDg)p20MYqMAJXA6AEcDbg8KAx7E9CA0DQGMAApBi
CToQQvNcXiFDOQv4YkOHwi1bOUcZ0mGDem7rASgj0tV7fFw77lIGawQUQcAOkElr
IQ)AE7JG43DWABwBCQpwFHNtEJAkxAI6poEV0MAYAkiCQ22ExcIoZzUE087ywjgF
cYQP((KmbL)(F(zrjuk1HAggABPL5beEHE0iQSZINsgQACxyDpIVAQrYAtV4MsPR
AHD4jV5HhEIQtMz7o3NQAAQGgBC(GiksMSqKigfIJLNswvCJwEiMyRYrgLQGMF6A
B5vy1EwkSMynKUgyNPHSoyT37088Blc6pjzTyO5kk7vMCB5kRSy4Q8kMJRbDJoQh
Cdc4RjmPlTAQGjGUEPyBOAJpAkuSEEgm3AWmpplyDQEdNkPBU5lSUKbJZA(DkkMw
GpEGFEVoAEQUM)1SNBIFEQ8axBViAcCGpSVfcZd9WKXFr4VIYBQCQfJBOFEtFSVJ
s2zVSBfJQrbEOZslBlxCC0AEXVJCZO1UMkcK0QIvMGEBUdFa0clUQ88UgUg6OFkU
XfJ0oAgNRRQJVINFCgGARcEQ4EjXodbdSXv)JGophEF2CjRUQwZoAkD4SGgjQAAA
QJAGSJmZRhdLojvXIRbTpXweqJzl5ZrMhtn0fhXSIRaQGGOe434dtIV5bespl1hn
jWQNAYQQNh2ulllRm3llKXV16FoyiTV1gdW(kZnKBJFiABAmLRJkZESG9h3m4(J5
gn9kDLVYutVuWYPE)CAhiEzk8)FcotbwJNqXz4GXFflAyQW8XUb5RRwfEfNqVWba
BwVIQWFqBqvbY1p0gUQF9BQRJwAZg5YE7oMjxy1UhBQ9B25le3mLU1Ls9sH9Vmi9
82BpM0nDifnPZTbhMD)ONA22IgxAyy6arpkzSSSrtsMY66NuxAA6BCg8sDDiMMIS
opIE544AjCn3UUQANiOoyRsNdwwgf)q5UsIivhAwbMEkECGQBSpMDMPDAQBgyUIK
tEE2DiycYdQAmMAwTFIcQIEgEAlhgAIEwSGCcjxQyYIMjAOvDBJdAZMGADxBwxQI
IsAUABDzlTKE4BSLMnxgpAEsKEIFCCZVIywEFXPwrZIcZEa4GiMYFRKMrUvfGShw
BEJcOEKRhHMawA0GEICBtRQAbMIKABr6hHk(Q7GLSjgHdcAMJ4OACBmTwzpEg0Ww
PFDgRIIMHhG6HpGPYzgD(QOAzPI0QGMyBA8HyeWI(TUgICJgkQGV)eTIog3vQQRS
uPS00AwACIOPlFAj5bkBw0AiiWhJthFZeKOmA2EJE45kMBRZTRQOVGiFlSWtQBQb
AWEgmCh8jRATKHA9gDA8gZXEAqCz4hQqJAEZACGkTLjMYQzCfmAACYaeMEKlgiBG
IX3FsDiJipQ8VguBQzgw5pnKoYMA70DxG6E4AGqagSgQowgFyAAx4xwoTAGIExr9
BC6yoI1jBAB4KwM(GCI0DheRZ89DQCwQtEQudOKaCj1ixplKgQwj1XRo8lCAiCiE
ARgV9HSALm0BWx59lCELKhTrHppk0b1ntS6AOdI2SH980z5BtIDAHwEgZLNoCQTv
A2nMXeOTR7NJcM6RjwczbAhGiAHEgnQH2uDxE8oGQIApEjGAAIhOYWjgKIQdjIFc
SHg2AFDJohGRnjExPEt(5ceypX2c6PFXpDRoHFRtMtWmfkwX1icCd6TEn)0KDPlm
WCiMqXTg6kIXCF6VBOpdc9dnXpTmDKdpporNChYq4Hza5kOLt0hpaw2AkonDcoEB
8BASarKgmIF2lRLCuVJQdTz2ElkcEzX7iavI0cEiY(iYjQMeKIj9DAsAo96AgOGB
sMYc5EWQHoAgrmKKMJhswHzlIAI(XGrIIpH8AKAFWijanD7A5iA)oGIjACtHune0
vWRRw6OacHlXlBjxgv6o5AEBE8QIEIMiEAPAgDRPkjQT715o5VAUPGv)gheLoo9A
kCQxMHYaAIKnAj0hRx8ZIgGAHwBwCcEMOyGUjhRBYQKAgwDAEhAgWQPAEhbBs5mA
PCB0BQBuCQMKwEiSgBWB4k2DkqgzVA5JEICCOujbmQPIlrIiT9CjnxQ1aCNA1x11
R0oNFIIh3KQMQYUMXm1chcllUTm5O4xDDvNmCAAD1yaKWdnfRuDQt0AoBcGuCg9O
QrQG67qijJA6hqe7KK6jiQuXMxfAbgQB1ZNUBoDWwDFowZQJsZ94mAgGnSv7oFV9
VQ3ZYGtAbc1a9YgiMMBGAACATRPI8DEAACQxBwMYAEHAAABFARQFQFQQUAQUVAAG
BDkBxBVAQgCAEoBAJKMgFAwCDD0A4AFAKQDABKzoCBImCaEgQfLo8UAa8LtO4QLL
KANYBoSrukiFQ1i9XhgBFPKzGgkChBGGAQGgCIRAQIASo1lOADcYVXf1chxBaZd4
tCUgDCHIdyvAA4gCKIOYDXMaKWWSBB4fGI2GqQSgMFonFv744AQDBCCAD4HADYBA
HEMSP6kMACWB47Q46QiKtpI4RQMPAgV2XDgdDAKCtGAY0oC(KCuECMboAsQ6IeTQ
kZoDg7EADCAGAW7nkzliEHgYC0VCJ6lvjDdBFoSGRz6AwMAgFcILDKgIKQ7M4GQg
gt6QXVEYoFagqAJSAFgB0uihyhoKJwNZ0fkSqH0uy7qj(FQPA05DAELY9JlVHoo6
QrDB9oAoXIICrcUGQ6BIASQ1jxaIYsSL6FMOC5mVYHKEAMR0tyA0AMow9cUewyEC
gFEAs(h4lqC0pBZA8xNEoK690uTP5tgCvLEMGFwoK57IjT19FuavkD0TFGcBV3It
X0arzv1PzrX3BM0UABF3wRROAWwDlEAYCsPEAALY6hgGY1UAWoBAFYI8FQIAFQIO
FQIWFQIkOgAMBAA8D8A0QkAUBCQgRAAOMCIkLAwoNAAwwpAeA3DqA4zWtSAcAzjm
FVwAuS4YkkjCydLG0d7OBQ7k3dDY5dzgGEzMDCQSECwK0gzUuiLYQy7abrq6WAAI
YcDVyAALuqK2CBr4HDIOWA4SXQLh6VLDDQ4u8RD(WEDMBI8mrIMqkQDLkRLbktL(
U1LOSuAmVA4UC4AiuSIatuimwsjadcAuUmIgMAoqVEICZEIejEA(vZAWBcAePAAW
BEIeJEIWAZ4EyAIGNRIAAUAsGcA8EAAGUAAaZEAalEAuqIIe(IAyARICTAIWYEIY
lEIyrIIi5IA2DRE8BcAqFcAwCc4k8VEaYNMoodAvihIMCAImqIAE(MAQMRAUURA8
cVAckVA8sZAc0ZA88dAcEcA8HAAQhAIwrIAayNIAEcI0VAAIxEIo9MIiVVICrZIa
lAIK4IAqTRAWQZACdAIj7MASnZIWvZA02dIS(dAwFsImJAIe8CI8gEI8lIAIoIAa
xIIs6MAOCNIwLRISPRI2YVIahVIqlZIOhcI2KBI3EYME7sAGANA67TAKYVAUOAA6
VEACpEIutIIwzMAG8MAmGNI2MRAmRRA2VVAKYVAakZIAvZAYzdIG8dImXcA4DULm
LAIoTEIEZEAciIIANJISwkMT2MIM7MAi(MAyIhEULRIoNRIyPRI6RVICTVIKOWIS
YVoeaVImzVAu(dIiBBAaVEANfEAqkIAK4IAa)MAwFRIO4VEaAQI29OJOAUIX9OJa
AUI39OJoAYIX9OJyAoLR9OJ8AcIX9SJIAcI39SJOBAAX9SJYBIAB9WJSBIAn9WJg
BcAvZZAW4BAFBEIO9iJwBMId9mJ4BQI99qJeBYIV9uJCdLAR410QDAAo9WKEDEA9
9WKqDcIx92KmdbEhMsk2dDAQmhoEOdJAYbU98YJjAMAAAAgAAEAAjDgOAAAAAAAs
AAAACAAAdAAAAslACAgBC0BAGAwWCIAAbJgHAYAAAAgADAAAAAAAAAAAAsAAgAAA
AAAADAgAAAAAS7xwAAgCAYg1FRFACJVQuIVQD9ERAAAAAAAAAAAAAAAAAAAAAAAA
AAAAYvt)GMtiM6NRmOdq6sBjkieYGMee3kJhQDkcGMVQiUJBIQaQihQygEJCkAkO
mPRarkJTQLtcxMRKLKRSEJcZzKCFxMQQQAUenMWCQkRDArdRQPcm0UhJAaeanPCg
5kRzAqdYQMMG3oRYumkSGmBTmOcjWdiUlJCfXAJSIB0QmOeq0UZBwEUBGMSSyosa
0g1cnoAozo8TAiOaDEJiW04xkHHhTEIA8AJhcF0Kmgbg3g0rAy1YlFFAfmpTiS1d
yqcW5IdT429CgnNsOKNa2c5HGkU7wg4LOpAIzPPfHmRjf5TZROSPwIt4CiFcHPFm
0kJjYI9YmMMpZmxpU7NI7zeEGspteu0IVlLT6sE5GTybygKjWM3unGk3VNeYzMEb
2(XwmNxFbrJzjjgzSWtqMyGEqrBMGjiiDrqKQ)5sz6(ACqi4lnzALQhIKfDBwMEw
i10CY6ITKsr)EJDhBk6YYItMFyQcPIIGTjQQN08Cz2ICImLMPPP(08dvNOIhSyAh
IGabDxqMGejDBA7oq4qpzczzNsmV8UaKEKgCoC(12wwQBOAoIdDjzCnG7SLLvScb
oMpgnbRPlMCorabMT0DqpzcEyBjjNNiyop8z6kD4BMANiZjCLxm8oiNzib7ozthX
OIIo1giSra(hJSLKtQIKbpCiq((SquLOsg7zQ34FXWyTOPyyAqtMc(6jOwHNwsYU
jio0TMNKpE4qijpseZioIKKIwZZKhgYIChphLbBziGBeCgBnIWdYDWJSgrjjOaHe
8SWNRQYEjjXxiEcDNkGJol(OBcCgyy)hfqCjiwKw9FVDESVbMsP6nWlvgBjQUYr(
vuNjuQPyaiyJJKuIArVKIubID7HGjhYYdFMsESIOqJtzKM2GcT9LI6GIippqgU4o
0aEOmLSh5CDOrYJ(XE9AhQxmQNJP5kkUrZtK5YCg4AERIOOL)uOwYYMIIS2YKvMp
KoDoiqaP7h(hib0wx6hYIANy54iRgRXmxfebp7GfxCaJbo3Go5AEafCbKKBga8Oq
NkLOs4mkjEwuA7i3kiIC)KiMIQqByoIXJBG7lHc0wzPKYBaKNjotDDigdSgDEFmf
7vfOIKM8yJkHR8RvKK4LwRqKDTgARR9JXmSulKnGd447B0u4jiqoRhQvOQbpOih1
kmrUCrnQSaSCIIKcGwq1mnXQU(VnRPQxshwica0rG6wAbtN9rKCOTN7cS9AKUwgT
TYxSju5LMkYX1X8d5bG7QRRAS2ctHLDAPSKl5pUPMGhgi0LQNcMwIlKDERzdN3bl
okCSFdBOACN5sgQiAkydAZfweaAgPRCVOJ3JUoK)QPSPTpATfPRIUAKyliA16OGf
IMUjeH6J3QARcq2IVRBHgnqOmMz5l7ANCeALEXedoJ3MoLFn0fIctEImIPGOlpAH
FbBhwrTqFNQuvKoGmzL263PQgfbC3Jxo5EYzilWB3akjMUaJj4AR5jkOmKuEnXnb
6H(h2DcCzDBd7QQrVPPt0JOk1ABnM(H8Di4WQQHjqBR7bwwMKOZWLTIOMATdcPum
4qdvkb8IIJY4wZV0mIgGmmlDrpFVS)u034zsHleLkl5qZtiGSvUuUND0CdZEBLt4
oKOIs7mQWibEPs60)tuogJfU3bOTk6qmcwQ4n(gkeQINPpPPqECmG6fipEBW15Iq
iNkryrBwNdgS2IEKxZuCMnkPP35HKUkdKnxgPA7AQ5kNKk0VIhcREIuMlDYCkGQa
wgC4hCriiHxW8tRylUhMEVcedpRQDLd1odjhCTpUXQC)QRxiQlw4aqkIcbnZ18BA
DhOOjPW3IwW1sZMTm0zB3Bdp)SGNUGM(FIjDOPRlQaYVbGCpkiCI1mnSdPRnyYHK
Q5Y4TS59h0dMscYQS)7w8FE1Nsu3Po0K45nbgCxQNFEwKAh0Cj9Hv6aD63Adsc6Z
ImTecWCqitTr1wVGkfNxMkySx)ZKTqvkAEo0UwRnEdXjeKhQ5cUkskgLT)6W9zqF
WYHRGGNnHMj0BRpikBMMKEaS3sJJLdO8ILmeDSQCV7U1jUjBZkk(iiPSHonkFdIP
el3WzetA8wa9og7Yrozh64AmUlQ4lBC4bsIYFYbB1m4ttMA45BBprIXOfqOo0Jdt
aGhW6pTdcgUjSCs6m2NqdeEXaeJCoSp8lcOwnJzBUbURe73n(5ghUI8q8AuiERoK
xzzJCuQiGShMMEEAihqYCKF6YexBuVDRNNI0GAupGUOeb6nX9P0m9e7e9ACvZD7V
g8cKwCxUVgETjzY6ECHQrCnpwBVA0MRw3Q4IEEA4BArNQTWDT3AgygzZzDYbCAgr
ECWLwFUCaEhAA0AsIPO)yaUSMspkAYBgAAgIAAAAAAAAAAAAAAAAAAAAAAAAAAAA
As89
-- 

David.Empson@bbs.actrix.gen.nz