[comp.binaries.ibm.pc] Create snapshot of MS-Windows screen into MS-Paint file

evan@ndcheg.UUCP (Evan Bowman) (07/28/87)

This small program will take a snapshot of an MS-Windows screen and store
it as an MS-Paint file.  Might be useful in desktop publishing.

  Evan Bauman
  University of Notre Dame
  ..!iuvax!ndmath!ndcheg!evan

begin 644 dumpmsp.arc
M&@A$54U035-0+D1/0P"^&@<``$4.IG8K0#\,```,2-[<`4'G#8@A<LJ$H5,&
M1!@04\8D+.,&!)$Z;>`T4+"1"IHT<T"0>3,&(T4Z(,K@@<,F3!HW(=$()&A0
MHD*&#D',L4E1)$8X(,S(>=,&Q)67(^_,80&BSIR79T!LO)BQS1PX+D!8_&D5
MJ,V%94+NG%B1S,^@:=B$)8AF(8@Q82J*:6@G39D[9<@X=*,W;QJ&9#8ZA0H"
MBDLW=+)2A=,5Q)TW<M:$-`/YX)$@3(M<9AI7+Y(R<DJJ#4D&),LP>1R2"0.'
MH9PY+C9N%%*&<D(06=[4@4@GC!PZLA70MMTPCVZ=O7^_3;B0\-@R/<UF7`K"
M^.XY,NNPT3L&39DQ:VCJA`XBC9GJNN5L'$,43AW7(-J&?,B>3>4PJUN#SIKD
MO/7X8=C1$'UOV">':JS!UQEZUY4!G`)U`$6@@2`(^%H:;U3TQGE'\240=?^Y
M`9U>!8'0QANEF9&:=0=>D803+KR8!%IJZ6301G2TA5(8;+"A$T\5+7@'4C/5
M!]E\M\WAH'ABM`1>"YVU<,='#&55A9)LE;'1$!G2,92/AHGH8V5^H91C0R["
M**-(:20T!AULY!$;1PHXH1(=3+41QAH-S5'';3FZ]5];`N;$!1%5-`$%FVX6
M)$=J&3)X8%MRZ%7:'.%!MM%<(,"1$!R^Y27>2:#MY1`;KKD!%J/?.9J:JFT,
M:`9\<R1'!U13<775G!M-82MABW45'!4&U>H;2L%>)9)N39;1PAALI`$>")&>
M22-%8<0:U%!%6=O$%"T0\<04&Q6!QW?OI5'HD![>H9BN0*711JRE@14GFU>U
ME,=\;/+X1E1BO(%'I]RV1MA&MF495('VL1O52[;I>6N&.@37PE896=1FJY#E
MD8!4"B3@$4CEA61M:8UV[)AWM['X(UD^3>=86CYNE`"GIXV15U8>-41&;6%H
MAQ+)AR:Z:+7>'222'.J6,6<"_3&X+`ANO($2H0,J30;3A=X'0M&*LOJFRO^U
MX=2#"707UQD-Y4@RK&T;]-#63>]EZ<9C/RKU2``*R*L"%PL1!I9.9*MER".'
M1+*U8@S>D!EI8:LM"I"K!??,.>J&D@O?+GHG14]EF`+("02*TI`]@L#I&4U7
M5*++ST7W$VP@")':SV8$C2I3)\\^<^J<V@RW7E,,(44113CQ`^=3+#HE:`W]
M4').;F`TEQQ9H>"$]:6J=-I+HL[5L`NCVYS;;G!5I+8;;"O<N)*7EQA7'FZS
M+_4=<25F,0C;MW&]S1&!F73@@*2&5,]_T.-.AI14DEL)*$Y,,=9O"#.D'"GL
M@-<C'78$4I&7L(5D`<-#5L[WEKB,QTP?,9G<W/`J[AT(!3)@$^OH$!(]B3`%
M6;&9$<B$AVRQI`Q,,8_4E#0T,QE$!C#@7=(@]QJ4Q*XBJ/,1I^#2(U$!T'C(
M<P(2F0<%)1KP3K^38D.*=[SDR2`&7.0,7VQ$+3?DD$Y.L%K;=%0>_QPG#G7X
MBU&(I!2[@:`E\$F(!(O(E/]wwww$D6HCHLE&!&DKC#%F5T;Q3D7^P[<YO,&+5'.A
M<VP5DC=8B#]VK,-&\(>8ET&G(A@$C0K?TJ67U*$ASVO9<=0R*VJ9X3P>?(BG
MRE`7W8@E+*%S`U,V0L0/AB25!RJ1M42$!Y2P!R;H<J`!70@"%#CM#%D1HLM:
M4BM3]F0C`W3,X"""Q>3%H`9I/*$Q,XG`9!HD!C9864_^P\ACD6]_3UB#S88@
MDS=@*9]MU-FI?&2M,`2L4*%BI1P:]<:-7&P(<=$9&_;93RQ!U`T2K>/]\B>>
MA-#A3ZXSB+?`):XI@,!<T:R;S=B5%,QEQTQ[(LS\'/(F#'70=4FKEWT`)K`W
M7BP*>40;/]_@SX8`58_:/`XIC4@0T+3A):M*EH36F)`3%>HO<[`9>W[FQ]7T
M9EM$,5$93O2HOR'D)C*%")`<&9PG8+0XQ\$:<HXE*JD6\CCI6\Y-LO;$F`%%
M#'G8R"[G\!3[62L(3*!""Z`@!2H4#P1\2HV2\$@1G2E&I$MDF$"@4C$ZH?$@
MS,&)M?IJ2(Z6:(!SDD%6H"#(D"!6L8Q]D6/+":-AY10DX8G6&=!P.IJ!X`P&
MB908F%8;"!+L#8UK4FK(.D<39LBR(.A9I][P$OAL1$^I65_[L,,:IT6R)]:"
M`W414ZJYL"=6\PG20F<2AC,<IIJ5>1Y.?89;D.F6M[]]PUHV=)X%&6M?MC1#
M"C#95_FH[I0Z"=#.@L//M1'&6HO16,H>Q13!$<YP3*E,__Y')V*ICFGVBY`C
MNW("TJ3!7SP=6!AF52KKG*!0<^G)8.PGU84=Z"%3BMPP%3!8DR7MM2TP0@Q@
M`-DR2+8,E'TK*.\'$C2(1T]\>DM;V+<697H'G&=!&<<HK#K'40W#U#H0,O.T
MISDV1+MK65!WB/K/-<SI"6>2PY"4Q)0U%_4@$2T#06O2RNK!\B].KIJ4UQ:6
M.0$:"$1535!-4U`N15A%`+[%#P``-PXZ3\F?P!@```Q-M&@+P```I`$@#`[X
M]\\@@1+L'`(Q2(*`P8:0AJ%;`8`*FC1S0,"1\^:,G#!M0,@I$Z=.FI4AFZ09
M0W+.&S-T0%Q)XX;,FSMS7#100$*+@P^T$C0+@2L`DZ47#1YS4J0`@$D`(``(
M1^Z1*`$`P`*P""%2@@`*P8(=`$`%@(E0`,0!P`>`(`"C+(8%D,`@`P%L)SF`
MT$#P`@`#(S!0)<!B`4!H(17P$\`!`!@<,!@\@(!(E290DC@Q\N2`9]!-IL0]
MB!8!@((`#"PI(H4JDP%'B"0A4&4*;0'_`C3[@1:`<.(:7`-8<!I*:B@NBF`I
M`@!`Y\^A1S\!VV`(DB)#ED"1(IK*["S%V]"9`Y2-FS5MQJA9PV8.F?IBR+1I
MDF2(E"=3/&$$%5%!<H$'6$`"0!%5+,*.!XY@,X@?"JA1AQ.+&&'`(E8@L`(P
M@8@#`"B!Z#-B'3PL`$P=.(2"B@`]H$6'"3V`10<'/;!%1P@]6$1'`[AHY0$4
MZ$ABP"#$$+".&.@D`L`Z7:"C3@#K8($.,`*L,P4ZE@RPCA,3*H!''4UDN&&'
M'X8X8HDG[J!B'3?D8(`>`-01PS%S&@?`/S;`$P`N/0`PY(=0\$E/`'S*$X`F
M#%6'#A<(J$@'.'C2>5!33VH0"@D"+&"`"0+0\<`_=BA`*@*D&O"/!YRN(\"'
M@[0CP"+E?-!%$\H8`$"#[`S"C@BA``)`(D;X$\I=Q+ISC!$F`K`L/P#@LJP\
MU2U+#P"Z+&M.M4:@`P`ORXKHK!'D`.`++O8$,"0ZVA2`)`%O#I".!7^F.R@P
M4##:T+!&@(,+7+A@H4<F4N3;*+_>&+POL>HD8@4[Q-KC,#ZD^EO7D+@DE.]?
MW,)3W3IWD,H/J?J0R@ZIZN"B!0!0*.@`.J<<,(@1ZF@QLSY:D$H/J?*8C++*
M++N,CB(RTVRS$?+D;`<ZI)KCLQTIK]PR`"^W473-,YNC-#FDBO-TU$%3C0X4
M5Q\M3LY&P).A.YG,(,P*PN0"UC3XN`WW#FG[(2\<#-D!#JD4VV%/P'HH7%T/
M`M.Q`"Z<"$JD+@2\6[&^U9'J#>5[VG'YP;1V,0ROOFJPK#YQ+>N.%P$\RZT_
M(Z*K+I&41)YDO.FL$JV]4!"JR6W5$8O.ORSC`D8;!.?K!5O\FI/O&<@S[##$
M1DAL1>"_7PQ%QBQK<HY8RWJ<N3\B?XU+7%._/,:11O`#Q<SJ%)IV('[`@SH?
MV9#*M!V!#SY\OH0@W\/PBL,%,!R'CF\,0')+TX0VD-<T38B#@78PAR;4@;S.
M?<Y!H1M=Z8S@#F2,"UKC8ATH7+>N7!QP=BN2E^U(F#M\:2(&>O$=\*X'"!\4
M3Q-#B*$1E+<['3;L81&;F/UP83WLY4L8R.M>Y>P`/CN,S`XG@]KXPO8R1+@K
M?>NCF?O@`3]X>)!^]@,<J097PWR-H3@]J&$`R[4N`IR0`/;3!*>6*$$6B*6!
M-!"+!4''#M$Q:X,=_.#JHC4M;EU+%RQ$!S4$\"[:)>-VK]/="HHC0X#5\(8Q
MZMT.\V4$2M+L>4&<WA"+J#%-%$,O2OQ>^*#X,_()+2\ZXUF&U,$A=A0@+@6;
M8OF:%#DLSDP>4`@$S4"QI[1-"!YDX,,NPHB_,>*BC)I(A5C2Z(,`(N!UZ`@`
M(Y,4QW_<,8*:.``$)?B`"I;#<WQ$`"Y8$$E\0<(`F",6/J[GFGR5P"IX$1;@
M<*&`[-$`GZ.XRSY1D+TA`)00F<,'+MR2+RD`U!`)Q85E#,>ODN$/<X'P@;"@
M(8`Z(`!/+[+(.E:046$!(E0?-<"+/H:%8P&@!QZD`PUZ@#HZI'2E3S(`2`4`
MEF6Q3I``F!`_&-"'$RS""_R(QC@6<8BZQ*!8_TC?.M(Q(7T$P*,[9<LZHK%3
MM*PC&1GRQR@H`8`]8I`=$@@3`.B0`$*A`Q1'(L:LC,"`4?@)<Z,0@0`JI1`\
M&4$AN&"(+JI3,%(Q0!,OT!5>/""`1%@`!`(([#\&"X#"VN&P!QN%HAQ[*,/B
M@@;M+)0-.FL#16EB$PIY4UOQA8X9Q%4`Z.!$IX!!!QC@`BRBA2R?&(M73CD6
M5.B@@S\:P4$+M+!E`\"<I#*PCI'B"Q=%>!V@0CM!Q:ZC$;=E&9]`Q2=.:6(.
MBC44HDJ[J(/Q#!V^*$#GA-%/7A$J5:0B`!2N!P,(4-2LO6('`7Q:G0FQK@Y&
MX--?X6L'`J`#"4$EAJKLL&`"8(JBQ.('$.A@*B=JHAMZ64<!?(J60?C@KV/P
M`P1P<05L1N(?[PKK.E1E@+^N(Q7X]94"K,#?#R)X6?:HSE%'ECZB'=4>4;4'
M,0IL`D0`0`$K8IH3[/$L.)05J5'EAX^]`.3H#9D`13YRDO^QY-'U,T,(R,0B
MG*"/>^1#GF]:@'_KY*Y\7-4"/P[RE15A!'P0``99YG!9ZWP/-^@C!49`0"Z^
MS*Q,F)E8^E#1'VSQK#P$8,=1GG*5A4QD(R.Y#NCP@@41I"`&.0A"V,@0`WH`
M@0#8M`<1,+4/TM&+S#D`%VRY'H*'I`DI*(=4K[;*]9Q,:_/:X=4'T*X-_JJ[
M@V$J'0C-D`(R28=1VT@-/>@G'::P#C?@&M;!F_7U3I"]5-SZU[C0-2YX?;V^
M4/3:P3[N0?#ZUQZ0`0!^T&F+%7)MKUZ`3WK%A0181JAU^]H!Q=X7K&1%*UOA
MJKT.PH6V<8$"`6#L+11541\8X&$5"*``=2@`IESU(0LR`AN=YA6HK7`%`Q3C
MLL3P`P+&;`!^Z&*![$`%`NBPCWF0X@!?\$*L9E6K6RFCGY!`P!960(PY8.`>
MV+"!G/IYAP<HW0`%*;`-1E&01?QM'+#XQRY@X8^M]P,3%)T!,(0!%N72M@J,
M,``K`I`(!T`F$380!-M]0`BV>\`0`4@[(MAN`44$`!TG@*T/!H`.$!!`[.>V
M0=W-3H<-\*GN?)([G_;.)[SSR>_HD,<^B`0*`61]'?CXW`S:0:0:)'BVBT`'
M%N@0@&&,?A''6,<W>"59=":<(;;OE1]\I%XC*.E5P,"O$2?$^PPI:0`/_FX_
M68:.9OP#O\;OLP&(90#AL6Q"NJ)#[PVP#N2C)5\C.`SS0_'\<UXPB@30A`W$
MC]_X:J(([#<_K^*+_;5NO_L/QH48LM>-Y1.I"^67>_07;_9G)OCW?=9'441R
M`P%X?L6V?/@5<-6Q`M)P#P4F?!I#?`7H>P>8/0=#)/'@#^U78)@S@NG'.?)W
M5HRT>W6R$+YG1,9W0\(@?L0B@M#0<2D81?"$#?$G@`Q6@CGH*\!7*':``,0E
M7^C@"7,%+QKB43-#``$P"%:@*T9$8.DW"&)1@XMP@\&7@ZFB">V@%Q9$"S"P
M%*/@"@&P"Q:!"P!`!$LA!PI@#\(`"-H'"(\@"P$`!$N0!^S`AC6P%(G@`9J0
M=P;`"97Q`6Q8`KH`"$H1`A;P`8O@`-P0`.-P`HZ@=@%@`HM@`RP``,5@`-Z0
M=]HP`]M@`ZLR$#;PB>(@BKO`%J;H`0/QB)>X=IKH`)TX#C3@",$P`_]@`H`0
M*'2@`KE0$+[@"`$P#Z:@.+GP#W\@=O+@"G5P`>M0#@;@`0<`B??P"WC("I@0
M":S@#[05`$B@"N)P#X_H"^80`+^0CNC0!0!P?K[@)[_@)V-C+NFXCG]W!$\R
M`+R"CNK(CCD``.C@`_V0"Q0``*1H#X>`AZ9&`+3@`TLQ!.(@#^@0;,9'"T\1
M`I$XB>-P`+L`%J>H+L5@`8.8B$OQ`<.P`_<P!PKP!$^P"`TP#D`6#>L@#\/P
M"`9@#0'@"!ZP=A9P`+X@+-SHBSZ`A@,@!T4`!9?8B6*W",AP#]&P"/CPC":`
M`QB7#X-P#`/@E%!Y!<^H<\$@`/>0#5NP",,P`,%0`&Q1`N"S`N"P"/S@`0;P
M`3]I<[```JJP",OP`;X0"$_B`$Y)``1``O[@EG")"T,``JM@<XL0#'E)#X\(
M!8O`#8O@#ZR`9#F!#C>P5O3@!%;P#P9@#`'`"N@@`P"@"IC)`.@P`G4B#\90
M!`VQ#MKPF$NP!#LP#W.``*UP"`>0"$3@#S4YF8E@`LB`*":@DSR0`'0@`#P`
M`L/``US@48#``R)0!P/`"NN@`=19!Q;`"CS0`'00`=MY`(#`!_X0G03P!*JP
M#NV`G=IP?E7`DVLW`V`5#(N0#HN0#TFPB9VX`/9@4XY@#,]8!-"H#T5P"4!`
MF(O0#]%0#@,PDA]P!;_0%^@`#OOP!8OP#`LZ`/B0""Z@#.IR`([@#3-@#TDP
M#A,0"#RP`T.@?8G@!PM2!*R`FBNB#^+0#HG@!`#PB%T`?5X`1T4(7W<`'#>`
M#I9Q5`20"+UY!3S7!<*@*[QR!8L0;\JV`/AP5"OG!`2@./<0#E)IEO=@!@;`
MH6`:#@-P#1AZ3L+@&MPV`(3(%FP``&Z*"&>A)VXJ#@B@(W(:`$>@`&AA%6YZ
M"WX:&WMJ"(,:;&ZJ"V,*`'FPIY4PJ/WDIO`PJ`VPIV>P`&CQ`'O:!Y@*`!&P
MIZ>PJ&CAIHP@`&BQ;VY:#E`(`!.PIXS0J0?IILR0`&P!J*U7IQZPIPE0`&"1
M"7N:#P6`%B2PIQA@`&@Q`WN*)VA!`WL*`76J!'O:!;S:AGO*`@>`%E&PIW%@
MJ@`P!7MJC6A1!7N:!JMJ!7MJ`=,:%U;1`*JB)U9!`NVZ%@$@"76Z!7OJ!(MZ
M!7O:#GD*`%BPIT'0KURPIY30K^[HIF70KUZPI[K0KU\0%@0``>V*%HUQ`O$*
M`.K!'G/@'O`A'_1A'_BA'_SA'P`B(`0""1I@%9"P`$-0!W*P$FZ0$V0`$G#`
M!F&0!R!0!VXP!W4`!W#P!G)`!V5`!B!@!D`+`G-`$V50!FX``F10!VT`!W,`
M`$\;M3QAM`HQ!CK`!57K9)`0`ER0M"O!M`91`$00!F[0!`;!`4]0!SEQ$TX+
M$FN`M'`0!F-0!BX``B!`!%`+!R#@!F^0$W,0!G8PM"X``&W[MF80MW,PMW-0
MMW>;MWO;MW\;N$A+N(:+N&X+`G`[LXU+MW:+MWK+MU%;N8*+N61PN(G+N8OK
MN8X+N:([N:4+N*=;N*E+M31KLXW:M5?[!FW8MVWPN`"0!&Y@!V'`!FE`M%TK
M$F%`!VB@N8I;M&G`!DR+$F40%++KM[1[N;9[N"X0O%X;`2SZ!4:0!$Q0!%\@
M&J1A$!@0"*P1&2.0L>U1'4#`B(?1JJ8``$O@$,'6%Q/A&N\$!8)`NGY+!"]1
M!F-`!T";!SI0'06QF28``)6*%L4!!8#P!&M`OP"PF=Q6J6`!"?(%"$.`MG<;
MIP"@H\$F!:\AIPH!",%4'<&F&6[A&A8!P@(L!&$P!V4``DY@O0U\PCM:62NL
ML@/@PGX)`,'&;3-,J#8L"$X`M6)0!G+PPSI:`@"0`BL<;`=AQ-4A!QL,`!%L
M&4`7PE'@$G10'?*[L>\1'VH`&@``````````````````````````````````
M````````````````````````````````````````````````````````````
?````````````````````````````````````````````
`
end
<`_=BA`*@*D&O"/!YRN(\"'
M@[0CP"+E?-!%$\H8`$"#[`S"C@BA``)`(D;X$\I=Q+ISC!$F`K`L/P#@LJP\
MU2U+#P"Z+&M.M4:@`P`ORXKHK!'D`.