let sauvegarde_boutons = fun (decalage:int ref) (pred_facteur_decalage:int) (facteur_decalage:int) (reglages:int array) (note:int) ->
 let oc = open_out_gen [Open_binary ; Open_wronly] 0o644 Data.adresse_etat_reglages in
  decalage := facteur_decalage * note ;
  seek_out oc !decalage ;
  for i = 0 to pred_facteur_decalage do
   output_byte oc reglages.(i) ;
  done ;
  flush_all () ;
  close_out_noerr oc ;
  prerr_int note ;
  prerr_newline () ;
  prerr_endline ( ( pourcent_cpu () ) ^ "mode vide" )