Hi,

der Tipp mit dem Leerzeichen zum Überschreiben kam ja schon, so mache ich das eigentlich auch.

Primitiv, aber wirksam...

Um das Springen beim Zehnerdurchgang zu vermeiden, könnte man auch die Locate-Koordinate für die Ausgabe ensprechend verschieben, z. B.:

Code:
$crystal=8000000

$baud=9600

dim locx as byte
dim zahl as integer
dim zahlstring as string * 5

do

incr zahl

If Zahl>15000 then Zahl=0

zahlstring=Str(zahl) 'Variable "Zahl" in einen String verwandeln

locx=Len(Zahlstring) 'Laenge des Strings ermitteln

locx=locx-1 'Laenge um 1 reduzieren -> 4 Stellen Korrektur bei 5-stelliger Zahl

locx=10-locx ' Am 10. Zeichen steht der Einer...

Locate 1,6 'Alte Zahl überschreiben...

Lcd "     " '...mit 5 Leerzeichen

Locate 1, locx

lcd Zahl 

waitms 10

loop
Ich hab das jetzt nur so runtergetippt und nicht getestet, etwaige Syntaxfehler bitte ich zu entschuldigen.

Viele Grüße

Torsten