# Fonction PCODE ID = 780042430
REGISTRE ENTIER caract
REGISTRE POINTEUR pt_chpIn

REGISTRE	ENTIER	taille_chpIn
REGISTRE	ENTIER 	indice_octet

caract = depilerENTIER()
pt_chpIn = depilerPOINTEUR()

taille_chpIn=i_strlen(pt_chpIn)
indice_octet=0
 POINT BOUCLE
 SI (indice_octet < taille_chpIn)
 ALORS
 	SI ((i_strtab(pt_chpIn,indice_octet) != 0x34) || (i_strtab(pt_chpIn,indice_octet+1) != 0x30))
 	ALORS
 		indice_octet = indice_octet + 2
		SAUT BOUCLE
  	SINON
 	RETOUR pt_chpIn
	FINSI
 FINSI
	RETOUR g_inull	
