Como mantener el lugar de los digitos en LCD/Panel

[Sispic]

Codigo:
   symbol Digitos = 5       " digitos a mostrar , Max 9
   dim Valor as word        " segun necesidades
   dim i as byte : dim wrote as bit
   dim x as byte  : dim y as byte  : dim Ch as byte
   
 IMPRIME:  
   
   x = 0 : y = 0   " coordenadas iniciales del digito mas significativo 
   wrote = 0 
   
   for i = Digitos - 1 to 1 step -1  
    
     if i = 5 and Digitos > 6 then                             " millones
           if wrote = 1 then   Ch = "." : else Ch = " "  
          gosub LCD_PUTCH                                                       
     else if i = 2 and Digitos > 3 then                        " miles 
           if wrote = 1 then   Ch = "." : else Ch = " "  
          gosub LCD_PUTCH 
     endif
   
      Ch = Valor dig i
  
     if Ch <> 0  or  wrote = 1 then 
          Ch = Ch + "0"  :  wrote = 1     
      else 
          Ch=" " :                     " Ceros izquierda blanco
     endif
     
     gosub LCD_PUTCH                   " imprime digito
    
   next i
   
   Ch = Valor dig 0 + "0" : gosub LCD_PUTCH             " imprime un digito a 0 como minimo

return

LCD_PUTCH:  " imprime de izquierda a derecha 
  print at x,y , Ch
  x = x + ancho del caracter o como lo tengas

return

No lo puedo provar .
La sintaxis la repasas tu vale ? aver si te sirve

[khasistos]

Hola:

mil gracias sisco y demas amigos,he tomado vuestras ideas ,y en realidad hice un coctel de ellas ,he calculado cuanto ocupa la matriz de caracter grande y le he puesto los condicionales if x <9 then...if x> 99 then print"        " algo parecido al post que puse de tacometro con 7 segmentos...

Un gran abrazo a todos y gracias por las ideas...

Que tengan un hermoso fin de semana.
khasitos