<pre>on saveTextArrows theTA  toComputer  put liste("user") into theUser  set itemDelimiter to tab  repeat with x = 1 to the number of lines of theUser    if item 1 of line x of theUser is "textArrows"    then put theTA into item 2 of line x of theUser  end repeat  writeFile theUser,disk() & ":Fichiers:Listes:user"end saveTextArrows</pre>