Wie wäre es hiermit ?
Habe ich schon getestet, funktioniert.

Code:
$crystal = 4000000
Config Timer1 = Timer , Prescale = 64                       '4MHz/64 = 62500
Const Timer_start = 6250                                    'alle 100ms Überlauf
Load Timer1 , Timer_start
Enable Timer1
On Timer1 Int_1

Do 
wenn Lichtschranke 1, dann Takt = 0
wenn Lichtschranke 2, dann Wert = Takt in 1/100 Sek
Loop

Int_1:
Load Timer1 , Timer_start
Incr Takt
Return