let init_reglages = function () -> let oc = open_out Data.adresse_archive_reglages and vide = '\x00' and milieu = '\x40' and plein = '\x7F' in for i = 0 to 127 do output_char oc vide ; output_char oc vide ; output_char oc milieu ; for j = 3 to 8 do output_char oc vide ; done ; for j = 9 to 11 do output_char oc vide ; done ; for j = 12 to 13 do output_char oc milieu ; done ; for j = 14 to 19 do output_char oc vide ; done ; output_char oc milieu ; output_char oc vide ; for j = 22 to 25 do output_char oc milieu ; done ; for j = 26 to 27 do output_char oc plein ; done ; for j = 28 to 34 do output_char oc vide ; done ; output_char oc milieu ; done ; close_out_noerr oc