Zitat Zitat von peterfido Beitrag anzeigen
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
Code:
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
danke für die tolle Anregung. Da ich aber noch mehrere Variablen anzeigen lasse, wird es mir zu kompliziert.
Ich bin jetzt schon froh dass es überhaupt zuverlässig funktioniert
Nur das Wort "zuverlässig" muss sich noch bestätigen...