$regfile = "m32def.dat"
$crystal = 16000000

$include "declares.bas"

Config Portc = Output
Config Portd = Output
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 64

Portc.7 = 1

Dim Zahl As Byte

Do
Zahl = 0
Do

Compare1a = Zahl
Compare1b = Zahl
Zahl = Zahl + 1
Waitms 3
Loop Until Zahl = 255
Loop
End

so gehts auch nich.