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$="TEST MYSTERE"
    sou$="------------"
    
    COLOR 1,2:CLS
    LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 10,10:PRINT "Vous allez répondre à ce test sans savoir sur quel sujet il"
    PRINT l$;"porte. Répondez tout à fait spontanément, en vous laissant aller"
    PRINT l$;"à votre intuition, sans réfléchir......"
    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 - Pour vous, la vie, qu'est-ce que c'est :"
    LOCATE 10,9 :PRINT "[1] - une longue suite de rêves,"
    LOCATE 12,9 :PRINT "[2] - un chemin avec un début, un milieu et une fin,"
    LOCATE 14,9 :PRINT "[3] - quelque chose d'imprévisible, où tout peut arriver."
    LOCATE 18,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 - Si une bonne fée vous donnait le choix, entre ces trois souhaits,"
    LOCATE 9,7  :PRINT "que choisiriez-vous ?"
    LOCATE 11,9 :PRINT "[1] - avoir une vie calme et réglée, dans un cadre agréable,"
    LOCATE 12,15:PRINT "sans événements marquants,"
    LOCATE 14,9 :PRINT "[2] - commencer chaque jour une autre aventure,"
    LOCATE 16,9 :PRINT "[3] - avoir la possibilité de ne vous intéresser qu'à votre"
    LOCATE 17,15:PRINT "univers intérieur."
    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 - En général, quand vous devez prendre une décision qui engage"
    LOCATE 9,7  :PRINT "votre vie affective :"
    LOCATE 11,9 :PRINT "[1] - vous pesez soigneusement le pour et le contre,"
    LOCATE 13,9 :PRINT "[2] - vous analysez la situation, mais vous laissez une large"
    LOCATE 14,15:PRINT "part à vos sentiments,"
    LOCATE 16,9 :PRINT "[3] - vous ne vous fiez qu'à ce que vous dicte votre intuition"
    LOCATE 17,15:PRINT "et vos sentiments ici et maintenant."
    LOCATE 21,15:PRINT tou$
    GOSUB touche:GOSUB cba
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "4 - Vous est-il déjà arrivé de changer complètement vos plans"
    LOCATE 9,7  :PRINT "sur un coup de tête subit ?"
    LOCATE 11,9 :PRINT "[1] - non, c'est trop dangereux,"
    LOCATE 13,9 :PRINT "[2] - c'est arrivé exceptionnellement,"
    LOCATE 15,9 :PRINT "[3] - souvent et c'est grisant."
    LOCATE 19,15:PRINT tou$
    GOSUB touche:GOSUB cba
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "5 - Avez-vous parfois l'impression que « quelque chose » en vous"
    LOCATE 9,7  :PRINT "dicte votre conduite :"
    LOCATE 11,9 :PRINT "[1] - peut-être en y réfléchissant, mais je n'en suis pas sûr,"
    LOCATE 13,9 :PRINT "[2] - non, jamais,"
    LOCATE 15,9 :PRINT "[3] - oui, c'est une impression que je connais."
    LOCATE 19,15:PRINT tou$
    GOSUB touche:GOSUB cab
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "6 - Pour vous, le hasard :"
    LOCATE 10,9 :PRINT "[1] - existe, et vous en tenez compte,"
    LOCATE 12,9 :PRINT "[2] - existe, mais il est dangereux,"
    LOCATE 14,9 :PRINT "[3] - existe, et il faut faire avec, hélas."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB acb
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "7 - Avez-vous tendance à :"
    LOCATE 10,9 :PRINT "[1] - faire pleinement confiance à la vie,"
    LOCATE 12,9 :PRINT "[2] - faire relativement confiance à la vie,"
    LOCATE 14,9 :PRINT "[3] - éviter de faire confiance à la vie qui"
    LOCATE 15,15:PRINT "est trop imprévisible."
    LOCATE 19,15:PRINT tou$
    GOSUB touche:GOSUB abc

    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "8 - Pour vous, l'ordre socual établi est une valeur :"
    LOCATE 10,9 :PRINT "[1] - sûre, dans laquelle vous vous comptez pleinement,"
    LOCATE 12,9 :PRINT "[2] - établie, dont il faut tenir compte,"
    LOCATE 14,9 :PRINT "[3] - envahissante, dont vous vous passeriez volontiers."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB cba
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "9 - Quand vous suivez ce que vous dicte votre intuition :"
    LOCATE 10,9 :PRINT "[1] - vous vous en trouvez très bien,"
    LOCATE 12,9 :PRINT "[2] - vous ne vous en trouvez pas toujours très bien,"
    LOCATE 14,9 :PRINT "[3] - c'est une catastrophe et vous évitez de le faire."
    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 - Avez-vous le sentiment d'avoir eu de la chance dans votre vie ?"
    LOCATE 10,9 :PRINT "[1] - dans l'ensemble, oui,"
    LOCATE 12,9 :PRINT "[2] - oui, toujours,"
    LOCATE 14,9 :PRINT "[3] - non, pas vraiment."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB bac
    
