[point-figure]

hi, i have this EL code for tradestation BUT DON'T WORK..anyone have a good code?
help me. thanks

//
This will simulate "Point & Figure" levels on a bar chart
{Written by Adam Hefner version 01-07-02}

Var: dbh(0), dbl(0), {Daily block high/low}
abh(0), abl(0), {actual block high/low}
dir(0), {direction}
sv(0); {stop value}
Inputs: BlockSize(1), {Block Size}
ReverseSize(3), {Reverse Size}
lookBack(-1); {look back period}
Var: bs(BlockSize),
rs(ReverseSize),
lb(LookBack);

{daily block high/low calculations}
If Round(high/bs,0)*bs > High
then dbh = (Round(high/bs,0)*bs)-bs
else dbh = Round(high/bs,0)*bs;
If Round(Low/bs,0)*bs < Low
then dbl = (Round(Low/bs,0)*bs)+bs
else dbl = Round(Low/bs,0)*bs;

If currentbar <= 1 {check for first 2 bars of the chart}
then begin
dir = 1;
abh = dbh;
abl = dbl;
end
else begin
If dir[1] = 1 {direction up calculations}
then begin
if dbh > abh[1]
then
abh = dbh {new high}
else begin
If dbl <= abh-(bs*rs) {reverse}
then begin
dir = -1;
abh = abh[1];
abl = dbl;
end
else
abh = abh[1];
end;
end
else begin {direction down calculations}
If dbl < abl[1]
then
abl = dbl {new low}
else
if dbh >= abl+(bs*rs) {reverse}
then begin
dir = 1;
abl = abl[1];
abh = dbh;
end
else
abl = abl[1];
end;
end;

If dir = 1 {reversal stop}
then sv = abh-(bs*rs)
else sv = abl+(bs*rs);

plot1(abh);
plot2(abl);
plot3[lb](sv);