# Fonction PCODE ID = 660003942
REGISTRE ENTIER taille
REGISTRE POINTEUR pt_chaine1

REGISTRE	ENTIER	taille_chaine
REGISTRE	ENTIER	erreur

REGISTRE	POINTEUR	pt_resu

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

	POINT TEST_TAILLE
	taille_chaine = i_strlen(pt_chaine1)
	SI ( taille_chaine == taille)
	ALORS
		RETOUR 0
	FINSI


	SI (taille_chaine < taille)
	ALORS
		SAUT MAJ_CHAINE
	SINON
		i_strcpy(pt_chaine1, "000000000")
		RETOUR -1
				
	FINSI

	POINT MAJ_CHAINE
	erreur = i_format_str2(pt_resu, "%s%s", "0", pt_chaine1)
	erreur = i_format_str2(pt_chaine1, "%s%s", pt_resu, "")
	taille_chaine = taille_chaine +1
	SAUT TEST_TAILLE

