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'ORGANISATION"
    sou$="------------------------------"
    
    COLOR 1,2:CLS
    LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,10:PRINT "L'organisation est une qualité maîtresse de réussite sociale. "
    PRINT l$;"Mais certains sont organisés dans l'ordre, d'autres organisés dans"
    PRINT l$;"le désordre, disent-ils. Là encore, chacun a son style mais aussi"
    PRINT l$;"ses excuses"
    PRINT:PRINT l$;"    Comment vous vous organisez, tel sera l'objet du test qui suit."
    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 avez tendance :"
    LOCATE 10,9 :PRINT "[1] - à vous noyer dans les détails,"
    LOCATE 12,9 :PRINT "[2] - à tenir compte des détails,"
    LOCATE 14,9 :PRINT "[3] - à considérer les détails comme secondaires."
    LOCATE 18,15:PRINT tou$
    GOSUB touche
    a=0:b=0:c=0:GOSUB cba
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "2 - Vous n'avez pas fini un travail en temps et en heure :"
    LOCATE 10,9 :PRINT "[1] - cela vous angoisse beaucoup,"
    LOCATE 12,9 :PRINT "[2] - vous vous efforcez de cravacher pour finir malgé tout,"
    LOCATE 14,9 :PRINT "[3] - vous prenez la chose avec philosophie."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB cba
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "3 - Etes-vous de ceux qui :"
    LOCATE 10,9 :PRINT "[1] - font leur courrier au fur et à mesure, sans problème,"
    LOCATE 12,9 :PRINT "[2] - font attendre leur courrier puis s'en débarrassent"
    LOCATE 13,15:PRINT "d'un seul coup,"
    LOCATE 15,9 :PRINT "[3] - ont besoin de beaucoup de temps pour mettre à jour"
    LOCATE 16,15:PRINT "leur courrier."
    LOCATE 20,15:PRINT tou$
    GOSUB touche:GOSUB abc
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "4 - Vous commencez un grand rangement :"
    LOCATE 10,9 :PRINT "[1] - c'est une tâche vraiment pénible,"
    LOCATE 12,9 :PRINT "[2] - vous mettez au point une méthode pour aller vite,"
    LOCATE 14,9 :PRINT "[3] - vous procédez par ordre, méthodiquement."
    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 - Votre maison est plutôt :"
    LOCATE 10,9 :PRINT "[1] - désordonnée,"
    LOCATE 12,9 :PRINT "[2] - plutôt bien rangée,"
    LOCATE 14,9 :PRINT "[3] - rangée exactement comme bon vous semble."
    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 - Vous devez travailler en collaboration avec quelqu'un :"
    LOCATE 10,9 :PRINT "[1] - cela ne vous pose aucun problème,"
    LOCATE 12,9 :PRINT "[2] - vous aimez cela,"
    LOCATE 14,9 :PRINT "[3] - vous le faites au prix d'un effort."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB bca
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "7 - Vous devez confier l'organisation de votre maison à un étranger :"
    LOCATE 10,9 :PRINT "[1] - cette idée vous plaît,"
    LOCATE 12,9 :PRINT "[2] - vous lui donnez toutes les consignes car vous vous méfiez,"
    LOCATE 14,9 :PRINT "[3] - cette idée vous déplaît beaucoup."
    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 - Vous êtes invité à une soirée :"
    LOCATE 10,9 :PRINT "[1] - vous êtes toujours prêt avant l'heure,"
    LOCATE 12,9 :PRINT "[2] - vous êtes prêt à temps, sans problème,"
    LOCATE 14,9 :PRINT "[3] - on est toujours obligé de vous attendre."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB bac
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "9 - Vous devez retrouver une lime à ongles dans vos valises :"
    LOCATE 10,9 :PRINT "[1] - vous savez toujours où elle se trouve,"
    LOCATE 12,9 :PRINT "[2] - vous finissez par la retrouver après mûre réflexion,"
    LOCATE 14,9 :PRINT "[3] - vous n'avez aucune idée de l'endroit où elle peut être."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB cab
    
    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 avez l'habitude de décider les choses au fur et à mesure"
    PRINT l$;"des événements. Vous vous sentez toujours capable de faire face aux"
    PRINT l$;"mille petits détails à organiser, et pourtant, quand vous y êtes con-"
    PRINT l$;"fronté, vous vous rendez compte que vous ne disposez pas forcément"
    PRINT l$;"d'une tactique efficace pour les régler. D'ailleurs, l'organisation"
    PRINT l$;"ne vous passionne pas. Vous préférez impliquer votre énergie ail-"
    PRINT l$;"leurs, dans la créativité par exemple."
    PRINT:PRINT l$;"     Vous pourriez développer votre potentiel d'organisation en"
    PRINT l$;"voyant comment vous pouvez être créatif en organisation."
    PRINT:PRINT l$;"     Voyez le test sur le potentiel de créativité."
         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 mettez un point d'honneur à avoir le sens de l'organisation."
    PRINT l$;"Vous veillez à ne jamais vous affoler pour des détails. Vous voulez"
    PRINT l$;"toujours procéder avec méthode. Cette précision vous joue parfois"
    PRINT l$;"de mauvais tours, car il vous arrive de prendre beaucoup de temps"
    PRINT l$;"pour exécuter des choses qui apparemment n'en demandent pas autant."
    PRINT:PRINT l$;"     Vous allez directement aux grands éléments de l'organisation,"
    PRINT l$;"sans vous encombrer de détails. Et c'est là que le bât blesse, car"
    PRINT l$;"votre angle de vision est parfois trop large par rapport à la tâche"
    PRINT l$;"proposée."
    PRINT:PRINT l$;"     Vous devriez toujours vous demander quand il est question d'or-"
    PRINT l$;"ganisation si vous avez envisagé la chose sous son bon angle et si"
    PRINT l$;"vous n'êtes pas en train « d'en faire trop »."
    PRINT:PRINT l$;"     Faites le test sur votre potentiel d'analyse qui vous permet-"
    PRINT l$;"tra de voir comment s'équilibre votre sens analytique avec votre"
    PRINT l$;"sens d'organisation."
         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 sens de l'organisation vous est très personnel. Tout va "
    PRINT l$;"bien tant que vous pouvez agir exactement comme vous l'entendez. "
    PRINT l$;"Mais si vous devez rendre des comptes à autrui, ou, pire, travailler"
    PRINT l$;"en équipe, votre organisation en pâtit. D'emblée, vous mettez votre"
    PRINT l$;"propre méthode au point quand vous devez organiser quelque chose."
    PRINT l$;"Et vous admettez mal de vous conformer à des règles établies. Vous"
    PRINT l$;"organisez très vite, sans réfléchir. Car si votre organisation doit"
    PRINT l$;"passer par la réflexion, cela vous bloque et coupe votre inspira-"
    PRINT l$;"tion. C'est pourquoi on ne peut que vous conseiller de continuer"
    PRINT l$;"comme cela, en tenant seulement plus compte de l'ensemble des don-"
    PRINT l$;"nées extérieures."
    PRINT:PRINT l$;"     Tenez compte du test sur votre potentiel de logique qui est"
    PRINT l$;"pour vous complémentaire de celui-ci."
         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 l'habitude de décider les choses au fur et à mesure"
    PRINT#4, "des événements. Vous vous sentez toujours capable de faire face aux"
    PRINT#4, "mille petits détails à organiser, et pourtant, quand vous y êtes con-"
    PRINT#4, "fronté, vous vous rendez compte que vous ne disposez pas forcément"
    PRINT#4, "d'une tactique efficace pour les régler. D'ailleurs, l'organisation"
    PRINT#4, "ne vous passionne pas. Vous préférez impliquer votre énergie ail-"
    PRINT#4, "leurs, dans la créativité par exemple."
    PRINT#4, "     Vous pourriez développer votre potentiel d'organisation en"
    PRINT#4, "voyant comment vous pouvez être créatif en organisation."
    PRINT#4, "     Voyez le test sur le potentiel de créativité."
    PRINT#4, :CLOSE #4
    CLS:RUN "test1"
