Recherche dichotomique en C dans fichier

analyse du dico en cours...
Le programme a trouvé 369085 Mots dans le dico.
chargement en cours
100%
creation des phrases...
creation de la phrase 739 / 739
quel mot voulez-vous chercher
?MAISON
ce mot est bien dans le dico
temps de recherche : 141 ms
quel mot voulez-vous chercher
?ZYGOMATIQUE
ce mot est bien dans le dico
temps de recherche : 281 ms
quel mot voulez-vous chercher
?AVION
ce mot est bien dans le dico
temps de recherche : 0 ms
quel mot voulez-vous chercher
?MAISON
ce mot est bien dans le dico
temps de recherche : 141 ms
quel mot voulez-vous chercher
?LOIRE
ce mot est bien dans le dico
temps de recherche : 16 ms
quel mot voulez-vous chercher
?

        print "analyse du dico en cours..."
        open "dico.txt" for input as #dico
            while eof(#dico)=0
                scan
                line input #dico, mot$
                mot$=upper$(word$(mot$,1))
                if mot$=mot2$ then goto [reload.cnn]
                nb=nb+1
                if int(nb/5000)=nb/5000 then locate 1,2:print nb
                mot2$=mot$
                [reload.cnn]
            wend
        close #dico
        locate 1,2:print "Le programme a trouvé ";nb;" Mots dans le dico."
        print "chargement en cours"
        nbt=nb
        dim dico$(nbt)
        nb=0
        open "dico.txt" for input as #dico
            while eof(#dico)=0
                scan
                line input #dico, mot$
                mot$=upper$(word$(mot$,1))
                if mot$=mot2$ then goto [reload.cnt]
                nb=nb+1
                mot2$=mot$
                if int(nb*100/nbt)=nb*100/nbt then locate 1,4:print using("###",(nb*100/nbt));"%"
                dico$(nb)=mot$
                [reload.cnt]
            wend
        close #dico
        print "creation des phrases..."
        nbph=int(nbt/500)+1
        'print nbph
        dim ph$(nbph)
        trace 2
        for i=1 to nbt
            nump=int(i/500)+1
            if nump<>nump2 then
                nump2=nump
                locate 1,6:print "creation de la phrase ";nump;" / ";nbph
            end if
            ph$(nump)=ph$(nump)+" "+dico$(i)
        next i
    [suite]
        print "quel mot voulez-vous chercher"
        input r$
        r$=" "+upper$(r$)+" "
        t=time$("ms")
        for i=1 to nbph
            if instr(ph$(i),r$) then okmot=1:exit for
        next i
        t2=time$("ms")
        if okmot=1 then
            print "ce mot est bien dans le dico"
        else
            print "ce mot n'est pas dans le dico"
        end if
        print "temps de recherche : ";(t2-t);" ms"
    goto [suite]
    
    wait