Indicator for Writing & Printing Capitol Gains (Dividends)

[Glenn Orlosky <gorlosky@xxxxxxxxxxxxx>]

Here's something for you End Of Day plottters. It also could be used for
Dividend check but I use it for Capitol Gain Distribution checking.
Since DialData (and maybe other services) use the Open Interest column
to put Capitol Gains for Mutual Funds, I thought that would be a quick
check to see how much ($ and %) and on what day it happened. I use
TextWriter variation to plot it on screen (set your scale to Same As
Price, and your color plotting under style to the same as you have your
price data - this way it writes the text but you never see the plot1
which an indicator requires). This way you can either scan your charts
to view or let chartscanner do it and you end up with a text file using
today's date as the file name. The /1000 is because DialData sends the
number as 1650 for $1.65. The MRO is to check for the most recent.

IF  DATE >=971001 THEN BEGIN;
IF OpenInt > 0 then Value2=1 else Value2=0;
IF MRO(OpenInt>0,30,1)>-1 and value2=1 THEN BEGIN;
Value3=date;
    VALUE1 =
TEXT_NEW(DATE,TIME,Close,"$"+Spaces(1)+NumToStr(OpenInt/1000,3)+Spaces(1)+"Capitol
Gains"+Spaces(1)+"On"+Spaces(1)+NumToStr(Date,0));
   TEXT_SETCOLOR(VALUE1,1);
   TEXT_SETSTYLE(VALUE1,1,2);
   TEXT_SETLOCATION(VALUE1,date,0,close);
FileAppend("c:\"+NumToStr(Currentdate,0)+".txt",Newline+Spaces(2)+GetSymbolName+Spaces(2)+NumToStr(Value3,0)+Spaces(2)+NumToStr(Openint/1000,3)+Spaces(2)+NumToStr(Close,3)+Spaces(2)+NumToStr(Openint/1000/close*100,3)+"%");

END;
END;
plot1(c,"");


*****************************
*
*            Glenn M. Orlosky
*
*     E.quity T.echnical A.dvisors
*
*        {Balancing Your Assets}
*             {Worldwide}
*
*****************************