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'HUMOUR"
    sou$="------------------------"
    
    COLOR 1,2:CLS
    LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,10:PRINT "L'humour peut être un moyen de se sortir de bien des situations."
    PRINT l$;"Une provocation, ou le désir de rire avec les autres de l'absurde"
    PRINT l$;"d'une situation. Il peut être noir ou rose, chacun a sa forme d'hu-"
    PRINT l$;"mour et n'apprécie pas toujours celle des autres."
    PRINT:PRINT l$;"     Dans ce test, vous découvrirez comment vous exercez votre hu-"
    PRINT l$;"mour et à quoi il vous sert et aussi si vous en manquez !...."
    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 - Des amis vous invitent à dîner. Quand vous arrivez, rien n'est prêt :"
    LOCATE 10,9 :PRINT "[1] - vous riez et mettez la main à la pâte,"
    LOCATE 12,9 :PRINT "[2] - vous riez un peu jaune, et vous les aidez par politesse,"
    LOCATE 14,9 :PRINT "[3] - vous avez du mal à dissimuler votre mécontentement."
    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 - Votre première réaction quand vous arrivez à un magasin et que"
    LOCATE 9,7  :PRINT "vous trouvez porte close :"
    LOCATE 11,9 :PRINT "[1] - la colère,"
    LOCATE 13,9 :PRINT "[2] - le découragement,"
    LOCATE 15,9 :PRINT "[3] - ce n'est pas si grave, après tout."
    LOCATE 19,15:PRINT tou$
    GOSUB touche:GOSUB cba
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "3 - On vous fait une scène de jalousie :"
    LOCATE 10,9 :PRINT "[1] - vous êtes très remué,"
    LOCATE 12,9 :PRINT "[2] - vous vous sentez mal à l'aise,"
    LOCATE 14,9 :PRINT "[3] - vous trouvez cela ridicule."
    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 - Attachez-vous beaucoup d'importance à votre prestige ?"
    LOCATE 10,9 :PRINT "[1] - oui,"
    LOCATE 12,9 :PRINT "[2] - à la réflexion, oui,"
    LOCATE 14,9 :PRINT "[3] - quand c'est nécessaire."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB cba
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "5 - Une bévue est commise au bureau, on discute pour savoir qui"
    LOCATE 9,7  :PRINT "en est le principal responsable. Votre première réaction :"
    LOCATE 11,9 :PRINT "[1] - « on ne peut vraiment compter sur personne...»,"
    LOCATE 13,9 :PRINT "[2] - « tout ceci est très ennuyeux, qu'allons-nous faire ? »,"
    LOCATE 15,9 :PRINT "[3] - « pas de panique, tout va s'arranger...»"
    LOCATE 19,15:PRINT tou$
    GOSUB touche:GOSUB cba
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "6 - Pour vous séduire, qu'est-ce qui marche le mieux ?"
    LOCATE 10,9 :PRINT "[1] - vous parler de problèmes profonds,"
    LOCATE 12,9 :PRINT "[2] - vous sécuriser,"
    LOCATE 14,9 :PRINT "[3] - vous faire rire."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB cba
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "7 - Pour vous, la routine c'est :"
    LOCATE 10,9 :PRINT "[1] - l'horreur,"
    LOCATE 12,9 :PRINT "[2] - une réalité difficile qu'on peut agrémenter,"
    LOCATE 14,9 :PRINT "[3] - une nécessité qui peut être satisfaisante."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB bca

    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "8 - Pour vous, l'imprévu c'est :"
    LOCATE 10,9 :PRINT "[1] - inquiétant,"
    LOCATE 12,9 :PRINT "[2] - excitant,"
    LOCATE 14,9 :PRINT "[3] - inévitable."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB bca
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "9 - Pour votre anniversaire, vous préférez :"
    LOCATE 10,9 :PRINT "[1] - que l'on vous demande ce que vous désirez,"
    LOCATE 12,9 :PRINT "[2] - un cadeau utile,"
    LOCATE 14,9 :PRINT "[3] - une surprise."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB cba

    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "10 - Vous avez préparé chez vous un dîner « d'amoureux ». Il ou elle"
    LOCATE 9,8  :PRINT "arrive avec une heure de retard :"
    LOCATE 11,9 :PRINT "[1] - vous boudez,"
    LOCATE 13,9 :PRINT "[2] - magnanime, vous pardonnez après une longue explication,"
    LOCATE 15,9 :PRINT "[3] - vous dites en riant :« juste au moment ou le programme"
    LOCATE 16,15:PRINT "de TV commençait à devenir intéressant."
    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 5,10:PRINT "Vous êtes doué d'un solide sens de l'humour qui vous permet de"
    PRINT l$;"vous tirer élégamment de nombreuses situations difficiles. Vous avez"
    PRINT l$;"su, au cours de votre existence, prendre une distance suffisante"
    PRINT l$;"avec vos émotions. Cette distance vous permet une grande mobilité de"
    PRINT l$;"comportement. Et vous avez parfois des réactions qui semblent impré-"
    PRINT l$;"visibles, pour les autres, alors que pour vous, elles sont simple-"
    PRINT l$;"ment le résultat d'une logique intérieure évidente."
    PRINT l$;"     Vous menez votre vie avec humour, et cela vous réussit très"
    PRINT l$;"bien."
    PRINT l$;"     Prenez garde, toutefois, à ne pas trop vous éloigner de vous-"
    PRINT l$;"même, c'est-à-dire de vos instincts profonds. Trop d'humour peut"
    PRINT l$;"aussi être le signe d'une émotivité trop forte que l'on masque sous"
    PRINT l$;"un glacis de protection. Et si votre sens de l'humour fait la joie"
    PRINT l$;"de vos amis, veillez à ne pas trop faire de l'humour sur votre pro-"
    PRINT l$;"pre problème."
    PRINT l$;"     Comparez ce test avec ceux sur votre potentiel d'écoute de"
    PRINT l$;"vous-même et de maîtrise émotionnelle qui, pour vous, sont les com-"
    PRINT l$;"plémentaires 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 "Vous avez peu à peu appris, souvent au prix de durs efforts à"
    PRINT l$;"acquérir un certain sens de l'humour. Mais celui-ci n'est jamais to-"
    PRINT l$;"talement spontané, sauf dans quelques cas. Votre nature profonde"
    PRINT l$;"n'est pas forcément encline à l'humour. Par contre, votre personnage"
    PRINT l$;"social est capable d'humour. L'humour est pour vous un excellent"
    PRINT l$;"contrôle de vos impulsions, même si parfois celles-ci prennent le"
    PRINT l$;"pas sur lui. Mais il y a souvent une légère crispation en vous lors-"
    PRINT l$;"que vous êtes en état « d'humour »."
    PRINT l$;"     Vous pourriez développer votre potentiel d'humour d'une manière"
    PRINT l$;"qui peut sembler paradoxale en ne pensant jamais à avoir de l'humour."
    PRINT l$;"En laissant faire les choses, tout naturellement, et en sentant"
    PRINT l$;"alors, de l'intérieur, comment peut se manifester votre humour dans"
    PRINT l$;"ou telle situation. Cela vous permettrait de vous détendre par rap-"
    PRINT l$;"port à votre personnage et de trouver votre véritable humour dans un"
    PRINT l$;"climat plus relaxé."
    PRINT l$;"     Comparez ce test avec celui sur le potentiel de non action qui,"
    PRINT l$;"pour vous, est complé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 "L'humour n'est pas la faculté qui vous caractérise ou du moins"
    PRINT l$;"c'est ce dont vous voulez vous persuader. Vous avez pris l'habitude"
    PRINT l$;"de considérer les choses avec gravité. Il est difficile de vous dé-"
    PRINT l$;"rider, ce qui ne veut pas dire que vous n'appréciez pas l'humour."
    PRINT l$;"Il semble que vous portez votre attention sur d'autres aspects de"
    PRINT l$;"vous-même, avec probablement un grand souci de sincérité. Pour vous,"
    PRINT l$;"l'humour n'est pas une chose vitale, et vous fonctionnez très bien"
    PRINT l$;"en l'utilisant assez peu. Vous pourriez cependant développer votre"
    PRINT l$;"potentiel d'humour en faisant le test sur votre potentiel de maîtri-"
    PRINT l$;"se émotionnelle. Vous verrez alors que vous maîtrisez trop ou pas"
    PRINT l$;"assez vos émotions et comment rétablir l'équilibre."
         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 êtes doué d'un solide sens de l'humour qui vous permet de"
    PRINT#4, "vous tirer élégamment de nombreuses situations difficiles. Vous avez"
    PRINT#4, "su, au cours de votre existence, prendre une distance suffisante"
    PRINT#4, "avec vos émotions. Cette distance vous permet une grande mobilité de"
    PRINT#4, "comportement. Et vous avez parfois des réactions qui semblent impré-"
    PRINT#4, "visibles, pour les autres, alors que pour vous, elles sont simple-"
    PRINT#4, "ment le résultat d'une logique intérieure évidente."
    PRINT#4, "     Vous menez votre vie avec humour, et cela vous réussit très"
    PRINT#4, "bien."
    PRINT#4, "     Prenez garde, toutefois, à ne pas trop vous éloigner de vous-"
    PRINT#4, "même, c'est-à-dire de vos instincts profonds. Trop d'humour peut"
    PRINT#4, "aussi être le signe d'une émotivité trop forte que l'on masque sous"
    PRINT#4, "un glacis de protection. Et si votre sens de l'humour fait la joie"
    PRINT#4, "de vos amis, veillez à ne pas trop faire de l'humour sur votre pro-"
    PRINT#4, "pre problème."
    PRINT#4, "     Comparez ce test avec ceux sur votre potentiel d'écoute de"
    PRINT#4, "vous-même et de maîtrise émotionnelle qui, pour vous, sont les com-"
    PRINT#4, "plémentaires de celui-là."
    PRINT#4, :CLOSE #4
    CLS:RUN "test1"
