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 RECHERCHE"
    sou$="----------------------------"
    
    COLOR 1,2:CLS
    LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,10:PRINT "Est-ce que vous vous posez des questions sur votre vie ? sur vos"
    PRINT l$;"motivations ? Etes-vous quelqu'un qui cherche ? ou bien pensez-vous"
    PRINT l$;"que la vie est une suite de moments à passer le mieux possible et"
    PRINT l$;"que les grandes idées philosophiques n'ont jamais changé le monde ?"
    PRINT:PRINT l$;"     Nous évoluons entre ces deux extêmes,suivant les circonstances,"
    PRINT l$;"plus ou moins tentés par l'une ou l'autre de ces attitudes."
    PRINT:PRINT l$;"     Situez-vous grâce aux questions de ce test."
    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 achetez un objet :"
    LOCATE 10,9 :PRINT "[1] - vous avez besoin d'en comprendre le principe et vous"
    LOCATE 11,15:PRINT "avez envie de le démonter,"
    LOCATE 13,9 :PRINT "[2] - vous vous attachez plutôt à l'esthétique de l'objet,"
    LOCATE 15,9 :PRINT "[3] - vous êtes surtout intéressé par son utilité."
    LOCATE 19,15:PRINT tou$
    GOSUB touche
    a=0:b=0:c=0:GOSUB acb
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "2 - Lorsque vous faites le point sur une situation qui vous pose"
    LOCATE 9,7  :PRINT "problème :"
    LOCATE 11,9 :PRINT "[1] - vous cherchez à comprendre vos motivations profondes"
    LOCATE 12,15:PRINT "ainsi que celles de vos interlocuteurs,"
    LOCATE 14,9 :PRINT "[2] - vous pensez que le plus important est de sortir de"
    LOCATE 15,15:PRINT "cette situation quelles que soient les raisons pour"
    LOCATE 16,15:PRINT "lesquelles elle s'est produite,"
    LOCATE 18,9 :PRINT "[3] - quand vous pensez à la situation vous êtes complètement"
    LOCATE 19,15:PRINT "submergé par vos émotions."
    LOCATE 23,15:PRINT tou$
    GOSUB touche:GOSUB abc
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "3 - Lorsqu'il vous arrive de penser à la place de l'homme"
    LOCATE 9,7  :PRINT "dans le monde, vous considérez :"
    LOCATE 11,9 :PRINT "[1] - que c'est un problème sans importance,"
    LOCATE 13,9 :PRINT "[2] - que chacun a son destin,"
    LOCATE 15,9 :PRINT "[3] - que chercher pourquoi vous êtes sur terre peut"
    LOCATE 16,15:PRINT "changer votre vie."
    LOCATE 20,15:PRINT tou$
    GOSUB touche:GOSUB cba
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "4 - Dans une soirée avec des amis, ceux-ci commencent à"
    LOCATE 9,7  :PRINT "refaire le monde :"
    LOCATE 11,9 :PRINT "[1] - vous êtes le premier à y participer,"
    LOCATE 13,9 :PRINT "[2] - vous allez vous préparer un cocktail à la cuisine,"
    LOCATE 15,9 :PRINT "[3] - vous les écoutez en attendant que cela se passe."
    LOCATE 19,15:PRINT tou$
    GOSUB touche:GOSUB acb
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "5 - Lorsque vous écrivez :"
    LOCATE 10,9 :PRINT "[1] - vous êtes attentif à trouver le mot et la tournure juste"
    LOCATE 11,15:PRINT "qui exprimerait parfaitement ce que vous voulez dire,"
    LOCATE 13,9 :PRINT "[2] - vous vous attachez surtout à rendre une impression,"
    LOCATE 15,9 :PRINT "[3] - vous écrivez le minimum nécessaire."
    LOCATE 19,15:PRINT tou$
    GOSUB touche:GOSUB abc
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "6 - Vous êtes passionné :"
    LOCATE 10,9 :PRINT "[1] - par les jeux de recherche intellectuelle (échecs-jeu de go),"
    LOCATE 12,9 :PRINT "[2] - par les jeux qui impliquent une communication (cartes),"
    LOCATE 14,9 :PRINT "[3] - par le sport."
    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 - Lorsque vous allez au spectacle, vous vous intéressez :"
    LOCATE 10,9 :PRINT "[1] - à la psychologie des acteurs ou des personnages,"
    LOCATE 12,9 :PRINT "[2] - vous cherchez à passer une bonne soirée loin de"
    LOCATE 13,15:PRINT "vos préoccupations quotidiennes,"
    LOCATE 15,9 :PRINT "[3] - vous avez auparavant lu les critiques et vous vous"
    LOCATE 16,15:PRINT "êtes documenté sur la pièce."
    LOCATE 20,15:PRINT tou$
    GOSUB touche:GOSUB cab

    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "8 - Lorsque vous allez au restaurant :"
    LOCATE 10,9 :PRINT "[1] - vous avez des idées pour améliorer les plats,"
    LOCATE 12,9 :PRINT "[2] - vous êtes content de passer une soirée entre amis,"
    LOCATE 14,9 :PRINT "[3] - vous trouvez beaucoup de plaisir à manger."
    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 - Vous pensez que la psychanalyse est :"
    LOCATE 10,9 :PRINT "[1] - une masturbation intellectuelle,"
    LOCATE 12,9 :PRINT "[2] - une recherche des causes de notre comportement,"
    LOCATE 14,9 :PRINT "[3] - un métier où les gens gagnent beaucoup d'argent."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB bca

    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "10 - Vous vous sentez plutôt :"
    LOCATE 10,9 :PRINT "[1] - scientifique,"
    LOCATE 12,9 :PRINT "[2] - artiste,"
    LOCATE 14,9 :PRINT "[3] - quelqu'un préoccupé par des problèmes pratiques."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB abc
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "11 - Pour vous le corps humain est :"
    LOCATE 10,9 :PRINT "[1] - un instrument à utiliser au mieux,"
    LOCATE 12,9 :PRINT "[2] - une merveilleuse machine qui suscite votre admiration,"
    LOCATE 14,9 :PRINT "[3] - une enveloppe de l'âme."
    LOCATE 18,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 faites partie des gens dont on dit qu'ils ne sont pas sa-"
    PRINT l$;"tisfaits de leur sort, vous aimez comprendre le fond des choses et"
    PRINT l$;"pour vous la vie et les événements doivent avoir un sens. Poussée à"
    PRINT l$;"son extrême, cette tendance positive qui vous rend passionnant dans"
    PRINT l$;"les échanges et les conversations peut être une fuite de l'action."
    PRINT l$;"Soyez attentif à ce qu'elle ne vous empêche pas de profiter de la"
    PRINT l$;"vie en sachant que toute explication aussi poussée soit-elle, sur-"
    PRINT l$;"tout dans le domaine psychologique, scientifique ou philosophique,"
    PRINT l$;"est toujours provisoire et partielle."
    PRINT:PRINT l$;"     Faites le test sur votre potentiel d'action qui, pour vous, est"
    PRINT l$;"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 avez une position intermédiaire, certains sujets déclen-"
    PRINT l$;"chent votre interrogation, d'autres pas. Vous pensez qu'il y a des"
    PRINT l$;"explications bien inutiles pour certains problèmes insolubles et des"
    PRINT l$;"circonstances où il faut être bien pratique. Cependant, vous aimez"
    PRINT l$;"aussi comprendre le sens des choses."
    PRINT:PRINT l$;"     Pour mieux approfondir le problème, faites les tests sur votre"
    PRINT l$;"potentiel d'action et de spiritualité qui sont, pour vous, complé-"
    PRINT l$;"mentaire 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 surtout le sens pratique et vous savez profiter de la"
    PRINT l$;"vie et de ce qu'elle vous offre sans avoir besoin d'explications, de"
    PRINT l$;"discussions. Mais au fond de vous-même, n'êtes-vous vraiment pas in-"
    PRINT l$;"téressé à comprendre vos motivations, si cela ne nuit pas à votre "
    PRINT l$;"dynamisme et à votre esprit de décision ? Poussé à l'extrême, un "
    PRINT l$;"manque d'interrogation peut vous enfermer dans une vie dépourvue de"
    PRINT l$;"signification."
    PRINT:PRINT l$;"     Faites les tests sur votre potentiel de spiritualité et de vi-"
    PRINT l$;"vre vos impressions qui sont pour vous complémentaires 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 faites partie des gens dont on dit qu'ils ne sont pas sa-"
    PRINT#4, "tisfaits de leur sort, vous aimez comprendre le fond des choses et"
    PRINT#4, "pour vous la vie et les événements doivent avoir un sens. Poussée à"
    PRINT#4, "son extrême, cette tendance positive qui vous rend passionnant dans"
    PRINT#4, "les échanges et les conversations peut être une fuite de l'action."
    PRINT#4, "Soyez attentif à ce qu'elle ne vous empêche pas de profiter de la"
    PRINT#4, "vie en sachant que toute explication aussi poussée soit-elle, sur-"
    PRINT$4, "tout dans le domaine psychologique, scientifique ou philosophique,"
    PRINT#4, "est toujours provisoire et partielle."
    PRINT#4, "     Faites le test sur votre potentiel d'action qui, pour vous, est"
    PRINT#4, "complémentaire de celui-là."
    PRINT#4, :CLOSE #4
    CLS:RUN "test1"
