[comp.binaries.atari.st] v14i077: dctopper -- Bring window under cursor to top

koreth@twitterpater.eng.sun.com (Steven Grimm) (05/18/91)

Submitted-by: uace0@menudo.uh.edu (Michael B. Vederman)
Posting-number: Volume 14, Issue 77
Archive-name: dctopper

DC Topper will automagically top the window under the mouse.  Best at the
desktop, but can be used in programs.  100% assembly.  ST, STe and TT compat.

Mike Vederman / Double Click Software

table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 644 dctopper.arc
M&@AD8W1O<'!E<BYD;V, VPL  (L6I 13=9@5   ,*B -  %B")HR8]: >%.'z
M#@@Z!T&$<>.&H9LQ9=J4<>-P(AD0<^ @3!.&S4(S9LK(6>@&!)$A(*:@>7-'y
M)0@Q9=C0!!%P0 ,%/U^"H/(&CLB5=F*X@/'SYY"B>>2D.8/&(8HQ*4#$R)$Cx
MADN&8MB4*<@F3<*8;\S0N1-&3IFF"J#(>7-&3I@V-_. :&(639B<((2X &&Ew
M#!F5;29*=/-Q29DT$$$<47EX#ERA1(W:3+H41)HY$D$8D5*DR)4@I$' F5OWv
M[F 00423-HVZB&K6=O%^9CGV#IJ^(/(P!)$XST\S;G/J)?.9CE0Q#<NPN-DPu
M^/ Q$RLZ'.-7SIFQ9MZLA+QP94DZ-B&.74TW=_F?8]YPW$@'=-J'$<F\&5-'t
M(\<P=*0AGV<M3:178A2I]!H18(E%EED*39'66FV-Y18=8:3AAF4*E&12?'!$s
M-555()2!QQALU#%'&G98.&)])9Y8!AP.F8BBBBR.Q=P<SJ4!78#RN0!7#Y Xr
M<1E,F1T%PAUIL&%2& V]D5B V#FIUQPY(>20>DMJJ-\=(-3!6'H1M<$0EB"@q
M((94;ISAV99O_,0E'45EY=M&UM4AD5L2;1G1$44T 4)E:] )AY! *4"DD8D2p
M2<%/26R(H9,:NHE944?]Y"A</A!%((\>NH0DIBKI\%,+D%@ 5PQ90<%&&!B)o
M2L434$!1A!0N!#$$3!KFN9(8;[Q!1QUP#/J90E(\\005QKHU!IURY#&=>"!4n
M)$=B)A'Z$P@"P8K1''.(IQ>PPA*K&H!H(/J3#%E)40:Y?HX57QMP1">'N@I<m
M<5!+&H+JI&'3&?A0&AKE2=P;+2[4HGG\N@%K@ DSR1A-TUVJV4I,.OE31G6\l
MBEYH/]+9$HH0+O;1FI7BUYN7.]&I\D-%X9N$&0;[E;# D&4$4I;/&L;2RX0:k
M6AZ!B^DE\9?3J=>2>C^= "6=+1@*1Z4G=.EDM<(N- 9_]Q(4!!G, >FPE=.Ej
M0;-P>MH\UF/JK62FBF\I$/* JY4!KL]?NI%T1$Y'&36F5%MMDG9:<XVOII!4i
MX)1\9DQ5!YN6CGHQXHHGVND;(,3G1N-G/#Z6Q4>9J@"J&*R:U10\QPO"":!Oh
MIA0,5=,7+0C(2?DR$45,L01Q&]7Q6A -._<&&74\*Z ;VW8KEAP.9?RD9FWAg
MR^Z#9PW(Y1!/.&%$$D=01X?(,(-P!N8N<ZDYYX\#>+Q$R].![PQ997&=8FJ+f
M.A2I*V4_]!-&&+'DOD1C3VO:,(?7#*$LU5O:09(W@# 892ZK(<G'YN:&UU Ae
M(N=SG%W$1J#P".XF8YE#&%IT,E@IA$X,?,FL:G6K7.WJ-4T(PQI"Z#E9T<I6d
MN-(5K^RC0 L%RR'W0=NO?D@L!NYH#=-:"=H^^)V.@&2$:Y/#7.X%%R<LJP@Zc
M (&^\+3$"A$M#+=ISUWVMK*)@4E,AUD)E]Z&)N>!X LE84L>YO %!N($9IHAb
MPW3$)!9PU0R*)8+,05;2A"=480JV$4(5J# K)X  "J29 B*)@"AN^40!/0&!a
M_/14'/&5P2%HM%L:[!(6"]FM8S"Z4TM:-Q[0Z*]78!1@;O!E12I@T7Y)L@G<z
M0(.EA94D3!/CCW_0\Q&-F&EV.L&.V$#3*_&D$68,9,]1V& T\:SA=TVX51*&y
M$ 1'SFH*(%C8BN0#FM=-1RDR.*<+:*!.&TQ'!DNI@<E ,(.EQ("!;CQ,X]R0x
M,VHNR9H+DIR2.DFX.UCS9\(:) B2U80"#@D2$/B)$TP3 H),] H5!<%%0X"Xw
MB"8J"';(T*M*B;4[<#11,S.83DAHORD@X0E72 (5IH.V$UQMI9^#B4MA>JN3v
M_N2"N]G-3J] G#"<P2P9'>KJG% %(_A4 4*1"4ULXA8XO.I;+P.4H()6E)B\u
ME*C;8X)MS" FXPV(29$QE\MZN9&@Z'0F-7';\#IF-_P " 1B<<@2[9"&,H )t
M/7AP2./Z.!TQ:*@M>AFLW<YY V.A1"7T^<G4GE7#\%P+0',(&&/25(86M<1$s
MSGE85E SA.DP00M(F(X6D@"%>6I!67OB3HX<FJ@JH(E+0H%"R0@ED:W9+5RSr
M<QE?_4J[)M45EF[0BU;#.$!\/4$.>T135.%J$^8XBP[^K!U>JI $<-9S!FE:q
M$;W\20:[N F,B@T?EW@ !1_\A()$XZYW70!>CV0.@0H9T%!3X%SH&@P[#?.7p
M2:8[5?. ADM!L*44G)#@)%C!-DKME1/*\ 8BV$TA]62* BQ;(L\>C$]P*/!3o
MC= Q?\X+#NHC*5K1P#Z33&&F,:'"6.S+R,Q)J5[HD4,!"1(#&,"@!!*Y6QO"n
MDH>G&@0A^:T.@B-HDJUT)<8@B)1E-6(>YIG%00,B<%Q/>L$RZ 6G;WKJ$]S@m
M3Q+(( <NR$$-,AJ$.2A$B(,J0TELPF$P@JC(<.%6!U8 "08DKP-3L-40DA $l
M)KBD"(7^,Y_]G*C).$3+=*96#%X WK30C$L7$NEMS%*&I[8Y-"$9R2_%T)8Sk
M9$AO_Z4?("&]$@[+I\Q;2;,\47#(%#QU"@2SZI4V\A$5A>:(78J,G:%RDI;"j
ME3R<@<'0..,5^Y(@UFI^*@K" #80D& &M)Y"5JA%@AJ@P+*/.8,;LC*'WQBEi
M4B_P"V/*TJ;I4 $+('#+B@[#$=!0^R,X<($,:@!D#.$A!7 !JGT>NQ)>@T8)h
M8AI+#,[)%:7 )89-F@[VB# =*W0W-O9M DR<J1+0U(0-\RH#OHC4@)\H,@O3g
M.7G*JY %Q)5< 4@ Y!+K)0?NA %+'\$M3'"GNQ4.32B+3 (39)J$W(6SX^N#f
M)PQ^(!"XI%0[-!W.5'V%)39<.B)6E?,<:G@?'+5I(8\#";%4(@;FYH:V/Q%!e
ME]$DR[O8FT]A>+%%F-.F$(@ !"T @6-:(@1JJZ0^W%')=!*,FB041#R'>DA)d
MUE"IY(T@#,!2<D2 3@6A$]WH=E Z7-0^^9WG;@D^WTTL$3,1^IR+><5NPY7Fc
MB)XVV)V!>9?"@)A0AS5D5C1SM\E]GD(ON,FA12< #:[=% 0,204N0PB5KUW&b
M<?]2Z^9O9LA*DOG+3!N7BHE"W )^4LC4),$)4%CD28FT?06D=(EEF2%^=M/Va
M-DRG+G*FPU.%0$,^N2RO80+-&BH")M_<-0V'<7-#,R_#!!I+5#^0QQ! %';Az
MHA9LX1:(<@4S!G=L($?VY@9X("#+ASD'T1;_<U<&(A]CX1<'ACDBA&>)LDF9y
MHQAN 2LLYFLE828\TF$JD0=WXA9/120'8')Z 7%L@#@["%4-,A8'5#(2XH 5x
M\A-0\ 2!\03P=@,T$ ,R  ,V\!-(<"8BXVY/> ,R (4/A0 \^$@SX09Q0R1@w
M*(1U0%)%>!9'2"%\ @)9A (W$ /PDP,W< ,M8 ,U,(4/90 _,6;L5H:0X(<*v
M "C\-!:0< !9Y!*&) 1BU0)#,'1#L#LHP$TR-CZS,P,P ' *P'OU@CJ_-Q9Pu
M2! W4 .:" ,L4 -WR"T$@ )'P(2$)P4.QFL!TX): 3\_85L;\4G<8@"+6 >Pt
M4@8P  3^40?ZX0)UD"Z&40=N%1A" $Z#N(AR2(<ID ,T0 ,M  ,]A@-P@3B,s
M(G!F=Q>>P4O$8E5]]1&]PB4X419E<'7_!T1' 2!U)8"A-@9F<XXL\!-D*$@Vr
MP2!IZ"!K&"$3\H!C@0+F<V,&DA76\C)/,Q,Z!A)^<36$<T=E 7EB\1/(I1?Vq
M6'/] 2H7T1M^41]OT%F1QC#+,4I:,C1>@I+/@E=OX$?40@9W851C@4(*($U_p
MIQ<:PC5N\1'4LG4$YS-BH!?FHR)T0F5#(S )91-'$2X%8F_Q=DIL0 <_<1\"o
M8P90,I5#HT\IF8X1,3[#8Q\K@26_QVGD:!3L>#)$B4$(F5P_85^]4A&9,TK"n
MY)%856ZA<I#T(C 421(D952G-H.:@R5Q4 ?T01(_J  RF1C?,30Z 9,TPQZ-m
M R,H<"=M,S2$PR4A!BX^TB20L9:0=1]LP2%8@F(;I!P2009\A7/A0Q[4TH).l
M:9&))1Y8(F>EE!5M\1DIHUTO S?O<9,J,643$2OWL77<(3[!0@9BN3-E^2V(k
MLB@_ 1H(9&-T;W!P97(N86-C "D'  "+%OH:;8PO"@  #& T  !@P-/  0(.j
M,@( R0&8@0R(#*%R!4  A@.0C4 V$ $:%WP&-D !"L 0=/U,C4C64<D/'@!$i
M.'%"Y8D!0!@AC #64<H+F  *J'@)P,1,+D_@* A#D,,,G@ 0()FA[X"\@0F,h
MC>#74016>G!&,"W@[VE'&S.XPL!J+*U%K,C<7@200)E<K,S<0B*0P)E>OM#^g
M)I FF)I@:X*Q"=8FF)M@;X+!;>V(XRL('?\X( &R$ZLX.!G&LD$PD,"9@99 f
MA(R*@P$4 "C, /@'YB\"'#)T', @"TU4V?^8W*6KE6M4/5_AT!BK E9( :?_e
ML8"APY\O*4#,$I\<=5[RY4$-3,G.$]( !,#T'!"@'8$9I@!$J0'@S][PK-P3d
M%/G.E "UA_YHHT0>'9DAFS_0#-B1' >VQ=5>6;FE %QPH-&?*50AX%543H"@c
MAP%\S  -6S.@ T!"="$#AQK]&4(=::?Y@P@L'X(1(R *1L4@?78P)0 /2@"Rb
M!GUL_'20$409Y012 &I!E !&1B4!43TX$0043[2'QQI,P =&E C08:1Y!/R@a
M@P$R$/6#E=YPQ0 #N4A$44=TF"'"F.?A*8"9!C! %!!LN@F? W  X$0=\!D z
MQS^'FEF .T3Y8"463S0*U \ X&D"44($"H "8(H)$YF.^J*FIV_&.<04<=!Iy
M!A5$ > H*'IRZBFH0(6)9YDZ% #(J4&T"0 #!N2"4:YTQ.HH&2_TRH6MP7*Ex
M@*4#.<H$GB! *^RT=>@S$#X8\7% 3'H$8$L0^OPSSPL).!$) .+&= 6Z_XCCw
M+KSCBO %O=FX>R@60D@1A)P5[94C G"8H440[Q"$P 5!F2& $V@P ,E 2PQDv
M!@HC-(PB D6N-@ Y)PZ','4$^)(>/U*T9P88'K@&0!)F8' 9 :# @LJ)9C@0u
M0KJF $"(AP3H 8(N 9C0[#^8'"H$@;\]W1$<S1;];\ #3U0P 0P[#'$!$E-Lt
M\4 %7&2&!R#@0   2NQ,P!H:_/R/%4++;0T M!!-PM$ 0+,T,H<Z,<>B!\-Qs
MQL1UP/G/7AU9<0861!,  A2Q/&B:!/ IP4 > 1C0D1=O "DD#B+H,0 XN0V r
M#@TZ#"".#:V+,T40#,3QSS]KG4$!"&D @$7E#)F& 'P2!+F& D/$ P( 423Sq
MCS>%'EJH"@#@@ ( ;P.!BV\$L$& ]=@SX-L'!)T!@?@ 8% ^ NA70) 9""!Pp
MO7D+F$&!_$'1U;,N1)RA@!1%"(*),  &82SJ:@(C6/"DIB,$0, B9S  %/*Qo
M( <.)((37-#2N'$H", D"-!0VQ$F !4$2("$6)'$5A:WMJA800EX*( GS.<6n
MT@!@ (:H86DDAP<"R*-$)_K<YBYB'@1XP7[<X80=&L<=4)10"T/\V!$IP)UDm
M"*$C6N .,=S1N"&VT(A(-(X;*A.5+!K'%!^SPA ]%Y4I<L<41F"B&%># "VXl
MQ1$=J0T__F$<!)#!+>.*BA@V)X "?"Z, TE$'ZW '3JP 8N;&\!<P$A%XXQ"k
M%7(<B",X@,41@(L6!_%'"(Q#@(30PI-".P@>1GF0D RM7/H8P8B"(@ 0\()Lj
M!CC4$/0Q !O( !@$ ,*G@,&5 : + #Z !C *!0$,_+*9SW0F,(00!1$ I2 Pi
M@ G@A$"= 3#A4%@I"5TP21RLF.,K U' VBXB@  $H)T7<6<[(6%(2"A@+A<9h
M@"$+8$B+O/,B$#C /QER3_/ \Z !V,L\!\ 0!LRS  9P)P$2.@!)PK.4 4" g
M.QD24?,D()[T)!L16T  AB* H1&-RD4TBCUW2O(BAJ1H_OQ)4TAD0 !K$P!#f
M(8&!L@4EGD ]D2%3VDZ:&J">98OGB=B9T'I"X)T63:CG-AH 8^J "W)Z A2@e
M4 0IN" (0Q@" $   HF @ IO@ ,<RB '$-@A!BY8"R1>4)D!\)$A%-@"#+JPd
M!;.B5:UL=2M<8:":(:0U#W)(PQG00 <0] ($,<A!#F*@&B*\H0YB8$,90# $c
M-J1A#&L P13>8 8ZW"$,<M@L'\20!Q TX;,6*@,;0" $%X# "F4@ UO;$ 8Wb
MD)4/9.TM&4"PA#*D@0YH ,$1V*K;.?"5LV]P@QD4JYHGK"$,>>@" /3*5[^Fa
M=:UM3<,<0% I$+RAK4\P@A'XD ;?PD$.;SB#',+0ACG\ +A\&$(=Y)!:-S16z
MO"#0[7OJP(;&BJ$.=*!#=&T+ KX^P0W ?8*!&KS=&?"U"/P]+PCF$ 8[M/<,y
M(%!P62>B5:YZ%:Q#P&\3PK"&S<YAOYL]+N_&&]T0HT&U\'U#8\F0AM2.0<%Rx
M:"UI01 $'31X"^2];FNU2T\(](D"!KB? 0C   0T9,H,H  $H$P #4S9 0IPw
M,@$@H( J@QD!'*" !1S   \@P EH\P =/&  !3B !0:@@@,XX(DW0=G.[&.?v
7 @1-: 8,>B^&)G2=^V0 %D"  "$%&@ =u
 t
end