Ich weis nicht ob Dein Problem noch aktuell ist, aber es geht auch folgendermaßen:
Code:
Dim Text As String * 5
Dim Ausgabe(5) As Byte At Text Overlay

hauptprogramm:
  Text = Str(Zahl1)
  Gosub CursorPositionieren
  Gosub LCDAusgabe
End

LCDAusgabe:
For i = 1 To Len(Text)
  J=Ausgabe(i)
  Gosub "Das Byte J auf LCD Ausgeben"
Next i
Return
Durch Overlay deklariere ich Variable Ausgabe die auf den selben Speicher wie die Variable Text zugreift. Dadurch brauche ich nicht zwischen Ascii und einem Byte konvertieren. Mit Len(text) prüfe ich aus wievielen Zeichen die Zahl besteht, du wolltest ja keine führenden Nullen ausgeben.
Zu beachten ist allerdings das zwischen 1 und 5 Zeichen ausgegeben werden, wenn Du nicht regelmäßig das Display clearst stehen eventuell noch Zeichen auf dem LCD wenn die Zahl kleiner geworden ist.