Nun sieht ok aus. Tu' mir aber einen Gefallen und schreib den Empfang etwas um
Code:
Empfang: 
A = inkey() 
If D > 0 Then 
               If D < 8 Then B(d) = A 
               C = C Xor A 
               Incr D 
ELSE
        If A = 233 Then Incr D 
END IF
Return
Denn irgendwann gibt's sonst ein Problem