on selectCard deselectAll
  set cursor to watch
  if deselectAll is not empty
  then put writeFile empty,disk & ":Fichiers:Listes:selectedCards"
  else
    put readFile(disk & ":Fichiers:Listes:selectedCards") into selectedCards
    get the long name of this cd
    if it is not in selectedCards then 
      put it & return after selectedCards
      writeFile selectedCards,disk & ":Fichiers:Listes:selectedCards"
    end if
  end if
end selectCard