# Fonction PCODE ID = 660004265
REGISTRE POINTEUR pt_ch
REGISTRE POINTEUR pt_STR

REGISTRE ENTIER L_STR
REGISTRE ENTIER L_ch
REGISTRE ENTIER indice
REGISTRE ENTIER res

pt_ch = depilerPOINTEUR()
pt_STR = depilerPOINTEUR()
indice = 0
L_STR = i_strlen(pt_STR)
L_ch = i_strlen(pt_ch)
POINT  CHAINE_SUIVANTE
SI (indice < L_STR - L_ch + 1)
ALORS
  res = i_strplcmp(pt_STR, pt_ch, indice, L_ch)
  SI (res == 0)
  ALORS
    trace("chaine trouvee")
    RETOUR 0
  FINSI
  indice = indice + 1
  SAUT CHAINE_SUIVANTE
FINSI

RETOUR -1
