hallo
habe mal in deiner do-loop schleife die reset-befehle durch das
jeweilige port ersetz
z.b.
reset bl1 durch portb.3 = 0
okay habe nur einen 2313 mit 4mhz zum testen und von timer-ausrechnen
leider noch keine ahnung(lerne gerade bascom).
aber probiere mal was passiert.

gruß