Ich hab dir ein paar Tips:

1. Arbeite bitte mit dem DDRX-Registern, dass mit deinem Config Pinb.X = Out/Input frist in Bascom dermasen speicherplatz!!!
Benutze zb für Pind.5-7 ausgang => DDRB = 0b11100000; Da brauste für 8Pins nur eine befehl.

2. Wenn du Ports setzen willst ( einzelne Pins am ANFANG! ) wie hier:
Portd.2 = 1
Portd.3 = 1
Portd.4 = 1
Portd.5 = 1
Portd.6 = 1

benutze den Befehl PortX = ... hier macht das:
Portd = 0b01111100

3. Nettes Programm