' Frequenzteiler $crystal = 8000000 $regfile = "m8def.dat" Dim A As Byte Config Portb = Output Config Portd = Output ' f/2 f/4 f/8 Do For A = 0 To 255 Portb = A Portd = A Portb = 0 Portd = 0 Next Loop End