# Fonction PCODE ID = 660004265
REGISTRE POINTEUR pt_alphanum

REGISTRE ENTIER num
#
# recuperation des valeurs d'entree
#
pt_alphanum = depilerPOINTEUR()
SI !(i_strcmp(pt_alphanum,"0"))
ALORS
  num=0
SINON
  SI !(i_strcmp(pt_alphanum,"1"))
  ALORS
    num=1
  SINON
    SI !(i_strcmp(pt_alphanum,"2"))
    ALORS
      num=2
    SINON
      SI !(i_strcmp(pt_alphanum,"3"))
      ALORS
        num=3
      SINON
        SI !(i_strcmp(pt_alphanum,"4"))
        ALORS
          num=4
        SINON
          SI !(i_strcmp(pt_alphanum,"5"))
          ALORS
            num=5
          SINON
            SI !(i_strcmp(pt_alphanum,"6"))
            ALORS
              num=6
            SINON
              SI !(i_strcmp(pt_alphanum,"7"))
              ALORS
                num=7
              SINON
                SI !(i_strcmp(pt_alphanum,"8"))
                ALORS
                  num=8
                SINON
                  SI !(i_strcmp(pt_alphanum,"9"))
                  ALORS
                    num=9
                  SINON
                    SI !(i_strcmp(pt_alphanum,"*"))
                    ALORS
                      num=0xB
                    SINON
                      num=0xF
                    FINSI
                  FINSI
                FINSI
              FINSI
            FINSI
          FINSI
        FINSI
      FINSI
    FINSI
  FINSI
FINSI

RETOUR num

