Inputs:
SessionStart(900),SessionEnd(1630);
	
Vars:
	tHigh(0),tlow(0),counter(0),lnow(0),hnow(0);

if Time data2 = sessionendtime(0,1) data2 then
begin
	counter=0;
	hnow  =high data2;
	lnow  =low data2;
	while  counter < 150 begin
		if hnow < high[counter] data2  then begin 
			hnow = high[counter] data2;
			tHigh=Time[counter] data2;
		end;
		if lnow > low[counter] data2 then begin
			lnow = low[counter] data2;
			tlow= Time[counter] data2;		
		end;
		counter=counter +1;
	end;
end;

plot1(tlow);

Inputs:
	sessionStart(931),sessionEnd(1600);
Vars:
	tlow(0,data1),thigh(0,data1),
	tlow2(0,data2),thigh2(0,data2),
	hnow(0,data2),lnow(0,data2);
	
if Time of data2 = sessionStart then 
begin
	
	hnow = high of data2;
	lnow = low of data2;
	tlow2 = Time of data2;
	thigh2 = Time of data2;
end
else
begin
	print(lnow);
	if high of data2 > hnow[1] then 
	begin
	 	hnow = high of data2;
	 	thigh2 = Time of data2;
	end
	else
	begin
		hnow = hnow[1];
		thigh2= thigh2[0];
	end;
	if low of data2 < lnow[1] then 
	begin 
		lnow = low of data2;
		tlow2 = Time of data2;
	end
	else
	begin 
		lnow = lnow[1];
		tlow2 = tlow2[1];
	end;
end;

if time of data2 = sessionendtime(0,1) then 
begin
tlow = tlow2;
thigh = thigh2;
end;

plot1(thigh);
plot2(tlow);