Hallo Vitis,

ich hab vorher selber mal getestet, klappt aber noch nicht so recht, und hab versucht den Code zu vereinfachen:

'Sensor
Code:
$regfile = "attiny2313.dat"
$crystal = 3579545
$baud = 4800
Portb = &B11111111
Portd = &B1100000                                           'PullUp

Main:
Portd.2 = 1      '485 auf senden
Waitms 10
Do
If Pinb.0 = 0 Then
Goto 2
Elseif Pinb.1 = 0 Then
Goto 2
Elseif Pinb.2 = 0 Then
Goto 2
Elseif Pinb.3 = 0 Then
Goto 2
Elseif Pinb.4 = 0 Then
Goto 2
Elseif Pinb.5 = 0 Then
Goto 2
Elseif Pinb.6 = 0 Then
Goto 2
Elseif Pinb.7 = 0 Then
Goto 2
End If

Loop

1:

Goto Main


2:
Waitms 10
Print "100"      ' oder print ? Chr(udr)
Goto Main

Code:
'Aktor Einfacher String-Empfang
$regfile = "attiny2313.dat"
$crystal = 3579545
$baud = 4800

Dim S As String * 7
Dim A As String * 4
Dim X1 As Boolean
Dim X2 As Boolean
Dim X3 As Boolean
Dim X4 As Boolean
Dim Z As String * 1


On Urxc Onrxd
Enable Urxc
Enable Interrupts


Main:
     S = ""
      Goto Auswerter
  Goto Main



Onrxd:
  S = Chr(udr)     ' Wird hier das Zeichen empfangen ?
Return



Auswerter:

If S = "100" Then

Portb.1 = 1                                                 '1 für high

End If

S = ""

Goto Main

Was ich nicht verstehe ist wie der Aktor die Zeichenkette empfängt ?

Danke für die Hinweise in der Bascom-Hilfe, schau ich mir dann an ! (der Anhang von Dir fehlt glaub ich )

Mfg, Jürgen