'     $regfile = "2313def.dat"                              'AT90S2313
 '     $crystal = 10000000                                   '10Mhz Quarz
   Config Timer1 = Timer , Prescale = 1


   Dim Millisekunden As Single

                                                             'Wenn Interrupt auftritt dann gehe zu Subroutine
   Enable Interrupts
   Enable Timer1                                            'Aktiviert den Interrupt des Timer1
   Start Timer1
   On Timer1 Timer1int
   Load Timer1 , 10220

   Millisekunden = 0


Do

Start Timer1
Print Millisekunden

Loop



'**************************************
'* Interrupt-Routine (MilliSekunden messen)*
'**************************************

Timer1int:

Load Timer1 , 10220                                         '1000 stel Sekunde
   Incr Millisekunden
Return