mit dip schalter PORTD 0-1-2-3 Abfragen

[Der bastler]

Hallo Forum gemeinde
Ich habe ein kleines problem, ich mochte an PORTD.0-1-2-3 einen dip schalter für programm auswahl einstellen...
für 3 Ports habe ich hinbekommen aber komme leider nicht weiter oder habe einen denkfehler...

Bitte um rat

Dim Kodierschalter As Byte

Declare Sub Prog0
Declare Sub Prog1
Declare Sub Prog2
Declare Sub Prog3
Declare Sub Prog4
Declare Sub Prog5
Declare Sub Prog6
Declare Sub Prog7
Declare Sub Prog8
Declare Sub Prog9
Declare Sub Prog10
Declare Sub Prog11
Declare Sub Prog12
Declare Sub Prog13
Declare Sub Prog14
Declare Sub Kein_prog


Do
Kodierschalter = Pind And &B00001111
Select Case Kodierschalter
  Case 0 : Gosub Prog0                                      '
  Case 1 : Gosub Prog1                                      '
  Case 2 : Gosub Prog2                                      '
  Case 3 : Gosub Prog3                                      '
  Case 4 : Gosub Prog4                                      '
  Case 5 : Gosub Prog5                                      '
  Case 6 : Gosub Prog6                                      '
  Case 7 : Gosub Prog7                                      '
  Case 8 : Gosub Prog8                                      '
  Case 9 : Gosub Prog9
  Case 10 : Gosub Prog10
  Case 11 : Gosub Prog11
  Case 12 : Gosub Prog12
  Case 13 : Gosub Prog13
  Case 14 : Gosub Prog14
  Case Else : Gosub Kein_prog
End Select
Loop

Sub Prog0
Portb.0 = 1
Wait 1
Portb.0 = 0
End Sub

Sub Prog1
End Sub

Sub Prog2
End Sub

Sub Prog3
End Sub

Sub Prog4
End Sub

Sub Prog5
End Sub

Sub Prog6
Portb.6 = 1
Wait 1
Portb.6 = 0
Wait 1
End Sub

Sub Prog7
Portb.7 = 1
Wait 1
Portb.7 = 0
Wait 1
End Sub

Sub Prog8
Portb = &B10000001
Wait 1
Portb = &B00000000
Wait 1
End Sub

Sub Prog9
Portb = &B11000001
Wait 1
Portb = &B00000000
Wait 1
End Sub

Sub Prog10
End Sub

Sub Prog11
Portb = &B11110001
Wait 1
Portb = &B00000000
Wait 1
End Sub

Sub Prog12
End Sub

Sub Prog13
Portb = &B11111101
Wait 1
Portb = &B00000000
Wait 1
End Sub

Sub Prog14
End Sub

Sub Kein_prog
Portd.6 = 0
Wait 1
Portd.6 = 1
Wait 1
End Sub

Return

Wo habe ich ein denk fehler oder ist da was falsch.....