# Fonction PCODE ID = 840000677
REGISTRE ENTIER taille
REGISTRE POINTEUR chaine1

REGISTRE   ENTIER	taille_chaine
REGISTRE   ENTIER	erreur

REGISTRE   POINTEUR	pt_resu

taille_chaine = 0
erreur = 0
pt_resu = "pt_resu0123456789012345678901234567890"
taille = depilerENTIER()
chaine1 = depilerPOINTEUR()

    taille_chaine = i_strlen(chaine1)
    SI ( taille_chaine == taille)
    ALORS
	RETOUR chaine1
    FINSI
    
    POINT MAJ_CHAINE

    erreur = i_format_str2(pt_resu, "%s%s", "0", chaine1)
    #erreur = i_format_str2(chaine1, "%s%s", pt_resu, "")
    i_strcpy(chaine1, pt_resu)
    taille_chaine = taille_chaine +1
    SI (taille_chaine < taille)
    ALORS
	SAUT MAJ_CHAINE
    SINON
	RETOUR chaine1
    FINSI
    
