CLEAR ,45000&
    SCREEN 2,640,255,2,2
    WINDOW 2,"LA CONNAISSANCE DE SOI PAR LES TESTS",(0,0)-(631,203),16,2
    WINDOW OUTPUT 2
    DEFINT a-z
    PALETTE 1,0,0,0:PALETTE 2,1,1,1
    e$=CHR$(27):l$=SPACE$(5):tou$="Pressez la touche correspondant à votre choix"
    pot$="VOTRE POTENTIEL DE SYNTHESE"
    sou$="---------------------------"
    
    COLOR 1,2:CLS
    LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,10:PRINT "Vous connaissez ces tests où l'on vous demande de découvrir le"
    PRINT l$;"point commun entre plusieurs objets. C'est une manière simple de dé-"
    PRINT l$;"couvrir votre capacité de synthèse, que vous pouvez exercer dans"
    PRINT l$;"beaucoup d'autres situations de votre vie, chaque fois que vous avez"
    PRINT l$;"besoin de voir les événements d'une manière globale et de faire le"
    PRINT l$;"point. C'est votre capacité de synthèse qui vous permettra souvent"
    PRINT l$;"de prendre une décision juste alors que votre capacité d'analyse"
    PRINT l$;"vous permettra de mieux comprendre la situation."
    PRINT:PRINT l$;"     Faites ce test pour mettre à l'épreuve votre potentiel de syn-"
    PRINT l$;"thèse en choisissant la phrase qui vous touche le plus parmi les"
    PRINT l$;"trois phrases proposées."
    LOCATE 24,30:PRINT "PRESSEZ UNE TOUCHE"
    CALL touch
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "1 - Quelle est la phrase qui vous touche particulièrement ?"
    LOCATE 10,9 :PRINT "[1] - Quand vous écrivez un rapport, vous avez le plan en tête"
    LOCATE 11,15:PRINT "avant de commencer."
    LOCATE 13,9 :PRINT "[2] - Quand plusieurs personnes parlent à la fois, vous êtes agacé."
    LOCATE 15,9 :PRINT "[3] - Quand il vous manque quelque chose, vous le remplacez"
    LOCATE 16,15:PRINT "facilement par quelque chose d'autre."
    LOCATE 20,15:PRINT tou$
    GOSUB touche
    a=0:b=0:c=0:GOSUB acb
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "2 - Quelle est la phrase qui vous touche particulièrement ?"
    LOCATE 10,9 :PRINT "[1] - Vous vous intéressez à l'arithmétique."
    LOCATE 12,9 :PRINT "[2] - Si quelque chose a change dans votre environnement,"
    LOCATE 13,15:PRINT "vous le remarquez tout de suite."
    LOCATE 15,9 :PRINT "[3] - Pour vous faire une idée de l'information, vous"
    LOCATE 16,15:PRINT "aimez lire plusieurs journeaux.
    LOCATE 20,15:PRINT tou$
    GOSUB touche:GOSUB cba
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "3 - Quelle est la phrase qui vous touche particulièrement ?"
    LOCATE 10,9 :PRINT "[1] - Vous éprouvez le besoin de faire le point sur votre"
    LOCATE 11,15:PRINT "vie de temps en temps
    LOCATE 13,9 :PRINT "[2] - Vous aimez la poésie."
    LOCATE 15,9 :PRINT "[3] - Vous vous intéressez à la mécanique, à l'horlogerie."
    LOCATE 19,15:PRINT tou$
    GOSUB touche:GOSUB bca
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "4 - Quelle est la phrase qui vous touche particulièrement ?"
    LOCATE 10,9 :PRINT "[1] - Vous vous servez facilement d'un annuaire."
    LOCATE 12,9 :PRINT "[2] - Vous aimez les choses géométriques,"
    LOCATE 14,9 :PRINT "[3] - Dans une soirée, vous percevez tout de suite quels"
    LOCATE 15,15:PRINT "sont ceux de vos amis qui ont des points communs."
    LOCATE 19,15:PRINT tou$
    GOSUB touche:GOSUB bac
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "5 - Quelle est la phrase qui vous touche particulièrement ?"
    LOCATE 10,9 :PRINT "[1] - Vous vous intéressez aux mathématiques."
    LOCATE 12,9 :PRINT "[2] - Vous préférez les jeux logiques aux jeux de hasard."
    LOCATE 14,9 :PRINT "[3] - Vous observez souvent les gens qui vous entourent"
    LOCATE 15,15:PRINT "et vous faites des rapprochements entre eux."
    LOCATE 19,15:PRINT tou$
    GOSUB touche:GOSUB abc
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "6 - Quelle est la phrase qui vous touche particulièrement ?"
    LOCATE 10,9 :PRINT "[1] - Vous êtes capable de faire rapidement le résumé"
    LOCATE 11,15:PRINT "de la journée qui vient de s'écouler."
    LOCATE 13,9 :PRINT "[2] - Vous pratiquez la lecture rapide."
    LOCATE 15,9 :PRINT "[3] - Tant qu'il reste un détail qui ne correspond pas à ce"
    LOCATE 16,15:PRINT "que vous aviez prévu, vous n'êtes pas satisfait."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB cab
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "7 - Quelle est la phrase qui vous touche particulièrement ?"
    LOCATE 10,9 :PRINT "[1] - Quand vous jouez aux cartes, vous vous souvenez"
    LOCATE 11,15:PRINT "facilement des cartes qui ont été distribuées."
    LOCATE 13,9 :PRINT "[2] - Vous avez besoin d'avoir votre propre opinion"
    LOCATE 14,15:PRINT "sur les choses."
    LOCATE 16,9 :PRINT "[3] - Vous n'aimez pas faire un compte rendu de séance."
    LOCATE 20,15:PRINT tou$
    GOSUB touche:GOSUB abc
    
    IF a=>b AND a=>c THEN rep1
    IF b=>a AND b=>c THEN rep2
    IF c=>a AND c=>b THEN rep3
    
