$regfile = "m16def.dat" $crystal = 8000000 Config Portd = Output Config Serialin = Buffered , Size = 255 Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down , Prescale = 256 Dim A As Byte Enable Interrupts Do A = Inkey() If A > 0 Then Compare1a = A Compare1b = A End If Loop