Led schalten

Hi,

ich habe ein Problem mit meinem Programm. Es soll auf Tastendruck eine
Led leuchten. Könnt ihr mir sagen was hier falsch ist Danke Gruß

$regfile = "2313def.dat"
$crystal = 4000000

Config Portd = Input
Config Portb = Output

Ddrd = &B0000000                                            'Pin PD3
Ausgang, Rest Eingang
Portd = &B1111111                                           'PullUp
von Pin D aktivieren
Do
 If Pinb.0 = 1 Then Toggle Portb.0
 Wait 1
 'If Pinb.0 = 0 Then Portb.0 = 0 Else Portb.0 = 1
 'If Pinb.1 = 0 Then Portb.0 = 0 Else Portb.1 = 1
 'If Pinb.2 = 0 Then Portb.0 = 0 Else Portb.2 = 1
 'If Pinb.3 = 0 Then Portb.0 = 0 Else Portb.3 = 1
 'If Pinb.4 = 0 Then Portb.0 = 0 Else Portb.4 = 1
 'If Pinb.5 = 0 Then Portb.0 = 0 Else Portb.5 = 1
 'If Pinb.6 = 0 Then Portb.0 = 0 Else Portb.6 = 1
 'If Pinb.7 = 0 Then Portb.0 = 0 Else Portb.7 = 1
Loop