# Fonction PCODE ID = 660004265
REGISTRE POINTEUR pt_chaine

REGISTRE     ENTIER res
REGISTRE     ENTIER caract
REGISTRE     ENTIER indice
REGISTRE     ENTIER l_chaine

pt_chaine = depilerPOINTEUR()
indice=0
l_chaine=i_strlen(pt_chaine)

SI (l_chaine==0)
ALORS
  RETOUR -1
FINSI
res=0

POINT BOUCLE_ENTIER

caract = i_strtab(pt_chaine,indice)
SI ((caract>=0x30)&&(caract<=0x39))
ALORS
  res=0x10*res + caract-0x30
SINON
  SI ((caract>=0x41)&&(caract<=0x46))
  ALORS
    res=0x10*res + caract -0x37
  SINON
    SI ((caract>=0x61)&&(caract<=0x66))
    ALORS
      res=0x10*res + caract-0x57
    FINSI
  FINSI
FINSI
indice=indice+1
SI (indice<l_chaine)
ALORS
  SAUT BOUCLE_ENTIER
FINSI
RETOUR res

