home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1993 #2
/
Image.iso
/
finance
/
tas515dm.zip
/
EXAMPLES.ZIP
/
VOLBRK1.TAS
< prev
next >
Wrap
Text File
|
1992-02-11
|
3KB
|
88 lines
{
SCRIPT : VOLBRK.TAS
Author : Peter Ross
Date : 12/12/91
Modifications: Frank Wolynski
Date : 02/09/92
Modifications were made to Peters TAS file to allow single line
printouts of the security. Also rearranged prior close & current close
and included percentage change for the day. Since only securities
exhibiting the necessary volume breakout percentages were allowed
through the test, it was not necessary to identify the securities
as having done so.
This script will SCREEN for volume breakouts of stocks that closed at the
same or higher than yesterday, and are 15% or less from their 52 week high.
In addition, it will ALERT you to those stocks that have had a 30 day price
breakout, and when a new high has been reached.
NOTE: STOCKS IN DATABASE WITH LESS THAN 262 QUOTES WILL NOT BE FLAGGED.
}
#MAX_QUOTES 262
#OUTPUT_FILE 'VOLBRK.LST+'
{ #SCAN_DATE '920206' }
{ Parameter settings follow.
These parameters can be changed to suit you.
}
PRICE_BREAKOUT_PERIOD = 30; { Price breakout lookback period}
VOL_BREAKOUT_PERIOD = 30; { Volume breakout lookback period}
VOL_PERCENT = 150; { Percentage for VOLUME BREAKOUT}
{ Declare various arrays to hold the results of indicators }
HHV_A : ARRAY; { Place to save HHV}
VOL_A : ARRAY; { Place to save Volume Moving average}
HHV_A = HHV(C,PRICE_BREAKOUT_PERIOD);
VOL_A = MOV(V,VOL_BREAKOUT_PERIOD,'S');
PRICE_BREAKOUT = 0;
VOL_BREAKOUT = 0;
{The next few values are for finding the percentage from the 52 week high.
}
if quote_count < 2 then
return;
high_value := HHV(h,52*5); { compute high over 52 weeks }
off_high_value := ((high_value - c[0]) / high_value) * 100;
day_change := ((c[0] - c[-1]) / c[-1]) * 100;
if CLOSE OF TODAY IS GREATER THAN HHV_A OF YESTERDAY THEN
begin
PRICE_BREAKOUT = 1;
end;
if VOLUME OF TODAY IS GREATER THAN
VOL_PERCENT/100 * VOL_A OF YESTERDAY THEN
begin
VOL_BREAKOUT = (VOLUME OF TODAY/VOL_A OF YESTERDAY) * 100;
end;
IF FIRST_TICKER THEN
begin
TOTAL := 0; {Total Companys in your Directors}
WRITELN(
' Prev Curr Price Curr OFF'
);
WRITELN(
'TICKER NAME CLOSE CLOSE Change Vol % HIGH'
);
WRITELN(
'------------------------ ------- ------- ------ ----- ----'
);
end;
TOTAL := TOTAL + 1;
IF VOL_BREAKOUT AND OFF_HIGH_VALUE < 16
AND CLOSE OF TODAY >= CLOSE OF YESTERDAY
THEN
BEGIN
WRITE(ticker,fullname, close of yesterday,close,INT(day_change),'%',
INT(((volume/VOL_A[-1]))*100),'% ',INT(off_high_value),'%',' ');
IF PRICE_BREAKOUT THEN
WRITE(INT(PRICE_BREAKOUT_PERIOD),'Day HI');
ELSE
WRITE(' ');
IF high_value <= h then { today's high is new high }
write(' * NH');
writeln(); { end the line with a 'newline'}
END;
IF LAST_TICKER THEN
WRITELN('Total Companies Processed',' ',INT(TOTAL));