<pre>on savePowerKeys thePK  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 "powerKeys"    then put thePK into item 2 of line x of theUser  end repeat  writeFile theUser,disk() & ":Fichiers:Listes:user"end savePowerKeys</pre>