struct (** {1 Effaçage de la mémoire des réglages} {C Copyright Stéphane Grognet } {C IREM des Pays de la Loire - Université de Nantes } {C Laboratoire de mathématiques Jean Leray UMR 6629 CNRS } {C version 0.6} @version 0.6 @author Stéphane Grognet @since 2014, 2015 *) 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 ;; init_reglages () ;; end