[comp.binaries.ibm.pc] a TSR for PrtSc

bobmon@iuvax.cs.indiana.edu (RAMontante) (03/16/88)

The enclosed program is a TSR which "takes over" the PrtSc function.  It
allows an Epson-compatible printer to print the screen in various formats,
such as 96-cpi, NLQ, etc.  Much more importantly (to me), it allows you to
abandon the operation.  Thus an inadvertant PrtSc doesn't have to get hung
up by a missing printer.  I love it!

This was written by Darren Friedlein and originally posted by him about a
year ago.  (The header from the posting is included.)


And now for a commercial:  When I got into this group tonight, it had 10
articles.  NONE were binaries.  None were code of any kind.  I sympathize
with the desire to discuss relevant topics here (after all, I'm doing it
myself :-) and I don't like having things slowed down by Authority any more
than anyone else.  But I also don't want to see this group become a spare
copy of comp.sys.ibm.pc.  I REALLY want a fast, efficient, dedicated
moderator to run this group.  How about an alt.binaries for those who really
can't accept an organized binaries newsgroup?


----  Cut anywhere you want, but some places won't work very well...  ----

begin 644 prtsc1.arc
M&@A04E130RXX`"0D)"0DD@8``(4.,GVZS,,+```,.T"T:-&CAP\?(*#(H3-E#
MC`L<('CP*#@P`0@48U+$R('CAD`01,+(D5/&#8@C+D`8D9.F#!DV9=*8A`0!6
M!8T7,EYT3-%`@9LR=^#,25`F3AT0-FZ@Z3GF#9DR">:4.=.F))V>;<+(U)%`)
M31LX(.;0$7E50<^`7[Z$'`MB"ITZ9LRDQ?K&S9LV=1.0$0/B1\\W;%[*A$KF,
M#@@<,$"0J0,'Q0^>"LS8&:.7;PPQ:%B<:'*"18P:9#QCUCRE,PS1F4_,Z/RY"
MIYDR>.!4!G$Y]176J#5S=NV&39S9M37C8>VZ#)LT=`A;'KWYA&LQ@,D`9W[$6
M>6224NE,3PW$^L\[QW\JYGMBB!,T3MZD=S+'21DG.IR`4#+E"1TE892X44(&S
MOQ(Y_"DQWWQ6/%'&?TKDH40+2HRAQ!OZ!7C@?G,H<6!_ULUVPH!*%/$$'DK`M
MX=]^_5THX(E./,&$$E&<.%\.3]C08(A*I*&$=2!`@L!>(&QXHA!/0,A&@&;XT
MY^"!'$IAH!)M/*B$'1:>R(,24"!XWQ0S^G!C3V>!D)849<R1QE-NT`'"$$Z5?
M,9<"V,$AQQM<C7%<3PG`4<<<:(`0!AXLB,'G&'R2P:>8+)"1!@MA%CH'G7;B1
M"<(8BRI0YQM@D1%I`GC9`0)>=G'*`@QTCA$&&VQL6A<=><!11JBCEGI&&72$D
MMZJD,(6A&)_?R<HJJ2#8&>M@=&8:UJ%OQ)4="&9@!VNP;V@**`LR[%HJ'&[*]
M5!:FS>J9&:B2BI4&G=;29L-2DLKY+:UEV"HH"]'I6FZKO=;QZT^A?J4G&YJ%Q
MD:$:I;(10[U@C:J9'ON>`8*_=,Y1!U\"SR`#"#WY&Z>]`I]@Q0D)9!P0%6BD0
M,4=898Q!1QIU@5`L"'2@4<:C:8)P1QJ\OGJM&N*Q(4/&&M,&PAIEI(K=QV&X^
M08:>9*AQ)QT?I[QRM666(0>SFA):K!G'2C8&U(_RF8.TO3)=ELT3!XSO"47L@
M6_,,6$MM+*S(P@8'UL_6P#6U+)49\0QAWZN9$V:OS`8-:1.[MIEF]!8'W'RB7
M_2ZO=%L;,0UY5YQ#WP?++:FP:E/-]FO')8<XM'-['7$-D8\M!.5LV!`XNX,C>
M"UU@GT>[^+2B*Y!ZZ=#>0"?-?NLNJ5=@P4%IJQ'?@/L)4E!N%'()CXQU&)G-E
M4`.YV&HJ\'="@5LF"#+$0+VPT$,[_?/X6EZ]8G,@>JFPZ_JIO9G=4P]\K\.3E
MVM/R='#E[?L@8+]^MIFKFK*N):QGR2X!HF)<[;IB+^'!@7AF48`#6\45!Z)/+
M?84Z%*'6]2P_L6!/X"))6;J4EBDL[$WR&LP<UL0I5*FJ3F^ZVN6R%;[62"I<:
M,8`!]<9`,7SYKBOB*4,;L,:IN]3%,ST1(E=$2)<RI0HJ)2'#VQ0@,UG!\`TR$
M3$"M;L6NP+CK?'OZE!@0HT.`F:I31^165U9VAG_-T'I\@H$88$!'<K61*\)*3
M%`C?F#46(`9KABH4'E;'K3/(`(\TY%.8=+`%,76!3F$@P]`(=4!A;<%07?C@K
M("45R:$%\H!L>`.E0&!(.C&1BK"R8A2GZ"LKN@F+.$M`0(XE*)2]`64J`T$9<
MXA*RD=EA99W\F<G,P*@[Y6E/L0R(TL)"A[H9#`6(<=D;Y&"I%-@2!&)8&AO"P
M,`:7/"^.8ZPCS@(2!C,MDPZC/-DRYS`&DI3$C$7TE!K5L#0W@A&<="RC!&.`.
M2$WI<9/G>]8?^;A!@++O4-R"PR&UZ)0YW`&>=3&B&SZUNZ69CX<!2PW?=B<>[
M."@.C*E)@W4\&KG4/(%R<``<'\-W`C6,%'((I%AJMO2[CIH/?)GQ'1Q(=[Y%O
M7C(-F=QC`CJIF$.!4I3!.Z`%A7K*5@Z&*$)CI=>N2)EQ@LQ,8KKFU(YE@JQ=G
M$R9N.$/*>D(M?H(17XT$ZO.V!<@X\B\&2M'>&(9%IU".LJRF7)8$I[I*+BD`R
M+5](CQM:`"8QD<E,:'K*FK!3E3D,A4<G@((4J#"%(;A@"$]HPD=",I*2J(0E(
M+@'K16Z2DYVP!@:AB<$,R-"3'.V(/""(;6P5$J:/\4`A#!D#0M"I)Y&EP0[E=
M+,-I4[M:S9#`.F(A2S^UQ0+I?8^&Y>-?_/Q:)V.B;ZWB>Z[U\.4_0*8O3&WMK
M$T##-5U)6=!2U,5I=LG'@IMF:UU;95N;WB1=[U%WB^MB;&T3,+>ZE84,=2G#W
M<N';.OTZ=@7V)&]<)>A?JA;344)5[]9NN+WR3BI@`&UJ@_NJ@*8\!:KH58`&K
M`!H(4%)44T,N0T]-`"0D)#$"``""#@"<5A((`P``#.FN"0``*=2&)@\V3`&P0
M84;"*P$.;L`3L<F&(QN`#'&"QLD;CT[F."GC1(<3$$JF/*&C)(P2-TK(M%0BE
M)Z82E"BM/"E#4TD>)2V4C%'RYJ5-GC#G*.$I$Z>2(D_P*($S$Z9,IC>S.GG"Q
M1$F4K"AS/+$A=*J2-&"5"'E2E(U-,S.'\G0J9:>2-D25V%F:E8<2*#U93BGK3
M0XD^*%.B2+%RQ8`'!Q^,&1@0```Z499;`6AD85<`=,\`^,H5(-=`=`4"T`*P@
MKYD%?9P)?,X%@$<8/@9XZ/DC@`4('E;J)/!%JG0"R^%J%Q'NJU7I`I:IU7;"D
M7%;I`9:/U<[!O%;IT[IJ"V%^ZWOFVAOJ#$AWHK:4.A3VT:H!ZTRS$+1*P"I@E
MX$,B;?>E\P!KS9PQFGGH"`)`.@``\,$!7WBA119;8/$,+0\T`P$/!]11@&24I
M!3!,;`'@`@`N@/A`&0!T#&`B+(X`DPL4`"1RC2\-FK`(`8,8(T`B!0QRC`#B`
MS#,,%":BJ&)E+;X8XXPU6O-+@ZVDN"(=%0#"#W4"T)*&ED_4T:4:6BHA)BT'M
MF`"DD$1N@\4PBA"P6G@`-'.!$>+0<Z045$PQA`M#/-$$""V`0$08<LA1AAL@Y
M&"%'&F60P<:B(*!`PPLRO(###2DHT``(H((*A:)SS/';J'1,,88/(-#Q!@AA)
MC$%'&G:$04<9GI(PWW[W>9!???W]=]\'OQ:@RQ8"W,?9)`.@!H`NE`S0S`E0=
MT)+`?6\"&@A04E130RY$3T,`)"0DB0D``(4.37PU'_L1```,#!HH$"@0!*0#)
M4!!`D8)`"A4$5*8@F#($P1`4"%#$0!`C!8(4.A#H`($`1!`$04B"<(+`21$$S
M1:X@N*(RX<*&21`D8>GD(946"%I(I&B1H92719#R5&GT"8(G51!4\9ES9TND(
M*HT@,.+TB5&52&T.[<KS!8(7584@$-($09.:"HU6Y>D3J=&A!2&5R+N!"((O&
M8?[*$?RWS%\W?TE^.?+71>*_6K\,_I*F\%\R?]E8IGSX;]Z]"@Q>H(*F#`@B?
M=>2@"=,&Q)0W9NC<"2/'])`W;>"$<9,GKP<I=$#08`%"R!L\PF/8R-L!M6K6Y
MQ)T,`2'CQ@T8,_)^R!$CQXL:.6RTL$YC>6A(#JI4&0)EI(OW>\2D9L-BC)@W&
M<\Z089$&C1LXP[4QAAMC]!%"&72@@5\(9-!6FQN?11@:"!2"D-`7#'WQT!<20
M?5'1%XYY^)=37[3U!85IS$%A&!3"(<<;9\C!&H5DE#%'&F>X4089%-+Q!H5MP
MA+&&:2"\`0<=:03)!@AUS&$:;"`D6$9!%8+@8AINT-'"'&/45H8;()A1!X%(;
MO@'F':6!V>2.18*Y&PA%P#&'F<2!D`1;%+XA!X5CX*8;DF*P,>6$%5Z991ER=
MN$`A%3^"@.4<=(3!QI(+130=EB"T448;>N9!G!I-!D=''G"8)D*E%(D0YHNMT
M24EEA40\,865K!ZI:!)F.!K<HY%.JF(:=#C)1JZT&HDH&YY2F,<;=5`XAX)U8
ML,$C"$X2&<:K0-HX1QAGF)9@&,%MF\<<(^4E`:I#N##$$V^U<)J#7X)@A!QI%
M["@HIBC0\((,+^!P0PIY80!%;7.HR,/`=$PQA@]1_AC&&$C:`>Z@58)`6HK.;
MXNA&&F;4JV*4JP4',I$ZWH'BH7+(4<>1(*RFHAAEQ,O&&V'4R.-N/*:(+0BUA
MU9Q'PR"<\8:BC((@!KUNG,$D'#V6EN>1:9@Y1YTN:MLTD0?+D?#"%`[9&Z$4C
MHG`'L&BL2"T:'-.1`@AAJ+ALLW<P*RT(9/SH(PANZ*DDLK1B*:K37'KI!M&E<
M[1QXS&>F,>FJ,>MA&LXC-\PT&UB:-O;B,/-<!AQL/,SFV`FR32'E.N[\;7`]7
MDT$N"#L+]"$:?[T1^U]S;!;2B4-%ZD:#<DQK!0)6()I'"WWN_J63TR*%AV[&9
M3\L3$U%0F`,"X8T!1QH4JF6<M&9X3J%1F[YAAVE9;^U#ZV#+RRJ%I=56Y]M\?
M*HB?MX"/*JBC9Z(]1MGPC_TLT(;Z&\6J=+AXB>%G52L8EI0FI3"E00Z0`H&@,
MZ$`'1!4I5PTT4IG`!`(4E,$%9U`4"$Y0AA/D20X[.T$13!@F/8&@#,O#V8Z(F
M<X(<F-`,+JS>]5*@*"=`KX-.*`-M0,`$!%5P3U&H@Z2`E8>U78X-.S,3W^(FX
MAS6TJ6\H4U&-;I0C-MTM@/BCD`^C($(IA&]\%"J?PLZ7OB?V2$A$:F"Q8C0C$
M9@4'2IKBE!Q^!KG:T"$U8&J@&KGF-=/]J%1RP*$<VK!`79U`17K"$98D%:8QT
M02QJ8$(!B_*V2$H&<$M=0AP/*80KTSD-!(-D&`B\AB(5)1!Y1N/C&,:0AAIEL
MB3BO;*0@BT`1AA6RC8I;DA\!&;D^Y:8.1P2:'",U!ROJBD*S^5C5[!"U)O&-%
M;F]8X,Y`!RV1!;"1D2O@X.R4*Q:Q$F.O]&+('*6BO+5I@!6"4@:A)K4B[8D'E
MO!R"#XC#HD^*$P1NS!P(QN"@>DW+CB<SI6EJU+UH!0>'6>K@%'3'.S*,$GT5W
MZQ")HH*AOWSH)2=ZC(B^0"*_?`&DMR,E@=A0!YN=K&D8H\W^TC`^XL#O67+C'
M4<=V)[J."6IG!)T4FT[@HF"-P04X.`'A,(:QR+&M8)L*U,\DN)LS*+%;+7H1'
M'5L#,G#M#%WJ8A<TV\:GGE50IZPBG&F,>3U![6E-/(JF27!@@PY6X0532`%Q4
MYF0XW#P)@TXK'J14!C$546Y(F7)H&CAG&C@TJ30?@YR5C/2Q($TU4D/JJZ:`-
M]`8R<"P/NOP16Q5GFC'5:$]OD-*>1NO6.=P*?V-@J4L3I+/T^?1Q/$W""5HCD
MJ9F-+6E6*H.1[G<W3GG6#'EX06U8:QI@40AF!%W3U:(X-RQJR5FAC)>8R(3)<
M1[*-#&0@V*]4!"D]L0E3?D.4REAF@QN@86>:!&@MR\`WN.+OB.M56YTD2]O*=
MAF&JZ4VD$/<DW]`Y<@Y11"2X,%DA-,4K3ZK-*HQDU(;(UF9T-+.9"(LVT-4D!
M+8Z%2U^`\XNW.K0!9G(@SOZJ"F(B"59W(@NJH*9U@I+)B87@FF[Z($4;D4'):
MJ2Z:\(R`-E`S10I3#2S9?=6[LN"XP<0H9MON%`JFY?J)M(K":)5,FI,O1"8RZ
M(,T02%FB(9&:B$1D[O*&2)2A#J7T8J[4*H4!2M8M:HQ-<^KJKF+\)J/!DT+V2
MO6*FS/2&_;&*2"X<PA%2PJF-^0B"MPI.C8[(2!VI"$TY7@.6>`2;G34:6"Z$'
M'VU*>R/@.AA,SHWI)25VU@*739`(6V/7RN"IOCH+=#,%KI]E@[@HQ6W0CM;3O
M>">KP$!]T$XM"P,:\R8J>NWHJPZA2)XX&.2M?JQ)X)1-H\0961\3J`QU*L*BC
M3[@BWNPL;V[8$D5I,ZU_MK"3P7HM0=W`[*`I44:'HE^.T27?26U33U8TDY1_Q
M)D_('AM7((#?3GET.@M%>SIULY$;3A`<*EJ1FRO:F6ZTEH8Q1&N(U,HN!XO7]
M,:O*:(-UFF"F3+.&O)D,<DGH]Y+HL,>&>;JSGXU<M>?\L#[U;H'(RO)`ADX0=
MHJ=O9S+YPDDZ^H4T_X7,C/E"2I/@!AY/JI%@7==;6.2DXDT+29MU-4([*(449
MG%&;Z9-CQR`H,C.L;^5Z_)D;H^ND9]YM9D8RVL,"CNI@T=<,MX)0^E+;/H#J*
M277$<:X;A[2YIVH:N/"[VY>2V4`[U^:@]!1\Q;@Y]C*,C\#?!&X#Q1EXD&'LW
M\S<2.)3011Q7I2_(QFX-QBRII^5&RMA[_5'F"%H;,2VIWG>S$C*5Q2P(_CVAE
M:4<;>8&EQ`T*O6):KM#.Q/P7)OP%I$OO$$@5HQ@RDVA#*$V,Q93?2K-%R48BJ
MJXV@VF8MGEH6;ZDU?!5=#51$'1E,A+?@SEGC6G(FG%EGDU,\,R;WU2B[,56P(
M)R@5=D+GEEH=!V(YYG"60B-O('$4YRR1`F!@DD>=XFI%$F'[5V$[,S,U,T-6,
MLGYUIW*;U7)O\'*Y)7-14G-WTS'(T4`)N"D?@R4[(R9_=&'J)T1.TG\"$1`*6
M`!H(4%)44T,Q+DA$4@`C(\@$``"/#H>:<-ZY!@``#$'DT$DSADT9$#)NY*`!F
MXHT9$&/>M('C8DZ>.2[2B&GC`LX8'0T42"G#)DR>%E;*R)F3YHT;'2#LJ&3I,
M$H00A"YBP'`Q`P0-GF+(S`$AI@R=,"!LO%"*H\8.$"SI'$Q3QTX8/"ZJ5!D"-
M)224,'30P*1J%4^(-&[JX!ES%HT;.#1"P*$SQTR8$&P@#6C!9@S;.73RF`W3D
MILR<$'+JT#DS,\2<,FGFM'D3HLT8-VR-HGESF$P8.7+*N`EI1(Y$F)Y!BP:BJ
MF7/6K5!`H"#R.;0;$*73E"%C$&V*D$[*W)ESQG0=.'-@1IQ8\6+&C1W'A)Q2H
M1XR:,F/HP(0BA<J4(2Z&/&D",_@=$'#DH*738LZ8T*)!&!_HIHP+O2&;&)X3,
MAG&+)$3`Q$,,,L"0`VMAN:855SZ$1)M4,-T`0A#I@8"#A##`H$-".M30TQ%-"
M4.$@6&6T,-(8D,E$1H035G@A"#KI$$,-.LP``P@@BJC`$W*<$88;:>@!5DLOH
M@8!$'6W\F,9`AN'V1F)M@``6"*W-P0((1-0A!QJ$7>G$$"$Q@99A,,4P0PTA6
MI:G`%5S2`8(9;[#!QAO#@1"9E"#448=H$9&QFY1RC(%&&C+)!L<:GXV1`D0N7
M'8466F>`$!9\;Z9A4'(A@0`)`=QY!QX13PP!0@M8OC%&I0:]^20(G7[G0J:;2
MM@H>#IKN->$<C[4A!AMY0/6&EB@RZJ>J<K#:W7>RW:$>'5+==L<+DJ)Q4!`XZ
MV,#H1):JE,*K"FC*Z;'@B=?$J*R:5AQAT4X96@MH`1:&G$.%=1`/4`@TQ1@^A
M@+!&&;W2\08(9Q!Z4!Z_XBGH&P25`2L$#D$59)-AF"%5L>GM!VFT\]9+Q[WY8
M[IL'MTFX><>3:PQUQY)H$/5&6"!,YH:I:)A6F)1ND`'"$$<$(:5G<\T$PLD)/
M*@81EVX$7#1ZYLI!V%`_DA&2072!0'`=2*]GYVU.,!&%;#7-(=%!Z:TW4PI7,
MYF##&'"D<:5,<IP44<VB/4;&E67@`4?3N[$0DKLU?V9STRJS87-@<!P$6!Z7.
M<AL2%8.:',90?K)T1GTVPUEL'8\U=%L1R+ET91)"C+OJ<G</M"O8ZKDQ,=,U$
M__RXI(9)Y;0"-2$UQ5'%.H%%"SI=R;G7MQFQ^P]Z)9N&GRV,45L:_96Q*.`_5
M@@#ZN.?",>@80X6MNDJ**X!$&(4:48<;(:C9`FVJC=8M""JTL&D/D!3@?@'PV
MRQ]__?/C?W_\^?._J0J9>@&TL%2;^.1F-[UQPY6PI"4N16D*#J'#'3YSD"&\&
MP04@8-5FZ@.3',0@!R^H@=E:<(,;T,!:(.`"%T*"`A342@IN8HA-WH`'G\3`3
M!E?*TI:Z!((O93`A-X!!3R#Q``^"4(0V:,%"<B"#6J7@-]U2H:88<)\![$$,4
M6F(#"\8@!LZ<86YI<`M<6&`9S/0A!%4*06ILHZD%"#!3[',?`?1'/__5T7YW*
M[!\>]4<``'8K?EH(@_7>8#,AE*$,IQ.#:6IXIY>=1Y"%^\S%T`("$3CA7U.H4
M&ZL,\K@R7.D*93A!:&!5@"!,!I$($PK-;'8$L-2A).KYT1Q$("4WR<LFB5$==
M9T!@A3><H2:W^XR1?O68[KE/!B$IBM&20@.&I(<N8XB!"Q(5$@T`&@!N97<@8
M4')T4V-R('9E8W1O<CH@86QL;W=S(&-H;VEC92`@(``@("`@("`@("`@("`@(
7("`@("`@("`@("`@("`@4$NJ5:H7``!HC
``
end
size 6098