Config Serialin = Buffered , Size = 40 Portd = 255 Config Pind.5 = Input Config Portb = Output Enable Interrupts Dim Daten As String * 16 Dim Xdaten As String * 16 Dim X As String * 8 Dim Y As Byte Declare Sub Schreiben() Do Call Schreiben() Loop End Sub Schreiben() Do 'Einlesen von RS232 Daten = Inkey() If Err = 0 Then 'kontrolle Xdaten = Xdaten + Daten End If If Len(xdaten) = 16 Then Upperline X = Left(xdaten , 8) 'konvertieren Y = Binval(x) Config Portb = Y Lowerline X = Right(xdaten , 8) 'konvertieren Y = Binval(x) Xdaten = "" X = "" End If Loop Until Pind.5 = 1 End Sub