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 COMMUNICATION"
    sou$="--------------------------------"
    
    COLOR 1,2:CLS
    LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,10:PRINT "Savoir communiquer, être à l'aise avec différentes personnes,"
    PRINT l$;"trouver ce qu'il faut dire au bon moment vous donnera beaucoup"
    PRINT l$;"d'atouts dans le jeu social. Mais cela vous servira aussi dans"
    PRINT l$;"votre vie privée. Communiquer, c'est mettre en commun, savoir"
    PRINT l$;"partager votre point de vue et celui des autres pour arriver à"
    PRINT l$;"un compromis."
    PRINT:PRINT l$;"     Par ce test découvrez votre capacité de communiquer et de"
    PRINT l$;"résoudre les conflits."
    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 avez quelque chose d'important à exprimer :"
    LOCATE 10,9 :PRINT "[1] - vous avez du mal à trouver les mots exacts,"
    LOCATE 12,9 :PRINT "[2] - vous choisissez chaque mot avec soin,"
    LOCATE 14,9 :PRINT "[3] - vous aimez exprimer ce que vous ressentez."
    LOCATE 18,15:PRINT tou$
    GOSUB touche
    a=0:b=0:c=0:GOSUB cba
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "2 - Si vous rencontrez une personne que vous trouvez antipathique :"
    LOCATE 10,9 :PRINT "[1] - vous avez beaucoup de mal à vous sentir à l'aise,"
    LOCATE 12,9 :PRINT "[2] - vous ne vous en préoccupez pas,"
    LOCATE 14,9 :PRINT "[3] - vous laissez ce côté votre première impression négative"
    LOCATE 15,15:PRINT "et tâchez de lui découvrir quand même des qualités."
    LOCATE 19,15:PRINT tou$
    GOSUB touche:GOSUB cba
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "3 - Devant un chef hiérarchique, avez-vous tendance à :"
    LOCATE 10,9 :PRINT "[1] - perdre vos moyens,"
    LOCATE 12,9 :PRINT "[2] - vous contrôler pour vous exprimer avec naturel,"
    LOCATE 14,9 :PRINT "[3] - dire ce que vous avez à dire sans soumission,"
    LOCATE 15,15:PRINT "ni provocation."
    LOCATE 19,15:PRINT tou$
    GOSUB touche:GOSUB cba
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "4 - Lorsque vous devez prendre la parole en public,"
    LOCATE 9,7  :PRINT "comment vous vous sentez-vous ?"
    LOCATE 11,9 :PRINT "[1] - à l'aise et assez content de le faire,"
    LOCATE 13,9 :PRINT "[2] - plutôt gêné mais ne le montrant pas,"
    LOCATE 15,9 :PRINT "[3] - très mal à l'aise."
    LOCATE 19,15:PRINT tou$
    GOSUB touche:GOSUB abc
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "5 - Lorsque vous donnez des instructions à quelqu'un qui a une"
    LOCATE 9,7  :PRINT "position sociale inférieure à la vôtre, comment faites-vous ?
    LOCATE 11,9 :PRINT "[1] - vous êtes très distant mais très poli,"
    LOCATE 13,9 :PRINT "[2] - vous restez naturel,"
    LOCATE 15,9 :PRINT "[3] - vous vous sentez un peu coupable."
    LOCATE 19,15:PRINT tou$
    GOSUB touche:GOSUB bac
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "6 - Etes-vous généralement:"
    LOCATE 10,9 :PRINT "[1] - plutôt taciturne,"
    LOCATE 12,9 :PRINT "[2] - plutôt bavard,"
    LOCATE 14,9 :PRINT "[3] - plus ou moins loquace selon les interlocuteurs"
    LOCATE 15,15:PRINT "auxquels vous vous adressez."
    LOCATE 19,15:PRINT tou$
    GOSUB touche:GOSUB bca
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "7 - Si vous désirez obtenir quelque chose :"
    LOCATE 10,9 :PRINT "[1] - vous cherchez à présenter les choses positivement,"
    LOCATE 12,9 :PRINT "[2] - vous attendez qu'on vous fasse une proposition,"
    LOCATE 14,9 :PRINT "[3] - vous essayez d'aborder le sujet d'une manière détournée."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB abc

    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "8 - Quand vous étiez enfant :"
    LOCATE 10,9 :PRINT "[1] - vous aimiez raconter des contes de fées à vos"
    LOCATE 11,15:PRINT "petits camarades,"
    LOCATE 13,9 :PRINT "[2] - vous préfériez que quelqu'un les raconte,"
    LOCATE 15,9 :PRINT "[3] - vous préfériez lire les contes dans les livres."
    LOCATE 19,15:PRINT tou$
    GOSUB touche:GOSUB abc
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "9 - Quand vous échangez des propos personnels avec quelqu'un :"
    LOCATE 10,9 :PRINT "[1] - la présence d'un tiers vous empêche de parler"
    LOCATE 11,15:PRINT "comme vous le voudriez,"
    LOCATE 13,9 :PRINT "[2] - la présence d'un tiers ne vous gêne pas,"
    LOCATE 15,9 :PRINT "[3] - si la présence d'un tiers vous gêne, vous vous"
    LOCATE 16,15:PRINT "débrouillez pour que le tiers s'en aille."
    LOCATE 20,15:PRINT tou$
    GOSUB touche:GOSUB bca

    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "10 - Préférez-vous :"
    LOCATE 10,9 :PRINT "[1] - écouter que parler,"
    LOCATE 12,9 :PRINT "[2] - parler qu'écouter,"
    LOCATE 14,9 :PRINT "[3] - un bon équilibre des deux."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB cba
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "11 - Vous arrive-t-il souvent d'avoir l'impression pénible"
    LOCATE 9,8  :PRINT "de ne pas savoir exprimer le fond de votre pensée ?"
    LOCATE 11,9 :PRINT "[1] - oui,"
    LOCATE 13,9 :PRINT "[2] - non,"
    LOCATE 15,9 :PRINT "[3] - de temps en temps."
    LOCATE 19,15:PRINT tou$
    GOSUB touche:GOSUB bca
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "12 - Si vous vous êtes trouvé dans la position de demander un"
    LOCATE 9,8  :PRINT "emploi, comment avez-vous agi ?"
    LOCATE 11,9 :PRINT "[1] - vous aviez préparé votre curriculum et vous saviez"
    LOCATE 12,15:PRINT "que dire pour être convaincant,"
    LOCATE 14,9 :PRINT "[2] - vous aviez du mal à vous présenter sous le meilleur jour,"
    LOCATE 16,9 :PRINT "[3] - vous étiez stimulé par la situation et vous vous"
    LOCATE 17,15:PRINT "êtes montré très convaincant."
    LOCATE 21,15:PRINT tou$
    GOSUB touche:GOSUB cab
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "13 - Si vous avez un problème qui vous donne du souci, avez-vous"
    LOCATE 9,8  :PRINT "tendance à :"
    LOCATE 11,9 :PRINT "[1] - le confier à votre meilleur ami en pensant que cela peut"
    LOCATE 12,15:PRINT "toujours aider,"
    LOCATE 14,9 :PRINT "[2] - le tenir secret,"
    LOCATE 16,9 :PRINT "[3] - finir par le confier à votre meilleur ami, si celui-ci insiste."
    LOCATE 20,15:PRINT tou$
    GOSUB touche:GOSUB acb
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "14 - Quand quelqu'un vous déplaît :"
    LOCATE 10,9 :PRINT "[1] - vous boudez,"
    LOCATE 12,9 :PRINT "[2] - vous vous expliquez franchement,"
    LOCATE 14,9 :PRINT "[3] - vous attendez pour vous expliquer plus tard."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB bca
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "15 - Vous préférez :"
    LOCATE 10,9 :PRINT "[1] - les jeux de société de temps en temps,"
    LOCATE 12,9 :PRINT "[2] - les mots croisés ou un jeu solitaire,"
    LOCATE 14,9 :PRINT "[3] - vous organisez vous-même les jeux quand"
    LOCATE 15,15:PRINT "vous êtes avec des amis."
    LOCATE 19,15:PRINT tou$
    GOSUB touche:GOSUB cab
    
    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 attachez beaucoup d'importance à une bonne communication"
    PRINT l$;"entre vous et les autres. Vous avez beaucoup de choses à dire, et"
    PRINT l$;"vous entendez le faire avec succès. Pour vous la communication passe"
    PRINT l$;"aussi bien par la parole que par le geste, l'expression, l'action"
    PRINT l$;"commune ou la réalisation de projets."
    PRINT:PRINT l$;"     La connaissance de vous-même passe aussi pour vous par celle"
    PRINT l$;"des autres. Partager est votre devise. Et votre facilité à commu-"
    PRINT l$;"niquer vous donne une grande force ainsi qu'un certain ascendant"
    PRINT l$;"sur les autres."
         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 êtes assez introverti et il vous arrive parfois de ne pas"
    PRINT l$;"savoir comment vous sortir de cette introversion. Vous pouvez commu-"
    PRINT l$;"niquer aisément quand vous êtes sur un « terrain » familier, ou "
    PRINT l$;"quand vous possédez à fond tous les éléments de la situation. Mais"
    PRINT l$;"si vous vous sentez un peu infériorisé, vous vous refermez dans "
    PRINT l$;"votre coquille. Sachant cela, vous vous résignez à l'avance à ce"
    PRINT l$;"que cependant vous auriez pu éviter. Et c'est dommage, car votre"
    PRINT l$;"potentiel de communication pourrait s'actualiser plus souvent. Il"
    PRINT l$;"suffirait peut-être de vous redonner confiance en vous quand vous"
    PRINT l$;"sentez que vous ne communiquez pas comme vous le pouvez, en vous"
    PRINT l$;"souvenant par exemple d'un moment où vous vous êtes montré bril-"
    PRINT l$;"lant, à l'aise. Car c'est à travers de votre propre confiance que"
    PRINT l$;"passe votre art de la communication."
         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 vous intéressez plus à vous-même qu'aux autres, c'est sans"
    PRINT l$;"doute pour cela que vous n'actualisez pas beaucoup votre potentiel"
    PRINT l$;"de communication. Vous n'avez pas la parole facile et vous vous re-"
    PRINT l$;"fermez vite sur vous-même si vous avez l'impression de ne pas être"
    PRINT l$;"écouté. Aussi, vous avez tendance à vous replier trop sur vous-même"
    PRINT l$;"et à en souffrir. Car vous savez très bien que vous devriez vous"
    PRINT l$;"mettre plus en valeur dans votre travail, par exemple. Mais, vous"
    PRINT l$;"tenez souvent une posiiton de second plan qui ne vous convient pas."
    PRINT:PRINT l$;"     Pour améliorer votre potentiel de communication, vous devez"
    PRINT l$;"être obligé de faire l'effort nécessaire. Jetez-vous à l'eau plus"
    PRINT l$;"souvent que vous ne le faites. Intervenez, improvisez, intéressez-"
    PRINT l$;"vous aux autres, donnez-leur la réplique. Cela vous demandera un"
    PRINT l$;"effort, mais vous y prendrez plaisir, car, en réalité, vous ne "
    PRINT l$;"demandez qu'à communiquer mieux."
    PRINT:PRINT l$;"     Faites attentivement le test sur le potentiel d'expression"
    PRINT l$;"qui pour vous 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, "     Vous attachez beaucoup d'importance à une bonne communication"
    PRINT#4, "entre vous et les autres. Vous avez beaucoup de choses à dire, et"
    PRINT#4, "vous entendez le faire avec succès. Pour vous la communication passe"
    PRINT#4, "aussi bien par la parole que par le geste, l'expression, l'action"
    PRINT#4, "commune ou la réalisation de projets."
    PRINT#4, "     La connaissance de vous-même passe aussi pour vous par celle"
    PRINT#4, "des autres. Partager est votre devise. Et votre facilité à commu-"
    PRINT#4, "niquer vous donne une grande force ainsi qu'un certain ascendant"
    PRINT#4, "sur les autres."
    PRINT#4, :CLOSE #4
    CLS:RUN "test1"
