Michele's Short Search
Stocks gapping down at least 5% in price on at least 200% of their average 30 day volume
output = "Michele.lst";
exchange = nyse,amex,nasdaq;
Printhdrln "Symbol,Company,Industry Group,Close,Change, % Chg,EPSRank,QRS,PE,Vol,30adv,SharesFloat,SharesShort, % Short";
if ( Close(0) => 15 )and
(Close (0) =\< .95 * Close (-1)) and
(Vol (0) => 2 * AvgVol(0,-49))
then
println symbol , "," , Description,",",IRLsymbol:12,",",Close(0):7:2,",",Close(0)-Close(-1):7:2,",",((Close(0)-Close(-1))/Close(-1))*100:7:2,",",EPSRank(0):3:0,",",QRS(0):3:0,",",PE:5:0,",",vol(0)/1000:8:1,",",avgvol(0,-29)/1000:8:1,",",Sharesfloat:5:0,",",Shortint:5:3,",",100*Shortint/(Sharesfloat+1):3:1;
endif;