rep1:
        COLOR 1,2:CLS
    LOCATE 2,7:PRINT pot$
    LOCATE 5,10:PRINT "Votre potentiel de synthèse fonctionne très bien car il est très"
    PRINT l$;"structuré. Il se focalise essentiellement sur les problèmes prati-"
    PRINT l$;"ques, concrets. Pour vous faire une idée globale de la situation, "
    PRINT l$;"vous avez besoin de plusieurs informations, que vous synthétisez "
    PRINT l$;"entre elles pour en faire un tout. Votre esprit de synthèse fonc-"
    PRINT l$;"tionne comme une ordonnace des choses entre elles, rassemblant les"
    PRINT l$;"éléments avec minutie. Vous avez besoin d'un certain temps pour opé-"
    PRINT l$;"rer votre synthèse. Si vous ne disposez pas de ce temps, vous vous"
    PRINT l$;"sentez un peu perdu, et votre potentiel diminue alors,comme paniqué"
    PRINT l$;"par le manque de temps. Mais lorsque vous disposez de tout votre"
    PRINT l$;"temps, tout va bien. Vous aimez agencer les éléments entre eux pour"
    PRINT l$;"en tirer un maximum. C'est une faculté qui vous aide dans votre tra-"
    PRINT l$;"vail et dans votre vie quotidienne."
    PRINT:PRINT l$;"     Faites le test sur votre potentiel d'adaptation qui,pour vous,"
    PRINT l$;"est complémentaire de celui-ci."
         LOCATE 24,15:PRINT "PRESSEZ [F1] POUR IMPRIMER OU [SPACE] POUR LE MENU"
touchp1:    x$=INKEY$:IF x$="" THEN touchp1
            IF x$=CHR$(129) THEN rep1p
            RUN "test1"    
rep2:
        COLOR 1,2:CLS
    LOCATE 2,7:PRINT pot$
    LOCATE 6,10:PRINT "Votre potentiel de synthèse se joue surtout sur les rapports en-"
    PRINT l$;"tre vous et les autres. Vous auriez fait un excellent diplomate, car"
    PRINT l$;"vous maniez merveilleusement les éléments psychologiques pour en ti-"
    PRINT l$;"rer une conclusion positive. Vous avez l'art de recueillir les im-"
    PRINT l$;"pressions qui vous viennent pour les transformer immédiatement en"
    PRINT l$;"réalités concrètes formant un tout. La rapidité est votre atout ma-"
    PRINT l$;"jeur : vous pouvez synthétiser différents éléments entre eux en un"
    PRINT l$;"temps record. Vous avez peut-être un peu plus de difficultés pour"
    PRINT l$;"synthétiser les éléments pratiques, mécaniques ou concrets. Le sens"
    PRINT l$;"mécanique n'est pas forcément votre fort. C'est la « matière humai-"
    PRINT l$;"ne » ou psychologique qui vous intéresse et dans laquelle vous exer-"
    PRINT l$;"cez au mieux votre esprit de synthèse."
    PRINT:PRINT l$;"     Faites le test sur votre potentiel d'opportunisme qui, pour"
    PRINT l$;"vous, est complémentaire de celui-là."
         LOCATE 24,15:PRINT "PRESSEZ [F1] POUR IMPRIMER OU [SPACE] POUR LE MENU"
