versuchs mal damit

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

Config Portb = Output
Config Int1 = Falling
Config Pind.2 = Input

Dim Modus As Byte
Modus = 1
Dim Zeit As Integer
Zeit = 50

Enable Interrupts
Enable Int1

On Int1 Switch

B Alias Portb.6
E Alias Portb.5
C Alias Portb.4
K Alias Portb.3
S Alias Portb.2



Do

Select Case Modus

Case 1 : Portb = 255
Portd.5 = 1


Case 2 : Portb = 255
Portd.5 = 1
Waitms Zeit
Portb = 0
Portd.5 = 0
Waitms Zeit

Case 3: Portb = 0
Portd.5 = 0
B = 1
Portd.5 = 1
Waitms Zeit
E = 1
Portd.5 = 0
Waitms Zeit
C = 1
Portd.5 = 1
Waitms Zeit
K = 1
Portd.5 = 0
Waitms Zeit
S = 1
Portd.5 = 1
Waitms Zeit
B = 0
Portd.5 = 0
Waitms Zeit
E = 0
Portd.5 = 1
Waitms Zeit
C = 0
Portd.5 = 0
Waitms Zeit
K = 0
Portd.5 = 1
Waitms Zeit
S = 0
Portd.5 = 0
Waitms Zeit
End Select


Loop


Switch:
Modus = Modus + 1
If Modus > 3 Then Modus = 1

Return



MfG,
--> Mr.G.