# Fonction PCODE ID = 660004265
REGISTRE ENTIER num_digit

REGISTRE POINTEUR pt_alpha_num_digit
#
# recuperation des valeurs d'entree
#
num_digit = depilerENTIER()
SI (num_digit == 0x0)
ALORS
  pt_alpha_num_digit="0"
SINON
  SI (num_digit == 1)
  ALORS
    pt_alpha_num_digit="1"
  SINON
    SI (num_digit == 2)
    ALORS
      pt_alpha_num_digit="2"
    SINON
      SI (num_digit == 3)
      ALORS
        pt_alpha_num_digit="3"
      SINON
        SI (num_digit == 4)
        ALORS
          pt_alpha_num_digit="4"
        SINON
          SI (num_digit == 5)
          ALORS
            pt_alpha_num_digit="5"
          SINON
            SI (num_digit == 6)
            ALORS
              pt_alpha_num_digit="6"
            SINON
              SI (num_digit == 7)
              ALORS
                pt_alpha_num_digit="7"
              SINON
                SI (num_digit == 8)
                ALORS
                  pt_alpha_num_digit="8"
                SINON
                  SI (num_digit == 9)
                  ALORS
                    pt_alpha_num_digit="9"
                  SINON
                    SI (num_digit == 0xB)
                    ALORS
                      pt_alpha_num_digit="*"
                    SINON
                      pt_alpha_num_digit="F"
                    FINSI
                  FINSI
                FINSI
              FINSI
            FINSI
          FINSI
        FINSI
      FINSI
    FINSI
  FINSI
FINSI

RETOUR pt_alpha_num_digit

