Zuerst definierst Du die Variable, die zählen soll, z.B. "Zeit"

Dim Zeit as Byte

Da nimmst Du am besten Timer 2, denn der hat (im Gegensatz zu Timer 0) ein "Output Compare Register). Da bschreibst Du den Wert 250 rein, dann gibts beim Zählerstand von 250 einen Interrupt:

OCR2 = 250

Als nächstes sagst Du dem Programm, zu welchem Label es im Compare-Fall springen soll:

On COMPARE2 Zählen

Die Interrut-Routine sollte dann etwa so anfangen:

Zählen:
Timer2 = 0 (wichtig - gleich am Anfang!!)
Zeit = Zeit + 1
return

Alles klar?[/code]