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 RECUPERATION"
    sou$="-------------------------------"
    
    COLOR 1,2:CLS
    LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,10:PRINT "La vie a un rythme, les jours et les nuits se succèdent. Tout "
    PRINT l$;"être vivant a lui aussi un rythme. Des moments pour agir, des moments"
    PRINT l$;"pour se détendre. Etes-vous conscient du moment où il vous faut récu-"
    PRINT l$;"pérer, connaissez-vous vos moyens privilégiés de vous recharger au"
    PRINT l$;"physique comme au moral, êtes-vous capable, lorsque vous êtes pris"
    PRINT l$;"dans la dynamique d'une situation, de vous arrêter pour faire le"
    PRINT l$;"point ? Bref, connaissez-vous votre rythme ? Voilà ce que vous dira"
    PRINT l$;"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 - Après un voyage de six heures d'avion, vous arrivez"
    LOCATE 9,7  :PRINT "sur un autre continent, dans une ville inconnue :"
    LOCATE 11,9 :PRINT "[1] - votre seul désir est d'abord de dormir pour récupérer,"
    LOCATE 13,9 :PRINT "[2] - vous vous rafraîchissez, puis vous partez tout de"
    LOCATE 14,15:PRINT "suite explorer la ville,"
    LOCATE 16,9 :PRINT "[3] - vous avez besoin d'un somme de 2 ou 3 heures avant"
    LOCATE 17,15:PRINT "d'avoir envie de sortir."
    LOCATE 21,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 - Après un effort physique, que se passe-t-il ?"
    LOCATE 10,9 :PRINT "[1] - vous en redemandez en prétextant que c'est bon pour vous,"
    LOCATE 12,9 :PRINT "[2] - vous vous ménagez un temps de repos pour repartir ensuite"
    LOCATE 13,15:PRINT "du bon pied,"
    LOCATE 15,9 :PRINT "[3] - vous vous écroulez et ne bougez plus de la journée."
    LOCATE 19,15:PRINT tou$
    GOSUB touche:GOSUB acb
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "3 - Quelles sont vos meilleures heures de sommeil ?"
    LOCATE 10,9 :PRINT "[1] - avant minuit,"
    LOCATE 12,9 :PRINT "[2] - après minuit,"
    LOCATE 14,9 :PRINT "[3] - sans opinion."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB bac
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "4 - Au cours de la journée, si vous êtes fatigué, quel est votre"
    LOCATE 9,7  :PRINT "meilleur moyen de récupérer :"
    LOCATE 11,9 :PRINT "[1] - une cigarette ou un café ?"
    LOCATE 13,9 :PRINT "[2] - un brin de toilette, de l'eau fraîche ?"
    LOCATE 15,9 :PRINT "[3] - vous attendez avec impatience le moment de vous mettre au lit,"
    LOCATE 16,15:PRINT "ne connaissant aucun « truc » susceptible de vous aider ?"
    LOCATE 20,15:PRINT tou$
    GOSUB touche:GOSUB bca
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "5 - Est-ce que le manque de sommeil vous incite à :"
    LOCATE 10,9 :PRINT "[1] - manger plus que d'habitude ?"
    LOCATE 12,9 :PRINT "[2] - piquer du nez irrésistiblement ?"
    LOCATE 14,9 :PRINT "[3] - vous bourrer de café ?"
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB cba
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "6 - Si vous pouvez choisir un rythme de travail parfaitement"
    LOCATE 9,7  :PRINT "adapté à vos besoins, que choisiriez-vous ?"
    LOCATE 11,9 :PRINT "[1] - travailler  8 heures par jour en ayant le week-end libre ?"
    LOCATE 13,9 :PRINT "[2] - travailler 10 heures par jour pendant 4 jours, en ayant"
    LOCATE 14,15:PRINT "trois jours de repos ?"
    LOCATE 16,9 :PRINT "[3] - travailler occasionnellement, avec intensité ?"
    LOCATE 20,15:PRINT tou$
    GOSUB touche:GOSUB cab
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "7 - Si vous devez fournir un effort exceptionnel pendant"
    LOCATE 9,7  :PRINT "quelques jours, quelle est votre réaction ?
    LOCATE 11,9 :PRINT "[1] - vous faites une mise en forme préliminaire,"
    LOCATE 13,9 :PRINT "[2] - vous foncez tête baissée en étant sûr que vous"
    LOCATE 14,15:PRINT "tiendrez le coup,"
    LOCATE 16,9 :PRINT "[3] - vous vous reposez en prévision de cet effort."
    LOCATE 20,15:PRINT tou$
    GOSUB touche:GOSUB bca

    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "8 - Quel est pour vous le meilleur moyen de vous détendre ?"
    LOCATE 10,9 :PRINT "[1] - prendre un bon livre, seul dans votre chambre,"
    LOCATE 12,9 :PRINT "[2] - vous entourer d'amis agréables,"
    LOCATE 14,9 :PRINT "[3] - vous éclater physiquement dans un sport."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB cab
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "9 - Lorsque vous vous sentez déprimé :"
    LOCATE 10,9 :PRINT "[1] - vous prenez sur vous en vous efforçant d'augmenter"
    LOCATE 11,15:PRINT "vos cadences ?"
    LOCATE 13,9 :PRINT "[2] - vous vous laissez aller ?"
    LOCATE 15,9 :PRINT "[3] - vous continuez comme si de rien n'était."
    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 - Eprouvez-vous souvent le besoin de couper le contact avec"
    LOCATE 9,7  :PRINT "le monde extérieur :"
    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 bac
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "10 - Si vous êtes dans une foule, pouvez-vous :"
    LOCATE 10,9 :PRINT "[1] - vous abstraire facilement du monde qui vous entoure ?"
    LOCATE 12,9 :PRINT "[2] - vous vous mêlez à la foule, faisant corps ?"
    LOCATE 14,9 :PRINT "[3] - vous n'aimez pas la foule ?"
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB bca
    
    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 rythme lent et vous avez besoin de « souffler »"
    PRINT l$;"après un effort pour vous retrouver."
    PRINT:PRINT l$;"     Si vous devez fournir des efforts d'une façon intense et conti-"
    PRINT l$;"nue, vous constatez des baisses de vitalité, une fatigue brusque qui"
    PRINT l$;"s'installe, coupant vos moyens. Vous êtes aussi résistant qu'un au-"
    PRINT l$;"tre, mais vous avez besoin de savoir  vous ménager ne serait-ce que"
    PRINT l$;"quelques minutes de détente dès que vous sentez la fatigue."
    PRINT:PRINT l$;"     Si vous savez accepter cette détente, vous pouvez repartir en-"
    PRINT l$;"suite avec énergie et tenir le coup très longtemps. Veillez donc à"
    PRINT l$;"écouter mieux ce que dicte votre corps, et ne croyez pas que c'est"
    PRINT l$;"de la paresse. Au contraire. Pour fonctionnr au mieux de vos possi-"
    PRINT l$;"bilités, vous avez besoin de périodes de calme, de solitude, d'ar-"
    PRINT l$;"rêt, car c'est là que vous puisez votre énergie."
    PRINT:PRINT l$;"     Faites tout spécialement le test sur votre potentiel d'écoute"
    PRINT l$;"de vous même."
         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 récupérez très vite et vous pouvez fournir un effort"
    PRINT l$;"prolongé et intense sans problème. Vous êtes actif et n'aimez"
    PRINT l$;"pas « traîner »."
    PRINT:PRINT l$;"     Mais vous avez tendance à forcer et à en faire trop. Car vous"
    PRINT l$;"supportez mal de ressentir la fatigue, même lorsque celle-ci est"
    PRINT l$;"tout à fait légitime après tout l'effort que vous avez fourni."
    PRINT l$;"Acceptez vos besoins de repos sans être contrarié. Ils vous sont"
    PRINT l$;"nécessaires car si vous refusez de vous détendre, vous êtes ensuite"
    PRINT l$;"sujet à de brusques fatigues, qui ne sont que la manifestation de"
    PRINT l$;"votre corps surmené."
    PRINT:PRINT l$;"     Regardez attentivement le test sur votre potentiel de non-"
    PRINT l$;"action."
         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 une force de la nature et vous récupérez à la vitesse"
    PRINT l$;"grand V. L'oisiveté vous fatigue plus que le travail. C'est dans "
    PRINT l$;"l'action que vous puisez vos sources d'énergie. C'est pourquoi la "
    PRINT l$;"récupération se fait naturellement en vous, sans même que vous y"
    PRINT l$;"pensiez. Un stimuli extérieur (nouveauté, travail imprévu, gens à"
    PRINT l$;"découvrir, pays à explorer, etc.) vous donne du tonus. Si vous sa-"
    PRINT l$;"vez vous écouter, vous pouvez continuer longtemps sur votre lancée."
    PRINT l$;"Vous êtes de ces personnes rares auxquelles on peut conseiller de"
    PRINT l$;"ne jamais se forcer à se reposer. Au contraire, vous devez suivre"
    PRINT l$;"ce que votre instinct vous dicte pour retrouver vos forces."
    PRINT l$;"Et si votre façon de récupérer passe par des moyens habituels"
    PRINT l$;"(peut-être qu'une soirée de fête ou un 1000 m en jogging sont"
    PRINT l$;"excellents pour récupérer après une dure journée), ne la modi-"
    PRINT l$;"fiez pas : dans la mesure où vous êtes persuadé qu'elle vous "
    PRINT l$;"convient, c'est qu'elle est bonne pour vous."
         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 avez un rythme lent et vous avez besoin de « souffler »"
    PRINT#4, "après un effort pour vous retrouver."
    PRINT#4, "     Si vous devez fournir des efforts d'une façon intense et conti-"
    PRINT#4, "nue, vous constatez des baisses de vitalité, une fatigue brusque qui"
    PRINT#4, "s'installe, coupant vos moyens. Vous êtes aussi résistant qu'un au-"
    PRINT#4, "tre, mais vous avez besoin de savoir  vous ménager ne serait-ce que"
    PRINT#4, "quelques minutes de détente dès que vous sentez la fatigue."
    PRINT#4, "     Si vous savez accepter cette détente, vous pouvez repartir en-"
    PRINT#4, "suite avec énergie et tenir le coup très longtemps. Veillez donc à"
    PRINT#4, "écouter mieux ce que dicte votre corps, et ne croyez pas que c'est"
    PRINT#4, "de la paresse. Au contraire. Pour fonctionnr au mieux de vos possi-"
    PRINT#4, "bilités, vous avez besoin de périodes de calme, de solitude, d'ar-"
    PRINT#4, "rêt, car c'est là que vous puisez votre énergie."
    PRINT#4, "     Faites tout spécialement le test sur votre potentiel d'écoute"
    PRINT#4, "de vous même."
    PRINT#4, :CLOSE #4
    CLS:RUN "test1"