rep2p:
    GOSUB star
    PRINT#4, "     Vous êtes assez introverti et il vous arrive parfois de ne pas"   
    PRINT#4, "savoir comment vous sortir de cette introversion. Vous pouvez commu-"
    PRINT#4, "niquer aisément quand vous êtes sur un « terrain » familier, ou "
    PRINT#4, "quand vous possédez à fond tous les éléments de la situation. Mais"
    PRINT#4, "si vous vous sentez un peu infériorisé, vous vous refermez dans "
    PRINT#4, "votre coquille. Sachant cela, vous vous résignez à l'avance à ce"
    PRINT#4, "que cependant vous auriez pu éviter. Et c'est dommage, car votre"
    PRINT#4, "potentiel de communication pourrait s'actualiser plus souvent. Il"
    PRINT#4, "suffirait peut-être de vous redonner confiance en vous quand vous"
    PRINT#4, "sentez que vous ne communiquez pas comme vous le pouvez, en vous"
    PRINT#4, "souvenant par exemple d'un moment où vous vous êtes montré bril-"
    PRINT#4, "lant, à l'aise. Car c'est à travers de votre propre confiance que"
    PRINT#4, "passe votre art de la communication."
    PRINT#4, :CLOSE #4
    CLS:RUN "test1"
rep3p:
    GOSUB star
    PRINT#4, "     Vous vous intéressez plus à vous-même qu'aux autres, c'est sans"
    PRINT#4, "doute pour cela que vous n'actualisez pas beaucoup votre potentiel"
    PRINT#4, "de communication. Vous n'avez pas la parole facile et vous vous re-"
    PRINT#4, "fermez vite sur vous-même si vous avez l'impression de ne pas être"
    PRINT#4, "écouté. Aussi, vous avez tendance à vous replier trop sur vous-même"
    PRINT#4, "et à en souffrir. Car vous savez très bien que vous devriez vous"
    PRINT#4, "mettre plus en valeur dans votre travail, par exemple. Mais, vous"
    PRINT#4, "tenez souvent une posiiton de second plan qui ne vous convient pas."
    PRINT#4, "     Pour améliorer votre potentiel de communication, vous devez"
    PRINT#4, "être obligé de faire l'effort nécessaire. Jetez-vous à l'eau plus"
    PRINT#4, "souvent que vous ne le faites. Intervenez, improvisez, intéressez-"
    PRINT#4, "vous aux autres, donnez-leur la réplique. Cela vous demandera un"
    PRINT#4, "effort, mais vous y prendrez plaisir, car, en réalité, vous ne "
    PRINT#4, "demandez qu'à communiquer mieux."
    PRINT#4, "     Faites attentivement le test sur le potentiel d'expression"
    PRINT#4, "qui pour vous 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