Bascom DCF 77 sample nicht verstanden

'Config Dcf77 = Pind.2 , Debug = 1 , Inverted = 0 , Check = 2 , Update = 0 , Updatetime = 30 , Switchpower = 0 , Secondticks = 50 , Timer1sec = 1 , Powerlevel = 1 , Timer = 1

Config Dcf77 = Pind.2 , Timer = 1 , Timer1sec = 1 , Debug = 1

Enable Interrupts

Config Date = Dmy , Separator = .

Dim I As Integer

Dim Sec_old As Byte , Dcfsec_old As Byte

Sec_old = 99 : Dcfsec_old = 99                             ': DCF_Debug_Timer = 0

' Testroutine für die DCF77 Clock

Print "Test DCF77 Version 1.00"

Do

For I = 1 To 78

    Waitms 10

    If Sec_old <> _sec Then

      Exit For

    End If

    If Dcfsec_old <> Dcf_sec Then

      Exit For

    End If

Next

Waitms 220

 Sec_old = _sec

 Dcfsec_old = Dcf_sec

Print Time$ ; " " ; Date$ ; " " ; Time(dcf_sec) ; " " ; Date(dcf_day) ; " " ; Bin(dcf_status) ; " " ; Bin(dcf_bits) ; " " ; Bdcf_impuls ; " " ; Bdcf_pause

Loop

End