Variables:

sput (0),
var0( 0 ),
Times ( 0 ),
lastVol (0),
firstVol (0),
TimeSput (0),
x (0),
VolSum( 0 );

Arrays:
VolSumArray[](0);

begin

if BarType >= 2 and BarType < 5 then 
	
var0 = Volume ;
var0 = Ticks ;
	
	
If (var0 > var0[1]and var0[1] <= var0[2] ) then begin
sput = Close[1];
End;

If sput = sput then begin
TimeSput = datetime;
End;

If TimeSput > TimeSput [1] then
x=x+1;
Array_SetMaxIndex(VolSumArray, x );


If TimeSput > TimeSput [1] then begin
VolSumArray[x] = var0;
End;

If TimeSput = TimeSput  then begin
lastVol = var0;
End;

If TimeSput[1] = TimeSput[1]  then begin
firstVol = var0;
End;


If (var0 > var0[1]and var0[1] <= var0[2] ) then 
VolSum = 0;

VolSum = Array_Sum(VolSumArray, firstVol, lastVol);


if Close[0] > sput then


Plot1( VolSum, "VolUp",Blue ) ;
	
if Close[0] < sput then 

Plot2( VolSum, "VolDn",Red ) ;

Plot3( 0, "Zero", black);

End;