erstmal danke,
aber was verbiergt sich hinter Eingang?

hab es jetzt mal so probiert:

If Usr = 1 Then
Inputbin Wr_pakete(1) , 8
else
incr adr

nur irgendwie treagiert er dabei auf kein empfangsbyte