//Le principe est le suivant : L’entête a la taille d’un enregistrement + 1  et chaque enregistrement est précédé d’un entier de contrôle qui sert à indiquer su l'enreg est actif ou pas.

Enreg est composé de

                Controle                est un entier sans signe sur 1 octet   //Entier de contrôle

                Nom                       est une chaîne ASCIIZ sur 9 //Info Nom de l'enreg

                NumReel               est un réel sur 4 octets

                NumMon              est un monétaire

                Integer                   est un entier

FIN

//Variables de lecture

NumFic est un entier

NomFichier est une chaîne

UneLigne est une chaîne

ChaineLue est une chaîne fixe sur 28

BlocLu est un entier

//Nom du fichier

NomFichier="FICHF55.FIC"

// Ouverture du fichier et vérification du résultat

NumFic=fOuvre(NomFichier,foLecture)

SI NumFic=-1 ALORS

                Erreur("Impossible d'ouvrir le fichier "+NomFichier)

                RETOUR

FIN

BlocLu=fLit(NumFic,28,&ChaineLue) // On ignore l'enregistrement 0.

BlocLu=fLit(NumFic,28,&ChaineLue) // Lecture de l'enregistrement 1

TANTQUE BlocLu <> 0

                // Transfert vers la variable composée FICHF55

                Transfert( EnregAdr, &ChaineLue, 28)

                // Copie dans un fichier Hyper File décrit dans l'analyse

                FICHF7.NOM = Enreg.Nom

                FICHF7.NUMREEL= Enreg.NumReel

                FICHF7.NUMMON = Enreg.NumMon

                FICHF7.NUMINT = Enreg.Integer

                HAjoute(FICHF7)

                BlocLu=fLit(NumFic,28,&ChaineLue) // Lecture de l'enregistrement suivant

FIN

//Fermeture du fichier texte

fFerme(NumFic)