Hallo,

ich weiss jetzt nicht ob ich die logik verstanden habe, aber die letzte If-Abfrage vergleicht nur A mit B, wenn beide gleich sind, also 0 oder 1 sind !
Evtl. hilfts auch wenn Du alle If-Abfragen zusammenhängst mit ElseIf, dann tritt pro Loop bestimmt nur eine Sub in Aktion.

Aja, jetzt seh' ich's erst, die Werte für A und B werden ja nie aktualisiert, ausser beim Programmstart !
entweder am Anfang der Loop die Werte setzen,
oder statt dem Dim A .. ein :
Code:
A Alias Pind.6
für B genauso, dann wird immer auf die Ports zugegriffen.