Eigentlich solltest du das auch ohne Probleme selbst schnell hinbekommen. Ich habs dir trotzdem mal schnell geschrieben. Das Regfile und die Taktfrequenz musst du oben noch einbinden.

Code:
Config Porta.0 = Output
Config Porta.1 = Output
Config Porta.2 = Output
Config Pina.3 = Input

Dim State As Byte
State = 1

Do

Debounce Pina.3 , 0 , Unterfunkt , Sub

Loop
End


Unterfunkt:
 If State = 1 Then
   Porta.0 = 1
   Waitms 50
   State = 2

 Elseif State = 2 Then
   Porta.0 = 0
   Porta.1 = 1
   Waitms 50
   State = 3

 Elseif State = 3 Then
   Porta.1 = 0
   Porta.2 = 1
   Waitms 50
   State = 4

 Elseif State = 4 Then
   Porta.2 = 0
   Waitms 50
   State = 1

 End If

Return
Ist zugegebenermaßen mit heißer Nadel gestrickt aber wird funktionieren Bild