comm:
    COLOR 1,2:CLS
    LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 6,10:PRINT "Ce test mystère portait sur votre potentiel à faire confiance à"
    PRINT l$;"l'invisible, l'invisible étant tout ce qui surgit de notre incons-"
    PRINT l$;"cient, tout ce qu'on appelle généralement le hasard ou le mystère."
    PRINT l$;"     Selon notre tempérament, notre degré d'évolution ou l'éducation"
    PRINT l$;"que nous avons reçue nous tenons plus ou moins compte de l'invisible."
    PRINT l$;"Certaines personnes agissent toujours comme si tout était purement"
    PRINT l$;"rationnel. D'autres au contraire ont tendance à rejeter leurs échecs"
    PRINT l$;"ou leurs chagrins sur la responsabilité du hasard ou du manque de"
    PRINT l$;"chance. L'invisible est alors un bon prétexte pour ne pas prendre la"
    PRINT l$;"responsabilité de son existence."
    PRINT l$;"     En regardant les résultats obtenus à ce test, vous pourrez dé-"
    PRINT l$;"couvrir de quelle façon vous jouez votre relation avec l'invisible"
    PRINT l$;"et dans quelle mesure il vous donne un facteur supplémentaire de"
    PRINT l$;"chance dans votre réussite."
    LOCATE 24,30:PRINT "PRESSEZ UNE TOUCHE"
    CALL touch
    
    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 4,10:PRINT "Consciemment ou non, vous laissez une large part à l'invisible"
    PRINT l$;"dans votre existence. Certainement doué d'une grande intuition (voir"
    PRINT l$;"le test sur l'intuition), vous sentez les choses et les événements"
    PRINT l$;"avec une perception très fine, qui dépasse le domaine du rationnel."
    PRINT l$;"Une très grande réceptivité aux événements vous permet de vous"
    PRINT l$;"« plonger » dedans et d'y recueillir des richesses de sensations et"
    PRINT l$;"de perceptions. Dans cet état intérieur très réceptif nul doute que"
    PRINT l$;"vous soyiez doué pour saisir le hasard, la chance, au vol. Des coups"
    PRINT l$;"de chance vous sont d'ailleurs offerts tout au long de votre vie. Et"
    PRINT l$;"vous savez les sentir et les utiliser. Votre façon d'être est souvent"
    PRINT l$;"perçue comme originale par votre entourage. Les autres s'aperçoivent"
    PRINT l$;"souvent que vous les voyez comme ils sont avec un regard qui sait"
    PRINT l$;"traverser les apparences pour trouver le coeur des choses. C'est "
    PRINT l$;"d'ailleurs cette faculté d'aller directement au centre des choses et"
    PRINT l$;"des situations qui vous permet de vous fier entièrement au hasard."
    PRINT l$;"     Attention cependant à ne pas exagérer ce potentiel dans un sens"
    PRINT l$;"négatif: sa caricature serait le portrait d'une personne très supers-"
    PRINT l$;"titieuse qui aurait dédié son destin aux mains d'une puissance invi-"
    PRINT l$;"sible et se laisserait balloter au gré des courants...."
        LOCATE 24,30:PRINT "PRESSEZ UNE TOUCHE"
    CALL touch
        COLOR 1,2:CLS
    LOCATE 2,7:PRINT pot$
    LOCATE 6,10:PRINT "Votre potentiel de sentir l'invisible doit quand même vous lais-"
    PRINT l$;"ser vivre aussi votre côté rationnel et logique. Car vous savez très"
    PRINT l$;"bien que le « merveilleux » n'apparaît que parfois, par hasard, et"
    PRINT l$;"que vouloir le forcer à régir toutes les situations serait très né-"
    PRINT l$;"gatif. En équilibrant harmonieusement vos facultés de rationalité et"
    PRINT l$;"de merveilleux, vous serez à même de vivre avec succès tout votre"
    PRINT l$;"potentiel et de sentir l'instant où se joue l'invisible."
         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 "Il vous arrive de saisir la chance au vol.... par chance pure."
    PRINT l$;"Mais vous n'avez jamais approfondi cette faculté, sans doute parce"
    PRINT l$;"que vous ne savez pas comment faire. Vous êtes suffisamment réceptif"
    PRINT l$;"aux choses pour les ressentir dans leur profondeur. Mais quand cela"
    PRINT l$;"arrive, vous n'y croyez pas vraiment, ou vous paniquez un peu. Pre-"
    PRINT l$;"nez plus confiance dans votre potentiel à saisir l'invisible et vous"
    PRINT l$;"y trouverez de grands succès. En jouant plus sur votre réceptivité"
    PRINT l$;"et moins sur votre rationalité, vous obtiendrez une plus grande li-"
    PRINT l$;"berté de jugement et d'action. Mais, bien sûr, ceci, dans certaines"
    PRINT l$;"situations uniquement (situations affectives ou intérieures, par"
    PRINT l$;"exemple, et à éviter dans le monde du travail et du social)."
         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 "Votre rationalité domine nettement votre réceptivité. C'est"
    PRINT l$;"pourquoi vous n'attachez pas d'importance à l'invisible. Le hasard,"
    PRINT l$;"la chance à saisir, vous vous en méfiez plutôt. Vous préférez agir"
    PRINT l$;"par votre libre-arbitre, en ne laissant rien au hasard. C'est d'ail-"
    PRINT l$;"leurs un fonctionnement qui vous donne satisfaction. Mais pour le"
    PRINT l$;"plaisir de découvrir ce qui se passe si vous vous abandonnez plus à"
    PRINT l$;"votre chance,vous pouvez décider d'en faire l'expérience lorsqu'elle"
    PRINT l$;"se présente. Juste pour voir. Cela en vaut la peine car vous pourrez"
    PRINT l$;"ainsi donner une autre dimension à la connaissance de vous-même. En"
    PRINT l$;"étayant votre rationalité par l'apport de votre réceptivité, vous"
    PRINT l$;"obtiendrez une plus grande solidité qui sera pour vous un facteur"
    PRINT l$;"supplémentaire de chance."
         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, "     Consciemment ou non, vous laissez une large part à l'invisible"
    PRINT#4, "dans votre existence. Certainement doué d'une grande intuition (voir"
    PRINT#4, "le test sur l'intuition), vous sentez les choses et les événements"
    PRINT#4, "avec une perception très fine, qui dépasse le domaine du rationnel."
    PRINT#4, "Une très grande réceptivité aux événements vous permet de vous"
    PRINT#4, "« plonger » dedans et d'y recueillir des richesses de sensations et"
    PRINT#4, "de perceptions. Dans cet état intérieur très réceptif nul doute que"
    PRINT#4, "vous soyiez doué pour saisir le hasard, la chance, au vol. Des coups"
    PRINT#4, "de chance vous sont d'ailleurs offerts tout au long de votre vie. Et"
    PRINT#4, "vous savez les sentir et les utiliser. Votre façon d'être est souvent"
    PRINT#4, "perçue comme originale par votre entourage. Les autres s'aperçoivent"
    PRINT#4, "souvent que vous les voyez comme ils sont avec un regard qui sait"
    PRINT#4, "traverser les apparences pour trouver le coeur des choses. C'est "
    PRINT#4, "d'ailleurs cette faculté d'aller directement au centre des choses et"
    PRINT#4, "des situations qui vous permet de vous fier entièrement au hasard."
    PRINT#4, "     Attention cependant à ne pas exagérer ce potentiel dans un sens"
    PRINT#4, "négatif: sa caricature serait le portrait d'une personne très supers-"
    PRINT#4, "titieuse qui aurait dédié son destin aux mains d'une puissance invi-"
    PRINT#4, "sible et se laisserait balloter au gré des courants...."
    PRINT#4, "     Votre potentiel de sentir l'invisible doit quand même vous lais-"
    PRINT#4, "ser vivre aussi votre côté rationnel et logique. Car vous savez très"
    PRINT#4, "bien que le « merveilleux » n'apparaît que parfois, par hasard, et"
    PRINT#4, "que vouloir le forcer à régir toutes les situations serait très né-"
    PRINT#4, "gatif. En équilibrant harmonieusement vos facultés de rationalité et"
    PRINT#4, "de merveilleux, vous serez à même de vivre avec succès tout votre"
    PRINT#4, "potentiel et de sentir l'instant où se joue l'invisible."
    PRINT#4, :CLOSE #4
    CLS:RUN "test1"
