Angenommen, du willst die internen Pullups verwenden:

Code:
DDRA = &B11111110 'Pin PA0 als Eingang, Rest als Ausgang 
PORTA = &B00000001 'Pullup für PA0 aktivieren

DDRD = &B11111111 'Pins PD0 bis PD7 als Ausgang  
PORTD= &B00000000 ' Alle PORTD-Pins auf Low
Um ein Prellen des Schalters abzufangen, gibt es unter Bascom den Befehl Debounce:

Code:
Do 
     Debounce PINA.0, 0, Keypressed, Sub
Loop

Sub Keypressed
     PORTD = Not PORTD
End Sub
So sollte bei jedem Tastendruck PORTD umgeschaltet werden.