Wenn Du den kompletten PortB auf 1 setzt - wieso fragst Du ihn dann mit If-Then ab? Soweit ich den Code überblicke, wird dort auch nirgendwo anders PortB verändert...

Code:
set portb
set portf

if portb.0 = 0 then portf.0 = 1
if portb.1 = 0 then portf.1 = 1
if portb.2 = 0 then portf.2 = 1
Und ich könnte mir vorstellen, dass Bascom meckert, wenn If-then ohne "End if" oder "Else" geschrieben wird...


Code:
Set Pind.6                                                  'Pullup aktiv
Außerdem muss der PullUp-Widerstand mit Set Portd.6 aktiviert werden!

Und hat der Zufallszahlengenerator eine weiterreichende Bedeutung für das Programm?

Vielleicht kannst Du das Projekt ja nochmal etwas präziser schildern...?