Also ich habe das auch per Variable gelößt.
Da es mir eher darum ging das der Schallter nicht zu lange gedrückt sein darf.

Code:
Dim T As Word




Main:                                                       'Hauptprogramm
Do
                                                            'Anfang des Schwimmerschalter
  If Pind.2 = 1 Then                                        'Wenn an Pin 2 von Port D ein high level anliegt..

  Portd.5 = 1                                               '...setze Pin 5 von Port D auf High, Pumpe läuft
  T = T + 1
  Waitms 100                                                'Zeit wo die Pumpe an ist
  Else
  Portd.5 = 0                                               '...setze Pin 5 von Port D auf low, Pumpe aus
  T = 0                                                     'Zeit reset
  End If                                                    'Ende der Bedingung

   If T > 100 Then
  Gosub Error
  Else
 End If                                                     'Ende der Bedingung

Loop                                                        'zum Anfang der Schleife
End                                                         'end program

Error:                                                      'Untermenü "Error"
Do
  Portd.6 = 1                                               'Error LED leuchtet
  Portd.5 = 0                                               '...setze Pin 5 von Port D auf low, Pumpe aus                                            'setzt den Pin 7 von Port D auf low
Loop
Also alle 10ms zählt der Zähler T eins hoch wenn der über 100 ist geht er zum Sub.
Zeiten mu0t hallt umstellen.