# Fonction PCODE ID = 660004265
REGISTRE POINTEUR pt_chaine

REGISTRE ENTIER indice
REGISTRE ENTIER length
REGISTRE ENTIER entier

pt_chaine = depilerPOINTEUR()

indice=0
length=i_strlen(pt_chaine)

SI (length==0)
ALORS
  RETOUR -1
FINSI

POINT BOUCLE_ENTIER

entier=entier*10+i_strtab(pt_chaine,indice)-0x30
indice=indice+1
SI (indice<length)
ALORS
  SAUT BOUCLE_ENTIER
FINSI

RETOUR entier

