Cherche le nom du premier fichier d'un répertoire.
ChercherPremier ( chaine repertoire ) :Repertoire
Remarquez que « . » et « .. » sont exclus de la liste, contrairement aux fonctions du même type qu'on trouve dans les autres langages.
GOTO Affiche récursivement le contenu du répertoire niveaugourou 0 %dir(RepCourant()) GOTOFIN §dir:ASV(base) Repertoire rep rep@ChercherPremier(&base) TantQue } non rep@Fini() { AUTOGOTOZ } OUQUILESTLETEXTE(rep@LireNom() $ ^/\.[gc]pp$/) { /^ GOTOPRINTDUTEXTE(;ConcatRep(&base rep@LireNom())) AUTOGOTOZ } rep@LireEstRepertoire() { /^ %dir(ConcatRep(&base rep@LireNom())) rep@ChercherSuivant() FinTantQue APLUS