$regfile = "attiny13.dat"    
$crystal = 9600000    

$hwstack = 30
$swstack = 30
$framesize = 30

Config Timer0 = Pwm , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 8    

Config Portb.0 = Output    
Config Portb.1 = Output    
Set Portb.3 : on0 Alias Pinb.3
Set Portb.4 : on1 Alias Pinb.4      
Set Portb.2 : on2 Alias Pinb.2    
Dim A As Byte    
Config Debounce = 50    

Stop Timer0    
A = 0    
Do    
     Debounce on0 , 0 , Minuti , Sub    
     If A = 2 Then Start Timer0    
     If A = 1 Then Stop Timer0    
     If on1 = 0 Then    
     Do    
       Decr Pwm0a : If Pwm0a > 253 Then Pwm0a = 253    
       Waitms 10    
     Loop Until on1 = 1    
     End If    

     If on2 = 0 Then    
     Do    
       Incr Pwm0a : If Pwm0a < 2 Then Pwm0a = 2    
       Waitms 10    
     Loop Until on2 = 1    
     End If    

Loop    

End    

Minuti:    
Incr A    
If A = 3 Then A = 1    
Return