On System#Boot Do
       LCD,1,1,'Irrigatore by IW3QTF'
       GPIO,4,0
       GPIO,5,0
       TaskValueSet durata,alba1,0
       TaskValueSet durata,alba2,0
       TaskValueSet,durata,tramonto1,1200
       TaskValueSet,durata,tramonto2,1200
       TaskValueSet,limite,alba1,25
       TaskValueSet,limite,alba2,20
       TaskValueSet,limite,tramonto1,15
       TaskValueSet,limite,tramonto2,10
       TaskValueSet,consenso,alba1,1
       TaskValueSet,consenso,alba2,1
       TaskValueSet,consenso,tramonto1,1
       TaskValueSet,consenso,tramonto2,1
       TaskValueSet,tandem,millisecondi,2500
       TaskValueSet,valvola,uno,0
       TaskValueSet,valvola,due,0
       Let,0,0
       LCD,4,1,"Pompe 1:SPT  2:SPT"
Endon

 On mostradati Do

      If %v0% = 0
         LCD,2,1,"Versione accensione"
         LCD,3,1,"    in sequenza       "
         delay 5000
         LCD,2,1," Soglia luce    "
         LCD,3,1," Alba:[limite#alba1]% Tram:[limite#tramonto1]%"
         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