$regfile = "2313def.dat" 'AT90S2313-Deklarationen $crystal = 4000000 'Quarztakt Config Lcd = 16 * 1 'einzeiliges Display Cursor Off 'Cursor ausschalten Cls Dim Sek As Byte Config Portb = Output 'LCD Config Portd = Output 'LED, blinkt im Sek-Takt Config Timer1 = Timer , Prescale = 64 On Timer1 Sektakt Enable Timer1 Enable Interrupts Afg: Sek = -1 'Zähleranfang Do Loop End Sektakt: Toggle Portd.0 'Kontroll- LED Incr Sek Locate 1 , 12 Lcd Sek If Sek = 60 Then Gosub Seknull 'es soll sek auf Null zurückgesetzt werden Return Seknull: Sek = 0 Return