Etwas sehr umständlich, aber so geht's auch

Code:
$crystal = 8000000

Dim Wert As Integer
Dim Anzeigestring As String * 5

Cls

For Wert = -10 To 10

   Anzeigestring = Str(wert)
   Anzeigestring = Format(anzeigestring , "000")

   If Wert > 0 Then
      Anzeigestring = "+" + Anzeigestring
   End If

   If Wert = 0 Then
      Anzeigestring = " " + Anzeigestring
   End If

   Locate 1 , 10
   Lcd Anzeigestring

Waitms 100
Next Wert

End
Hat den Vorteil, daß es nicht flackert und die Ausgabe nicht durch Vorzeichen verschoben wird...

Warscheinlich geht das aber auch viel einfacher

Gruß
Christopher