Dein Code ist wirklich noch etwas verworren, sowas führt schnell zu Fehlern.
So hast du beispielsweise in der do Loop Schleife wo du Sensor abfragst garnicht die Abfrage für den AD-Port drin
Die Abfrage führst du nur einmal kurz davor aus - die müsste aber dann in die do-loop Schleife wenn ich den Code richtig deute.
Zudem solltest du darauf achten das du Bascom Stack Werte etwas erhöhst (unter Optionen) oder zum Beispiel so im Code:

$hwstack = 88
$framesize = 80
$swstack = 80


Müssen zwar nicht so hoch sein, aber schadet auch nix solange du Platz hast. Ansonsten kann´s bei Subfunktionen schnell mal zum Überlauf mit seltsamen Folgen kommen.
Dann denk noch daran das der rechte Port der Steckklemme Port 0 ist, eventuelle verwechselst du 0 oder 1.
Irgendwo ist da im Code noch der Wurm drinn. Wenn man nicht weiter kommt, hilft es einem in der Rege wenn man den Code soweit abspeckt bis die Problemstellung übersichtlicher bzw eindeutig wird.

Gruß Frank