let init_jeux = function () -> let oc = open_out Data.adresse_archive_jeux in for i = 0 to 59 do for j = 1 to 9 do output_char oc '\x7F' ; done ; for j = 1 to 9 do output_char oc '\x40' ; done ; done ; for j = 1 to 9 do output_char oc '\x00' ; done ; for j = 1 to 9 do output_char oc '\x40' ; done ; for j = 1 to 9 do output_char oc '\x00' ; done ; output_char oc '\x00' ; output_char oc '\x0F' ; output_char oc '\x20' ; output_char oc '\x30' ; output_char oc '\x40' ; output_char oc '\x50' ; output_char oc '\x60' ; output_char oc '\x70' ; output_char oc '\x7F' ; for j = 1 to 9 do output_char oc '\x00' ; done ; output_char oc '\x7F' ; output_char oc '\x70' ; output_char oc '\x60' ; output_char oc '\x50' ; output_char oc '\x40' ; output_char oc '\x30' ; output_char oc '\x20' ; output_char oc '\x0F' ; output_char oc '\x00' ; for i = 63 to 127 do for j = 1 to 9 do output_char oc '\x7F' ; done ; for j = 1 to 9 do output_char oc '\x40' ; done ; done ; close_out_noerr oc