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 0,.25,.51,.8:PALETTE 3,1,.8,0
    PALETTE 1,0,0,0:PALETTE 2,1,1,1
    PALETTE 7,0,.8,.2
    
menue:
    GOSUB Programmkopf:COLOR 1,3
    LINE (57,51)-(307,73),1,bf:LINE (327,53)-(577,73),1,bf
    LINE (50,49)-(300,69),3,bf:LINE (320,49)-(570,69),3,bf
    LINE (57,85)-(307,105),1,bf:LINE (327,85)-(577,105),1,bf
    LINE (50,81)-(300,101),3,bf:LINE (320,81)-(570,101),3,bf
    LINE (57,117)-(307,137),1,bf:LINE (327,117)-(577,137),1,bf
    LINE (50,113)-(300,133),3,bf:LINE (320,113)-(570,133),3,bf
    LINE (57,149)-(307,169),1,bf:LINE (327,149)-(577,169),1,bf
    LINE (50,145)-(300,165),3,bf:LINE (320,145)-(570,165),3,bf
    LOCATE 8,9:PRINT "[1] VIE SOCIALE"
    LOCATE 8,43:PRINT "[5] TEST MYSTERE"
    LOCATE 12,9:PRINT "[2] VIE AFFECTIVE"
    LOCATE 12,43:PRINT "[6] Introduction"
    LOCATE 16,9:PRINT "[3] VIE INTELLECTUELLE"
    LOCATE 16,43:PRINT "[7] TESTS DIVERS"
    LOCATE 20,9:PRINT "[4] VIE INTERIEURE"
    LOCATE 20,43:PRINT "[0] Terminé":COLOR 1,0
    
Menue1:
    MENU ON:MOUSE ON:ON MOUSE GOSUB CheckMaus
    GOSUB Abfrage
    IF x$="5" THEN GOTO myste
    IF x$="6" THEN GOTO Intro
    IF x$="7" THEN GOTO diver
    IF x$="0" THEN
       FOR i=1 TO 4:SCROLL(320,145)-(577,155),0,4:SCROLL(320,156)-(577,169),0,-4:NEXT i
       CLOSE #1:WINDOW CLOSE 2:SCREEN CLOSE 2:MENU RESET
       COLOR 3,0:FOR i=2 TO 6:LOCATE i,i*2:SOUND 2000,1
       PRINT "Vos désirs sont des ordres !":NEXT
       COLOR 1,0:SOUND 1000,5:END
    END IF
    IF x$<"1" OR x$>"4" THEN Menue1 ELSE SOUND 2000,1
    ON VAL(x$) GOSUB Social,Affect,Intel,Inter
    GOTO menue
    
Social:
        GOSUB Programmkopf:COLOR 1,3
    LINE (57,51)-(307,73),1,bf:LINE (327,53)-(577,73),1,bf
    LINE (50,49)-(300,69),3,bf:LINE (320,49)-(570,69),3,bf
    LINE (57,85)-(307,105),1,bf:LINE (327,85)-(577,105),1,bf
    LINE (50,81)-(300,101),3,bf:LINE (320,81)-(570,101),3,bf
    LINE (57,117)-(307,137),1,bf:LINE (327,117)-(577,137),1,bf
    LINE (50,113)-(300,133),3,bf:LINE (320,113)-(570,133),3,bf
    LINE (57,149)-(307,169),1,bf:LINE (327,149)-(577,169),1,bf
    LINE (50,145)-(300,165),3,bf:LINE (320,145)-(570,165),3,bf
    LOCATE 8,8:PRINT "[1] Potentiel d'action"
    LOCATE 8,42:PRINT "[5] Potentiel de récupération"
    LOCATE 12,8:PRINT "[2] Potentiel d'adaptation"
    LOCATE 12,42:PRINT "[6] Potentiel de communication"
    LOCATE 16,8:PRINT "[3] Potentiel de dynamisme"
    LOCATE 16,42:PRINT "[7] Potentiel d'opportunisme"
    LOCATE 20,8:PRINT "[4] Potentiel d'organisation"
    LOCATE 20,42:PRINT "[0] Menu":COLOR 1,0
