$regfile = "m16def.dat" $crystal = 8000000 $baud = 9600 $hwstack = 100 $framesize = 100 $swstack = 100 Led Alias Portd.5 Config Led = Output Dim I As Byte If Usr.rxc = 1 Then 'Wenn Byte empfangen... I = Udr 'Byte aus UART auslesen Select Case I Case "A" Led = 1 Case "B" Led = 0 End Select End If Return