rep2p:
    GOSUB star
    PRINT#4, "     Vous récupérez très vite et vous pouvez fournir un effort"   
    PRINT#4, "prolongé et intense sans problème. Vous êtes actif et n'aimez"
    PRINT#4, "pas « traîner »."
    PRINT#4, "     Mais vous avez tendance à forcer et à en faire trop. Car vous"
    PRINT#4, "supportez mal de ressentir la fatigue, même lorsque celle-ci est"
    PRINT#4, "tout à fait légitime après tout l'effort que vous avez fourni."
    PRINT#4, "Acceptez vos besoins de repos sans être contrarié. Ils vous sont"
    PRINT#4, "nécessaires car si vous refusez de vous détendre, vous êtes ensuite"
    PRINT#4, "sujet à de brusques fatigues, qui ne sont que la manifestation de"
    PRINT#4, "votre corps surmené."
    PRINT#4, "     Regardez attentivement le test sur votre potentiel de non-"
    PRINT#4, "action."
    PRINT#4, :CLOSE #4
    CLS:RUN "test1"
rep3p:
    GOSUB star
    PRINT#4, "     Vous êtes une force de la nature et vous récupérez à la vitesse"
    PRINT#4, "grand V. L'oisiveté vous fatigue plus que le travail. C'est dans "
    PRINT#4, "l'action que vous puisez vos sources d'énergie. C'est pourquoi la "
    PRINT#4, "récupération se fait naturellement en vous, sans même que vous y"
    PRINT#4, "pensiez. Un stimuli extérieur (nouveauté, travail imprévu, gens à"
    PRINT#4, "découvrir, pays à explorer, etc.) vous donne du tonus. Si vous sa-"
    PRINT#4, "vez vous écouter, vous pouvez continuer longtemps sur votre lancée."
    PRINT#4, "Vous êtes de ces personnes rares auxquelles on peut conseiller de"
    PRINT#4, "ne jamais se forcer à se reposer. Au contraire, vous devez suivre"
    PRINT#4, "ce que votre instinct vous dicte pour retrouver vos forces."
    PRINT#4, "Et si votre façon de récupérer passe par des moyens habituels"
    PRINT#4, "(peut-être qu'une soirée de fête ou un 1000 m en jogging sont"
    PRINT#4, "excellents pour récupérer après une dure journée), ne la modi-"
    PRINT#4, "fiez pas : dans la mesure où vous êtes persuadé qu'elle vous "
    PRINT#4, "convient, c'est qu'elle est bonne pour vous."
    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