Das habe ich schon im Programm ausprobiert:
Im Simulator fuktionirt das eigentlich so:

Dim a as Byte
Dim b as Byte
Dim i as Byte
Config Pinb.1 = Input
Portb.1 = 1

Pause:
If Pinb.1 = 1 Then Incr I |'erhöhen um 1
If I = 100 Then Goto L |' 100 ms Warten habe es auch mit höeren weren Probiert
Waitms 1
Gosub 21 | Debag ausgabe auf NIxi
Goto Pause

L:
I = 0
If Pinb.1 = 1 Then Goto H | Pausen länger als = 100 ms sprung zu Variable a = 1
A = 0
Goto Pause1

H:
I = 0
A = 1
Goto Pause1

Den wert für I habe ich auch schon verändert gröser b.z.w. kleiner.
jedoch kommt als Ergebnis immer nur 1 herraus.
Ich habe mir Überlegt das selbst wenn ich die Minutenmakierung nicht treffe und durch Zufall an irgendeiner stelle des DCF Cods Pausen messe, so müsten doch mindestens 1 oder 2 Nullen Impulse unter 200ms dabei sein.

Nomalerweise müste man doch den Timer1 verwenden können.
Habe auch schon mal rumexperimentiert.
Wo kann ich aber den Wert des Timers auslesen.
Im Simmulator erhot sich weder der Wert des Timers noch einer zugeordneten
Variablen.
Start Timer
Stop Timer
Timer = a