touchp2:    x$=INKEY$:IF x$="" THEN touchp2
            IF x$=CHR$(129) THEN rep2p
            RUN "test1"    
rep3:
        COLOR 1,2:CLS
    LOCATE 2,7:PRINT pot$
    LOCATE 5,10:PRINT "Vous avez choisi des réponses qui, pour la plupart, ne faisaient"
    PRINT l$;"pas entrer en jeu l'esprit de synthèse. Cela ne signifie pas que vo-"
    PRINT l$;"tre esprit de synthèse est inexistant, mais plutôt que vous ne lui"
    PRINT l$;"accordez pas toute l'attention que vous pourriez. Votre esprit de"
    PRINT l$;"synthèse fonctionne par à-coups, à l'inspiration. Il peut d'ailleurs"
    PRINT l$;"être fulgurant, si vous êtes inspiré. Mais ce n'est pas une valeur"
    PRINT l$;"sûre pour vous. Vous ne pouvez pas compter sur lui en toutes cir-"
    PRINT l$;"constances, car parfois vous prenez plus de plaisir à jouer mentale-"
    PRINT l$;"ment avec les éléments d'un problème, d'une façon originale, farfe-"
    PRINT l$;"lue, sans chercher à les synthétiser. Cela vous donne une forme de"
    PRINT l$;"pensée de type artiste. Et vous privilégiez ce mode d'action le pla-"
    PRINT l$;"çant au-dessus de votre potentiel de synthèse. C'est pourquoi, votre"
    PRINT l$;"liberté réside dans la décision que vous prenez d'agir sur un mode"
    PRINT l$;"de synthèse ou de fantaisie."
    PRINT:PRINT l$;"     Faites le test sur votre potentiel de logique qui, pour vous,"
    PRINT l$;"est complémentaire de celui-là."
         LOCATE 24,15:PRINT "PRESSEZ [F1] POUR IMPRIMER OU [SPACE] POUR LE MENU"
touchp3:    x$=INKEY$:IF x$="" THEN touchp3
            IF x$=CHR$(129) THEN rep3p
            RUN "test1"    
rep1p:
    GOSUB star
    PRINT#4, :PRINT#4, l$;"Votre potentiel de synthèse fonctionne très bien car il est très"
    PRINT#4, "structuré. Il se focalise essentiellement sur les problèmes prati-"
    PRINT#4, "ques, concrets. Pour vous faire une idée globale de la situation, "
    PRINT#4, "vous avez besoin de plusieurs informations, que vous synthétisez "
    PRINT#4, "entre elles pour en faire un tout. Votre esprit de synthèse fonc-"
    PRINT#4, "tionne comme une ordonnace des choses entre elles, rassemblant les"
    PRINT#4, "éléments avec minutie. Vous avez besoin d'un certain temps pour opé-"
    PRINT#4, "rer votre synthèse. Si vous ne disposez pas de ce temps, vous vous"
    PRINT#4, "sentez un peu perdu, et votre potentiel diminue alors,comme paniqué"
    PRINT#4, "par le manque de temps. Mais lorsque vous disposez de tout votre"
    PRINT#4, "temps, tout va bien. Vous aimez agencer les éléments entre eux pour"
    PRINT#4, "en tirer un maximum. C'est une faculté qui vous aide dans votre tra-"
    PRINT#4, "vail et dans votre vie quotidienne."
    PRINT#4, "     Faites le test sur votre potentiel d'adaptation qui,pour vous,"
    PRINT#4, "est complémentaire de celui-ci."
    PRINT#4, :CLOSE #4
    CLS:RUN "test1"
