Adapted from Active Trader Magazine, The Trading Systems Lab, March 2006, by Dennis A. Kranyak, http://www.UnRulyDog.com input = "atssp.lst"; output = "DDip.lst"; daystoload=150; DaysRequired=150; Printhdrln "Symbol,Close,EPSRank,QRS,Buy1,Buy2,30adv,Vol,PE,IRLGroup,SharesFloat,SharesShort,Name,InstHold"; if Close(0) > 7 then println Symbol,",",Close(0):7:2,",",EPSRank(0):3:0,",",QRS(0):3:0,",",0.97*Close(0):7:2,",",0.96*Close(0):7:2,",",avgvol(0,-29)/1000:8:0,",",vol(0):8:0,",",PE:5:0,",",IRLsymbol:12,",",Sharesfloat:5:0,",",Shortint:5:0,",",description:-15,",",InstHold:3:2; endif;