Menue2:
    MENU ON:MOUSE ON:ON MOUSE GOSUB CheckMaus
    GOSUB Abfrage
        IF x$="0" THEN GOTO menue
    IF x$<"1" OR x$>"7" THEN Menue2 ELSE SOUND 2000,1
    ON VAL(x$) GOTO actio,adapt,dynam,organ,recup,commu,oppor
    
Affect:
        GOSUB Programmkopf:COLOR 1,3
    LINE (57,51)-(307,73),1,bf:LINE (327,53)-(577,73),1,bf
    LINE (50,49)-(300,69),3,bf:LINE (320,49)-(570,69),3,bf
    LINE (57,85)-(307,105),1,bf:LINE (327,85)-(577,105),1,bf
    LINE (50,81)-(300,101),3,bf:LINE (320,81)-(570,101),3,bf
    LINE (57,117)-(307,137),1,bf:LINE (327,117)-(577,137),1,bf
    LINE (50,113)-(300,133),3,bf:LINE (320,113)-(570,133),3,bf
    LINE (57,149)-(307,169),1,bf:LINE (327,149)-(577,169),1,bf
    LINE (50,145)-(300,165),3,bf:LINE (320,145)-(570,165),3,bf
    LOCATE 8,8:PRINT "[1] Potentiel d'expression"
    LOCATE 8,42:PRINT "[5] Potentiel de séduction"
    LOCATE 12,8:PRINT "[2] Potentiel de tendresse"
    LOCATE 12,42:PRINT "[6] Potentiel de possessivité"
    LOCATE 16,8:PRINT "[3] Pot.de maîtr.émotionnelle"
    LOCATE 16,42:PRINT "[7] Libre"
    LOCATE 20,8:PRINT "[4] Potent.d'écoute des autres"
    LOCATE 20,42:PRINT "[0] Menu":COLOR 1,0

Menue3:
    MENU ON:MOUSE ON:ON MOUSE GOSUB CheckMaus
    GOSUB Abfrage
    IF x$="0" THEN GOTO menue
    IF x$<"1" OR x$>"6" THEN Menue3 ELSE SOUND 2000,1
    ON VAL(x$) GOSUB expre,tendr,maitr,autre,seduc,posse
    GOTO menue

Intel:
        GOSUB Programmkopf:COLOR 1,3
    LINE (57,51)-(307,73),1,bf:LINE (327,53)-(577,73),1,bf
    LINE (50,49)-(300,69),3,bf:LINE (320,49)-(570,69),3,bf
    LINE (57,85)-(307,105),1,bf:LINE (327,85)-(577,105),1,bf
    LINE (50,81)-(300,101),3,bf:LINE (320,81)-(570,101),3,bf
    LINE (57,117)-(307,137),1,bf:LINE (327,117)-(577,137),1,bf
    LINE (50,113)-(300,133),3,bf:LINE (320,113)-(570,133),3,bf
    LINE (57,149)-(307,169),1,bf:LINE (327,149)-(577,169),1,bf
    LINE (50,145)-(300,165),3,bf:LINE (320,145)-(570,165),3,bf
    LOCATE 8,8:PRINT "[1] Potentiel de créativité"
    LOCATE 8,42:PRINT "[5] Potentiel d'assimilation"
    LOCATE 12,8:PRINT "[2] Potentiel de synthèse"
    LOCATE 12,42:PRINT "[6] Potentiel de mémorisation"
    LOCATE 16,8:PRINT "[3] Potentiel d'analyse"
    LOCATE 16,42:PRINT "[7] Potentiel de recherche"
    LOCATE 20,8:PRINT "[4] Potentiel de logique"
    LOCATE 20,42:PRINT "[0] Menue":COLOR 1,0
    
Menue4:
    MENU ON:MOUSE ON:ON MOUSE GOSUB CheckMaus
    GOSUB Abfrage
    IF x$="0" THEN GOTO menue
    IF x$<"1" OR x$>"7" THEN Menue4 ELSE SOUND 2000,1
    ON VAL(x$) GOSUB creat,synth,analy,logiq,assim,memor,reche
    GOTO menue

