NOMAINWIN 'Pour ne pas ouvrir la console
    WindowWidth=850 'Dimensions de la fenêtre
    WindowHeight=550
    UpperLeftX=INT((DisplayWidth-WindowWidth)/2)'Placement de la fenêtre
    UpperLeftY=INT((DisplayHeight-WindowHeight)/2)
    '---Ici une procédure pour mettre la date dans date$(qui est une chaine)
    mois$ = "Jan Fév Mar Avr Mai Jun Jui Aou Sep Oct Nov Déc"
    today$ = date$("mm/dd/yyyy")
    j = date$(today$)
    jsem$ = word$("Mar Mer Jeu x Ven Sam x Dim Lun",int((j/7-int(j/7))*10)+1)
    date$ = jsem$+" "+mid$(today$,4,2)+" "+word$(mois$, val(today$))+"   "+left$(time$(),5)'right$(today$,4)
    graphboxlar=835: graphboxlon=505 'variables de dimensions de la fenêtre graphique
    BUTTON #w.go, "Go!", [ouv], UL, 20, 20, 40, 25 'les boutons et autres sont appelés "contrôles"
    COMBOBOX #w.son, son$(), [sons], 70, 20, 50, 25 'Le combobox des sons
    Graphicbox #w.g, 5, 5, graphboxlar, graphboxlon 'la fenêtre graphique (dont on peut se passer)
    MENU #w, "Fichiers", "Importer", [ouvrir] 'Les menus
    MENU #w, "Help", "Voir", [help]
    open "    Z'Animaux"+space$(20)+date$ FOR WINDOW AS #w 'L'ouverture de la fenêtre et de ses contrôles
     print #w, "trapclose [quit]" 'La croix de fermeture de la fenêtre
     #w.g, "down":#w.g, "fill blue" 'on met du bleu dans la fenêtre graphique
     #w.g, "font courrier 16 bold": #w.g, "color yellow;backcolor blue" 'la police et la couleur
     so$="1 2 3 4 5"
     for x=1 to 5 'Mise en tableau de la chaine des noms des sons
        son$(x)=word$(so$,x)
     next x
     #w.son, "!Sons": #w.son, "reload": sono$="5" 'Affichage dans le combo et son par défaut
     '------Ici la future procédure de chargement par défaut
    '  open "nombr-img.txt" for input as #g
     '    line input #g, données$
      '   m=val(données$)
    ' close #g
    '  dim tir(m+1): dim card(m+1): dim img$(m+1)
  '--------------
  #w.go, "!disable" 'Désactivation du bouton "Go"
  wait
  [ouv] 'Clic sur le bouton "Go"
    playwave "sons\";sono$;".wav", async
    if t=m then
      notice, "Game Over"
      redim tir(m): t=0
      wait
    end if
   [ret]
   scan
    im= int(rnd(1)*m)+1 'Nombre aléatoire
    for x=1 to m
      if tir(x)=im then xx=x: exit for 'Tableau des tirages
    next x
    if tir(xx)=im then [ret]
    #w.g, "fill blue" 'Effacement ancienne image par u bleu
    #w.g, "drawbmp ";img$(im);" ";"5 5" 'aggichage image
    t=t+1: tir(t)=im 'stock en tableau du tirage pour comparaison
    #w.g "flush" 'Mise en RAM
  wait
  '---- Chargement
  [ouvrir] '------------------Import -----------------
     rep=0
     filedialog "Choisir Thème", "themes\*txt", filename$ 
     for x=len(filename$) to 1 step-1 'Extraction du nom sec
       if mid$(filename$,x,1)="." then fin=x
       if mid$(filename$,x,1)="\" then deb=x: exit for
     next x
     nom$=""
     for x=deb+1 to fin-1
       nom$=nom$+mid$(filename$,x,1)
     next x
     open filename$ for input as #cod 'Lecture du nombre d'images dans le fichier .txt
         line input #cod, données$
         m=val(données$)
      close #cod
      dim tir(m+1): dim card(m+1): dim img$(m+1)
     for n=1 to m  '---charge et stocke noms images
        loadbmp "img";n, "themes\";nom$;"\";n;".bmp"
        img$(n)="img";n 'Tableau des noms d'images
     next
     #w.go, "!enable" 'Activation du bouton "Go"
  wait
  [sons]
    #w.son, "contents? sono$" 'Extraction valeur du combobox
    print sono$ 'Envoie dans console (dégugage)
  wait
  [help] 'la fenêtre d'aide
    WindowWidth = 280
    WindowHeight = 460
    UpperLeftX = (DisplayWidth-WindowWidth)+20
    UpperLeftY = (DisplayHeight-WindowHeight) / 7
   ' BUTTON #h.p1, " P1", [p1], UL, 10, 400, 30, 20
   ' BUTTON #h.p2, " P2", [p2], UL,50, 400, 30, 20
   ' BUTTON #h.p3, " P3 ", [p3], UL, 190, 400, 30, 20
    'BUTTON #h.p3, " P4", [p4], UL, 240, 400, 30, 20
   ' BUTTON #h.ok, "Close", [closeHelp], UL, 110, 400, 40, 20
    GRAPHICBOX #h.m 0, 0, 280, 460
    OPEN "Help" FOR window_nf AS #h
    #h, "TRAPCLOSE [closeHelp]"
    #h.m , "AUTORESIZE"
    help=1  ' flag d'ouverture pour gestion fermetures
    #h.m , "down"
  [p1]
    #h.m , "fill blue"
    #h.m , "color yellow; backcolor blue"
    #h.m , "PLACE 10, 20": #h.m, "\- Menu Fichier/Importer"
    #h.m , "PLACE 10, 40": #h.m, "\ Choisir un des fichiers txt"
    #h.m , "PLACE 10, 60": #h.m, "\- Temps de chargement:"
    #h.m , "PLACE 10, 80": #h.m, "\ Pour 105 Images = 6 secondes"
    #h.m , "PLACE 10, 100": #h.m, "\----------------------"
    #h.m , "PLACE 10, 120": #h.m, "\ Chaque fichier txt contient:"
    #h.m , "PLACE 10, 140": #h.m, "\ Le NOMBRE d'images "
    #h.m , "PLACE 10, 160": #h.m, "\ Du dossier correspondant"
    #h.m , "PLACE 10, 180": #h.m, "\ Qui doit porter le MEME NOM"
    #h.m , "PLACE 10, 200": #h.m, "\  (Attention au piège des accents)"
    #h.m , "PLACE 10, 220": #h.m, "\- On peut ajouter des dossiers images"
    #h.m , "PLACE 10, 240": #h.m, "\  Avec les fichiers txt de MEMES NOMS"
    #h.m , "PLACE 10, 260": #h.m, "\  Contenants le NOMBRE d'image"
    #h.m , "PLACE 10, 280": #h.m, "\  Des dossiers correspondants"
    #h.m , "PLACE 10, 300": #h.m, "\"
    #h.m , "PLACE 10, 320": #h.m, "\"
    #h.m , "PLACE 10, 340": #h.m, "\"
    #h.m , "PLACE 10, 360": #h.m, "\"
    #h.m , "PLACE 10, 380": #h.m, "\"
  wait
  [closeHelp] 'Fermeture de la fenêtre d'aide
    help=0  ' flag de fermeture
    CLOSE #h
    WAIT
  [quit] 'fermeture générale
    if help = 1 then CLOSE #h
        for n=1 to m-1
            unloadbmp "img";n 'Déchargement de la RAM
        next
    CLOSE #w
    END