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'INTUITION"
    sou$="---------------------------"
    
    COLOR 1,2:CLS
    LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,10:PRINT "Ce test est la contre-partie du test de logique. Si celle-ci est"
    PRINT l$;"bien utile, pour résoudre des problèmes concrets ou intellectuels,"
    PRINT l$;"c'est souvent par l'intuition, c'est-à-dire par l'émergence soudaine"
    PRINT l$;"sans raisonnement d'une idée que vous résoudrez les problèmes de vie"
    PRINT l$;"plus complexes. L'intuition est le résultat d'un travail souterrain"
    PRINT l$;"de votre subconscient qui s'attache à élucider ce qui vous préoccu-"
    PRINT l$;"pe. Apprendre à faire confiance à votre intuition, découvrir quelles"
    PRINT l$;"sont les circonstances favorables pour qu'elle jaillisse, c'est le"
    PRINT l$;"travail de développement personnel que nous vous proposons lorsque"
    PRINT l$;"vous aurez efectué le test ci-après."
    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 - Avez-vous déjà agi d'une façon irrationnelle qui s'est avérée"
    LOCATE 9,7  :PRINT "fructueuse parce que vous vous laissiez guider par votre intuition ?"
    LOCATE 11,9 :PRINT "[1] - cela m'est arrivé, mais je n'en ai pas de souvenir précis,"
    LOCATE 13,9 :PRINT "[2] - non,"
    LOCATE 15,9 :PRINT "[3] - oui, et j'apprécie beaucoup."
    LOCATE 19,15:PRINT tou$
    GOSUB touche
    a=0:b=0:c=0:GOSUB cab
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "2 - Vous arrive-t-il de faire des rêves prémonitoires ?"
    LOCATE 10,9 :PRINT "[1] - souvent,"
    LOCATE 12,9 :PRINT "[2] - de temps en temps,"
    LOCATE 14,9 :PRINT "[3] - non."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB abc
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "3 - Lorsqu'on vous parle d'expériences para-psychologiques :"
    LOCATE 10,9 :PRINT "[1] - vous vous y intéressez vivement,"
    LOCATE 12,9 :PRINT "[2] - vous êtes intéressé et perplexe,"
    LOCATE 14,9 :PRINT "[3] - vous êtes sceptique."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB abc
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "4 - La première fois que vous rencontrez une personne qui s'avèrera"
    LOCATE 9,7  :PRINT "par la suite importante dans votre vie....
    LOCATE 11,9 :PRINT "[1] - vous ressentez soudainement une impression particulière"
    LOCATE 12,15:PRINT "et indescriptible mais que vous connaissez bien,"
    LOCATE 14,9 :PRINT "[2] - à la réflexion, vous avez eu l'intuition que cette personne se-"
    LOCATE 15,15:PRINT "rait importante mais cela n'est pas parvenu à votre conscience,"
    LOCATE 17,9 :PRINT "[3] - vous vous méfiez des interprétations de ce genre."
    LOCATE 21,15:PRINT tou$
    GOSUB touche:GOSUB abc
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "5 - Vous empêchez-vous souvent de parler de vos prémonitions et"
    LOCATE 9,7  :PRINT "de vos impressions ?
    LOCATE 11,9 :PRINT "[1] - oui,"
    LOCATE 13,9 :PRINT "[2] - non,"
    LOCATE 15,9 :PRINT "[3] - je ne m'intéresse pas à ce genre de chose."
    LOCATE 19,15:PRINT tou$
    GOSUB touche:GOSUB acb
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "6 - Le silence est-il pour vous :"
    LOCATE 10,9 :PRINT "[1] - la meilleure façon de communiquer avec l'autre,"
    LOCATE 12,9 :PRINT "[2] - gênant quand il survient dans une conversation,"
    LOCATE 14,9 :PRINT "[3] - une chose privée que vous réservez à vos moments"
    LOCATE 15,15:PRINT "de solitude."
    LOCATE 19,15:PRINT tou$
    GOSUB touche:GOSUB acb
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "7 - Vous considérez votre faculté de raisonnement comme :"
    LOCATE 10,9 :PRINT "[1] - primordiale,"
    LOCATE 12,9 :PRINT "[2] - importante,"
    LOCATE 14,9 :PRINT "[3] - sujette à des hauts et des bas."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB cba

    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "8 - Etes-vous superstitieux ?"
    LOCATE 10,9 :PRINT "[1] - oui, très,"
    LOCATE 12,9 :PRINT "[2] - un peu,"
    LOCATE 14,9 :PRINT "[3] - pas du tout."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB abc
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "9 - Avrez-vous des moments où des idées vous viennent"
    LOCATE 9,7  :PRINT "d'une manière inatendue mais très clairement ?"
    LOCATE 11,9 :PRINT "[1] - oui,"
    LOCATE 13,9 :PRINT "[2] - ça m'arrive,"
    LOCATE 15,9 :PRINT "[3] - non."
    LOCATE 19,15:PRINT tou$
    GOSUB touche:GOSUB abc

    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "10 - Si vous avez remarqué en vous un certain don d'intuition :"
    LOCATE 10,9 :PRINT "[1] - est-ce que vous le privilégiez ?"
    LOCATE 12,9 :PRINT "[2] - vous est-il indifférent ?"
    LOCATE 14,9 :PRINT "[3] - vous aimeriez l'approfondir ?"
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB acb
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "11 - Avez-vous parefois l'impression qu'il se passe « autre-chose »"
    LOCATE 9,8  :PRINT "au-delà de la réalité à laquelle nous sommes habitués ?"
    LOCATE 11,9 :PRINT "[1] - non,"
    LOCATE 13,9 :PRINT "[2] - parfois,"
    LOCATE 15,9 :PRINT "[3] - souvent."
    LOCATE 19,15:PRINT tou$
    GOSUB touche:GOSUB cba
    
    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 "Vous avez un très fort potentiel d'intuition et vous savez vous"
    PRINT l$;"en servir, même si vous n'en parlez pas. C'est votre intuition qui"
    PRINT l$;"parfois vous dicte de prendre telle ou telle décision, d'adopter une"
    PRINT l$;"ligne de conduite plutôt qu'une autre. Vous percevez, que vous le"
    PRINT l$;"vouliez ou non, ce qui se passe au-delà des mots et des concepts."
    PRINT l$;"Mais bien sûr, vous n'en tenez pas toujours compte, car l'intuition"
    PRINT l$;"est une chose impalpable et fragile, difficile à cerner. Aussi, vous"
    PRINT l$;"préférez souvent garder secrètes ces prémonitions ou ces impressions"
    PRINT l$;"inexplicables qui vous parviennent. C'est dommage, car vous pouvez"
    PRINT l$;"développer plus votre potentiel, simplement en y portant plus votre"
    PRINT l$;"attention. Prenez conscience de vos intuitions, explorez-les sans"
    PRINT l$;"complexes. Elles jouent un rôle important dans votre fonctionnement."
    PRINT l$;"Vous pourrez les vivre et les utiliser au même titre que toutes vos"
    PRINT l$;"autres facultés."
    PRINT:PRINT l$;"     Faites le test sur votre potentiel de vivre vos impressions"
    PRINT l$;"qui, pour 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 5,10:PRINT "Lorsque vous sentez une intuition, vous êtes très perplexe. Le"
    PRINT l$;"monde irrationnel vous est très mystérieux et vous l'abordez sur la"
    PRINT l$;"pointe des pieds. Pourtant, il vous arrive souvent de quitter l'uni-"
    PRINT l$;"vers rassurant du rationnel et d'entrer en contact avec le champ de"
    PRINT l$;"votre intuition. Mais cela ne va pas sans une certaine anxiété. Et"
    PRINT l$;"vous n'avez jamais vraiment confiance en votre intuition, même si"
    PRINT l$;"elle vous a déjà prouvé qu'elle constituait pour vous une source"
    PRINT l$;"d'énergie et de force."
    PRINT:PRINT l$;"     Vous devriez faire plus confiance à votre potentiel d'intui-"
    PRINT l$;"tion. C'est en l'acceptant tel qu'il existe en vous que vous pourrez"
    PRINT l$;"mieux le contrôler. Car si vous le refusez, vous risquez d'être sub-"
    PRINT l$;"mergé par lui sans en avoir conscience et sans pouvoir l'utiliser"
    PRINT l$;"positivement."
    PRINT:PRINT l$;"     Acceptez-le, faites-lui confiance. Ce sera aussi une manière de"
    PRINT l$;"vous faire confiance, dans votre globalité."
         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 êtes décidé à ne pas tenir compte de votre potentiel d'in-"
    PRINT l$;"tuition. Que celui-ci soit développé ou non, vous ne voulez pas le"
    PRINT l$;"savoir. Pour vous, le concret doit rester le concret. Et la réalité"
    PRINT l$;"est un monde rationnel qui s'analyse, se contrôle et s'explique"
    PRINT l$;"scientifiquement. Comme tout le monde, vous avez déjà eu des intui-"
    PRINT l$;"tions, des phénomènes exceptionnels, mais vous ne désirez pas en "
    PRINT l$;"tenir compte. Et vous avez tendance à penser que ce genre de choses"
    PRINT l$;"est du domaine des charlatans ou autres faiseurs de vent. C'est vo-"
    PRINT l$;"tre droit le plus strict et rien ne vous empêche de puiser vos for-"
    PRINT l$;"ces dans votre rationnel et votre faculté de raisonnement.... si du"
    PRINT l$;"moins vous y trouvez pleinement votre équilibre."
    PRINT:PRINT l$;"     Faites le test sur votre potentiel de vivre vos impressions qui"
    PRINT l$;"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, :PRINT#4, l$;"Vous avez un très fort potentiel d'intuition et vous savez vous"
    PRINT#4, "en servir, même si vous n'en parlez pas. C'est votre intuition qui"
    PRINT#4, "parfois vous dicte de prendre telle ou telle décision, d'adopter une"
    PRINT#4, "ligne de conduite plutôt qu'une autre. Vous percevez, que vous le"
    PRINT#4, "vouliez ou non, ce qui se passe au-delà des mots et des concepts."
    PRINT#4, "Mais bien sûr, vous n'en tenez pas toujours compte, car l'intuition"
    PRINT#4, "est une chose impalpable et fragile, difficile à cerner. Aussi, vous"
    PRINT#4, "préférez souvent garder secrètes ces prémonitions ou ces impressions"
    PRINT#4, "inexplicables qui vous parviennent. C'est dommage, car vous pouvez"
    PRINT#4, "développer plus votre potentiel, simplement en y portant plus votre"
    PRINT#4, "attention. Prenez conscience de vos intuitions, explorez-les sans"
    PRINT#4, "complexes. Elles jouent un rôle important dans votre fonctionnement."
    PRINT#4, "Vous pourrez les vivre et les utiliser au même titre que toutes vos"
    PRINT#4, "autres facultés."
    PRINT#4, "     Faites le test sur votre potentiel de vivre vos impressions"
    PRINT#4, "qui, pour vous, est complémentaire de ceui-là."
    PRINT#4, :CLOSE #4
    CLS:RUN "test1"
