(* the waveform generates the background of the page *)

data = ToExpression /@ 
   StringSplit[
     Import["http://mi.eng.cam.ac.uk/~mh521/js/data.js", "Text"], 
     ","][[3 ;; -3]];
Export["cd23.wav", 
 ListPlay[data, SampleRate -> 1500]]