Code:
Ddrb = &B00011000                                          'Pin Pb0,1,2 Ausgang, rest Eingang

 Portb = &B11100111                                         'Pullups der Eingänge aktiviert                                          'PullUp von Pin PD0+1+rest aktivieren
Ich kann zwar kein Bascom aber ich glaube nicht das der Kommentar mit dem was du einstellst zusammenpasst.

Hubert