; DECNUM
;
; Programma per Proteus
;
; (C) 1998-2003 Simone Zanella Productions
;
; Funzione test: stampa i numeri interi con i separatori delle migliaia;
; supporta tre tipi di allineamento: centrato, giustificato a sinistra,
; giustificato a destra.


FUNCTION DecNum(n, j, l, s)

  ; Ritorna il numero n formattato in al meno l spazi con giustificazione
  ; j (0 = destra, 1 = centro, altro = sinistra); le migliaia sono
  ; separate da s.

  rn = REVERSE(n)
  rl = STRLEN(rn)
  c = LEFT(S, 1)
  FOR x = 4 TO rl STEP 4
    rn = INSERT(rn, x, c)
    INC(@rl)
  NEXT
  rn = REVERSE(rn)
  SWITCH j
    ON 0
      ; Giustificazione sinistra
      IF GT(l, rl)
        rn = PADL(rn, l, " ")
      FI
    ON 1
      ; Giustificazione al centro
      IF GT(l, rl)
        rn = CENTER(rn, l)
      FI
    OTHER
      ; Giustificazione a destra
      IF GT(l, rl)
        rn = PADR(rn, l, " ")
      FI
  OFF
RETURN rn