Demark's Sequential

["Massimo" <rivadoro@xxxxxx>]

I have downloaded just now this function from the  Omega Eskimo web ,;
this is a function about the Demark's Sequential from :
Lawson McWhorter (lmcwhort@xxxxxxxxx)
Mon, 30 Oct 1995 15:58:50 -0500 (EST)

But in PowerEditor it's not verified .

There is anyone that can help me to adjust this function to the Power Editor
?

Massimo

________________________________________________________________________

if 1<>2 then

Vars: setbuy(0),countbuy(0),setsell(0),countsell(0),buyit(0),sellit(0),
countbuysum(0),buycheck(0),sellcheck(0),hhsetbuy(0),hccountbuy(0),
countsellsum(0),llsetsell(0),lccountsell(0);

setbuy=IFF(close<close[4],1,0);
setsell=IFF(close>close[4],1,0);
countbuy=IFF(close<low[2],1,0);
countsell=IFF(close>high[2],1,0);

if summation(setbuy,9)=9 and close[10]>=close[14] and
highest(high,2)>=lowest(low,5)[2] then buyit=1 else buyit=0;

if summation(setsell,9)=9 and close[10]<=close[14] and
lowest(low,2)<=highest(high,5)[2] then sellit=1 else sellit=0;

buycheck=mro(buyit=1,100,1);
if buycheck>0 then countbuysum=summation(countbuy,(buycheck+1)) else
countbuysum=0;
sellcheck=mro(sellit=1,100,1);
if sellcheck>0 then countsellsum=summation(countsell,(sellcheck+1)) else
countsellsum=0;

if (countbuysum=13 and (sellcheck=-1 or sellcheck>buycheck)
and highest(close,buycheck)<highest(high,9)[buycheck] and
countbuy[0]=1) then sequential=1
else
if (countsellsum=13 and (buycheck=-1 or buycheck>sellcheck)
and lowest(close,sellcheck)>lowest(low,9)[sellcheck] and
countsell[0]=1) then sequential=-1
else sequential=0;

if 1=2 then