rep2p:
    GOSUB star
    PRINT#4, :PRINT#4, l$;"Vous avez peu à peu appris, souvent au prix de durs efforts à"   
    PRINT#4, "acquérir un certain sens de l'humour. Mais celui-ci n'est jamais to-"
    PRINT#4, "talement spontané, sauf dans quelques cas. Votre nature profonde"
    PRINT#4, "n'est pas forcément encline à l'humour. Par contre, votre personnage"
    PRINT#4, "social est capable d'humour. L'humour est pour vous un excellent"
    PRINT#4, "contrôle de vos impulsions, même si parfois celles-ci prennent le"
    PRINT#4, "pas sur lui. Mais il y a souvent une légère crispation en vous lors-"
    PRINT#4, "que vous êtes en état « d'humour »."
    PRINT#4, "     Vous pourriez développer votre potentiel d'humour d'une manière"
    PRINT#4, "qui peut sembler paradoxale en ne pensant jamais à avoir de l'humour."
    PRINT#4, "En laissant faire les choses, tout naturellement, et en sentant"
    PRINT#4, "alors, de l'intérieur, comment peut se manifester votre humour dans"
    PRINT#4, "ou telle situation. Cela vous permettrait de vous détendre par rap-"
    PRINT#4, "port à votre personnage et de trouver votre véritable humour dans un"
    PRINT#4, "climat plus relaxé."
    PRINT#4, "     Comparez ce test avec celui sur le potentiel de non action qui,"
    PRINT#4, "pour vous, est complémentaire de celui-là."
    PRINT#4, :CLOSE #4
    CLS:RUN "test1"
rep3p:
    GOSUB star
    PRINT#4, :PRINT#4, l$;"L'humour n'est pas la faculté qui vous caractérise ou du moins"
    PRINT#4, "c'est ce dont vous voulez vous persuader. Vous avez pris l'habitude"
    PRINT#4, "de considérer les choses avec gravité. Il est difficile de vous dé-"
    PRINT#4, "rider, ce qui ne veut pas dire que vous n'appréciez pas l'humour."
    PRINT#4, "Il semble que vous portez votre attention sur d'autres aspects de"
    PRINT#4, "vous-même, avec probablement un grand souci de sincérité. Pour vous,"
    PRINT#4, "l'humour n'est pas une chose vitale, et vous fonctionnez très bien"
    PRINT#4, "en l'utilisant assez peu. Vous pourriez cependant développer votre"
    PRINT#4, "potentiel d'humour en faisant le test sur votre potentiel de maîtri-"
    PRINT#4, "se émotionnelle. Vous verrez alors que vous maîtrisez trop ou pas"
    PRINT#4, "assez vos émotions et comment rétablir l'équilibre."
    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