[comp.binaries.atari.st] v14i082: dcinvert -- Invert the screen when the bell sounds

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

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

DC Invert will flash your screen whenever a BELL character is printed to the
screen.  You can set the flash rate.  100% assembly.  Uses only 256 bytes.
ST, STe and TT compatible.

Mike Vederman / Double Click Software

table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 644 dcinvert.arc
M&@AD8VEN=F5R="YD;V, -0D  (823P-- PH1   ,1(: 2.+&3ADY=$#8B>$"a
M1@,%#X>\@9-'3IHS:!*B&),"1(P<.6* (/*FCA@V94 ,89-FS!H04]Z8H7,Ga
MC)PR#Q]"D?/FC)PP;4"(R0-B29DT=-" .'*03)DY(,*X(0.B24LT8<JP 2'$a
M!0@K99S*:2,UIX*  PL>3+BP(8@T4,. ,"*E2)$K0>J"@,/3)U"O((+,K7LWa
M;Y&]?7\&A0OBC9N4=]!<!9&G) BR>1Z:N:F5*!FX="R*J4.G# NAI"E;'B/5a
MS9N$8[#*.9/2S!LY;Q/>CLJF-.ZD*?GV5-Q8SL,QCDN[H0-5)@C@(,B\&5.Ga
M39GE8>BD<?S6350W1,FZ>2P',$F3*%6R= E3)DV;*6_2"9/&S9R'8=AL14[1a
M(L:$9> Q!AMUS)&&02#XEQ%4 8Y1!AP "DB@@0A^-D=H:8RFG6,NF$4%5FZLa
M 14=;P3&AE0P>84$4&GTQIUMOZ&14AI.R07C<Y)!)9Q?;72H0 ^0.&$66@09a
MA! (=[2XE1DGSJ$4='.,P9EWD5U7AI%1<54$$TR $)M-88SA&P@H!#'%$$DDa
M <(-'3'&5WVED>'CAXS5E,=I:9BA6AT@8(4@E+Z546(=<)P&'P@L77A=?6<\a
M5Z*,89 !!QJ./77:;FH42,=#<)Q87Y]A_"DC"'.4--5S=<CQ&%4RF7%:97RRa
MYEUI^B$IHW<HYK>64%IMQ5BI=4P5EH\/ 2DD1#]"4D%$CIEQ4:J,CB10D6L5a
MJ^R0TZIU9'YLO'$'5+ Z2BH<98R1)U%02EG&=2 P&8:3"68'V:U9BM'K6U !a
M*ZR<9OE 18ESE)$0=.["^U-IITF'(UPZ/-0")""8%4-'4@0K;1).6%&$%%2Xa
M (441[3+4U#0.37'&B3" 5@6EB59J[V(/75=G$@B]:2,#X$ R0!D?6J=&W7Xa
MJ/, #\G0T4HMO<0==$,\X801282L(8EN /9A2LBYX>P9J6:W':XH'2G&&WC4a
M7*N%G8:1A] [7^UEJC<MUVZ32AT,F9*\1@=7VGD,:Y;1ZB7=V*RC=EH@F2"La
M $)'4R]=8GWJOIL2='8+150,,)PVH.!+XZS T&W4=S@*(+2P.&IT4"VN4Y$'a
MC&-\\EKN$0S$*N#$$U04H0,(;I.%1QIM5!=O:?B"( ,,,)!9:;MUU!IPUF1Ta
M)!55T(7N!O#",X9YSCN3'L,+QR?5F)YR/>]8]%:/6KG+6_%4ZQM89O?Z96&4a
MO9OUM<_0$15/#3QJP76+W5! $(<Z)(T-1-F<2Z+UA"I080I)(,)AG .=K&VMa
M:QMR _<&H"NQD:UV-#C:>I3FG2<LP5;L@I+ M..&1C$&.G;:$Z+2L(89T:%Va
M->A($O04+C]A#42TH=[_Z#:\E(2+?7E[5PVIDB<9UD1N)")5J'#RN9U5L%G/a
M.MC7 (,T]G G"T68@KCF,,7Y63"+7N..&,+TDB@"9X,!P9C&..8QD+6K166Ha
MG;4H\!""7(A;T2*2MC:5+#XBRU^/L\]\:B5((]$A825:'@5E%+"&*>!A)Y!8a
M1Z!P(@==+&,;Z]C'0O8I6.%F;*\AE-Y.%A@'/J%=;V"#6&H'."F4 97^P]H;a
MV@ 'TARD=J;;30LT"8**>2>.H*3C*$6VR_F9#&4325]*>N:=G_$)B6&  [ELa
M0DL1<HYP*<'8%*@0!"ZACFKFR98CS>8K17)+CPJX KWJ\T?]A,50X'D.\%(Ba
M%WO5ZDL_$=-!BO>FY81%7.F:TFG>J( H38F=<WN74O)3*G@""0(/F<(3G'8:a
MC7(4)AL]UD7-(A'K-:I4CLO2A6Z3DL?89$^[DQ9,D/"$*VS,+#N48;<,0A6Ta
M3(&F5T@"%5Y5DA/4:J<I\2E0-Q8"#^6H>#^M*?W.T)(0@&"F4CV!$ZI@A*8Ba
M"T@->(@0JI"%TXRUK%PAJ[7"JH 5(2A<O93#EP(FQ*0*1()36 (5G@"%XLC4a
M@4E@@E"3$$:%',1 W)%!0WZP,YSJR36/E*&WC%@2.02,#7J"3J?*\*Y4I<0Ya
M!8I694E%J(.( 3'# <H<:B>"J[EN1XJ)RTVB,DY3?::%(1!!Z8K"+B%$:BU1a
MDI$<3A,$<DI!31*1@\J>DY\U,(I[(PC#V%(#';0 5K!4(*P8[:!8AR"KM:-"a
M"U[URM?BR85<8Y'*S/9B$]WHJ0U$F4,>%-6&W&[0=%+@#A/J(*+3&,&V W5.a
M27L9,#D8Y 10F<)% C,?BY"46R X7!1O(Y9+X4:)>\)-MUC3/H'1)VP6A<0"a
M'M*$)^@%8U!PH%>!-&(%Y#1<+*GAPG24&*"<QB><I8-7Q9J2.7A67"A)R.'6a
MX)H[V$I^-.)L<W"#G#;\C#DR]&%4IJN;5)'*/36YB8^NP,_9YL=.<7'#[THRa
MHD=Q%C>1D9]4*O,84)59BGG8L0)8%BL4W21,2CE<?MKPA@N!X$H'R4.5;B)Ga
M("% K$2! J4>8ZU#GZ4D)TE)%U\2DYED.24@V!T*;A #_>7@!C=H@0UJ<#RSa
M ,D #WF"&UC"Z&2A6@%'*,+U4@*) \24" T4 A.*T((A"'8()T3!$(I;AC/<a
MAB@S@$$*F,7+.DSA( C*]%5O4(-D9ZX&H-89 5!PA%<6-R]) ,M4#'5GC^COa
M(54(V&,2 @D#Q+0.82H##(!@3>FXH YH<$%8ZO 0M A!"&)L=TPWW>D4Y( &a
M-&@!##"' [-8ZUATHG%J%Y,O0G4J#0?]%'3\B?',8B4A2&D,>N45EWR1RUS.a
MNN=#'F.S@9XGTH%C3Z7?,UL47)&7:^Z(:V+$3])0RK*DPDJM()LWED@7)0_Ya
MU)J]E :Y5N>/;O!DFIGS!D#CYD9+_\Q-Q.37^FB]7 GIUAR6'!V@A($VCN(4a
M3]!+!Z) #FX'W8V/S6"&@QQT@!74U"X#?.%\OD:X>SDL=]Z5I9OXN#</<<[2a
MS1"&YND&-TZI.]<U/BICOX$,9"^P'5KR%-)JDR5W1]>HF@R'->/G5)]R#=.=a
MW@:H.RA?0M_*S4N?3Y@9'>9GIX\BO>28@!5P9FG(ST/(8':T[T;LS=&3<)P%a
M9114"3BXV0W1-=MG XFA14@1O=V=4Y/[-/1!8*(542*U>;J**^2[N7.IW'!Ta
MHL H8)R-M/0L8J 6,I-DHRK09XVC /3"2#R>Y!P^%AL@8'F8YU>:QWFK]7 /a
M 1H(9&-I;G9E<G0N<')G /P$  !H%N%^PUNQ!0  #& T   P -#  /@ 0!K a
M2.&"  /!  A@@<B0-&X R, B1$H0BQ@!4/D2PPD:!!< %#A#(,@[  880!HHa
M ,"!,PAD#C1@TPR.'SP E'#BA,HC&#@$ 1$ Y,&_&< 4#M C!(]2$'@(Z(*Fa
M[Y^M6/BTBM$WXF7-A8Y>\)$*!X" %SK^F7)2!TF^ P?^+80&]-\_)'EL#B3*a
MY1$3?7C_&7&2#\ 3DAP]@G0S,L8,DRA5LG0)DP$6@F: Z'3;\V?0H46/)EW:a
M]&G4B0"J7LVZM2L,L&+)FCU(0:U4>V[A_D-%UV[BA>CZ_@U\8+"3PH?Q^L/&a
M^+%E(6=FZ//';F !;T'T"< 09N#,\ +ZP DPX74!/.4!,#IC -;: 6>D",GAa
M'0]Z V&H 8,.!,!Q!A#V372&#N4%H !Z$H1!Q8 $X &+'OYX<@8OX0W@RWIAa
M.)%@ &:XTIYW>82A!P0Z###/&:!TJ R(,H!A28<"L#B -V8X !A-&  %0 SHa
MT?$" D(FX$00A2UYI) F$/8(74/H,X V,@!2)0$"B(!(> $8TU:5 X@" 08Ra
M '-FFFNJB28P0D0!IB0B( !#4,@X(<2  QA#EY "(*%' )@(V<.24#SB P!Ka
M2"'H ,PTD1 )+SCPPP%"_K#D$R\QT LP9KC0H3-5]N/,+(B8(0*J9G@@:#_*a
M((&'6Y<*"<2FG<HA@"R 6-&82GG4&I0/2V(Q91WHP0(!+P# $,%:,$S4UH#]a
MS 0(/P H( , "2I0A@120-!2M@E24(8!X8ZKP#0H3 2&".CA(0<,;9TY4P# a
M8$L&'0!0  $E 1"#K0+0"!!>/TS   @< Z#W0'G^\(,>$_/2$8,=,B0H@!A@a
ME"&#+1"8@0 $PBP+0 Y@V#)%NP'0$C($#+0;;0!DF )!,":C[(DL+)N!B2PAa
M4P+!(&#,!/(9($C!<LPG3S0&($"+3#($@4CTCQT0#$.UU6[<#($@5IM!EQ)Xa
M%* A U0$MA (:4M%7!TC)$2(5!*$@.U"%@! 2-P T"*5)G9+Y4G?=(6@#S^#a
M$V)X/R 07H=W>G@WMTJ@>.>>,]YI0T, "Y$Q!D9VE"$''2[ (<<9 &P!0Q=;a
M6 1"$FZ$/CH(=L3@ @Q\B)$'"$N4D08=:(!PA.ADE#$''R"8 $(3:8R!1AAEa
ML &"%644+T<;8;C!QQ!OP)&''&F<@08=(/0"0@PYY! #'T2\48<8;)0!PA!La
M-+\&"%.\808==X0AA_RL@]T<Z! &-K!A>V]P@QG"QX<BX.%W70!  Q2P 3BHa
M0 4^\ $(7 <[V9&O=K<# 0]X<,$-Q $$1I!"$8IPA2"H$ 03U!WO? <\X1'/a
M>,E;7O.>%ST0",$%TZN>Z+#GA@ERSWO@$Q_YS(<^]6W0??"3'_WLAS_]\<]_a
M99B@!"EH00QJD(.Q$]T';0<#$9)0!2:<X 4S" (G/($*KW/"%*@0!"8PH0A$a
M ($9+ZA%U;$.!,B#! &F,(;_E<$-KPOC[(@0O3#D87MY&$/\Y@ ",81A#M4#a
M00)!( ,8E%%0;$M#&T0'2!! (@$P6-L0(CE)UJV #RU WA/N%\$MR."/?)A"a
M&$(' C>4X0X@*!X;'$F[ M:A##\ P1^S@$,^..$-M8P!+HL@!SF\00Z:1.0<a
M=ED&%ZSMCU4(WA."%T%!$D$#!H" %= ) 1)00 (ZP(8[#*  >AK  @2 1 $ a
# !H a
 a
end
-- 
------------------------------------------------------------------------------
Double Click Me | Double Click Software | P.O. Box 741206 | Houston, Tx, 77274
------------------------------------------------------------------------------
Voice: (713)977-6520 | DC DESKTOP | DC FORMATTER | DC UTILITIES | and others