Hallo Günter,

der Impulszähler darf nicht bis 255 hochzählen!
Ich würde erst nur ein "Minimalprogramm" zur Anzeige ausprobieren. Ich habe mal so ein Kurzprog hier eingestellt,- du müßtest noch deine Timer-Variante anpassen:

Code:
'Hauptprogramm:
Cls
Cursor Off

Date$ = "01.01.00"
Time$ = "00:00:00"

Sekunde = 0

'* HAUPTPROGRAMMSCHLEIFE *

Do
  If Sekunde <> _sec Then
    Cls
    Call Showtime()
    Sekunde = _sec
  End If
  If _min = 0 And Dcfstatus.7 = 0 Then            '1x pro Stunde:
    Dcfstatus.5 = 0                               'Zeit inaktuell
    Dcfstatus.6 = 0                               'Datum inaktuell
  End If
  'Wenn Uhr oder Datum inaktuell, dann nach DCF stellen:
  'Timer0 ist nur aktiv, solange DCF-Empfang läuft!!!
  If Dcfstatus.5 = 0 Or Dcfstatus.6 = 0 Then
    Dcfstatus.7 = 1
    Enable Timer0
  Else
    Dcfstatus.7 = 0
    Disable Timer0
  End If
Loop

End

'* ENDE HAUPTPROGRAMM *

Sub Showtime()
  Locate 1 , 1                                    'Zeile 1:
  Lcd Time$                                      'Uhrzeit
  Locate 2 , 1                                    'Zeile 2:
  Lcd Date$                                       'Datum
End Sub