<pre>on documentModules  toComputer  put liste("modules") into modulesLauzon  set itemDelimiter to tab  put disk() & ":Fichiers:Listes:analyseModulesLauzon" into filename  open file filename  -------------------------------------------------------------------------  pushCard  repeat with x = 1 to the number of lines of modulesLauzon    put item 2 of line x of modulesLauzon    go to stack item 2 of line x of modulesLauzon    documentOneModule filename  end repeat  popCard  -------------------------------------------------------------------------  close file filenameend documentModules</pre>