<pre>on goToCard cdName  toComputer  put liste("cartes") into theCards  if theCards is empty then exit goToCard  set itemDelimiter to tab  repeat with x = 1 to the number of lines of theCards    if item 1 of line x of theCards is cdName then      pushCard      go to item 2 of line x of theCards      adjustCheckMarks      exit goToCard    end if  end repeatend goToCard</pre>