// Déclaration et initialisation des variables
NomCheminFichier is string
IDFichier is int
ResEcrit is boolean = True
ResFermeFichier is int

// Sélection du nom et du chemin du fichier
NomCheminFichier = "C:\MesRépertoires\Fichier.txt"

// Ouverture du fichier
IDFichier = fOpen(NomCheminFichier, foReadWrite)

// Affichage du message d'erreur si l'ouverture n'a pas été effectuée
IF IDFichier = -1 THEN
	Error(ErrorInfo(errMessage))
ELSE
	// Lecture du premier enregistrement
	HReadFirst(Client, IDClient)
	// Autres enregistrements à lire ? Erreur d'écriture ?
	WHILE HOut = False AND ResEcrit = True
		// Écriture des enregistrements ligne par ligne dans le fichier texte
		ResEcrit = fWriteLine(IDFichier, ...
			Client.NomClient + TAB + ...
			Client.PrénomClient + TAB + Client.AgeClient)
		// Lecture des enregistrements suivants
		HReadNext(Client, IDClient)
	END
	// Affichage du message d'erreur si l'écriture n'a pas été effectuée
	IF ResEcrit = False THEN Error(ErrorInfo(errMessage))
	// Fermeture du fichier
	ResFermeFichier = fClose(IDFichier)
	IF ResFermeFichier = -1 THEN
		// Affichage du message d'erreur si la fermeture n'a pas été effectuée
		Error(ErrorInfo(errMessage))
	END
END

// Déclaration des variables
IDFichier is int
StructFenêtre is composed of
	PosHorizontal, PosVertical are int
	Largeur, Hauteur are int
END
ResEcriture is int
ResFermeFichier is int

// Création d'un fichier
IDFichier = fCreate("C:\Temp\FichierFenêtre.txt")

// Affichage du message d'erreur si la création n'a pas été effectuée
IF IDFichier = -1 THEN
	Error(ErrorInfo(errMessage))
ELSE
	// Récupération de la position et de l'aspect de la fenêtre
	StructFenêtrePosHorizontal = MyWindow.X
	StructFenêrePosVertical = MyWindow.Y
	StructFenêtreLargeur = MyWindow.Largeur
	StructFenêtreHauteur = MyWindow.Hauteur
	// Écriture de la position et de l'aspect de la fenêtre dans le fichier texte
	ResEcriture = fWriteLine(IDFichier, &StructFenêtre, Dimension(StructFenêtre))
	// Affichage du message d'erreur si l'écriture n'a pas été effectuée
	IF ResEcriture = -1 THEN Error(ErrorInfo(errMessage))
	// Fermeture du fichier
	ResFermeFichier = fClose(IDFichier)
	IF ResFermeFichier = -1 THEN
		// Affichage du message d'erreur si la fermeture n'a pas été effectuée
		Error(ErrorInfo(errMessage))
	END
END