PROCEDURE CompareContenu(Fic1, Fic2)

// Ouvre les fichiers
nFic1 is int = fOuvre(Fic1, foRead)
nFic2 is int = fOuvre(Fic2, foRead)

// En cas d'erreur d'ouverture, renvoie -3
IF nFic1 = -1 OR nFic2 = -1 THEN RETURN -3

// Lit la première ligne de chaque fichier
sLigne1 is string = fLitLigne(nFic1)
sLigne2 is string = fLitLigne(nFic2)
nLigne is int = 1

LOOP
	// Si les deux lignes sont vides, c'est la fin des deux fichiers
	// Renvoie 0 
	IF sLigne1 = EOT _AND_ sLigne2 = EOT THEN RETURN 0

	// Si fin du fichier 1, le fichier 1 est plus court
	// renvoie -1 
	IF sLigne1 = EOT THEN RETURN -1

	// Si fin du fichier 2, le fichier 2 est plus court
	// renvoie -2 
	IF sLigne2 = EOT THEN RETURN - 2

	// Si les lignes sont différentes, renvoie le numéro de la ligne différente 
	IF sLigne1 <> sLigne2 THEN RETURN nLigne

	// Passe à la ligne suivante
	sLigne1 = fReadLine(nFic1) 
	sLigne2 = fReadLine(nFic2)
	nLigne++
END

END:
// Ferme les fichiers
fClose(nFic1)
fClose(nFic2)