[comp.sys.cbm] READMAC for C-128

wmh@phobos.cis.ksu.edu (William M. Harris) (10/13/89)

Here is a program which I have developed which allows you to view and print
Macintosh MacPaint pictures on your C-128.  It is uuencoded and arc'ed using
arc 2.30.  

Enjoy!
------------------------Cut Here--------------------------------------------
begin 600 readmac.arc
M @,Q'6L   $ 4 =214%$34%#_B$   FP(  0@#^ _I#BDHX%.QH,8;#@0(,)
M2T0YN.QA1(,15PA_$!&1)8, (SH,B- 0BD,!(P9,6..'3)0$ 884J0AA0$,!
M!T:<F#(G3)PT.<9<:3%BPAQ1%")*1 D2(4N0<+*<_@ #"               
M                                                            
M                                                            
M                                       " ^[ B0< !P!0"U)%041-
M04,@,2XP_B$   E@(P 0@'@$U(A2HDR2/#D$&-%A0$")*!FB!"D3)8* /&$J
MY F%CH@9342<.' B0$&,$DDB!&FB!""2 "  _@#Z0XHKES] &+'BLH<!EW,,
M:#!B*XZE5!GG6$MAPD51$S;,.' 1U801"RYB=0O+PX$)0[G2:HBJ(H8&4YG\
MR' 10:()D3^0<!$! $(0, "9B"3[ P(1D7$4]5 BLA23"%F"A!$0(T\)@6&T
M&#'A&(9K(,:4J:V3)$.&)$&R",RB0V""(*7TE"'.'6B1*E'*5,*1HQQO&F'R
M9,D2)4=E;T)<B.9U042=+ D"%$@D(D\9'6&2UTA3IHHN#M7>0@D"&7#&LE5+
MQDR:(V#ZN;75[ZRB,VK$ZBF9SUZ\>O/I W0,,<D*<XRR8@M$C(F&*.K6(PH7
MDXA!@";RJ)J,)'+BHH*$FQ"@@!+RB*-D!02HBHT8JLCXX0P*8HB%* 1BAP$!
M)+"*+(H3?@# "8* >@H)1!9;:KF55EMKO8U1Q0\C'## ;CKREB**>/1,((HD
MXD@X!@'$9B4)$;,((H<$@JB@DJ'DWD$  6RPP0H#3.GYS#)T#$*G-[<( @8 
MA7PB" D $",$N $&002W!KI"Y)3\P)@GG]PZ$0H1HXY*PI@ECEB!:&&(00(7
MT>7J!A'EL . ,4)  % 2$\BC#H$)R*$) 4+(B.^VDW"C5;P\<*&LNGHPP$ U
M3+#"0DU=1#,I+230P RE;B@X6K%JL,(( P#L(P0D  C11"L44*!,%8I04ML(
M;%#"A2!-'78,)=4(4=-YW0K"17IK,,$.#8*]M08SC- @U(M"=1L&D3;-(#0 
M"AUV*7^OY/6A\/"#:**9%C"KU A<HVD.C9)FC:/I>!/ # !\" ,%P+C*P0Z3
M4A.-/KY2:DTSLP6]-:*D8J0W,H R\\(Z/6SJ+R@9;*J,,@Z,2<,\L,)H: 2S
M,FBIVR  B",,=-[YYH\!PL  0'1^NAE&^8IH4#5=XW 1V0@ >"(,[$:;0$1B
MQ5M0O75=V\$Z-<+ ;03!KGIM3M.66XL,(\R&P-$XM>KO"P##" -_T*[D[G'X
M7C!1<]0Q@!R'U@G;;L\^PB#L4B2,%:NC-8SE(TJC0I2KTSK?"(-XE6XY4*XA
M8E3=4,'-L-Y'4^N0(P+2W1!!6S$J- 6G#F(:T(3*C.-IJ;6VVF^[#  (( +R
MW4;T"27E.II7:.$$ ( *(J \@T+%Q)K]'HP 8(((J)\8V9Q* (!DB #-,Z!6
ML2^5A&2.0(4D4(:P\%DJAL! 01WJ(C]Y$>E]M$($Z)Z!)(C08%=(A,"NX/<+
MF*D23']@%B+ ,+6):0$V6M&&=I0)%0!P !%@V@@::*:0E1T6?K ! *\0 59X
MT$A-<((=; Z+5&0   ^( EL[V@,%-'0&5EWHRMEZU#-$HA9U#X(%+!K4J<YU
M"6'=V))Z,06#[B&BIVB94W;ZCHL!#&1!TT,X+B2#B#<H9P*SAL'LX#2PI2UK
M>;\# ),0!0XYR:U7Y%..^LB@G$_!#DIP@P@R&@0+IY(&FF0DBQ'@ $NR0$1I
M3B$P5F! "=A9@$IJI3#%*=4<B,  UL@H# ! @!AP 8# &*0N#>""@I7 9BOG
M0AA5\=>N]J$0S6CK&@IZB!,=DNB&>,7-8@:T-)C K'580@QX $@+*##$2+ :
M$Y2@9$0NPY_RW.4B5V#67)[SD&LPY3;W>05C?O(2_MCG(U=@ F<!\LGLW((;
M /"#&/ !@"!P)0U<13(*A5% ?<0! .="5 B2,<D>J$ )JB1@-Y0YZ2L@8I -
MJ@4!I"$*3?8&+@B0 0$DF2!E@4,;C- %#;3!!%U985C&D),R"#B@5L*4&]05
M8GI%*UX6*92-G1#U,P!@#G$0*@2(T 9MY1A+*,*(OAP0+!<_0 1M*%0."Z3G
M:-G+*7I0, .3)(0$","AU=B7&Q,8Q0P6*E="=I:D9(1G4RV@C26!\@)SE<.<
MH.M0,XB6&Z-8QG#EV 9)J*0'81"G-P(S#D:4: U<*)1?4=5-)_FT/.C@0AS^
MZ$\                                                         
M                                                            
M                                                            
M                                                            
M                                                            
M          (#4J(T 0 ! % &34P@,2XQ_B$ YH H *#1CUCO0!$8 "K66Z@P
M8KU&".LEBEC/T3U%]QC=0R@+0!D@$H%"% H%H$   "' 'S( B    I 1 (+,
M(E*#0(!(EPH1 ( 2)0B!($"J1*@0))H5B#\4 " 0@0@D*T @Q2$")(I,,E6 
M$$6)0@!"!"A5JA2! B6BB;],B@"8L #(F5\7#DA8\!:, 8 @BH"[TAE?K'F@
MZ$;@\P'4E /_%KR:, #"@G,&_J  "                               
M                                                 @,\*F(   $ 
M4 9-3" P+C#^(0  $(@#8 U-4 B^U0*TQB!(L!"^Q89AH!* (D@(P"!0!#D6
M@FB*X"L@$5^$!5]1H\>,'3=^(J&^A/I6$"BV,U]*?!D 8 &0,]\&"%@ KJ0@
M#@L &<"0X#0                                                 
M                                                            
M                                                            
M                           " Y=MSP   0!0!DU,(#$N,/XA  "!\%"I
M3ZBOH$)]JP0@U(]*8$+]*@"@T1<&G"CYJW+F2ZDODP L '+F.YI$/W'C)TR<
MU)D?I7[2)/%KTK\%$$JS6DA,@X$I!]FMPY!@6*@_@/["X'!:PE^<> D2)4GF
M*ZX27P8J)XV2(KT2/[72^C60'822)GD Y8M2(+O#(@+% ;"&I@L$WV(!6F/ 
M0Q'\*-$44!,#P#\"R4 4\!_J/U6EM+[C&_630ZEOHW[S,BAB)0          
M                                                            
:     !H:&AH:&AH:&AH:&AH:&AH:&AH:&AH 
 
end
--
Alpha-Mistral-F2-Windsurfing Hawaii-Fanatic-ART-Hobie-O'Neil-Gul-Body Glove
 SURFIN@KSUVM.BITNET     |  That which does not Kill us makes us stronger.
 wmh@phobos.cis.ksu.edu  |                          -Friedrich Nietsche
North Sails-Windsurfer-Ronny-HiFly-Tiga-Bic-Neil Pryde-HAD-Doyle-Naish-Dill