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'ACTION"
    sou$="------------------------"
    
    COLOR 1,2:CLS
    LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,10:PRINT "Il vous est souvent arrivé de vous demander quoi faire dans tel-"
    PRINT l$;"le situation. Votre capacité d'action est ce qui va déterminer votre"
    PRINT l$;"réussite et vous permettre de réaliser vos projets, de mener à bien"
    PRINT l$;"votre vie sociale. On vous jugera sur vos intentions. Chacun a "
    PRINT l$;"besoin de conditions particulières pour se décider à agir.
    PRINT:PRINT l$;"     Découvrez dans ce texte si vous êtes fait pour l'action immédia-"
    PRINT l$;"te ou pour une action plus réfléchie et ce qui motive votre action."
    LOCATE 20,30:PRINT "PRESSEZ UNE TOUCHE"
    CALL touch
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "1 - D'une façon générale :"
    LOCATE 10,9 :PRINT "[1] - vous prenez facilement les décisions importantes,"
    LOCATE 12,9 :PRINT "[2] - vous préférez attendre un conseil,"
    LOCATE 14,9 :PRINT "[3] - vous répugnez à prendre des décisions importantes."
    LOCATE 18,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 - Une situation d'urgence survient :"
    LOCATE 10,9 :PRINT "[1] - vous vous sentez un peu débordé,"
    LOCATE 12,9 :PRINT "[2] - vous prenez les choses en main,"
    LOCATE 14,9 :PRINT "[3] - vous étudiez rapidement la question avant d'agir."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB bca
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "3 - Quand vous devez régler un problème important :"
    LOCATE 10,9 :PRINT "[1] - vous n'appréciez pas cette situation,"
    LOCATE 12,9 :PRINT "[2] - vous le faites au mieux, sans plaisir,"
    LOCATE 14,9 :PRINT "[3] - vous vous sentez à l'aise dans cette situation."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB cba
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "4 - Dans votre vie quotidienne :"
    LOCATE 10,9 :PRINT "[1] - vous aimez un bon dosage de routine et d'imprévu,"
    LOCATE 12,9 :PRINT "[2] - vous préférez le calme par-dessus tout,"
    LOCATE 14,9 :PRINT "[3] - ce que vous préférez, c'est l'imprévu."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB cab
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "5 - Généralement, on dit de vous :"
    LOCATE 10,9 :PRINT "[1] - que vous êtes plutôt autoritaire,"
    LOCATE 12,9 :PRINT "[2] - que vous êtes parfois autoritaire,"
    LOCATE 14,9 :PRINT "[3] - que vous n'avez pas beaucoup d'autorité."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB abc
   
    CLS:LOCATE 3,7:PRINT pot$
    LOCATE 8,3  :PRINT "6 - Quand vous entrepenez quelque chose qui vous tient à coeur :"
    LOCATE 10,9 :PRINT "[1] - cela vous donne de l'entrain,"
    LOCATE 12,9 :PRINT "[2] - cela a tendance à vous angoisser,"
    LOCATE 14,9 :PRINT "[3] - vous le faites consciencieusement."
    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 - Quand vous entreprenez une action précise :"
    LOCATE 10,9 :PRINT "[1] - vous avez du mal à la mener à son terme,"
    LOCATE 12,9 :PRINT "[2] - vous la menez à son terme parce qu'il le faut,"
    LOCATE 14,9 :PRINT "[3] - vous la menez toujours à son terme."
    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 - Quand vous organisez un travail en équipe :"
    LOCATE 10,9 :PRINT "[1] - vous vous sentez très à l'aise,"
    LOCATE 12,9 :PRINT "[2] - vous vous sentez à l'aise selon les relations"
    LOCATE 13,15:PRINT "que vous avez avec les membres de l'équipe,"
    LOCATE 15,9 :PRINT "[3] - vous avez toujours des difficultés en équipe."
    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 - Pour vous, une personne d'action se juge par :"
    LOCATE 10,9 :PRINT "[1] - ses qualités de cohérence,"
    LOCATE 12,9 :PRINT "[2] - ses qualités d'efficacité,"
    LOCATE 14,9 :PRINT "[3] - ses qualités de dynamisme."
    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 êtes en train de réaliser quelque chose et un"
    LOCATE 9,8  :PRINT "impondérable survient qui interrompt votre tâche :"
    LOCATE 11,9 :PRINT "[1] - cela vous est insupportable,"
    LOCATE 13,9 :PRINT "[2] - vous prenez la chose avec philosophie,"
    LOCATE 15,9 :PRINT "[3] - vous surmontez cet état de fait, pour continuer au"
    LOCATE 16,15:PRINT "mieux votre tâche."
    LOCATE 20,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 4,10:PRINT "Vous le saviez déjà,vous êtes doué pour l'action. Elle vous gal-"
    PRINT l$;"vanise et vous fait donner le meilleur de vous-même. L'action vous "
    PRINT l$;"permet d'accomplir toutes les idées, tous les projets qui fourmillent"
    PRINT l$;"dans votre tête. C'est parce que votre imagination crée sans cesse de"
    PRINT l$;"nouveaux projets que vous passez à l'action : si vous ne concrétisiez"
    PRINT l$;"pas ces idées, vous vous sentiriez mal ans votre peau. Passer à "
    PRINT l$;"l'action est pour vous un catalysateur. C'est le facteur important"
    PRINT l$;"de votre réussite et vous ne devez surtout pas vous freiner. Conser-"
    PRINT l$;"vez cet atout important qui fait de vous un être charismatique capa-"
    PRINT l$;"ble aussi bien de grandes créations que de réalisation « de tous les"
    PRINT l$;"jours ». Une seule chose à éviter : l'obsession. Quand il vous arri-"
    PRINT l$;"ve de connaître des périodes où vous ne pouvez pas passer à l'action,"
    PRINT l$;"vous avez tendance à vous ronger. C'est dommage, car de toute façon,"
    PRINT l$;"ces périodes ne durent pas. Et pour éviter de devenir obsessionnel"
    PRINT l$;"quand vous manquez d'action, vous devriez toujours profiter de ces"
    PRINT l$;"moments de répit, sachant qu'ils ne dureront pas. Et découvrir dans"
    PRINT l$;"ces temps de repos les joies de l'inaction."
    PRINT:PRINT l$;"     Faites à ce propos le test sur la non-action pour voir comment"
    PRINT l$;"vous équilibrez les tendances action-inaction."
            PRINT:PRINT TAB(15) "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 "Votre potentiel d'action est important, mais vous avez besoin"
    PRINT l$;"d'un certain nombre de choses pour le vivre pleinement : vous devez"
    PRINT l$;"vous sentir en forme, vous devez apprécier les personnes avec les-"
    PRINT l$;"quelles vous travaillez, vous devez être motivé pour agir... bref,"
    PRINT l$;"ce n'est pas si simple que cela ! Cependant, quand les conditions"
    PRINT l$;"sont réunies, vous êtes remarquable dans l'action car vous procédez"
    PRINT l$;"avec beaucoup de clarté et d'ordre. Votre force dans l'action réside"
    PRINT l$;"dans votre grande faculté d'organiser les éléments de votre action."
    PRINT l$;"Vous ne vous lancez pas tête baissée,vous savez ordonner,clarifier,"
    PRINT l$;"puis donner l'impulsion qui mène à une action réussie."
    PRINT l$;"     Vous avez donc un bon équilibre dans votre potentiel d'action,"
    PRINT l$;"équilibre qui se joue entre la réflexion et la mise en oeuvre. Si"
    PRINT l$;"vous vous appliquez à tenir moins compte des conditions dans les-"
    PRINT l$;"quelles vous devez agir, vous pouvez améliorer parfaitement votre"
    PRINT l$;"potentiel d'action."
    PRINT:PRINT l$;"     Faites le test sur l'organisation qui est pour vous la contre-"
    PRINT l$;"partie de celui-ci."
            PRINT:PRINT TAB(15) "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 utilisez moins votre potentiel d'action que vous le pour-"
    PRINT l$;"riez. Prenant du recul, vous voulez voir les choses d'une manière "
    PRINT l$;"large, étendue, avant d'agir. Vous retardez donc souvent le moment"
    PRINT l$;"de passer à l'acte, peut-être parce que vous avez peur de faire des"
    PRINT l$;"bêtises en agissant avec rapidité."
    PRINT:PRINT l$;"     Vous auriez intérêt à activer votre rythme lorsque les circon-"
    PRINT l$;"stances vous obligent à l'action, quitte à le ralentir lorsque vous"
    PRINT l$;"n'avez pas besoin d'être prompt. En comprenant mieux votre rythme,"
    PRINT l$;"vous actualiserez mieux votre potentiel d'action."
    PRINT:PRINT l$;"     Faites les tests sur le potentiel de récupération pour compren-"
    PRINT l$;"dre plus exhaustivement votre mode de fonctionnement à ce propos."
            PRINT:PRINT:PRINT TAB(15) "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 le saviez déjà,vous êtes doué pour l'action. Elle vous gal-"
    PRINT#4, "vanise et vous fait donner le meilleur de vous-même. L'action vous "
    PRINT#4, "permet d'accomplir toutes les idées, tous les projets qui fourmillent"
    PRINT#4, "dans votre tête. C'est parce que votre imagination crée sans cesse de"
    PRINT#4, "nouveaux projets que vous passez à l'action : si vous ne concrétisiez"
    PRINT#4, "pas ces idées, vous vous sentiriez mal ans votre peau. Passer à "
    PRINT#4, "l'action est pour vous un catalysateur. C'est le facteur important"
    PRINT#4, "de votre réussite et vous ne devez surtout pas vous freiner. Conser-"
    PRINT#4, "vez cet atout important qui fait de vous un être charismatique capa-"
    PRINT#4, "ble aussi bien de grandes créations que de réalisation « de tous les"
    PRINT#4, "jours ». Une seule chose à éviter : l'obsession. Quand il vous arri-"
    PRINT#4, "ve de connaître des périodes où vous ne pouvez pas passer à l'action,"
    PRINT#4, "vous avez tendance à vous ronger. C'est dommage, car de toute façon,"
    PRINT#4, "ces périodes ne durent pas. Et pour éviter de devenir obsessionnel"
    PRINT#4, "quand vous manquez d'action, vous devriez toujours profiter de ces"
    PRINT#4, "moments de répit, sachant qu'ils ne dureront pas. Et découvrir dans"
    PRINT#4, "ces temps de repos les joies de l'inaction."
    PRINT#4, "     Faites à ce propos le test sur la non-action pour voir comment"
    PRINT#4, "vous équilibrez les tendances action-inaction."
    PRINT#4, :CLOSE #4
    CLS:RUN "test1"
