Code:
$regfile = "ATtiny2313.DAT"
$crystal = 1000000

$hwstack = 32
$swstack = 10
$framesize = 40

Config Portb.2 = Output                                     'LED
Config Portb.3 = Output                                     'Ausgang


Dim Zeit As Long
Dim Zeitk As Long
Dim Erg As Long

Zeitk = 86400                                               'Sekunden für 24 Stunden
Zeit = 86400

Set Portb.2
Set Portb.3


Do
   Wait 1
   Zeit = Zeit - 1
   If Zeit = 85800 Then                                     '10 Minuten
      Reset Portb.3
   End If
   If Zeit = 0 Then
      Zeit = Zeitk
      Set Portb.3
   End If
   Erg = Zeit Mod 10
   If Erg = 0 Then
      Set Portb.2
   Else
      Reset Portb.2
   End If
Loop


End