$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 = 8

Portc.7 = 1

Dim Zahl As Byte

Do
Zahl = 0
Compare1a = Zahl
Compare1b = Zahl
Zahl = Zahl + 1
Waitms 3
Loop
End