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 MAITRISE EMOTIONNELLE"
    sou$="----------------------------------------"
    
    COLOR 1,2:CLS
    LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 6,10:PRINT "La claire vision de votre comportement émotionnel vous permet"
    PRINT l$;"d'établir le mode de relation que vous désirez avoir avec vos pro-"
    PRINT l$;"ches. Il est important que vous puissiez rester pleinement vous-même"
    PRINT l$;"sans être complètement débordé par des vagues émotionnelles qui ris-"
    PRINT l$;"queraient de déséquilibrer votre adaptation aux situations imprévues."
    PRINT l$;"Mais il est également important que vous puissiez exprimer librement"
    PRINT l$;"les émotions."
    PRINT l$;"     Dans l'idéal, une parfaite intelligence de ce qui provoque en"
    PRINT l$;"vous l'émotion en question vous permettra de vous exprimer et de"
    PRINT l$;"donner une réponse correspondant à la situation. C'est un équilibre"
    PRINT l$;"à trouver entre ce que vous avez besoin d'exprimer pour vous sentir"
    PRINT l$;"bien et les circonstances dans lesquelles vous avez à l'exprimer,"
    PRINT l$;"et non pas simplement une explosion ou une adaptation aux circons-"
    PRINT l$;"tances qui vous conduiraient à l'inhibition."
    PRINT l$;"     Avec ce test, vous pourrez juger de la manière dont vous éta-"
    PRINT l$;"blissez cette balance."
    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 - Le téléphone sonne à 2 heures du matin :"
    LOCATE 10,9 :PRINT "[1] - vous éprouvez une violente angoisse,"
    LOCATE 12,9 :PRINT "[2] - vous vous accordez quelques secondes avant de"
    LOCATE 13,15:PRINT "décrocher, pour avoir le temps de vous réveiller,"
    LOCATE 15,9 :PRINT "[3] - vous décrochez tout de suite en bougonnant."
    LOCATE 19,15:PRINT tou$
    GOSUB touche
    a=0:b=0:c=0:GOSUB abc
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "2 - Vous vous apercevez que vous avez oublié de poster une"
    LOCATE 9,7  :PRINT "lettre très urgente qu'un ami vous avait confié :"
    LOCATE 11,9 :PRINT "[1] - vous réparez rapidement votre oubli,"
    LOCATE 13,9 :PRINT "[2] - cet oubli  vous porte un coup et empoisonne une partie"
    LOCATE 14,15:PRINT "de votre journée,"
    LOCATE 16,9 :PRINT "[3] - vous vous en voulez de ne pas avoir fait les choses en"
    LOCATE 17,15:PRINT "temps et en heure."
    LOCATE 21,15:PRINT tou$
    GOSUB touche:GOSUB bca
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "3 - Votre patron vous fait savoir qu'il voudrait bien"
    LOCATE 9,7  :PRINT "avoir avec vous un entretien en fin de journée :"
    LOCATE 11,9 :PRINT "[1] - vous pensez tout de suite qu'il a l'intention de vous renvoyer,"
    LOCATE 13,9 :PRINT "[2] - vous récapitulez vos faits et gestes de la semaine pour être"
    LOCATE 14,15:PRINT "certain d'être à jour,"
    LOCATE 16,9 :PRINT "[3] - vous pensez qu'il veut vous proposer une promotion."
    LOCATE 20,15:PRINT tou$
    GOSUB touche:GOSUB abc
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "4 - Vous êtes témoin d'un accident dans la rue :"
    LOCATE 10,9 :PRINT "[1] - vous essayez tout de même de donner de l'aide,"
    LOCATE 12,9 :PRINT "[2] - décomposé, vous passez votre chemin au plus vite,"
    LOCATE 14,9 :PRINT "[3] - vous êtes très mal à l'aise, mais vous restez"
    LOCATE 15,15:PRINT "quand même pour voir la suite des événements."
    LOCATE 19,15:PRINT tou$
    GOSUB touche:GOSUB bca
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "5 - On vous présente quelqu'un qui vous plaît beaucoup :"
    LOCATE 10,9 :PRINT "[1] - vous vous détournez comme si vous étiez occupé,"
    LOCATE 12,9 :PRINT "[2] - vous devenez très bavard,"
    LOCATE 14,9 :PRINT "[3] - vous manifestez discrètement votre intérêt."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB bac
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "6 - Vous avez eu une journée fatiguante et vous ne songez qu'à un repos bien mérité,"
    LOCATE 9,7  :PRINT "lorsque votre mère vous téléphone pour vous raconter ses menus ennuis :"
    LOCATE 11,9 :PRINT "[1] - vous ne parvenez pas à cacher votre exaspération,"
    LOCATE 13,9 :PRINT "[2] - vous lui expliquez que vous êtes très fatigué et promettez"
    LOCATE 14,15:PRINT "de la rappeler le lendemain,"
    LOCATE 16,9 :PRINT "[3] - vous subissez ce long entretien sans vous décider à y mettre fin."
    LOCATE 20,15:PRINT tou$
    GOSUB touche:GOSUB acb
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "7 - Un de vos invités vient de casser une de vos lampes préférées :"
    LOCATE 10,9 :PRINT "[1] - vous faites tout pour qu'il ne se sente pas coupable,"
    LOCATE 12,9 :PRINT "[2] - vous avez un mal fou à ne pas extérioriser votre rage,"
    LOCATE 14,9 :PRINT "[3] - vous prenez sincèrement cet incident du bon côté."
    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 - Vous venez d'être en proie à une violente colère, au"
    LOCATE 9,7  :PRINT "moment où des amis arrivent pour dîner avec vous :"
    LOCATE 11,9 :PRINT "[1] - vous ne laissez rien paraître de votre colère"
    LOCATE 12,15:PRINT "et vous vous mettez tout de suite au diapason,"
    LOCATE 14,9 :PRINT "[2] - vous les laissez aller dîner tout seuls,"
    LOCATE 16,9 :PRINT "[3] - vous vous calmez au dessert, après avoir raconté vos problèmes."
    LOCATE 20,15:PRINT tou$
    GOSUB touche:GOSUB bca
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "9 - Si vous êtes en conflit avec quelqu'un, est-ce que :"
    LOCATE 10,9 :PRINT "[1] - vous lui dites tout ce que vous pensez de lui sans hésiter,"
    LOCATE 12,9 :PRINT "[2] - vous avez du mal à exprimer clairement ce que vous ressentez,"
    LOCATE 14,9 :PRINT "[3] - vous exprimez vos griefs sans vous laisser emporter trop loin."
    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 - Vous marchez le soir dans une rue déserte et vous remarquez"
    LOCATE 9,8  :PRINT "un passant qui semble vous suivre :"
    LOCATE 11,9 :PRINT "[1] - vous paniquez et vous commencez à courir droit devant vous,"
    LOCATE 13,9 :PRINT "[2] - vous pressez le pas en pensant que c'est peut-être simplement"
    LOCATE 14,15:PRINT "un paisible promeneur,"
    LOCATE 16,9 :PRINT "[3] - vous continuez votre chemin en étant attentif aux faits et"
    LOCATE 17,15:PRINT "gestes de l'inconnu."
    LOCATE 21,15:PRINT tou$
    GOSUB touche:GOSUB abc
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "11 - Une personne que vous aimez vous a donné rendez-vous dans un café."
    LOCATE 9,8  :PRINT "Vous l'attendez depuis une heure :"
    LOCATE 11,9 :PRINT "[1] - vous vous dites que vous vous êtes peut-être trompé"
    LOCATE 12,15:PRINT "d'endroit et vous téléphonez chez-elle,"
    LOCATE 14,9 :PRINT "[2] - vous vous inquiétez en pensant qu'il a pu lui arriver"
    LOCATE 15,15:PRINT "quelque chose,"
    LOCATE 17,9 :PRINT "[3] - vous êtes furieux."
    LOCATE 21,15:PRINT tou$
    GOSUB touche:GOSUB cba
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "12 - Un ami vous blesse involontairement dans votre amour propre :"
    LOCATE 10,9 :PRINT "[1] - vous encaissez sans broncher,"
    LOCATE 12,9 :PRINT "[2] - vous répondez avec virulence,"
    LOCATE 14,9 :PRINT "[3] - vous lui faites remarquer qu'il a mis le doigt sur un"
    LOCATE 15,15:PRINT "de vos points faibles."
    LOCATE 19,15:PRINT tou$
    GOSUB touche:GOSUB bac
    
    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 "Vous éprouvez à longueur de journée des émotions intenses et va-"
    PRINT l$;"riées. La plupart de vos impressions sont immédiatement liées à"
    PRINT l$;"l'émotion qui leur correspond. De nombreuses situations déclenchent"
    PRINT l$;"en vous une succession d'émotions. Et il vous est très difficile de"
    PRINT l$;"les contrôler car vous avez l'impression que « c'est plus fort que"
    PRINT l$;"vous »."
    PRINT:PRINT l$;"     Votre potentiel émotionnel très élevé n'est donc pas proportion-"
    PRINT l$;"nellement égal à votre capacité de le maîtriser. Votre vie sentimen-"
    PRINT l$;"tale est donc remplie d'épisodes passionnels. Votre vie sociale aus-"
    PRINT l$;"si, probablement. Car ce climat dans lequel vous vivez déclenche"
    PRINT l$;"également chez les autres des réactions émotionnelles violentes."
    PRINT:PRINT l$;"     Vous avez donc une personnalité qui ne passe pas inaperçue,"
    PRINT l$;"le charisme passant souvent par une forte expression émotionnelle."
    LOCATE 24,30:PRINT "PRESSEZ UNE TOUCHE"
    CALL touch
        COLOR 1,2:CLS
    LOCATE 2,7:PRINT pot$
    LOCATE 6,10:PRINT "Cependant, vous pourriez acquérir plus de maîtrise en prenant"
    PRINT l$;"tout d'abord conscience de ce processus. En effet, vous risquez"
    PRINT l$;"d'être souvent manipulé par vos propres émotions si vous n'y prenez"
    PRINT l$;"pas garde. Alors que si vous décidiez de vous donner la possibilité"
    PRINT l$;"de prendre conscience de l'émotion pour la transformer, vous ob-"
    PRINT l$;"tiendriez un meilleur équilibre de vos réactions."
    PRINT:PRINT l$;"     C'est la distance que vous pourrez prendre par rapport à l'émo-"
    PRINT l$;"tion qui vous permettra d'en avoir la maîtrise. En opérant cette"
    PRINT l$;"distance à chaque fois qu'une émotion est trop intense ou vous gêne,"
    PRINT l$;"vous la contrôlerez plus efficacement."
         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 n'aimez pas être dérangé par des émotions trop fortes. Cela"
    PRINT l$;"vous perturbe et dérange l'ordonnance harmonieuse que vous désirez"
    PRINT l$;"donner à votre existence. C'est pourquoi vous avez tendance à fuir"
    PRINT l$;"vos émotions. Vous les craignez, car vous avez un peu peur de ne pas"
    PRINT l$;"savoir quoi faire avec vos émotions. Vous vous mettez donc toujours"
    PRINT l$;"en retrait de votre vie émotionnelle qui est pourtant assez intense."
    PRINT:PRINT l$;"     Votre problème n'est pas de contrôler vos émotions, mais au "
    PRINT l$;"contraire de prendre conscience quand elles surviennent. Comme vous"
    PRINT l$;"avez tendance à les fuir, vous devriez inverser cette tendance et"
    PRINT l$;"aller au-devant d'elles, pour rééquilibrer la balance. Vos émotions"
    PRINT l$;"existent, il est inutile de les ignorer, car rien ne pourra empêcher"
    PRINT l$;"leur existence. Il vaut mieux en prendre votre parti et apprivoiser"
    PRINT l$;"vos émotions. Vous pourrez alors constater que vous n'avez rien à en"
    PRINT l$;"craindre et que vos émotions peuvent être vos alliés dans bien des"
    PRINT l$;"circonstances."
         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 8,10:PRINT "Vous avez une bonne maîtrise de vos émotions. Vous vivez"
    PRINT l$;"vos émotions sans être submergé par elles. Vous les utilisez bien"
    PRINT l$;"car vous savez les empêcher d'empiéter trop sur votre vie affective."
    PRINT l$;"Vous avez décidé qu'un surplus d'émotions nuirait à votre vie senti-"
    PRINT l$;"mentale et qu'un manque d'émotions serait lui aussi néfaste. C'est"
    PRINT l$;"pourquoi vous équilibrez naturellement de vous-même l'émotion qui"
    PRINT l$;"surgit et son contrôle. C'est ainsi que vous harmonisez au mieux"
    PRINT l$;"votre vie personnelle."
         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$;"Vous éprouvez à longueur de journée des émotions intenses et va-"
    PRINT#4, "riées. La plupart de vos impressions sont immédiatement liées à"
    PRINT#4, "l'émotion qui leur correspond. De nombreuses situations déclenchent"
    PRINT#4, "en vous une succession d'émotions. Et il vous est très difficile de"
    PRINT#4, "les contrôler car vous avez l'impression que « c'est plus fort que"
    PRINT#4, "vous »."
    PRINT#4, "     Votre potentiel émotionnel très élevé n'est donc pas proportion-"
    PRINT#4, "nellement égal à votre capacité de le maîtriser. Votre vie sentimen-"
    PRINT#4, "tale est donc remplie d'épisodes passionnels. Votre vie sociale aus-"
    PRINT#4, "si, probablement. Car ce climat dans lequel vous vivez déclenche"
    PRINT#4, "également chez les autres des réactions émotionnelles violentes."
    PRINT#4, "     Vous avez donc une personnalité qui ne passe pas inaperçue,"
    PRINT#4, "le charisme passant souvent par une forte expression émotionnelle."
    PRINT#4, "     Cependant, vous pourriez acquérir plus de maîtrise en prenant"
    PRINT#4, "tout d'abord conscience de ce processus. En effet, vous risquez"
    PRINT#4, "d'être souvent manipulé par vos propres émotions si vous n'y prenez"
    PRINT#4, "pas garde. Alors que si vous décidiez de vous donner la possibilité"
    PRINT#4, "de prendre conscience de l'émotion pour la transformer, vous ob-"
    PRINT#4, "tiendriez un meilleur équilibre de vos réactions."
    PRINT#4, "     C'est la distance que vous pourrez prendre par rapport à l'émo-"
    PRINT#4, "tion qui vous permettra d'en avoir la maîtrise. En opérant cette"
    PRINT#4, "distance à chaque fois qu'une émotion est trop intense ou vous gêne,"
    PRINT#4, "vous la contrôlerez plus efficacement."
    PRINT#4, "     Et, bien sûr, faites les exercices sur la maîtrise émotionnelle"
    PRINT#4, "qui vous concernent directement."
    PRINT#4, :CLOSE #4
    CLS:RUN "test1"
