On System#Boot Do
       LCD,1,1,'Irrigatore by IW3QTF'
       GPIO,4,0
       GPIO,5,0
       TaskValueSet durata,alba1,2
       TaskValueSet durata,alba2,2
       TaskValueSet,durata,tramonto1,2
       TaskValueSet,durata,tramonto2,2
       TaskValueSet,limite,alba1,60
       TaskValueSet,limite,alba2,65
       TaskValueSet,limite,tramonto1,30
       TaskValueSet,limite,tramonto2,24
       TaskValueSet,consenso,alba1,1
       TaskValueSet,consenso,alba2,1
       TaskValueSet,consenso,tramonto1,1
       TaskValueSet,consenso,tramonto2,1
       TaskValueSet,valvola,uno,0
       TaskValueSet,valvola,due,0
       Let,0,0
       Event,statopompe
Endon

 On mostradati Do

      If %v0% = 0
         LCD,2,1,"    Soglia luce    "
         LCD,3,1,"  in percentuale   "
         delay 3000
         LCD 2,1,"    Alba1 - Alba2   "
         LCD,3,1,"Tramonto1-Tramonto2"
         delay 3000
         LCD,2,1,"  A1:[limite#alba1]% - A2:[limite#alba2]%"
         LCD,3,1,"  T1:[limite#tramonto1]% - T2:[limite#tramonto2]%"
         Endif
  
  If %v0% = 1
         LCD,2,1,"Tempi di attivazione"
         LCD,3,1,"in secondi 0=spento"
         delay 3000
   
         LCD,2,1,"A1:[durata#alba1]s - A2:[durata#alba2]s"
         LCD,3,1,"T1:[durata#tramonto1]s - T2:[durata#tramonto2]s"
         Endif
         
      If %v0% = 2
         LCD,2,1,"-Irrigatore bizona-"
         LCD,3,1,"-----by IW3QTF-----"
         Endif
       
         
   Let,0,%v0%+1
    If %v0%>2
         Let,0,0
      Endif
 Endon