Turtle 1
Turtle 20 day breakout scan
output = "Turtle1.lst";
exchange = nyse,amex,nasdaq;
DaysRequired=55;
DaysToLoad=55;
Printhdrln "Symbol,Company,Industry Group,Close,Change, % Chg,EPSRank,QRS,PE,Vol,30adv,SharesFloat,SharesShort, % Short";
if ( High (0) > max(-1,-20,hi) )and
( High (-1) \< max(-2,-21,hi) )
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;