[net.micro] Reading Macintosh MACPAINT files

wmf@chinet.UUCP (William M. Fischer) (10/25/86)

RE: Reading Macintosh MACPAINT graphics files on a PC

I found this on a local BBS here, worked fine on a Tandy 1000 with color
monitor and a CGA equipped PC-AT.

Strip off this header and run thru "sh". Download the resulting files to
your PC.

NOTE: The shar assumes that uudecode is available on your system.


#! /bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #! /bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create:
#	readmac.doc
#	readmac.uue
# This archive created: Fri Oct 24 22:40:17 1986
export PATH; PATH=/bin:/usr/bin:$PATH
if test -f 'readmac.doc'
then
	echo shar: "will not over-write existing file 'readmac.doc'"
else
cat << \SHAR_EOF > 'readmac.doc'

READMAC.COM - Displays and prints out Apple Macintosh MCPAINT graphics files
----------------------------------------------------------------------------

This program has been written so that you may download pictures created
on a Macintosh (TM) computer using Macpaint (TM) and display them
on the IBM as well as print them on a dot matrix printer.

The follwing hardware is required: IBM PC or XT with 128K minimum
                                   Color Graphics Adapter
                                   Parallel Printer Port (if printing desired)
                                   Dot Matrix Printer (if printing desired)

The following commands are available:

Up arrow ----- Moves the picture up 1 pixel row (very slow)
PgUp     ----- Moves the picture up 10 pixel rows (much faster)
Down arrow --- Moves the picture down 1 pixel row (very slow)
PgDn     ----- Moves the picture down 10 pixel rows (much faster)
L        ----- Loads a new picture (you may enter filespec up to 80 char.)
P        ----- Allows you to choose one of the following to print the picture
               1) For an Epson series printer
               2) For an NEC 8023, Apple DMP, or compatible
               3) Star Gemini 10
               4) Other (These print commands must be set with the 'S' command)
S        ----- Set the following commands for the OTHER printer

               Set Line Spacing at 8/72 inch
               Send 576 graphic characters
               Set Line Spacing to 1/8 inch

       NOTE:   This Command is only neccesary if you do NOT have 1,2, or 3
               in the choice of printers. Those three are set up in the
               program.

       NOTE:   These commands should be entered WITHOUT the preceding
               ESCape code. That will be put in by the program.
               For example, if the code for 576 graphics characters is

               ESC"*";chr$(4);chr$(64);chr$(2)    (the Epson command)

               You would need to enter

               *<ALT>004<ALT>064<ALT>002<RETURN>

               The <ALT> means hold down the Alt key on the lower left
               of the keyboard and while holding it press the following
               three digits on the numeric keypad.

               The <RETURN> means press the return key.

E        ----- Return to DOS Command level


**** NOTE: The file OTHER.PRT must be on the disk with READMAC.COM.
SHAR_EOF
fi
if test -f 'readmac.uue'
then
	echo shar: "will not over-write existing file 'readmac.uue'"