rep2p:
    GOSUB star
    PRINT#4, :PRINT#4, l$;"Vous avez une position intermédiaire, certains sujets déclen-"   
    PRINT#4, "chent votre interrogation, d'autres pas. Vous pensez qu'il y a des"
    PRINT#4, "explications bien inutiles pour certains problèmes insolubles et des"
    PRINT#4, "circonstances où il faut être bien pratique. Cependant, vous aimez"
    PRINT#4, "aussi comprendre le sens des choses."
    PRINT#4, "     Pour mieux approfondir le problème, faites les tests sur votre"
    PRINT#4, "potentiel d'action et de spiritualité qui sont, pour vous, complé-"
    PRINT#4, "mentaire de celui-là."
    PRINT#4, :CLOSE #4
    CLS:RUN "test1"
rep3p:
    GOSUB star
    PRINT#4, :PRINT#4, l$;"Vous avez surtout le sens pratique et vous savez profiter de la"
    PRINT#4, "vie et de ce qu'elle vous offre sans avoir besoin d'explications, de"
    PRINT#4, "discussions. Mais au fond de vous-même, n'êtes-vous vraiment pas in-"
    PRINT#4, "téressé à comprendre vos motivations, si cela ne nuit pas à votre "
    PRINT#4, "dynamisme et à votre esprit de décision ? Poussé à l'extrême, un "
    PRINT#4, "manque d'interrogation peut vous enfermer dans une vie dépourvue de"
    PRINT#4, "signification."
    PRINT#4, "     Faites les tests sur votre potentiel de spiritualité et de vi-"
    PRINT#4, "vre vos impressions qui sont pour vous complémentaires 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