Inter:
        GOSUB Programmkopf:COLOR 1,3
    LINE (57,51)-(307,73),1,bf:LINE (327,53)-(577,73),1,bf
    LINE (50,49)-(300,69),3,bf:LINE (320,49)-(570,69),3,bf
    LINE (57,85)-(307,105),1,bf:LINE (327,85)-(577,105),1,bf
    LINE (50,81)-(300,101),3,bf:LINE (320,81)-(570,101),3,bf
    LINE (57,117)-(307,137),1,bf:LINE (327,117)-(577,137),1,bf
    LINE (50,113)-(300,133),3,bf:LINE (320,113)-(570,133),3,bf
    LINE (57,149)-(307,169),1,bf:LINE (327,149)-(577,169),1,bf
    LINE (50,145)-(300,165),3,bf:LINE (320,145)-(570,165),3,bf
    LOCATE 8,8:PRINT "[1] Potentiel d'écoute de soi"
    LOCATE 8,42:PRINT "[5] Pot.d.vivre v.impressions"
    LOCATE 12,8:PRINT "[2] Potentiel d'autonomie"
    LOCATE 12,42:PRINT "[6] Potentiel d'humour"
    LOCATE 16,8:PRINT "[3] Potentiel d'intuition"
    LOCATE 16,42:PRINT "[7] Potentiel de spiritualité"
    LOCATE 20,8:PRINT "[4] Potentiel d'oubli"
    LOCATE 20,42:PRINT "[8] Potentiel de non action":COLOR 1,0
    
Menue5:
    MENU ON:MOUSE ON:ON MOUSE GOSUB CheckMaus
    GOSUB Abfrage
    IF x$="0" THEN GOTO menue
    IF x$<"1" OR x$>"8" THEN Menue5 ELSE SOUND 2000,1
    ON VAL(x$) GOSUB ecout,auton,intui,oubli,impre,humou,spiri,actio
    GOTO menue
    
Exercices:
        GOSUB Programmkopf:COLOR 1,3
    LINE (57,51)-(307,73),1,bf:LINE (327,53)-(577,73),1,bf
    LINE (50,49)-(300,69),3,bf:LINE (320,49)-(570,69),3,bf
    LINE (57,85)-(307,105),1,bf:LINE (327,85)-(577,105),1,bf
    LINE (50,81)-(300,101),3,bf:LINE (320,81)-(570,101),3,bf
    LINE (57,117)-(307,137),1,bf:LINE (327,117)-(577,137),1,bf
    LINE (50,113)-(300,133),3,bf:LINE (320,113)-(570,133),3,bf
    LINE (57,149)-(307,169),1,bf:LINE (327,149)-(577,169),1,bf
    LINE (50,145)-(300,165),3,bf:LINE (320,145)-(570,165),3,bf
    LOCATE 8,8:PRINT "[1] 
    LOCATE 8,42:PRINT "[5]
    LOCATE 12,8:PRINT "[2] 
    LOCATE 12,42:PRINT "[6] 
    LOCATE 16,8:PRINT "[3] 
    LOCATE 16,42:PRINT "[7] 
    LOCATE 20,8:PRINT "[4] 
    LOCATE 20,42:PRINT "[0] Menu":COLOR 1,0
Menue7:
    MENU ON:MOUSE ON:ON MOUSE GOSUB CheckMaus
    GOSUB Abfrage
        IF x$="0" THEN GOTO menue
    IF x$<"1" OR x$>"7" THEN Menue7 ELSE SOUND 2000,1
    ON VAL(x$) GOTO 
    

Abfrage:
    x$=INKEY$
    IF x$="" THEN Abfrage
    IF x$=CHR$(139) THEN GOSUB Hilfe:GOTO Abfrage
