$regfile = "m16def.dat" $crystal = 16000000 $baud = 9600 Dim I As Byte Config Porta = Output Do Porta = 1 'LED aus If Usr.rxc = 1 Then 'Daten? I = Udr 'Zeichen holen Print I 'Zeichen echoen Porta = 0 'LED an Wait 5 'warten End If Loop End