rep2p:
    GOSUB star
    PRINT#4, :PRINT#4, l$;"Votre potentiel de synthèse se joue surtout sur les rapports en-"   
    PRINT#4, "tre vous et les autres. Vous auriez fait un excellent diplomate, car"
    PRINT#4, "vous maniez merveilleusement les éléments psychologiques pour en ti-"
    PRINT#4, "rer une conclusion positive. Vous avez l'art de recueillir les im-"
    PRINT#4, "pressions qui vous viennent pour les transformer immédiatement en"
    PRINT#4, "réalités concrètes formant un tout. La rapidité est votre atout ma-"
    PRINT#4, "jeur : vous pouvez synthétiser différents éléments entre eux en un"
    PRINT#4, "temps record. Vous avez peut-être un peu plus de difficultés pour"
    PRINT#4, "synthétiser les éléments pratiques, mécaniques ou concrets. Le sens"
    PRINT#4, "mécanique n'est pas forcément votre fort. C'est la « matière humai-"
    PRINT#4, "ne » ou psychologique qui vous intéresse et dans laquelle vous exer-"
    PRINT#4, "cez au mieux votre esprit de synthèse."
    PRINT#4, "     Faites le test sur votre potentiel d'opportunisme qui, pour"
    PRINT#4, "vous, est complémentaire de celui-là."
    PRINT#4, :CLOSE #4
    CLS:RUN "test1"
rep3p:
    GOSUB star
    PRINT#4, :PRINT#4, l$;"Vous avez choisi des réponses qui, pour la plupart, ne faisaient"
    PRINT#4, "pas entrer en jeu l'esprit de synthèse. Cela ne signifie pas que vo-"
    PRINT#4, "tre esprit de synthèse est inexistant, mais plutôt que vous ne lui"
    PRINT#4, "accordez pas toute l'attention que vous pourriez. Votre esprit de"
    PRINT#4, "synthèse fonctionne par à-coups, à l'inspiration. Il peut d'ailleurs"
    PRINT#4, "être fulgurant, si vous êtes inspiré. Mais ce n'est pas une valeur"
    PRINT#4, "sûre pour vous. Vous ne pouvez pas compter sur lui en toutes cir-"
    PRINT#4, "constances, car parfois vous prenez plus de plaisir à jouer mentale-"
    PRINT#4, "ment avec les éléments d'un problème, d'une façon originale, farfe-"
    PRINT#4, "lue, sans chercher à les synthétiser. Cela vous donne une forme de"
    PRINT#4, "pensée de type artiste. Et vous privilégiez ce mode d'action le pla-"
    PRINT#4, "çant au-dessus de votre potentiel de synthèse. C'est pourquoi, votre"
    PRINT#4, "liberté réside dans la décision que vous prenez d'agir sur un mode"
    PRINT#4, "de synthèse ou de fantaisie."
    PRINT#4, "     Faites le test sur votre potentiel de logique qui, pour vous,"
    PRINT#4, "est complémentaire de celui-là."
    PRINT#4, :CLOSE #4
    CLS:RUN "test1"
touche:
    a$=INKEY$:IF a$ <>"1" AND a$ <>"2" AND a$ <>"3" THEN touche
    RETURN
SUB touch STATIC
   a$=""
   WHILE a$="":a$=INKEY$:WEND
   END SUB
abc:
    IF a$="1" THEN a1=1 
    IF a$="2" THEN b1=1
    IF a$="3" THEN c1=1
    a=a+a1:b=b+b1:c=c+c1:a1=0:b1=0:c1=0:RETURN
acb:
    IF a$="1" THEN a1=1 
    IF a$="2" THEN c1=1
    IF a$="3" THEN b1=1
    a=a+a1:b=b+b1:c=c+c1:a1=0:b1=0:c1=0:RETURN
bac:
    IF a$="1" THEN b1=1 
    IF a$="2" THEN a1=1
    IF a$="3" THEN c1=1
    a=a+a1:b=b+b1:c=c+c1:a1=0:b1=0:c1=0:RETURN
bca:
    IF a$="1" THEN b1=1 
    IF a$="2" THEN c1=1
    IF a$="3" THEN a1=1
    a=a+a1:b=b+b1:c=c+c1:a1=0:b1=0:c1=0:RETURN
cab:
    IF a$="1" THEN c1=1 
    IF a$="2" THEN a1=1
    IF a$="3" THEN b1=1
    a=a+a1:b=b+b1:c=c+c1:a1=0:b1=0:c1=0:RETURN
cba:
    IF a$="1" THEN c1=1 
    IF a$="2" THEN b1=1
    IF a$="3" THEN a1=1
    a=a+a1:b=b+b1:c=c+c1:a1=0:b1=0:c1=0:RETURN
star:
    OPEN "prt:" FOR OUTPUT AS #4
    PRINT#4, e$;"c";e$;"#1";e$;"[5;80s";
    PRINT#4, e$;"[4m";e$;"[1m";e$;"[6w";
    PRINT#4, pot$;e$;"[5w";e$;"[24m"
    RETURN