let all_notes_off = function () ->
 let oc = open_out_gen [Open_binary ; Open_wronly] 0o644 Data.adresse_etat_clavier
 and chaine = String.make 128 ( char_of_int haut ) in
  output oc chaine 0 128 ;
  flush_all () ;
  close_out_noerr oc