Parcourir un fichier ligne à ligne

i est un entier
nBligne est un entier = HNbEnr(Article_FTP)

HLitPremier(Article_FTP,AR_Ref)
TANTQUE PAS HEnDehors(Article_FTP)
    // traitement de l'enregistrement
    HLitSuivant(Article_FTP,AR_Ref)
    i++
    Jauge(i,nBligne)
    Trace(Article_FTP.AR_Ref)
FIN