<pre>on documentOneModule filename  ----------------------------------------------------------------------  -- FOUILLER SCRIPTS DE CHACUN DES FONDS ET LEURS OBJETS  repeat with curBg = 1 to the number of bgs    go to cd 1 of bg curBg    if the number of bg btns  1 then      repeat with curBgBtn = 1 to the number of bg btns        put the short name of this stack into curStack        put the abbrev name of this bg into curBg        put the abbrev name of bg btn curBgBtn into curObject        write curStack & tab & curBg & tab & curObject & return to file filename      end repeat    end if    if the number of flds  1 then      repeat with curBgField = 1 to the number of flds        put the short name of this stack into curStack        put the abbrev name of this bg into curBg        put the abbrev name of fld curBgField into curObject        write curStack & tab & curBg & tab & curObject & return         to file filename      end repeat    end if  end repeat  ----------------------------------------------------------------------  -- FOUILLER SCRIPTS DE CHACUNE DES CARTES ET LEURS OBJETS  repeat with curCard = 1 to the number of cds    go cd curCard    if the number of btns  1 then      repeat with curCdBtn = 1 to the number of btns        put the short name of this stack into curStack        put the abbrev name of this cd into curCard        put the abbrev name of btn curCdBtn into curObject        write curStack & tab & curCard & tab & curObject & return         to file filename      end repeat    end if    if the number of cd flds  1 then      repeat with curCdFld = 1 to the number of cd flds        put the short name of this stack into curStack        put the abbrev name of this cd into curCard        put the abbrev name of cd fld curCdFld into curObject        write curStack & tab & curCard & tab & curObject & return         to file filename      end repeat    end if  end repeat  ----------------------------------------------------------------------end documentOneModule</pre>