Uhr: wait-Anweisung im Hauptprogramm und sectic

[peterfido]

Wozu jedesmal Cursor off?

Am besten ohne waitms arbeiten.
Du kannst S in einer anderen Variablen zwischenspeichern und wenn S geändert wurde das Display aktualisieren. Außerdem zählst Du jede Sekunde S hoch, da brauchst Du nicht Time$ vergleichen

Cursor Off
dim s_alt as long
const sTag =60*60*24
Do
if s <> salt then    
   salt=s
   Cls    
   Locate 1 , 1    
   Lcd S    
   Locate 2 , 1    
   Lcd "Zeit " ; Time$ 
end if 
Loop   
Sectic: 
incr s                                                   'Sekunden-Tageszähler
if s=stag then
    S = 0 
   Time$ = "00:00:03"                                          'Kompensation Uhrenquarz 
End If 
Return