@albundy

Klar, hast recht. Ich hab mich in der Zeile vertan.

so meinte ich das:

If Sekunde > 18 Then
K = Sekunde - 18
If Impuls > 3 Then
Minute(k) = 1
Else
Minute(k) = 0
End If
End If
Locate 1 , 19
Wert = Makebcd(sekunde) ' Umweg ueber BCD, dann fuehrende 0
Lcd Bcd(wert) ' Sekunde anzeigen
If Pause < 43 And Pause > 37 Then 'Minutenanfang