<pre>function findApp appName  if appName is empty then return empty  toComputer  put liste("applications") into theApps  set itemDelimiter to tab  repeat with x = 1 to the number of lines of theApps    if item 1 of line x of theApps is appName    then return item 2 of line x of theApps  end repeat  answer "Application" && appName && "est introuvable."  return emptyend findApp</pre>