on Consumi#Watt do
 oled,3,2,[VAR#1#D2.0]
 if [VAR#1]>=10
  let 2, %v2%/%v1%
  TaskValueSet 4,1,[VAR#2]
  oled,7,12,[VAR#2#D4]
  let 2,[Consumi#Watt]
  oled,4,12,[Consumi#Watt#D4]
  Let,1,1
 else
  Let,1,[VAR#1]+1
  let 2,[VAR#2]+[Consumi#Watt]
  oled,4,12,[Consumi#Watt#D4]
 end if

 if [Consumi#Watt] > 3300
  TaskValueSet 4,2,1
 else
  TaskValueSet 4,2,0
 end if
endon