Hallo Josef,
sectic aufrufen geht ausgezeichnet.

Code:
$crystal = 16000000
$regfile = "m128def.dat"
$hwstack = 128                                              ' default use 32 for the hardware stack
$swstack = 128                                              'default use 10 for the SW stack
$framesize = 128                                            'default use 40 for the frame space
Const _sectic = 1
Config Graphlcd = 240 * 128 , Dataport = Portc , Controlport = Porta , Ce = 5 , Cd = 4 , Wr = 1 , Rd = 0 , Reset = 6 , Fs = 7 , Mode = 6
Config Dcf77 = Pind.1 , Debug = 1 , Inverted = 1 , Check = 0 , Update = 1 , Updatetime = 30 , Switchpower = 1 , Powerpin = Pind.4 , Powerlevel = 1 , Timer1sec = 0 , Timer = 1
Enable Interrupts
Config Date = Dmy , Separator = .
Cls
Cursor Off

Do
   nop
Loop
End

Sectic:
   Locate 5 , 1 : Lcd Time$ ; " " ; Date$
   Locate 6 , 1 : Lcd Time(dcf_sec) ; " " ; Date(dcf_day)
   Locate 7 , 1 : Lcd Bin(dcf_status) ; " " ; Bin(dcf_bits)
   Locate 8 , 1 : Lcd Bdcf_impuls ; " " ; Bdcf_pause
Return
Der Wechsel von 40 nach 50 ist hierbei übrigens auch.
Ich werde die Routine jetzt mal in mein Programm einbauen und sehen, was passiert.

Schon mal vielen Dank.

Gruß

Rolf