Do

Temp1 = Waitkey()
If Temp1 <> Sync Then Loop

Inputbin Adresse , Funktion , Stoppbyte

If Adresse <> Myadress Then Loop

If Funktion = &H01 Then Gosub Rolloauf
If Funktion = &H02 Then Gosub Rolloab

If Stoppbyte = &H7F Then Loop

Loop


Rolloauf:

Auf = 1
Wait 10
Auf = 0
Return

Rolloab:

Ab = 1
Wait 10
Ab = 0
Return



Was hälst du erstmal davon?
Durch das Wait 10 ist es unmöglich, das ein anderes Relais angesteuert wird.