yep, here's the "GBS classic long"
Output="GBS Classic Long.lst";
float fPriceChg, fVolChg, fYearHigh, fyearLow;
ProcessMS="c:\meta2\Scans\GBS long", VMS;
exchange=NYSE, NASDAQ, AMEX;
fYearHigh:=max(-1,-250,cl);
fYearLow:=min(-1,-250,cl);
//VolChg in terms of its %age change above or below the 50 day average
fVolChg:=0;
fVolChg:=0;
if AvgVol(-1,-50) > 0 then
fVolChg:=(Vol(0)/AvgVol(-1,-50)*100)-100;
endif;
fPriceChg:=Close(0)-Close(-1);
// stock should make a new high coming out of congestion, i.e. last
// new high should be at least 6 weeks ago
if Close(0) > fYearHigh and
max(-1,-29,cl)<fYearHigh and
fVolChg > 100
then
println symbol:-6, ", ",Description:-14, ", ",close(0):6:2, ",",fPriceChg:4:2, ",",Vol(0):8:0, ", ", fVolChg:6:0, ", ",PE:4:0, ", ",fYearHigh:6:2, ", ",fYearLow:6:2, ", ",QRS(0):4:0;
endif; |
