let rappel_boutons = fun (decalage:int ref) (pred_facteur_decalage:int) (facteur_decalage:int) (reglages:int array) (note:int) ->
 let ict = open_in_gen [Open_binary ; Open_rdonly] 0o400 Data.adresse_etat_reglages in
  decalage := facteur_decalage * note ;
  seek_in ict !decalage ;
  for i = 0 to pred_facteur_decalage do
   reglages.(i) <- input_byte ict ;
  done ;
  close_in_noerr ict ;
  let oc = open_out_gen [Open_binary ; Open_wronly] 0o644 Data.adresse_etat_clavier in
   seek_out oc ( 128 + Data.succ_nombre_de_curseurs ) ;
   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" )