# Fonction PCODE ID = 780042428
REGISTRE POINTEUR pt_car
REGISTRE POINTEUR pt_valeurIN

REGISTRE ENTIER longueur
REGISTRE ENTIER indice
REGISTRE POINTEUR pt_caractere

pt_car = depilerPOINTEUR()
pt_valeurIN = depilerPOINTEUR()

longueur = i_strlen(pt_valeurIN)
indice = 0

pt_caractere = "carac"


POINT BOUCLE_RECHERCHE

SI ( indice < longueur)
ALORS
	i_get_sub_str(pt_valeurIN, indice, indice, pt_caractere)
	SI i_strcmp(pt_caractere, pt_car) == 0
	ALORS
		RETOUR indice
	SINON
		indice = indice + 1
		SAUT BOUCLE_RECHERCHE
	FINSI
SINON
	longueur = longueur * -1
	RETOUR longueur
FINSI

