[comp.binaries.ibm.pc] v01i147: sps, selective PrintScreen, prints selected block v2.0

alexc@tanya.UUCP (Alex Chan) (02/17/89)

Posting-number: Volume 01 Issue 147
Originally-from: Bob Montgomery @ Black Hole BBS <no email address>
Submitted-by: Alex Chan <alexc@tanya.UUCP>
Archive-name: sps/sps.uue

Alex M. Chan
AMC Microsystems Inc. ( Private research and developement )
....tektronix!{psu-cs,psueea!psu-cs,reed,ogccse}!qiclab!tanya!alexc.UUCP

[
This is a memory-resident program that can be invoked at any time to
let you select a rectangular portion of the screen, or the entire
screen, and print it.  According to the documentation, this program
traps ONLY the print screen interrupt (number 5) that is caused by your
PrintScreen key, until it is actually invoked, so it should be very
well-behaved and should co-exist with just about everything else.

Seems to work.

Doesn't detect an attempt to load it again.

Checksums obtained with the 4.3BSD "sum" or System V "sum -r" command.

checksum     size (bytes)  file (between BEGIN--cut and END--cut lines)
   22057         8491      this uuencoded posting

checksum     size (bytes)  file
   36314         6144      sps.arc

-- R.D.
]
BEGIN--cut here--cut here
begin 644 sps.arc
M&@A34%,N0T]-``,```2^SP,``)<.X(GP<YT$```,Z6@0``")PA,,!%=,@5,&
M#ATX(.#,<0@G#!PY%"-"&O!&(IPT%$%V=`-G8<.'$1N2)`,1SL:.$T$^%`F'
M9,2(4"Y^K$FQ(<:()#NBU-G0(LL\+0E.J0)E2A0I5JYX,)"HG(,/#@[D`H"+
MUH-F$!#YT!"`AP`Z&W@,H'.!QP$Z$!*Q._#ABQ<M6;9@Z>+BGXL!`;;"F@4@
M0+9$#AX$\(`+``!'V/2%`@%@D0<1E1V0J&S!!``7HPX$<)'(0X+1B!>@MM`@
MP#$#E*D)8.0`\^O-YF8[\+SOP^L*`1R_OA#@H#$#&X(?YZ#<0(?@M`8H&AL`
M;"(+$0(@GA!@AC1TQ@(?,$"K.@0/H11#]L7GP2\0@24`F%?J@R\B`=#!"K#.
MGPM`/F00'!T%N."/`P+VY8)H^T!!#A@`,@=`'6VI0@<!/-A2AP%8**@:#T?4
MH8!WZ,21GR0!8/$,#T_448`N!ZWS#@](U)$`(/X`0$<Z_CBSCC@\0&$CCAC0
MP8T_QJQ3#0]+U%'!?SX\IR,!L@"P3C&`Z*/C,/XHLPXO/#3A))127BC+$^NP
MDN43=*CBCS#KC,)#!QOZXQQ_G/#021T''"?E.I'P$$`=`Z3#"@`\9$"'##PD
MX:(M`*2CQS\\1/$H!NG$02D'=>0#8'(31G`=<'8FYPL:^543*1;_7$><+_"A
M@PP`=C(7"G"+.$"<"NS($88*R,C112#!!!``(BYX<.Q5QP93"Q2&@&-/.;4`
M,$`PT8"S"#SHJ8=-5BXHPFRUO^P7512MJ"(./[@TH,`J67P1;@$\@"`'AO_<
MZX(Q!8!PA#CNH#,)`%X$8@PHGQVH;!W(V!>K%)\M@EU^043L`'?E@=788Y&Y
M$(IH+EAV6L@.J!8R:P&,0EEIF"&VV76\H0,#`'+191=>>G7Q#"T"3$<66,-`
M$84!5Z07@"/`_-)>+O+1]\4!66`Q#"T`-&/!,.2$@0@Q#`!BCM;@?*T/+""8
M`\(^PWC@W57'"4@".F8```@_D.A(`H`"3A@/.EP`T'8`M*#SA-QTZZ@`WL'5
M$4\Z1_R#SA(`^+*?N!\$4"T@P0C`"M7-7&`/,1!<*`X]'PQC111_!^X!`.A8
M`,#G"HB(N-[I.."X?%EXL<[.`G1NNB^,Y#?%/U[\#M\Z]:P3A+M3E,%&&6/0
MD88=98``A1QIN$$'"%.,(4<99;@!`O5RN`""#"[``((8>8`@Q!MB@-#$&]J?
M\48;9<C1?O9ST!$&&\\C@PO<10):U``6!6A&"$H#&$88H`"`*P$"=3&`WH5`
M%SDH`"T2H$!=W""!)P`:"%-04RY$3T,``P``!+ZN#```V@XE@&"-EA@```P@
M("F8`F6*BR%/FH"P4T8."!DN8(`0DP>$D#=B0#1YXX;.F3=M&N9A`8)&"QDS
M6N"XT4!!2RIHTLP!(1-$&!!4&K9)XR8,G3(VW9`!,85.F(I2RLQ)0Z9,1Q`H
MJ$R1D@($'#EOSL@)TP;$G9ACT(`@\T8I")LMIY1A4V8,G30,ST*1PY,.T3%R
MRCB%BL;I&*!T^H+H&9)HP10N0#QQ\Y>FFSE&V;`E0Y(FG98,W;Z1,]/Q3SER
MZL"Q6P-J8*!7ZX*8@U>O&\\-0X^N2N>-Y3EKS50.([3E4CHS[X1)\];-&1!F
M-MNT2O<IZ[Q[\\:IHY1.XBM]7^=Y4P>$=.J0EZ?NZ+NUT\JGSXZIPUEYS39O
M&`ZM#2)];3@@WIBI+_BYZ]U"G75:2U>!--I9)ZAEUVI&R;$@'&_\E@9')]@$
M!QQEA,&98_P!!0(;;]S1T%ETG8'&@FCP1D9+8VSF1D.)X208".NUYQ"-O$T$
M%'SRV815'0%V>)9_>WE%G%@=MI2<9"'R=-P:9>0QAPXMM110`5*D8:)=&F)U
M!P@M@,`C4#7.H5R))^[`X!MPS.23=UJ>"$(99)Q1AI60%,!$&69P"5J(8)XU
M)HWLF>D06WVJ"1F;;MJ%J%UTVHEG`57@UR6@84)"P*!E*B=:?B]^R%,9BM[7
M:'ULBOKBI$2$^-JE7VK*::'*D77':QP!Q<:HI3)JDUUBO$%';5WMNJH"5T(1
MAIT@5!K0`;/:B"JJ^!E[)[)Y*LMLJ[=>&:VATP8[+$BJ7GNE%UENZ:.7@L9'
M)JT.T8<FI'4"I=]JYKDQJ1=[]KDNH)`,\*UR]#TZ9[WY[4>DOM@6@`1(0`DT
M<+RVB8;AH7S:U:(<+SIT[\*3%A$@)`M,/"V((CHT+XTNCOAQOI-"$5`#<ZGV
MU1MLX0L=PU<6P5H8&`:$P!"\_<4&<ZJ![)("V.V57J<.U?1F>DTME==0D&EH
M%X02<D3254K-)/)G0:VH0'H%MG%@@F5`&B#7Q$WH1H5WI"&9A1AJR&%Z*(^X
M<HJ]*;!QQS%N%-?3\$Y+M5)I7#WGVQ'&[?59*IX%]AQSM#3VB#:=,9P;B<$$
M6!EXV%5W8#P)F9=;O)V1<U-FC#H414(RJ'5+E3LU%-QO<12<W4>?]IH8J#7W
M$QDN5*E`$ON!L%UW9,UM.F]VT4>6>,;K_!]S88/@\QA`>T@?CHRMU5)Z;#;D
MD]QE>]<V>Z_1EUY=L8EV/'-9;=5&8LP[S]U9PB'/V6PSGNH)YF8Y6]C7\H(Y
M(<D,!19SV:%"-"+PX:8J4,I#\I8F!#YM!C""*>"(LN:@F130221!&U;49I?4
M\8V"*HO39037LAO5Q'UC&DK[T%<BGH0A>*1K86<86)NKQ:A_25*`"&W8&3<(
MBT09(D-%4%`KI:RE+<=+`4EN@C\6(JAF'>&<$V>8ES!(L4)&NAO>,F3#^`FF
M;S%4%\LXQKDP]*F.P:K#@F3@F[9PA`QS"%UV;')'AX0ACW:)@41PTR*AS($D
M:=B/"ND7M9E`!GB#$59+RBA%],RH@$/*5WXNMCZ.V"18)6R?^^@`O\Z,;T`*
MH*1L[H<_K7#EB/LA`WN<)"10+NPLZ=M*[UZ3Q"6>A7@M"DEG3C!&]YDQ#R?8
M8A</5+>[_>1NSQ-03!Y)N<"=`2Y`R>8AN9/(1?K1D=.*'1YZB14QL*4KQ$M.
M7DZYF>*<88,O^216;-D5CK"A(G382IM@`QK[@:`T*/!EOJH"I+<<S3%V>`.4
MS$8[[F&.EU.(B;_F0H<IC$&0Y[',0K!(,,&\)22&#%(&@Z4AL\G2?IU!`0[:
MEP/:V(8XN&&#;MHWAS`P9";H8\-0,E/$0)ZE:0PC#DUF$KTR0')K>@2J8'`V
M5))N2`QA&,,:MAB@Z>"4?VZLB7!&TA*EUB1L3GG+#RO"S">>)B\5:JC=<"09
M.G%U*&TU8$/*@$8[?J:L"[IA4P7YG@P]AC]O4FHUC]9,@IIAKP`\$C#?2J!]
MZH^;JFPL^.J`&\J1@0R2Z\E#"_27BQKG+$UAPU&,JICRE=4-$9WH4^LC4#?=
M;:5O:*ECX*#']I'%+,V$0Q@:J-3)K>8-YYO12T=#)\M9EBLD$59?'"(5*7"S
M<D)(PA.F,)@R,.1&:W#BEQ`[PPS.)$5Q(=Y>+H<;Y!&%)XWAVW`-R,OL;A<$
MX2W#E^+YP6(^MRM>&2Y$)=I<X4AU:H+):"2Y%"".>A2_4>I,BG2H7H:QUZZJ
MN^)P>7FO]"C87QE<JE6&VUY0'9>\%M'N%%B4H^OA%`1HX`YNH%0&.#A)37EA
MRX9/FQX'CP'"%?GM3!IKQ\>Z);D>LB]W8\S9,M#8QL8AB9E$6I/@DKBY'"%L
M9T+"&U>F:(;IJ:7^Q,19N^!&#G9(0WP%@UO=9B@L]4E#891JIX[YQ"Q!>>UG
M9@F"'$A3#1CQ"EC$4N7-M.&'_QQ+KB92$27C4P$PJ4F!^#DDG/V4<H.I0QN(
MY[']%,B=96@#-\U4F(0!<-``W&MEK?B4TXE%A=Z=$&='RAGVW8L@W*6=LNIP
M-"K0);=.?/258I`899GV.$#NC"EK0NJVR=DL-_GT.RN#S#`T>;+3Q1,")GU9
MJ.P*2B`80A&(4)7%KL:G(`1*!B]\W0!E=4$<T?9I`.S7$<TOC`4=#2^YS140
M>!4X&[P21(BB.U[6[I=AT="[&\+4QF$QT3=L]DGQ'`9M2SO4E5E*^2I=F(7-
MI)%&21W+.H*5AR9\*VYIB+910#R4G44&,$!#52IW:'#/>XUZ$[`[>;.&SE0T
MX<9QDKP%XY.`ID$,>@2,;7:N51,S?0UJ0@(1DB`%$>>(=%R!`UNTK&USX^C:
M[*1D?O3(V^K9IK&'I@.<:Y?FIB`76PA86,#S-(/$2(&<!E\N<+09&DSS&\!?
M*5)CO^-PLPG-*%#J3!"W@K_2:OPX$[\K^;[>6<?NU;5P=W5^WBIFK@12>:([
M+GL:TZ*FB!B^;*A#4RC3OIKLBM.(KD@R0Q+&^=C&)DRZ0W(CY"%*5J>Y]`%2
M4SACE`#%^$N*W4S/^6>7)BO;#8E.\799+)G.5,Z)("#"?<%7?35IG[O<9\/O
M[M;,.RB?0]5U;OX\WY)J7_O[(FYF7EJ0UJUTA/DPUKEK:)L&++L1*%A`!>T3
M!%30$IJ'?1<G:E)F&^;V:8>4:.8G!VM@8H@F)ED5$R_R.X%Q%DD@!$W`(@:R
M/J!V%HX&`OV33>@%%+Q1$0DX$\HQ>VF%63H6%VBA`,K44\QB)!N8'D*@6DWW
M,#DC!$+`7:GS!'*@6D+Q!B1A!"!"%V00!B2!`C,``S50%0]A`S#0`BUA`S.0
M`S>0&"(#:!JD/!>1$1O1$1^!4GF@/,H3$`G0`I```;K3`OK1`M86&)MQ`G/0
M`F2Q'K1G%,,$AP_0AI"``5.@'W0@'//$!$>W%7)0$4G@!O*4=G)#)4L3$!,0
M:0TW!Q/8(G#`@EC1=LTE8#=Q9FG6&/I!B!@0>E!0!^ZD9E!QB'VBB&50%8PH
M!HZXAI=(,B?X/RGH/G\!3O.Q36,A$Q-H!BL4%-(U0MPA!W]!$L^#)PDP!TPF
M5#IB$[2(8J#%B3/A0H(!!2@P!RG`!#X"%*+QA/<#'QV!!O^$)PPP9:CS<6Q2
M$8=6$<U$/$*B6C\1'M^U%*;D4\.A6J`V=PE@!,IQ$YY8$1WV1G<6'NH8&(EF
M)K.H(;K2B!IBC_HU!VPQ+"J'+0I0.3>Q*^&QD$"!`S```RM0C-RX-V]DD8](
M$N&7'PYQ!W3Q$ZK(BJZX*S^&`K*8B!1IBRZIBP'A`5#@`D_@`A>Q3C-0`S=`
MA8%B!'BR`0]39I-#!5@``C=P`RA1`RW`E%2()Q^``C<0`S-0%5H9`RU@`XI$
M`X28`%>@@O/43.EQAS&V(0LI:?]%$DYD2/,D(C:!.6\P!FEP9X8'"0F@>7.I
M1W7)(2L88`K)>8&1(Z2HDD:'=$5D:K#DAG_'F&.P,4^X<8A)=(J9AT"E$RZ8
M2S)1F7HD-\)FF%"@8YT%6JMC9BF2%]DH7'GPAVX2('.`(8(9.S\V'=4A-VZ"
M2-(8CYW7%?(CFGC8:>RT?FU`$C?3682A@A?"1IF#+0FP%K@1>/,D<LC9AYJ6
M5J4$.B:X'RB(;K3%'2-H)\,B=-KI0MP!9Z&I@J,I!Y7AE^9V/5]Q9]_E%622
M(_31%VP`!]*839KW/`XAG)?D.XD1!'?S=^>EGA56'[\W%)5#%M(8&N:)$[:1
M%Q#B(/@#:@IH.;!ICIV5'I.(8C7AC>9BF+&3,U`@!4\@!$Q0!$W@`MHW!"9V
M:&Z@D/O1C"K9<S+)(<LXDS7Y$Z\A3UJHG6FG@V+Q2P5$3MP42581(4LQD"W!
M`"VA`1H`+BXN`"X@+BXN("XN+BTN+BXN`#$R,#``($XX,4X@("`@("`@("``
M+BXN+BXN+BXN+BXN+BXN+BXN+BXN+BXN`"X@+BXN("X`````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M``````````````````````````````````````````````"E!#HFN!\HB&ZT
MQ1TC:"?#(G3:Z4+<`6>AJ8*C*0>5X9?F=CU?<6??Y15DDB/TT1=L``?2F$V:
M]SP.(9R7Y#N)$01W\W?GI9X55A^_-Q250Q;2&!KFB1.VD1<0XB#X`VH*:#FP
M:8Z=E1Z3B&(UX8WF8IBQDS-0(`5/(`1,4`1-X!H:&AH:&AH:&AH:&AH:&AH:
M&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:
M&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:
M&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:
M&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:
M&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:
M&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:
M&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:
M&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:
M&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:
M&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:
M&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:
M&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:
M&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:
M&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:
M&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:
M&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:
M&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:
M&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:
M&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:
8&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:
`
end
END--cut here--cut here