title TomSoft-ClockBar
  %d = @winactive()
  repeat 
    %e = @winactive(N)
    %f = @winactive(C)
    %g = @winactive(N)
  until @not(@equal(%E,%D))
  %a = @datetime(hh:nn:ss dd/mm/yyyy)
  if @winexist(%E)
    window settext,%E,%E"," %A - TomSoft Clock-Bar
  end 
:start
  %b = @datetime(hh:nn:ss dd/mm/yyyy)
  if @not(@equal(%B,%A))
    if @winexist(%E"," %A - TomSoft Clock-Bar)
      window settext,%E"," %A - TomSoft Clock-Bar,%E"," %B - TomSoft Clock-Bar
    end 
  end 
  %a = @datetime(hh:nn:ss dd/mm/yyyy)
  if @not(@equal(%A,%B))
    if @winexist(%E"," %B - TomSoft Clock-Bar)
      window settext,%E"," %B - TomSoft Clock-Bar,%E"," %A - TomSoft Clock-Bar
    end 
  end 
  if @not(@equal(@winactive(C),%F))
    if @winexist(%E"," %A - TomSoft Clock-Bar)
      window settext,%E"," %A - TomSoft Clock-Bar,%E
    end 
    if @winexist(%E"," %B - TomSoft Clock-Bar)
      window settext,%E"," %B - TomSoft Clock-Bar,%E
    end 
    %e = @winactive(N)
    %f = @winactive(C)
    %a = @datetime(hh:nn:ss dd/mm/yyyy)
    if @winexist(%E)
      window settext,%E,%E"," %A - TomSoft Clock-Bar
    end 
  end 
  goto start