# Fonction PCODE ID = 840000677
REGISTRE POINTEUR Chaine

REGISTRE   ENTIER  erreur
REGISTRE   ENTIER  longueur
REGISTRE   ENTIER  indice
REGISTRE   ENTIER  digit
REGISTRE   ENTIER  resultat

Chaine = depilerPOINTEUR()
      resultat = 0
      indice = 0
      longueur = i_strlen(Chaine)
      SI(longueur == 0)
      ALORS
            trace("Erreur Chaine de tailel nulle")
            RETOUR -1
      FINSI
      POINT  BOUCULE_ENTIER
             digit = i_strtab(Chaine,indice)-0x30
             SI(digit >=0 && digit <= 9)
             ALORS
                    resultat = resultat*10 + digit
             FINSI

             indice = indice + 1
             SI(indice<longueur)
             ALORS
                   SAUT BOUCULE_ENTIER
             FINSI

      RETOUR resultat    