else
cat << \SHAR_EOF > 'readmac.uue'
begin 644 readmac.com
MZ>($#0H@($UI8W)O(%1E8VAN;VQO9VEE<RP@26YC+@T*(" @.3(Q(%)O>6%L
M($AE:6=H=',@4F]A9 T*0F5L;&5V:6QL92P@26QL:6YO:7,@(#8R,C(S#0H-
M"E9O:6-E.B H-C$X*2 R,S,M,C,Q- T*1&%T82 Z("@V,3@I(#(S,RTR,S$U
M#0H-"A@@(" @36]V97,@<&EC='5R92!54"!O;F4@<&EX96P@<F]W#0I09U5P
M($UO=F5S('!I8W1U<F4@55 @=&5N('!I>&5L(')O=W,-"AD@(" @36]V97,@
M<&EC='5R92!$3U=.(&]N92!P:7AE;"!R;W<-"E!G1&X@36]V97,@<&EC='5R
M92!$3U=.('1E;B!P:7AE;"!R;W=S#0I0(" @(%!R:6YT('!I8W1U<F4-"DP@
M(" @3&]A9"!A;F]T:&5R('!I8W1U<F4-"E,@(" @4V5T(&]T:&5R('!R:6YT
M97(@<&%R86UE=&5R<PT*12 @("!2971U<FX@=&\@1$]3#0H-"D9I;&4@;F%M
M93H@) T*3&]A9&EN9R!0:6-T=7)E) T*56YA8FQE('1O(&QO860@)       
M                                                            
M                                         %                  
M                                                            
M                                                            
M                                                            
M                                                            
M                          T*16YT97(@=&AE(&9O;&QO=VEN9R!C;VUM
M86YD<R!F;W(@>6]U<B!P<FEN=&5R#0I%86-H(&-O;6UA;F0@:7,@.2!C:&%R
M86-T97)S(&UA>&EM=6T-"D%N($530T%012!C;V1E('=I;&P@8F4@:6YS97)T
M960@8F5F;W)E('1H96T-"@T*4V5T(&QI;F4@<W!A8VEN9R!T;R X+S<R(&EN
M8V@Z("0)              T*4V5N9" U-S8@9W)A<&AI8R!C:&%R86-T97)S
M.B D"0             -"E-E="!L:6YE('-P86-I;F<@=&\@,2\X(&EN8V@Z
M("0)                                     !M!"" @(" @(" ;*@1 
M B @(" @&S @(" @(" @(!M4,38@(" @(" ;1S U-S8@(" @&T(@(" @(" @
M(!LS$" @(" @(" ;3$ "(" @(" @&S @(" @(" @(" @(" @(" @(" @(" @
M(" @(" @(" @(" @(" @( T*0VAO:6-E(&]F('!R:6YT97)S#0HQ*2!%<'-O
M;@T*,BD@07!P;&4@1$U0+TY%0R X,#(S#0HS*2!'96UI;FD@,3 -"C0I($]T
M:&5R#0I%;G1E<B!#:&]I8V4@*#$M-"DZ("1/5$A%4BY04E0   !04U%25E<>
M!@X?Z%P%C1ZE"RZ)'O4$N , S1"X  :W![D  +I/&,T0C18# ;0)S2&-%@X#
MM K-(2Z@#P.T (OP+L:$$ , +L:$O0(DB\Z^   NBH00 RZ(A+T"1N+SC1:9
M K0)S2'HQ01S"XT6JP*T"<TAZ3T!Z","N04 Z+\$XOLNQP;K!/__+L<&\02 
M +G0 BZ+'O4$O@  +O\&ZP0NQP;O!   +L<&[00  %'H7P0\ 'P5M "+R$$N
M_P;O!.A.!(@ 1N+SZQJ0BLBU +@  2O!B\A!Z#<$+O\&[P2( $;B]BZA[P0]
M2 !\PEF#PTCBI;@& ,T0N  &M_^Y  "Z3QC-$"['!O<$   NQP;Y!   Z'@#
MM #-%H#\4'47+O\.]P0NH?<$/0  ?0<NQP;W!   Z]V _$AU%R[_!O<$+J'W
M!#T& GX'+L<&]P0& NO!@/Q1=1TNH?<$+0H +J/W!"ZA]P0]  !]!R['!O<$
M  #KGX#\2749+J'W! 4* "ZC]P0]!@)^!R['!O<$!@+K@3Q0=0;H' 'I=_\\
M3'4#Z73^/%-U!N@= .E&_SQ%= /I8O^X P#-$!\''U]>6EE;6+@ 3,TA4%-1
M4E97N , S1"X  :W![D  +I/&,T0C1;C [0)S2&-%HD$M K-(2Z@B@2T (OP
M+L:$BP0@C1:4!+0)S2&-%K0$M K-(2Z@M02T (OP+L:$M@0@C1:_!+0)S2&-
M%N $M K-(2Z@X02T (OP+L:$X@0@OP  O@( N0D +L:%5P4;1RZ*A(D$+HB%
M5P5&1^+ROPH O@( N0D +L:%5P4;1RZ*A+0$+HB%5P5&1^+ROQ0 O@( N0D 
M+L:%5P4;1RZ*A. $+HB%5P5&1^+RZ/$"7UY:65M8PU-15KF RKX  "Z+'O4$
MQ@  1N+Z7EE;PU!345)65[0"MP"Z  #-$(T6=06T"<TAM #-%CPQ=0HNQP;[
M!   ZRZ0/#)U"B['!OL$ 0#K() \,W4*+L<&^P0" .L2D#PT=0HNQP;[! , 
MZP20Z;X +J'[!+X> /?F!?T$B]BY"@"^  "* #P@= ;HR0!&XO2Y6@ NBQ[U
M!%%3+J'[!+X> /?F!?T$B]BY"@"^"@"* #P@= ;HGP!&XO1;4[E( +X  %%3
M5KD( +: 45.P +D( +* BB BYH#\ '0""L+0ZH/#2.+N4NA, %I;6=#NXMI>
M6UE&XLRP#>A; + *Z%8 6X'#0 )9XI NH?L$OAX ]^8%_02+V+D* +X4 (H 
MZ#4 1N+XL WH+0"P#.@H %]>6EE;6,-04U%2+HL>^P2#^P%U"[D( -#8T-3B
M^HK$Z 4 6EE;6,-04KH  +0 S1<DJ74$^%I8P_E:6,-04U%2+J'M!+L- /?C
MNP  /0H ? 8M"@!#Z_6+RRZAZP2[ P#WX]'HT>B+T(O!+BL&\P0] @!U"%%2
M2>@/ %I9+HD.\P3H!0!:65M8PU!345)6B\*^7@#WYBX#!O4$B]B+P;D  #T(
M 'P&+0@ 0>OUB_&V![(!.L9T!O[.T.+K]@@07EI96UC#4%-14E9750:X +B.
MP+T  "ZA]P2^2 #WYBX#!O4$B]BY9 !1O@  OP  N4@ B@ T_R:( T9'XO6!
MPY  @\506>+AO0 @+J'W!+Y( /?F+@,&]02+V(/#2+ED %&^  "_  "Y2 "*
M #3_)H@#1D?B]8'#D "#Q5!9XN$'75]>6EE;6,-6+HLV\02!_H  ? ;H'P"^
M   NBH1C R[_!O$$7L-2C180 [@ /<TA+J-A UK#4U%2M#^-%F,#N8  +HL>
M80/-(2['!O$$  !:65O#4RZ+'F$#N  ^S2%;PU-14N@T +0_C197!;D> "Z+
M'N,%S2'H,0!:65O#4U%2Z!< M$"-%E<%N1X +HL>XP7-(>@4 %I96\-2C1;9
;!;@"/<TA+J/C!5K#4RZ+'N,%N  ^S2%;PP  
 
end
SHAR_EOF
fi
echo "Converting readmac.uue to readmac.com with uudecode."
uudecode readmac.uue
echo "Procedure completed"
exit 0
#	End of shell archive
-- 
             ====================================================  
             |    Fortiter in re,       ||     Bill Fischer     |
             |       suaviter in modo.  ||  ...ihnp4!chinet!wmf |
             ====================================================