Sorry hier is der Code:

Code:
$regfile = M8def.dat
$crystal = 3638400

Ddrd = &B11100000
Portd = &B00001100

Declare Sub An
Declare Sub Aus
Declare Sub Prg1
Declare Sub Prg2


Dim T1 As Bit
Dim T2 As Bit



Do

Debounce Pind.2 , 0 , An , Sub
Debounce Pind.3 , 0 , Aus , Sub

If T1 = 1 Then
Gosub Prg1
End If

If T2 = 1 Then
Gosub Prg2
End If

Loop
End



An:
Toggle T1
Return

Aus:
Toggle T2
Return

Prg1:

 Portd.5 = 1
 Waitms 100
 Portd.5 = 0
 Portd.6 = 1
 Waitms 100
 Portd.6 = 0
 Portd.7 = 1
 Waitms 100
 Portd.7 = 0

 Return


Prg2:
 Portd.5 = 1
 Waitms 400
 Portd.5 = 0
 Portd.6 = 1
 Waitms 400
 Portd.6 = 0
 Portd.7 = 1
 Waitms 400
 Portd.7 = 0

 Return
Nun habe ich leider das Problem, dass ich die Programme nicht mehr sauber abschalten kann. Is ja auch logisch, da er das Programm erst ganz abarbeiten möchte bevor er stoppt. Also muss man genau im richtigen moment stoppen. Jemand ne idee wie ich das lösen kann?