Meine neuen Codes, funktioniert immer noch nicht

Code:
$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600

Config Pind.5 = Input
Config Pind.6 = Input

Declare Sub Send1
Declare Sub Send2

Dim X As Integer
Dim Y As Integer

X = 1
Y = 2

Do
Debounce Pind.5 , 0 , Send1 , Sub
Debounce Pind.6 , 0 , Send2 , Sub
Loop

Sub Send1:
Print X
End Sub

Sub Send2:
Print Y
End Sub

Code:
$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600

Config Portb = Output

Declare Sub Loop1
Declare Sub Loop2

Dim X As Integer

Portb.5 = 0

Do
Input , X
If X = 1 Then Gosub Loop1
If X = 2 Then Gosub Loop2
Loop

Sub Loop1:
Portb.5 = 1
End Sub

Sub Loop2
Portb.5 = 0
End Sub

Hmm, habe doch gosub verwendet... trotzdem reagiert der AVR nur auf einen Tastendruck!


EDIT: Mit Sub, geht aber nicht!