Hm, ich hab's mal schnell entsprechend geaendert. Leider kein Erfolg. :(
Irgendwie blockiert die Abfrage des Encoders die nachfolgende if-then Schleife.

-------------------------------------------------------------
$regfile = "m8def.dat"
$crystal = 16000000
Config Portc = Output
Config Portd = Input

Dim B As Byte
Portd = 255
Portc = 255

Do
B = Encoder(pind.1 , Pind.0 , Links , Rechts , 1)

If Pind.2 = 0 Then
Gosub Enter
End If

Waitms 5
Loop

End

Links:
Portc.3 = 0
Waitms 5
Portc.3 = 1
Return

Rechts:
Portc.4 = 0
Waitms 5
Portc.4 = 1
Return

Enter:
Portc.5 = 0
Waitms 5
Portc.5 = 1
Return