# Fonction PCODE ID = 660004265
REGISTRE POINTEUR pt_chaine

REGISTRE     ENTIER res
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
res=10*res+i_strtab(pt_chaine,indice)-0x30
indice=indice+1
SI (indice<l_chaine)
ALORS
  SAUT BOUCLE_ENTIER
FINSI
RETOUR res

