<pre>on musique  put the value of the selectedLine of cd fld "Sons" into soundName  put word 2 of the selectedText of btn "Musique" into musicNumber  if musicNumber is not empty then play soundName musicScore(musicNumber)  else    repeat      play soundName      if the mouseClick or the commandKey is down then exit musique      wait until the sound is done      wait 180 ticks    end repeat  end ifend musique</pre>