var
  lb:=4;
  { number of periods in look back }
  event:=H > Highest(H\1\, lb);
  bs:=0;
end_var

{calculating bars since}
if HistorySize>1 then
  begin
  if not event then bs:=bs\1\+1;
                  else bs:=0;
  end;

if event and (bs\1\ >= lb) then
  return bs\1\;

return 0;