Code:
$regfile = "m168def.dat"
$crystal = 16000000
$baud = 9600
$framesize = 32
$swstack = 32
$hwstack = 32

Config Pind.6 = Output

'Config Timer0 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale = 1
Tccr0a = &B11000001
Tccr0b = &B00000001
Tcnt0 = &B00000000
Timsk0 = &B00000000
Tifr0 = &B00000000

Dim I As Byte

Mop:
 For I = 0 To 140
  Ocr0a = I
  Waitms 100
 Next I
Goto Mop

End
jo hier hab ich mal ein Testprog.

mfg
tobi