rep2p:
    GOSUB star
    PRINT#4, "     Votre potentiel d'action est important, mais vous avez besoin"
    PRINT#4, "d'un certain nombre de choses pour le vivre pleinement : vous devez"
    PRINT#4, "vous sentir en forme, vous devez apprécier les personnes avec les-"
    PRINT#4, "quelles vous travaillez, vous devez être motivé pour agir... bref,"
    PRINT#4, "ce n'est pas si simple que cela ! Cependant, quand les conditions"
    PRINT#4, "sont réunies, vous êtes remarquable dans l'action car vous procédez"
    PRINT#4, "avec beaucoup de clarté et d'ordre. Votre force dans l'action réside"
    PRINT#4, "dans votre grande faculté d'organiser les éléments de votre action."
    PRINT#4, "Vous ne vous lancez pas tête baissée,vous savez ordonner,clarifier,"
    PRINT#4, "puis donner l'impulsion qui mène à une action réussie."
    PRINT#4, "     Vous avez donc un bon équilibre dans votre potentiel d'action,"
    PRINT#4, "équilibre qui se joue entre la réflexion et la mise en oeuvre. Si"
    PRINT#4, "vous vous appliquez à tenir moins compte des conditions dans les-"
    PRINT#4, "quelles vous devez agir, vous pouvez améliorer parfaitement votre"
    PRINT#4, "potentiel d'action."
    PRINT#4, "     Faites le test sur l'organisation qui est pour vous la contre-"
    PRINT#4, "partie de celui-ci."
    PRINT#4, :CLOSE #4
    CLS:RUN "test1"
rep3p:
    GOSUB star
    PRINT#4, "     Vous utilisez moins votre potentiel d'action que vous le pour-"
    PRINT#4, "riez. Prenant du recul, vous voulez voir les choses d'une manière "
    PRINT#4, "large, étendue, avant d'agir. Vous retardez donc souvent le moment"
    PRINT#4, "de passer à l'acte, peut-être parce que vous avez peur de faire des"
    PRINT#4, "bêtises en agissant avec rapidité."
    PRINT#4, "     Vous auriez intérêt à activer votre rythme lorsque les circon-"
    PRINT#4, "stances vous obligent à l'action, quitte à le ralentir lorsque vous"
    PRINT#4, "n'avez pas besoin d'être prompt. En comprenant mieux votre rythme,"
    PRINT#4, "vous actualiserez mieux votre potentiel d'action."
    PRINT#4, "     Faites les tests sur le potentiel de récupération pour compren-"
    PRINT#4, "dre plus exhaustivement votre mode de fonctionnement à ce propos."
    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