$regfile = "2313def.dat"
$Crystal=1000000
$hwstack=40
$swstack=16
$framesize = 32

Config Portb = &B11111111 : Portb = &B11111111              'for LED`s (light On in Low)
Config Portd = &B00000000 : Portd = &B11111111              'inputs for switches

Config Timer1 = Timer , Prescale = 64
Enable Timer1 : On Timer1 Clock                             'jump to Clock every second

Const Presettimer1 = 49912                                  ' value for timer load

Dim Seconds As Byte , Minutes As Byte , Hours As Byte
Dim Countdown As Byte , B_port As Byte , Help As Byte

Waitms 100                                                  'time for port to set properly

If Pind.6 = 0 Then                                          ' If switch pressed on reboot then
 Hours = 1                                                  'reset counters
 B_port = 255                                               'all LED`s off
 Writeeeprom Hours , 2
 Writeeeprom B_port , 4
 Waitms 100
End If

Readeeprom Hours , 2                                        'reached value are saved and restored if power interrupted
Readeeprom B_port , 4

If Hours > 24 Then Hours = 1                                'this secure from FF when program is writing
Minutes = 10                                                ' offset for non Integer use +/- 10min
Portb = B_port                                              'this light LED`s

Enable Interrupts
'************* START ******************
Do

If Minutes = 81 Then                                        'if switch not pressed then hour is missed and showed on "LED bar"
    Minutes = 21
    Incr Hours
    Writeeeprom Hours , 2                                   'only next LED can be  trigged
    Waitms 50
    Countdown = 39                                          'and only after 40 min (now is 10 min after hour)
End If

Debounce Pind.6 , 0 , Time_check , Sub                      'switch to ground

Loop
'************ END *********************
Time_check:

Select Case Minutes

 Case 60 To 80                                              'betwen 50 - 70 min including ofset
 If Countdown = 0 Then
  If Minutes < 70 Then
   Help = 70 - Minutes
   Minutes = 10 - Help
  Elseif Minutes > 70 Then
   Help = Minutes - 70
   Minutes = 10 + Help
  End If
  Incr Hours                                                'next LED can be trigged
    Countdown = 49                                          ' and only after 50 min
   Select Case Hours
    Case 1
     Reset Portb.0
    Case 2
     Reset Portb.1
    Case 3
     Reset Portb.2
    Case 4
     Reset Portb.3
    Case 5
     Reset Portb.4
    Case 6
     Reset Portb.5
    Case 7
     Reset Portb.6
    Case 8
     Reset Portb.7
   End Select
   B_port = Portb                                           'read port to value
   Writeeeprom B_port , 4
   Writeeeprom Hours , 2
   Waitms 50
 End If

 End Select

Return




Clock:
Timer1 = Presettimer1
Incr Seconds
  If Seconds >= 60 Then
     Seconds = 0
     Incr Minutes
     If Countdown > 0 Then Decr Countdown
  End If
Return