rep2p:
    GOSUB star
    PRINT#4, "     Il vous arrive de saisir la chance au vol.... par chance pure."   
    PRINT#4, "Mais vous n'avez jamais approfondi cette faculté, sans doute parce"
    PRINT#4, "que vous ne savez pas comment faire. Vous êtes suffisamment réceptif"
    PRINT#4, "aux choses pour les ressentir dans leur profondeur. Mais quand cela"
    PRINT#4, "arrive, vous n'y croyez pas vraiment, ou vous paniquez un peu. Pre-"
    PRINT#4, "nez plus confiance dans votre potentiel à saisir l'invisible et vous"
    PRINT#4, "y trouverez de grands succès. En jouant plus sur votre réceptivité"
    PRINT#4, "et moins sur votre rationalité, vous obtiendrez une plus grande li-"
    PRINT#4, "berté de jugement et d'action. Mais, bien sûr, ceci, dans certaines"
    PRINT#4, "situations uniquement (situations affectives ou intérieures, par"
    PRINT#4, "exemple, et à éviter dans le monde du travail et du social)."
    PRINT#4, :CLOSE #4
    CLS:RUN "test1"
rep3p:
    GOSUB star
    PRINT#4, "     Votre rationalité domine nettement votre réceptivité. C'est"
    PRINT#4, "pourquoi vous n'attachez pas d'importance à l'invisible. Le hasard,"
    PRINT#4, "la chance à saisir, vous vous en méfiez plutôt. Vous préférez agir"
    PRINT#4, "par votre libre-arbitre, en ne laissant rien au hasard. C'est d'ail-"
    PRINT#4, "leurs un fonctionnement qui vous donne satisfaction. Mais pour le"
    PRINT#4, "plaisir de découvrir ce qui se passe si vous vous abandonnez plus à"
    PRINT#4, "votre chance,vous pouvez décider d'en faire l'expérience lorsqu'elle"
    PRINT#4, "se présente. Juste pour voir. Cela en vaut la peine car vous pourrez"
    PRINT#4, "ainsi donner une autre dimension à la connaissance de vous-même. En"
    PRINT#4, "étayant votre rationalité par l'apport de votre réceptivité, vous"
    PRINT#4, "obtiendrez une plus grande solidité qui sera pour vous un facteur"
    PRINT#4, "supplémentaire de chance."
    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