rep2p:
    GOSUB star
    PRINT#4, :PRINT#4, l$;"Lorsque vous sentez une intuition, vous êtes très perplexe. Le"   
    PRINT#4, "monde irrationnel vous est très mystérieux et vous l'abordez sur la"
    PRINT#4, "pointe des pieds. Pourtant, il vous arrive souvent de quitter l'uni-"
    PRINT#4, "vers rassurant du rationnel et d'entrer en contact avec le champ de"
    PRINT#4, "votre intuition. Mais cela ne va pas sans une certaine anxiété. Et"
    PRINT#4, "vous n'avez jamais vraiment confiance en votre intuition, même si"
    PRINT#4, "elle vous a déjà prouvé qu'elle constituait pour vous une source"
    PRINT#4, "d'énergie et de force."
    PRINT$4, "     Vous devriez faire plus confiance à votre potentiel d'intui-"
    PRINT#4, "tion. C'est en l'acceptant tel qu'il existe en vous que vous pourrez"
    PRINT#4, "mieux le contrôler. Car si vous le refusez, vous risquez d'être sub-"
    PRINT#4, "mergé par lui sans en avoir conscience et sans pouvoir l'utiliser"
    PRINT#4, "positivement."
    PRINT#4, "     Acceptez-le, faites-lui confiance. Ce sera aussi une manière de"
    PRINT#4, "vous faire confiance, dans votre globalité."
    PRINT#4, :CLOSE #4
    CLS:RUN "test1"
rep3p:
    GOSUB star
    PRINT#4, :PRINT#4, l$;"Vous êtes décidé à ne pas tenir compte de votre potentiel d'in-"
    PRINT#4, "tuition. Que celui-ci soit développé ou non, vous ne voulez pas le"
    PRINT#4, "savoir. Pour vous, le concret doit rester le concret. Et la réalité"
    PRINT#4, "est un monde rationnel qui s'analyse, se contrôle et s'explique"
    PRINT#4, "scientifiquement. Comme tout le monde, vous avez déjà eu des intui-"
    PRINT#4, "tions, des phénomènes exceptionnels, mais vous ne désirez pas en "
    PRINT#4, "tenir compte. Et vous avez tendance à penser que ce genre de choses"
    PRINT#4, "est du domaine des charlatans ou autres faiseurs de vent. C'est vo-"
    PRINT#4, "tre droit le plus strict et rien ne vous empêche de puiser vos for-"
    PRINT#4, "ces dans votre rationnel et votre faculté de raisonnement.... si du"
    PRINT#4, "moins vous y trouvez pleinement votre équilibre."
    PRINT#4, "     Faites le test sur votre potentiel de vivre vos impressions qui"
    PRINT#4, "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