ABC Easy/power language

Inputs:
HighTLColor(darkgreen),
LowTLColor(red),
TLSize(1),  
TLStyle(1),
HighTextColor(darkgreen),
LowTextColor(red),
TextSize(10);

Variables:

VertTxtP1(1),
//0-below the specified price value
//1-above the specified price value
//2-centered on the specified price value

HorizTxtP1(1),
//0-to the right of the specified bar
//1-to the left of the specified bar
//2-centered on the specified bar  

HaveTextAndLines(false),
DayHigh(High),
DayLow(Low),
PrevDayHigh(0),
PrevDayLow(0),
HiTxt(-1),
Lotxt(-1),
HiTL(-1),
LoTL(-1);

//reset on a date change
if Date <> Date[1] then
begin
//save previous day`s extremes before resetting them
PrevDayHigh = DayHigh;
PrevDayLow  = DayLow;

//set the tracking variables to
//the high and low of the first bar
//of the day

DayHigh = High;
DayLow = Low;

//this boolean variable is used to make sure that the trenlines 
//drawing the trendline with the values for the current bar and
//update them with everynew bar later in the code

HaveTextAndLines = true;

//create new trendlines to display previous extremes we will start
//drawing the trendline with te values for current bar and
//update them with every new bar later in the code

HiTL = TL_New(Date,Time, PrevDayHigh, Date, Time, PrevDayHigh);
       TL_SetColor(HiTL, HighTLColor);
       TL_SetSize(HiTL,TLSize);
       TL_SetStyle(HiTL, TLStyle);
           
LoTL = TL_New(Date,Time, PrevDayLow, Date, Time, PrevDayLow);
       TL_SetColor(LoTL, LowTLColor);
       TL_SetSize(LoTL,TLSize);
       TL_SetStyle(LoTL, TLStyle);

HiTxt = Text_New(Date, Time, PrevDayHigh, "PrevHi");
        Text_SetColor(HiTxt, HighTextColor);
        Text_SetSize (HiTxt, TextSize);
        Text_SetStyle(HiTxt, HorizTxtP1, VertTxtP1);
        
LoTxt = Text_New (Date, Time, PrevDayLow, "PrevLo");
         Text_SetColor(LoTxt, LowTextColor);
         Text_SetSize(LOTxt, TextSize);
         Text_SetStyle(LoTxt, HorizTxtP1, VertTxtP1);
         
end;     

//to prevent errors we only update trendlines when we are sure that
//at least one set of trend lines exist
If HaveTextAndLines = true then
begin

//update the trendline endpoints
TL_SetEnd(HiTL, Date, Time, PrevDayHigh);
TL_SetEnd(LoTL, Date, Time, PrevDayLow);

//update text to new location
Text_setLocation(HiTxt, Date, Time, PrevDayHigh);
Text_SetLocation(LoTxt, Date, Time, PrevDayLow);

end;

//update the variable tracking the lowest low
if low < DayLow then
DayLow = Low;

if high > DayHigh then
DayHigh = High;