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

Dim W As Byte

Config Pinb.0 = Output

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

Reset Portb.0

Waitms 200
For W = 10 To 255
Pwm0a = W
Waitms 7
Next W
Wait 5
Pwm0a = 200

Do

Loop

End