Danke für die erste Antwort.
Das Programm beginnt mit:

$crystal = 10000000

Config Pinb.0 = Output
Config Pinb.1 = Output
Config Pinb.2 = Output
Config Pinb.5 = Input
Config Pinb.6 = Input
Config Pinb.7 = Input
Config Pind.0 = Output
Config Pind.1 = Output
Config Pind.2 = Input
Config Pind.3 = Input
Config Pind.4 = Input
Config Pind.5 = Input



Config Timer0 = Timer , Prescale = 8
On Ovf0 Counters
Enable Timer0
Enable Interrupts


Dim Blinkercounter As Integer , Pwm As Integer , N As Integer
Dim Error As Bit , Warten As Bit , Blinker_err As Bit , Bremse_err As Bit , Fahrlicht_err As Bit
Dim Fahrlichtbit As Bit


Da wird zwar ein Timer0 konfiguriert, doch weiter unten finde ich nirgendwo etwas mit compare, um das Tastverhältnis einzustellen. Mein Bekannter meinte, er wollte es wohl erst mit dem Timer versuchen, hat ihn dann wohl aber doch nicht benutzt. Davon bin ich ausgegangen, da ja das compare fehlt.
Hilft dir das weiter?