Declare Function Datenempfang(dat As String) As Byte $regfile = "m16def.dat" $crystal = 8000000 $baud = 4800 $hwstack = 82 $framesize = 68 $swstack = 68 Dim Befehl As String * 10 Dim Error As Byte Config Pind.5 = Output Led Alias Portd.5 Config Serialin = Buffered , Size = 20 Config Serialout = Buffered , Size = 20 Enable Interrupts Do Error = Datenempfang(befehl) If Befehl = "A" Then Led = 1 If Befehl <> "" Then Print "LED ist An" End If End If If Befehl = "B" Then Led = 0 If Befehl <> "" Then Print "LED ist AUS" End If End If Loop 'Empfängt Datenstring (Holt alles aus dem Eingabebuffer) 'Rückgabe: 0=Erfolgreich 1=Fehler Function Datenempfang(dat As String) As Byte Local Temp As Byte Waitms 20 Dat = "" Do 'Auf Echo warten Temp = Inkey() If Temp <> 0 Then Dat = Dat + Chr(temp) Loop Until Temp = 0 Befehl = Dat Datenempfang = 0 End Function