rep2p:
    GOSUB star
    PRINT#4, :PRINT#4, l$;"Vous n'aimez pas être dérangé par des émotions trop fortes. Cela"   
    PRINT#4, "vous perturbe et dérange l'ordonnance harmonieuse que vous désirez"
    PRINT#4, "donner à votre existence. C'est pourquoi vous avez tendance à fuir"
    PRINT#4, "vos émotions. Vous les craignez, car vous avez un peu peur de ne pas"
    PRINT#4, "savoir quoi faire avec vos émotions. Vous vous mettez donc toujours"
    PRINT#4, "en retrait de votre vie émotionnelle qui est pourtant assez intense."
    PRINT#4, "     Votre problème n'est pas de contrôler vos émotions, mais au "
    PRINT#4, "contraire de prendre conscience quand elles surviennent. Comme vous"
    PRINT#4, "avez tendance à les fuir, vous devriez inverser cette tendance et"
    PRINT#4, "aller au-devant d'elles, pour rééquilibrer la balance. Vos émotions"
    PRINT#4, "existent, il est inutile de les ignorer, car rien ne pourra empêcher"
    PRINT#4, "leur existence. Il vaut mieux en prendre votre parti et apprivoiser"
    PRINT#4, "vos émotions. Vous pourrez alors constater que vous n'avez rien à en"
    PRINT#4, "craindre et que vos émotions peuvent être vos alliés dans bien des"
    PRINT#4, "circonstances."
    PRINT#4, :CLOSE #4
    CLS:RUN "test1"
rep3p:
    GOSUB star
    PRINT#4, :PRINT#4, l$;"Vous avez une bonne maîtrise de vos émotions. Vous vivez"
    PRINT#4, "vos émotions sans être submergé par elles. Vous les utilisez bien"
    PRINT#4, "car vous savez les empêcher d'empiéter trop sur votre vie affective."
    PRINT#4, "Vous avez décidé qu'un surplus d'émotions nuirait à votre vie senti-"
    PRINT#4, "mentale et qu'un manque d'émotions serait lui aussi néfaste. C'est"
    PRINT#4, "pourquoi vous équilibrez naturellement de vous-même l'émotion qui"
    PRINT#4, "surgit et son contrôle. C'est ainsi que vous harmonisez au mieux"
    PRINT#4, "votre vie personnelle."
    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