[comp.sys.ibm.pc] PRTSC.COM: New print-screen routine...

darren@ethos.UUCP (04/07/87)

What follows is a uuencoded archive (pkarc) containing three files:
    PRTSC.DOC - Doc file for PRTSC.
    PRTSC.8   - Assembly source code for PRTSC (written w/ the A86 compiler).
    PRTSC.COM - Program that re-installs the <PrtSc> key to give you a choice
                of sizes after pressing the <PrtSc> key.
It works with both monochrome and CGA adapters without changing programs and
lets you print in NLQ (on some printers), 96cpi, very-condensed, expanded,
standard and bold type styles.

This was designed for use on Epson, IBM or compatible printers and was tested
on a Star NX-10, Epson FX-??? (wide-carriage) and an IBM graphics printer.
 
Have Fun!

-Darren
  *----=====-----=====-----=====-----=====-----=====-----=====----*        
 //  Darren Friedlein,  Durham Software Co.  Phone: 919/596-7746  \\
((   Rt 4  Box 416, Durham, NC  27703               919/596-9492   ))      
 \\            ...{burl,cbosgd,ihnp4,mcnc}!ethos!darren           //       
  *----=====-----=====-----=====-----=====-----=====-----=====----*        
     Zaphod Beeblebrox is now appearing in "No Sex Please, We're           
     Amoeboids and Gatularians" at the Bruntos Vogon Star House. 

--------------------------------------------------
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!
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[$
M>6224NE,3PW$^L\[QW\JYGMBB!,T3MZD=S+'21DG.IR`4#+E"1TE892X44(&
MOQ(Y_"DQWWQ6/%'&?TKDH40+2HRAQ!OZ!7C@?G,H<6!_ULUVPH!*%/$$'DK`
MX=]^_5THX(E./,&$$E&<.%\.3]C08(A*I*&$=2!`@L!>(&QXHA!/0,A&@&;X
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;B
M"<(8BRI0YQM@D1%I`GC9`0)>=G'*`@QTCA$&&VQL6A<=><!11JBCEGI&&72$
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%
MD:$:I;(10[U@C:J9'ON>`8*_=,Y1!U\"SR`#"#WY&Z>]`I]@Q0D)9!P0%6BD
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'RB
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-
M4`.YV&HJ\'="@5LF"#+$0+VPT$,[_?/X6EZ]8G,@>JFPZ_JIO9G=4P]\K\.3
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*\)*
M%`C?F#46(`9KABH4'E;'K3/(`(\TY%.8=+`%,76!3F$@P]`(=4!A;<%07?C@
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"
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%
M7C(-F=QC`CJIF$.!4I3!.Z`%A7K*5@Z&*$)CI=>N2)EQ@LQ,8KKFU(YE@JQ=
M$R9N.$/*>D(M?H(17XT$ZO.V!<@X\B\&2M'>&(9%IU".LJRF7)8$I[I*+BD`
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&WM
M$T##-5U)6=!2U,5I=LG'@IMF:UU;95N;WB1=[U%WB^MB;&T3,+>ZE84,=2G#
M<N';.OTZ=@7V)&]<)>A?JA;344)5[]9NN+WR3BI@`&UJ@_NJ@*8\!:KH58`&
M`!H(4%)44T,N0T]-`"0D)#$"``""#@"<5A((`P``#.FN"0``*=2&)@\V3`&P
M84;"*P$.;L`3L<F&(QN`#'&"QLD;CT[F."GC1(<3$$JF/*&C)(P2-TK(M%0B
M)Z82E"BM/"E#4TD>)2V4C%'RYJ5-GC#G*.$I$Z>2(D_P*($S$Z9,IC>S.GG"
M1$F4K"AS/+$A=*J2-&"5"'E2E(U-,S.'\G0J9:>2-D25V%F:E8<2*#U93BGK
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;"
M7%;I`9:/U<[!O%;IT[IJ"V%^ZWOFVAOJ#$AWHK:4.A3VT:H!ZTRS$+1*P"I@
MX$,B;?>E\P!KS9PQFGGH"`)`.@``\,$!7WBA119;8/$,+0\T`P$/!]11@&24
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'
MF`"DD$1N@\4PBA"P6G@`-'.!$>+0<Z045$PQA`M#/-$$""V`0$08<LA1AAL@
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$$
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!M6K6
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!<2
M?5'1%XYY^)=37[3U!85IS$%A&!3"(<<;9\C!&H5DE#%'&F>X4089%-+Q!H5M
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%(D0YHNM
M24EEA40\,865K!ZI:!)F.!K<HY%.JF(:=#C)1JZT&HDH&YY2F,<;=5`XAX)U
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/*:(+0BU
MU9Q'PR"<\8:BC((@!KUNG,$D'#V6EN>1:9@Y1YTN:MLTD0?+D?#"%`[9&Z$4
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`]
MDT$N"#L+]"$:?[T1^U]S;!;2B4-%ZD:#<DQK!0)6()I'"WWN_J63TR*%AV[&
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(
M<X(<F-`,+JS>]5*@*"=`KX-.*`-M0,`$!%5P3U&H@Z2`E8>U78X-.S,3W^(F
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%:8Q
M02QJ8$(!B_*V2$H&<$M=0AP/*80KTSD-!(-D&`B\AB(5)1!Y1N/C&,:0AAIE
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'
MO!R"#XC#HD^*$P1NS!P(QN"@>DW+CB<SI6EJU+UH!0>'6>K@%'3'.S*,$GT5
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`%Q
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""5HC
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"8R
M(,T02%FB(9&:B$1D[O*&2)2A#J7T8J[4*H4!2M8M:HQ-<^KJKF+\)J/!DT+V
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;3
M>">KP$!]T$XM"P,:\R8J>NWHJPZA2)XX&.2M?JQ)X)1-H\0961\3J`QU*L*B
M3[@BWNPL;V[8$D5I,ZU_MK"3P7HM0=W`[*`I44:'HE^.T27?26U33U8TDY1_
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([*(44
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&'L
M\S<2.)3011Q7I2_(QFX-QBRII^5&RMA[_5'F"%H;,2VIWG>S$C*5Q2P(_CVA
M:4<;>8&EQ`T*O6):KM#.Q/P7)OP%I$OO$$@5HQ@RDVA#*$V,Q93?2K-%R48B
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`*
#`!H`
`
end