# Fonction PCODE ID = 660004265
REGISTRE POINTEUR str

REGISTRE ENTIER caract
REGISTRE ENTIER L_str
REGISTRE ENTIER indice_octet

str = depilerPOINTEUR()
L_str = i_strlen(str)
indice_octet = 2
POINT OCTET_SUIVANT
SI (indice_octet < L_str)
ALORS
  caract = i_strtab(str,indice_octet)
  caract=caract-0x30
  SI (caract <0 || caract >9 )
  ALORS
    RETOUR 0
  FINSI
  indice_octet = indice_octet + 1
  SAUT OCTET_SUIVANT
FINSI
RETOUR 1
