Ich kenne mich mit Bascom zwar nicht aus,
aber wenn Du im Unterprogramm Pr_Wechsel von vorneherein Pr1_3 auf 0 setzt, kann es eigentlich nicht funktionieren, oder?

askazo