$regfile = "at26def.dat" 'Man muß dem Compiler schon sagen wer drann hängt $crystal = 16000000 'Hab gerade nur nen 16 Mhz Quarz da Dim A As Byte Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Up , Prescale = 1 Do Gosub Pwm Loop Pwm: For A = 1 To 255 Ocr1c = 255 'Comparewert Ocr1a = A 'Ausgabe 1a Ocr1b = A 'Ausgabe 1b Waitms 10 'Etwas Warten damit man was mitbekommt Next Return End