a1: RETURN    
Programmkopf:
    CLS:COLOR 1,3:LINE (82,8)-(557,33),1,bf:LINE (75,4)-(550,29),3,bf
    AREA (100,18):AREA (105,24):AREA (121,8):AREA (124,8)
    AREA (107,25):AREA (104,25):AREA (97,18):AREA (100,18):AREAFILL
    AREA (93,18):AREA (98,24):AREA (114,8):AREA (117,8)
    AREA (100,25):AREA (97,25):AREA (90,18):AREA (93,18):AREAFILL
    FOR i=117 TO 119:LINE (i,24)-(130,11):NEXT i
    FOR i=130 TO 133:LINE (i,11)-(i,24):NEXT i
    LINE(123,20)-(133,20),1:LINE(114,25)-(122,25),1:LINE(127,25)-(537,25),1
    mo$=STR$(m):IF LEN(mo$)=2 THEN mo$=" "+mo$
    LOCATE 3,19:PRINT "M I G A  - LA CONNAISSANCE DE SOI PAR LES TESTS"
    COLOR 1,0:RETURN
    
CheckMaus:
    i=MOUSE(0)
    IF MOUSE(1)>50 AND MOUSE(1)<300 THEN
        IF MOUSE(2)>49 AND MOUSE(2)<69 THEN x$="1"
        IF MOUSE(2)>81 AND MOUSE(2)<101 THEN x$="2"
        IF MOUSE(2)>113 AND MOUSE(2)<133 THEN x$="3"
        IF MOUSE(2)>145 AND MOUSE(2)<165 THEN x$="4"
    END IF
    IF MOUSE(1)>320 AND MOUSE(1)<570 THEN
        IF MOUSE(2)>49 AND MOUSE(2)<69 THEN x$="5"
        IF MOUSE(2)>81 AND MOUSE(2)<101 THEN x$="6"
        IF MOUSE(2)>113 AND MOUSE(2)<133 THEN x$="7"
        IF MOUSE(2)>145 AND MOUSE(2)<165 THEN x$="0"
    END IF
    RETURN a1
    
