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 D'ASSIMILATION"
    sou$="------------------------------"
    
    COLOR 1,2:CLS
    LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,10:PRINT "Pour n'importe quel organisme vivant, il est important d'assi-"
    PRINT l$;"miler, c'est-à-dire de savoir choisir dans son environnement ce dont
    PRINT l$;"il a besoin et qu'il est capable de digérer. Vous souvenez-vous com-"
    PRINT l$;"bien de fois dans vos études, vous avez eu l'impression d'apprendre"
    PRINT l$;"des choses qui ne vous servaient à rien ?... "
    PRINT:PRINT l$;"     Ce test va vous montrer comment vous « digérez » psychologique-"
    PRINT l$;"ment les sensations et les événements."
    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 - Vous parlez :"
    LOCATE 10,9 :PRINT "[1] - une langue étrangère,"
    LOCATE 12,9 :PRINT "[2] - deux langues étrangères ou plus,"
    LOCATE 14,9 :PRINT "[3] - aucune."
    LOCATE 18,15:PRINT tou$
    GOSUB touche
    a=0:b=0:c=0:GOSUB bac
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "2 - Vous préférez :"
    LOCATE 10,9 :PRINT "[1] - ne faire qu'une seule chose à la fois,"
    LOCATE 12,9 :PRINT "[2] - faire deux choses à la fois,"
    LOCATE 14,9 :PRINT "[3] - faire plusieurs choses à la fois."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB cba
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "3 - Vous avez un travail important à accomplir :"
    LOCATE 10,9 :PRINT "[1] - vous le faites d'une traite,"
    LOCATE 12,9 :PRINT "[2] - vous faites une pause quand vous sentez la fatigue,"
    LOCATE 14,9 :PRINT "[3] - vous procédez par petites interventions, même si"
    LOCATE 15,15:PRINT "cela doit vous prendre du temps."
    LOCATE 19,15:PRINT tou$
    GOSUB touche:GOSUB bac
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "4 - Vous rencontrez quelqu'un de nouveau :"
    LOCATE 10,9 :PRINT "[1] - il vous faut un certain temps avant de l'accepter,"
    LOCATE 12,9 :PRINT "[2] - vous l'acceptez d'emblée,"
    LOCATE 14,9 :PRINT "[3] - vous ne l'acceptez que si vous avez des atomes crochus."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB bac
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "5 - Vous préférez :"
    LOCATE 10,9 :PRINT "[1] - un seul repas substanciel par jour,"
    LOCATE 12,9 :PRINT "[2] - plusieurs petites collations,"
    LOCATE 14,9 :PRINT "[3] - 3 repas par jour."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB cab
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "6 - Vous aimez :"
    LOCATE 10,9 :PRINT "[1] - les réunions remplies de monde,"
    LOCATE 12,9 :PRINT "[2] - les dîners de 5 à 6 personnes,"
    LOCATE 14,9 :PRINT "[3] - les soirées en tête à tête."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB abc
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "7 - Vous détestez :"
    LOCATE 10,9 :PRINT "[1] - la foule,"
    LOCATE 12,9 :PRINT "[2] - la solitude,"
    LOCATE 14,9 :PRINT "[3] - les dimanches en famille."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB bac

    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "8 - Votre patron vous donne des informations contradictoires :"
    LOCATE 10,9 :PRINT "[1] - patiemment,vous arrivez à les rassembler pour leur"
    LOCATE 11,15:PRINT "redonner un minimum de cohérence,"
    LOCATE 13,9 :PRINT "[2] - vous souffrez sans rien dire,"
    LOCATE 15,9 :PRINT "[3] - vous lui demandez plus ample explication."
    LOCATE 19,15:PRINT tou$
    GOSUB touche:GOSUB acb
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "9 - Vous pouvez :"
    LOCATE 10,9 :PRINT "[1] - avoir de nombreuses activités en plus de votre métier,"
    LOCATE 12,9 :PRINT "[2] - avoir une ou deux activités en plus de votre métier,"
    LOCATE 14,9 :PRINT "[3] - vous ne tenez pas à avoir d'autres activités en plus"
    LOCATE 15,15:PRINT "de votre métier."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB abc

    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "10 - On vous propose d'apprendre un nouveau jeu :"
    LOCATE 10,9 :PRINT "[1] - vous sautez sur l'occasion,"
    LOCATE 12,9 :PRINT "[2] - vous vous appliquez pour apprendre toutes les règles,"
    LOCATE 14,9 :PRINT "[3] - vous n'avez pas envie d'apprendre."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB bac
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "11 - Si les circontances vous obligeaient à vous recycler"
    LOCATE 9,7  :PRINT "dans un métier tout à fait nouveau :"
    LOCATE 11,9 :PRINT "[1] - quelle horreur,"
    LOCATE 13,9 :PRINT "[2] - ce serait passionnant après tout,"
    LOCATE 15,9 :PRINT "[3] - vous finirez bien par vous y faire."
    LOCATE 19,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 6,10:PRINT "Votre potentiel d'assimilation est élevé. Un afflux d'informa-"
    PRINT l$;"tions, de tâches à remplir, de gens à recevoir ne vous effraie pas,"
    PRINT l$;"car vous triez et ordonnez instinctivement ce qui se présente à vous."
    PRINT:PRINT l$;"     Vous avez la possibilité de ne pas vous laisser déborder par"
    PRINT l$;"l'extérieur : vous appréhendez les choses, les ordonnez et les assi-"
    PRINT l$;"milez sans problème."
    PRINT:PRINT l$;"     Peut-être même ne vous étiez-vous jamais rendu compte que vous"
    PRINT l$;"possédiez cette faculté car elle vous semble toute naturelle. Vous"
    PRINT l$;"pouvez la développer en l'exerçant davantage (par exemple en appre-"
    PRINT l$;"nant une autre langue étrangère) car vous êtes doué et assimilez "
    PRINT l$;"l'ensemble des choses plus facilement que la plupart des gens."
    PRINT:PRINT l$;"     Faites le test sur votre potentiel d'organisation qui, pour"
    PRINT l$;"vous, est complémentaire de celui-là."
         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 "Vous assimilez bien dans la mesure où vous pouvez prendre votre"
    PRINT l$;"temps pour le faire. Tant que votre travail, vos responsabilités"
    PRINT l$;"s'enchaînent sans bousculade, votre processus mental d'assimilation"
    PRINT l$;"fonctionne facilement. Par contre, si vous vous sentez bousculé,"
    PRINT l$;"vous refusez l'obstacle."
    PRINT:PRINT l$;"     Vous devez donc penser à prendre du temps, en ménageant au be-"
    PRINT l$;"soin un moment d'arrêt quand vous commencez à vous sentir débordé."
    PRINT l$;"Cette pause vous permettra d'observer le recul nécessaire pour assi-"
    PRINT l$;"miler sans problème tous les éléments qui doivent l'être."
    PRINT:PRINT l$;"     Faites le test sur votre potentiel de récupération qui, pour"
    PRINT l$;"vous, est le complément 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 6,10:PRINT "Vous avez besoin de tellement de concentration quand vous agis-"
    PRINT l$;"sez que vous focalisez votre attention seulement sur une chose et"
    PRINT l$;"non sur plusieurs à la fois. C'est pourquoi vous avez un certain mal"
    PRINT l$;"à assimiler plusieurs choses ensemble. Votre potentiel d'assimila-"
    PRINT l$;"tion est normal mais vous devez veiller à ne pas vous surcharger"
    PRINT l$;"pour ne pas risquer « l'indigestion ». "
    PRINT:PRINT l$;"     L'assimilation agit tout à fait comme le processus alimentaire:"
    PRINT l$;"c'est une question de tempérament. Le vôtre nécessite du calme et de"
    PRINT l$;"la concentration. Vous assimilez peu, mais ce que vous assimilez"
    PRINT l$;"reste gravé en vous. Vous êtes fait pour les tâches de grande enver-"
    PRINT l$;"gure, les travaux exhaustifs car vous ne vous contentez jamais d'à"
    PRINT l$;"peu près."
    PRINT:PRINT l$;"     Faites le test sur votre potentiel d'adaptation 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 d'assimilation est élevé. Un afflux d'informa-"
    PRINT#4, "tions, de tâches à remplir, de gens à recevoir ne vous effraie pas,"
    PRINT#4, "car vous triez et ordonnez instinctivement ce qui se présente à vous."
    PRINT#4, "     Vous avez la possibilité de ne pas vous laisser déborder par"
    PRINT#4, "l'extérieur : vous appréhendez les choses, les ordonnez et les assi-"
    PRINT#4, "milez sans problème."
    PRINT#4, "     Peut-être même ne vous étiez-vous jamais rendu compte que vous"
    PRINT#4, "possédiez cette faculté car elle vous semble toute naturelle. Vous"
    PRINT#4, "pouvez la développer en l'exerçant davantage (par exemple en appre-"
    PRINT#4, "nant une autre langue étrangère) car vous êtes doué et assimilez "
    PRINT#4, "l'ensemble des choses plus facilement que la plupart des gens."
    PRINT#4, "     Faites le test sur votre potentiel d'organisation qui, pour"
    PRINT#4, "vous, est complémentaire de celui-là."
    PRINT#4, :CLOSE #4
    CLS:RUN "test1"