rep2p:
    GOSUB star
    PRINT#4, "     Vous mettez un point d'honneur à avoir le sens de l'organisation."   
    PRINT#4, "Vous veillez à ne jamais vous affoler pour des détails. Vous voulez"
    PRINT#4, "toujours procéder avec méthode. Cette précision vous joue parfois"
    PRINT#4, "de mauvais tours, car il vous arrive de prendre beaucoup de temps"
    PRINT#4, "pour exécuter des choses qui apparemment n'en demandent pas autant."
    PRINT#4, "     Vous allez directement aux grands éléments de l'organisation,"
    PRINT#4, "sans vous encombrer de détails. Et c'est là que le bât blesse, car"
    PRINT#4, "votre angle de vision est parfois trop large par rapport à la tâche"
    PRINT#4, "proposée."
    PRINT#4, "     Vous devriez toujours vous demander quand il est question d'or-"
    PRINT#4, "ganisation si vous avez envisagé la chose sous son bon angle et si"
    PRINT#4, "vous n'êtes pas en train « d'en faire trop »."
    PRINT#4, "     Faites le test sur votre potentiel d'analyse qui vous permet-"
    PRINT#4, "tra de voir comment s'équilibre votre sens analytique avec votre"
    PRINT#4, "sens d'organisation."
    PRINT#4, :CLOSE #4
    CLS:RUN "test1"
rep3p:
    GOSUB star
    PRINT#4, "     Votre sens de l'organisation vous est très personnel. Tout va "
    PRINT#4, "bien tant que vous pouvez agir exactement comme vous l'entendez. "
    PRINT#4, "Mais si vous devez rendre des comptes à autrui, ou, pire, travailler"
    PRINT#4, "en équipe, votre organisation en pâtit. D'emblée, vous mettez votre"
    PRINT#4, "propre méthode au point quand vous devez organiser quelque chose."
    PRINT#4, "Et vous admettez mal de vous conformer à des règles établies. Vous"
    PRINT#4, "organisez très vite, sans réfléchir. Car si votre organisation doit"
    PRINT#4, "passer par la réflexion, cela vous bloque et coupe votre inspira-"
    PRINT#4, "tion. C'est pourquoi on ne peut que vous conseiller de continuer"
    PRINT#4, "comme cela, en tenant seulement plus compte de l'ensemble des don-"
    PRINT#4, "nées extérieures."
    PRINT#4, "     Tenez compte du test sur votre potentiel de logique qui est"
    PRINT#4, "pour vous complémentaire de celui-ci."
    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