Hallo bertl100,

... ne, geht so nicht.

Vorschlag:
Code:
  If Sekunde <> _sec Then
    Cls
    Gosub Anzeige_der_BASCOM_Zeit 
    Sekunde = _sec
  End If
Das braucht nur noch eine Bytevariable "Sekunde".

Gruß Dirk