rep2p:
    GOSUB star
    PRINT#4, :PRINT#4, l$;"Vous assimilez bien dans la mesure où vous pouvez prendre votre"   
    PRINT#4, "temps pour le faire. Tant que votre travail, vos responsabilités"
    PRINT#4, "s'enchaînent sans bousculade, votre processus mental d'assimilation"
    PRINT#4, "fonctionne facilement. Par contre, si vous vous sentez bousculé,"
    PRINT#4, "vous refusez l'obstacle."
    PRINT#4, "     Vous devez donc penser à prendre du temps, en ménageant au be-"
    PRINT#4, "soin un moment d'arrêt quand vous commencez à vous sentir débordé."
    PRINT#4, "Cette pause vous permettra d'observer le recul nécessaire pour assi-"
    PRINT#4, "miler sans problème tous les éléments qui doivent l'être."
    PRINT#4, "     Faites le test sur votre potentiel de récupération qui, pour"
    PRINT#4, "vous, est le complément de celui-là."
    PRINT#4, :CLOSE #4
    CLS:RUN "test1"
rep3p:
    GOSUB star
    PRINT#4, :PRINT#4, l$;"Vous avez besoin de tellement de concentration quand vous agis-"
    PRINT#4, "sez que vous focalisez votre attention seulement sur une chose et"
    PRINT#4, "non sur plusieurs à la fois. C'est pourquoi vous avez un certain mal"
    PRINT#4, "à assimiler plusieurs choses ensemble. Votre potentiel d'assimila-"
    PRINT#4, "tion est normal mais vous devez veiller à ne pas vous surcharger"
    PRINT#4, "pour ne pas risquer « l'indigestion ». "
    PRINT#4, "     L'assimilation agit tout à fait comme le processus alimentaire:"
    PRINT#4, "c'est une question de tempérament. Le vôtre nécessite du calme et de"
    PRINT#4, "la concentration. Vous assimilez peu, mais ce que vous assimilez"
    PRINT#4, "reste gravé en vous. Vous êtes fait pour les tâches de grande enver-"
    PRINT#4, "gure, les travaux exhaustifs car vous ne vous contentez jamais d'à"
    PRINT#4, "peu près."
    PRINT#4, "     Faites le test sur votre potentiel d'adaptation 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