<pre>on removeUnplayableSounds  toComputer  put liste("soundCards") into theSoundCards  put "_snd" into resType  put empty into resID  put false into mostRecentOnly  push cd  go to stack pile("moteur")  repeat with x = 1 to the number of lines of theSoundCards    put fld "filename" of cd line x of theSoundCards into theSounds    put the number of lines of theSounds into lastSound    repeat with y = lastSound down to 1      put line y of theSounds into resName      if not isResource (resType,resName,resID,mostRecentOnly)      then delete line y of theSounds    end repeat  end repeat  pop cdend removeUnplayableSounds</pre>