Dim My_led_data(10) As Byte Dim My_index As Byte Dim My_flag As Byte Dim Tmp As Byte Dim I As Byte Config Timer0 = Timer , Prescale = 256 On Timer0 Timer0_isr Enable Interrupts Enable Timer0 Start Timer0 Rem Ausgänge konfigurieren Ddrc = &HFF Portc = 0 Rem Array füllen Restore Led_data For I = 1 To 10 Read Tmp My_led_data(i) = Tmp Next Rem Endlose Hauptschleife My_flag = 0 My_index = 1 Do If My_flag = 1 Then My_flag = 0 My_index = My_index + 1 If My_index = 11 Then My_index = 1 Tmp = Portc And &HCF Portc = Tmp Or My_led_data(my_index) End If Loop End Rem Led-Daten hier eintragen, Led_data: Data &H00 , &H10 , &H20 , &H30 , &H0 , &H0 , &H0 , &H0 , &H0 , &H0 Timer0_isr: My_flag = 1 Return