Quotes Plus
PO Box 11
Hadley,MI 48440
800 627-9637

Sample Quotes Plus Scans

The Quotes Plus software allows the investor to enter in short scripts/programs which are then run within QP3 to extract information into a list which can be used in the chart program. Scripts can be run to generate Excel spreadsheet files, or just print reports. As you can see from the following examples, the scanning feature of QP3 is very powerful. However, this scanning feature is not needed, or used, by the average investor. Stock Picker Pro, included with QP3, can probably give you the results that you need.

Select all issues with today's close crossing over the 50 day simple moving average:

if close(0)>movavg(0,50,cl) // Today's close higher
and close(-1)<movavg(-1,50,cl) // Yesterday's close lower
then
println symbol,",",description;
endif;

Stocks breaking out from 30 day 15% trading range:

if close(0) >= max(-1, -30, cl) and
min(-1, -30, lo) > max(-1, -30, hi) * .85
then
println symbol,",",description;
endif;

Stochastics RSI crossing over 20:

if StochRsi(-1)< 20
and StochRsi(0) > 20
then
println symbol;
endif;

The 15 day ema crossing over the 200 day ema:

If Emovavg(0,15,cl) > emovavg(0,200,cl)
And Emovavg(-1,15,cl) < emovavg(-1,200,cl)
Then
Println symbol,",",description;
Endif;

Stochastics crossing over 20:

if StochasticPctK(-1)< 20
and StochasticPctK(0) > 20
then
println symbol;
endif;

PTATR Submitted by Richard Estes:

A combination of float turnover to measure pure volume and ATR for range produces stocks that are moving under real volume for them. Float turnover was a GANN method. This scan is appropriate for the short term trader wanting a stable to trade.

float av, pt, sf;
float cl, ATR89, tr,MA89Cl;
integer tbar,bar; Set ROC = 34;
DaysToLoad=500;
DaysRequired=100;
tbar:= 0;
av := MovAvg(tbar,34,vol);
sf := sharesfloat;
if close(0)>4 and vol(0)>85000 then
if sf > 0 then
pt := av/sf/1000/1000; // float is in mil shares
if pt >= .028 then // print both vols in thousands
ATR89:= 0; // initially set it to zero for each symbol

// 1 because it is the default
   for bar = tbar-88 to tbar do // 89 values; don't need to specify step
     cl:= close(bar-1); // close(-88) to start
     tr:= range(bar); // the usual case, no gap
     if cl > high(bar) then //down
      tr:= cl - low(bar);
     else
      if cl < low(bar) then //up
        tr:= high(bar) - cl;
      endif;
     endif;
     ATR89:= ATR89 + tr; // add tr to previous value
   next bar;
   ATR89:= ATR89/89; // divide the sum by 89
   MA89Cl:=movavg(tbar,89,cl);
   if ATR89/MA89Cl*100>5.75 then
    println symbol:-7,",",description;
       endif;
endif;
endif;
endif;

"Here is one of my absolute favorite scans that will help you find stocks that are coming out of a base and the trend is just starting. It uses the combination of MACD and the Directional Movement System together in one scan. It will only trigger a hit when the MACD line crosses above the Signal Line and the 12 period ADX is rising from below the "20" zone. Positive Directional Movement also has to be above Minus Directional Movement. It also looks backwards to make sure that ADX was flat or non-trending before the signal was given. I have found that while this scan does not produce a lot of hits, it does give you very good quality hits.

Good Luck and lets make lots of money!"

Sincerely,
Juan Yarbrough
Stocktrading 101

Set MACD=12,26,9;
Set ADX=12;
Set PDM=12;
Set MDM=12;

output="macdcrossADX.lst";
issuetype common;
DaysRequired=220;
DaysToLoad=500;

if MACD(0)>MACDSignal(0) and
MACD(-1)<MACDSignal(-1) and
Close(0)>EMovAvg(0,200,cl) and
pdm(0)>mdm(0) and
ADX(0)>ADX(-1) and
ADX(-1)<20 and
ADX(-2)<20 and
ADX(-3)<20 and
ADX(-4)<20 and
ADX(-5)<20 and
Vol(0)>50000 and
Close(0)>5 then
println symbol,", open" , open(0) :8:3,", high",high(0) :8:3,",low",
low(0) :8:3,", close", close(0) :8:3,", vol", vol(0):8;

These scans were submitted by Mike Sims.
They were written using the Gary Smith Methodology for selecting long and short candidates.

output="GBS Long";
exchange = nyse, amex, nasdaq;
issuetype=common;
DaysToLoad = 125;

if close(0)>=20 and
   avgvol(0,-49)>=50000 and
   vol(0)>= 1.5*avgvol(0,-49)and
   close(0)> close(-1)+1 and
   close(0) < 1.06 * close(-1)and
   close(0)>max(-1,-5,cl) then
     println symbol;
endif;

output="GBS Short";
exchange = nyse, amex, nasdaq;
issuetype=common;
DaysToLoad = 125;

if close(0)>=20 and
   avgvol(0,-49)>=50000 and
   vol(0)>=2*avgvol(0,-49)and
   close(-1)-close(0)<=1 and
   Close(0) < Min(-1,-5,cl)then
      println symbol;
endif;