Jim,
Most charts have a good eye appeal.
Here is what I got (scan criteria at the bottom):
AFIS ,PRINTRAK INTL INC COM
ALRS ,ALARIS MED INC COM
ALTN ,ALTEON INC COM
ASFT ,ARTISOFT INC COM
BMRA ,BIOMERICA INC COM NEW
BSTE ,BIOSITE DIAGNOSTICS INC COM
CEPH ,CEPHALON INC COM
CPIA ,CPI AEROSTRUCTURES INC COM
CTII ,CYTOTHERAPEUTICS INC COM
DEMP ,DRUG EMPORIUM INC COM
DUSA ,DUSA PHARMACEUTICALS INC COM
ENZN ,ENZON INC COM
FIIF ,FLORAFAX INTL INC COM
GSNX ,GASONICS INTERNATIONAL CORP COM
IDC ,INTERDIGITAL COMMUNICATION COM
IFMX ,INFORMIX CORP COM
IMAT ,IMATRON INC COM
IMKE ,INMARK ENTERPRISES INC COM
KREN ,KINGS RD ENTMT INC COM NEW
LFL ,LAN CHILE S A ADR SPONSORED
LIPO ,LIPOSOME INC COM
ONPR ,ONE PRICE CLOTHING STRS INC COM
PGTZ ,PRAEGITZER INDS INC COM
PILL ,PROXYMED INC COM
PSTA ,MONTEREY PASTA CO COM
RDUS ,RADIUS INC COM NO PAR
SATH ,SHOP AT HOME INC COM NEW
SCF ,SCANDINAVIA INC COM
SEEC ,SEEC INC COM
SEEQ ,SEEQ TECHNOLOGY INC COM
SFO ,SONIC FDRY INC COM
SYMM ,SYMMETRICOM INC COM
TKOCF ,TASEKO MINES LTD COM
TSEMF ,TOWER SEMICONDUCTOR LTD ORD
TTILF ,TTI TEAM TELECOM INTL LTD ORD
USPL ,U S PLASTIC LMBR CORP
VCSI ,VOICE CONTROL SYSTEMS INC COM
VLNC ,VALENCE TECHNOLOGY INC COM
WLDA ,WORLD AWYS INC NEW COM
WSTL ,WESTELL TECHNOLOGIES INC CL A
SCAN
output = "13scan.lst";
Set ROC=10;
if(Close(0) > max(-1,-60,cl)) and
(Vol(0) > AvgVol(0,-9)) and
(Close(0) < 10.01) and
(Vol(0) > 50000) and
(MACD(0) > 0) and
(CumulMoneyFlow(0) > 0) and
((ROC(0) > 0) and (ROC(0) > ROC(-1))) and
(RSI(0) > RSI(-1)) and
(StochasticPctK(0) > 20) then
println symbol,",",description;
endif;
Any thoughts on how to tweak this?
Thanks
Rob |
