$regfile "m32def.dat"
$crystal = 1000000
Dim Ad As Integer
Dim Change As Integer
Dim Pwmstartwert As Integer
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale = 1
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Pwmstartwert = 200
Do...