$regfile = "attiny13.dat"
$hwstack = 8
$swstack = 16
$framesize = 16

Dim Led As Byte
Led = 0
Dim Button As Bit
Button = 1

Config Pinb.3 = Input
Pinb.3 = 1
Config Portb.1 = Output

Config Timer0 = Pwm , Prescale = 8 , Compare B Pwm = Clear Down

Start Timer0

Do
If Led = 4 Then Led = 0
If Led = 0 Then Pwm0b = 0
If Led = 1 Then Pwm0b = 75
If Led = 2 Then Pwm0b = 160
If Led = 3 Then Pwm0b = 255
If Button = 1 Then
If Pinb.3 = 0 Then
Button = 0
Led = Led + 1
End If
End If
If Pinb.3 = 1 Then Button = 1
Loop

End