Hmm... des mit der For-Schleife geht ned...

Code:
Config Int0 = Low Level                                     'Konfiguriere Int0 auf Low Level
Config Int1 = Low Level                                     'Konfiguriere Int1 auf Low Level

Enable Interrupts                                           'Interrupts generell einschalten

Enable Int0                                                 'Interrupt 1 einschalten
Enable Int1                                                 'Interrupt 2 einschalten

On Int0 Blinkenl                                            'Subroutine Blinken Links
On Int1 Blinkenr                                            'Subroutine Blinken Rechts


....


Dim Gemessenezeit As Integer                                'Selbsterklärend...
Dim I As Integer                                            'Zähler-Variable

Gemessenezeit = 3000                                        'Testweiße 3 Sekunden
Gemessenezeit = Gemessenezeit / 100                         'Für For-Schleife durch 100 teilen


...


Blinkenl:

Relaisl = 1                                                 'Relais Links einschalten
Hebelgedrueckt = 1                                          'Hebelgedrueckt zurücksetzen

For I = 1 To Gemessenezeit
Waitms 100
Next I

Do
If Blinkerl = 0 Then                                        'Wenn Blinker Links gedrückt...
   nop
Else                                                        'Wenn nicht, Relais Links ausschalten
   Relaisl = 0                                              'Relais ausschalten
   Hebelgedrueckt = 0
End If
Loop Until Hebelgedrueckt = 0                               'Schleife solange, wie Hebelgedrueckt = 1

Return
Return
Hat da wer noch ne Idee?