Intro:
    COLOR 1,2:CLS
    PRINT:PRINT "     I N T R O D U C T I O N"
    PRINT "     -----------------------"
    PRINT:PRINT "     Nous n'utilisons que 10% des capacités de notre cerveau. Et pourtant,
    PRINT " nous avons en nous tous les potentiels. Trop souvent, nous manquons des occa-
    PRINT " sions, nous limitons notre réussite par ignorance ou manque de confiance en
    PRINT " nos capacités personnelles. La vie est un immense possible qui appelle tous
    PRINT " les futurs. Il dépend de nous « d'appeler la chance » en mobilisant toutes
    PRINT " nos ressources cachées dans une image positive de nous-même....
    PRINT:PRINT "     Ce programme a pour but de vous y aider en vous révélant vos différents
    PRINT " potentiels et la manière originale dont vous les mettez en oeuvre dans votre
    PRINT " vie quotidienne. Faire le bilan de vos ressources personnelles, découvrir
    PRINT " comment vous mettez en jeu des qualités que vous pensiez ne pas posséder,
    PRINT " développer ces potentiels pour pouvoir ensuite les actualiser plus effica-
    PRINT " cement, tels sont les objectifs de cette série de tests.
    PRINT:PRINT "     Vous serez surpris de constater comme vous êtes riche de qualités,comment
    PRINT " même vous pouvez vous servir efficacement de ce que vous appelez vos défauts,
    PRINT " et comment tous ces potentiels forment un tout cohérent qui compose votre   
    PRINT " personalité."
    PRINT:PRINT TAB(30) "PRESSEZ UNE TOUCHE"
    CALL touch
    COLOR 1,2:CLS
    PRINT:PRINT "     I N T R O D U C T I O N  (suite et fin)
          PRINT "     ---------------------------------------
    PRINT:PRINT "     Aussi est-ce l'occasion de commencer un dialogue avec vous-même, de pren-
    PRINT " dre conscience de l'infinité des moyens dont vous disposez pour l'accomplis-
    PRINT " sement personnel et votre réussite sociale. Ce n'est pas un hasard si toutes
    PRINT " les personalités célèbres nous livrent des autobiographies où elles révèlent
    PRINT " comment elles ont exprimé leur tempérament propre, sans se conformer à telle
    PRINT " ou telle image imposées par les autres ou les codes.... C'est parce qu'elles
    PRINT " avaient compris que toute réussite passe d'abord par la connaissance de nos
    PRINT " mécanismes internes et qu'à partir de cette connaissance, tout devient pos-
    PRINT " sible.
    PRINT:PRINT "     Ce programme est fait pour que vous puissiez établir un catalogue complet
    PRINT " de vos ressources personnelles, dans lequel vous pourrez puiser au fil des
    PRINT " circonstances. Utilisez-le comme tel, pour partir à la découverte de vous-
    PRINT " même et élargir ainsi vos chances de succès et d'accomplissement personel...
        PRINT:PRINT TAB(30) "PRESSEZ UNE TOUCHE"
    CALL touch
    
    COLOR 1,2:CLS
    PRINT:PRINT "     MODE D'EMPLOI DES TESTS"
          PRINT "     -----------------------"
    PRINT:PRINT "     Bien sûr, les tests ne sont pas absolus. Il vous sera facile de tricher
    PRINT " en les faisant, si vous le désirez, mais vous ne tromperez que vous-même.
    PRINT " Pour certaines questions, vous aurez peut-être l'impression de ne pas savoir
    PRINT " quoi répondre à la première lecture. Imaginez alors ce qui se rapproche le
    PRINT " plus pour vous de la situation proposée, et cochez la réponse qui vous paraît
    PRINT " correspondre le mieux à votre comportement.
    PRINT:PRINT "     D'autre part, un test est significatif dans la mesure où vous y répondrez
    PRINT " instinctivement, sans vous attarder à réfléchir à la question. Une réponse
    PRINT " instinctive est souvent plus proche de la vérité dans la mesure où vous ne la
    PRINT " calculez pas. C'est pourquoi il est important de répondre à toutes les ques-
    PRINT " tions rapidement, sans revenir en arrière, et en réfléchissant le moins possi-
    PRINT " ble.
    PRINT:PRINT "     La majorité de ces tests vous proposent trois réponses différentes :
    PRINT " a, b ou c. Choisissez une seule de ces réponses et cliquez la. L'ordinateur
    PRINT " valorisera vos réponses et vous indiquera le résultat après la dernière
    PRINT " question."
    PRINT:PRINT TAB(30) "PRESSEZ UNE TOUCHE"
    CALL touch
    GOTO menue
    
SUB Maus(x,y) STATIC
    WHILE MOUSE(0)=0
    WEND
    x=MOUSE(3):y=MOUSE(4)
    WHILE MOUSE(0)<>0
    WEND
    END SUB
    
SUB touch STATIC
    a$=""
    WHILE a$="":a$=INKEY$:WEND
    END SUB    
    
actio: RUN "action"
adapt: RUN "adaptation"
dynam: RUN "dynamisme"
organ: RUN "organisation"
recup: RUN "recuperation"
commu: RUN "communication"
oppor: RUN "opportunisme"
expre: RUN "expression"
tendr: RUN "tendresse"
maitr: RUN "maitrise"
autre: RUN "ecouteautres"
seduc: RUN "seduction"
posse: RUN "possessivite"
creat: RUN "creativite"
synth: RUN "synthese"
analy: RUN "analyse"
logiq: RUN "logique"
assim: RUN "assimilation"
memor: RUN "memorisation"
reche: RUN "recherche"
ecout: RUN "ecoutesoi"
auton: RUN "autonomie"
intui: RUN "intuition"
oubli: RUN "oubli"
impre: RUN "impressions"
humou: RUN "humour"
spiri: RUN "spiritualite"
nonac: RUN "nonaction"
myste: RUN "mystere"
diver:
    COLOR 1,2:CLS
    LOCATE 10,35:PRINT "L I B R E":FOR i=1 TO 15000:NEXT i:GOTO menue