$regfile = "m8def.dat" $crystal = 4000000 $baud = 9600 Dim A As Byte Dim P As Integer Dim Z1 As String * 10 Dim Zeit As Integer Ddrb = &B11111111 A = &B11111110 Portb = A P = 50 Zeit = 0 Do If Ucsra.rxc = 1 Then Do Zeit = Inkey() Z1 = Z1 + Chr(zeit) Loop Until Ucsra.rxc <> 1 P = Val(z1) Z1 = "" End If Do Rotate A , Left Portb = A Waitms P Loop Until A = &B11011111 Do Rotate A , Right Portb = A Waitms P Loop Until A = &B11111110 Loop