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'"
    sou$="------------------"
    
    COLOR 1,2:CLS
    LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,10:PRINT "1234567891123456789212345678931234567894123456789512345678961234"
    PRINT l$;"12345678911234567892123456789312345678941234567895123456789612345678"
    LOCATE 8,10:PRINT ""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    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 -  :"
    LOCATE 10,9 :PRINT "[1] - ,"
    LOCATE 12,9 :PRINT "[2] - ,"
    LOCATE 14,9 :PRINT "[3] - ."
    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 -  :"
    LOCATE 10,9 :PRINT "[1] - ,"
    LOCATE 12,9 :PRINT "[2] - ,"
    LOCATE 14,9 :PRINT "[3] - ."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB abc
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "3 -  :"
    LOCATE 10,9 :PRINT "[1] - ,"
    LOCATE 12,9 :PRINT "[2] - ,"
    LOCATE 14,9 :PRINT "[3] - ."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB abc
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "4 -  :"
    LOCATE 10,9 :PRINT "[1] - ,"
    LOCATE 12,9 :PRINT "[2] - ,"
    LOCATE 14,9 :PRINT "[3] - ."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB abc
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "5 -  :"
    LOCATE 10,9 :PRINT "[1] - ,"
    LOCATE 12,9 :PRINT "[2] - ,"
    LOCATE 14,9 :PRINT "[3] - ."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB abc
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "6 -  :"
    LOCATE 10,9 :PRINT "[1] - ,"
    LOCATE 12,9 :PRINT "[2] - ,"
    LOCATE 14,9 :PRINT "[3] - ."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB abc
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "7 -  :"
    LOCATE 10,9 :PRINT "[1] - ,"
    LOCATE 12,9 :PRINT "[2] - ,"
    LOCATE 14,9 :PRINT "[3] - ."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB abc

    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "8 -  :"
    LOCATE 10,9 :PRINT "[1] - ,"
    LOCATE 12,9 :PRINT "[2] - ,"
    LOCATE 14,9 :PRINT "[3] - ."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB abc
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "9 -  :"
    LOCATE 10,9 :PRINT "[1] - ,"
    LOCATE 12,9 :PRINT "[2] - ,"
    LOCATE 14,9 :PRINT "[3] - ."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB abc

    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "10 -  :"
    LOCATE 10,9 :PRINT "[1] - ,"
    LOCATE 12,9 :PRINT "[2] - ,"
    LOCATE 14,9 :PRINT "[3] - ."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB abc
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "11 -  :"
    LOCATE 10,9 :PRINT "[1] - ,"
    LOCATE 12,9 :PRINT "[2] - ,"
    LOCATE 14,9 :PRINT "[3] - ."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB abc
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "12 -  :"
    LOCATE 10,9 :PRINT "[1] - ,"
    LOCATE 12,9 :PRINT "[2] - ,"
    LOCATE 14,9 :PRINT "[3] - ."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB abc
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "13 -  :"
    LOCATE 10,9 :PRINT "[1] - ,"
    LOCATE 12,9 :PRINT "[2] - ,"
    LOCATE 14,9 :PRINT "[3] - ."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB abc
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "14 -  :"
    LOCATE 10,9 :PRINT "[1] - ,"
    LOCATE 12,9 :PRINT "[2] - ,"
    LOCATE 14,9 :PRINT "[3] - ."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB abc
   
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "15 -  :"
    LOCATE 10,9 :PRINT "[1] - ,"
    LOCATE 12,9 :PRINT "[2] - ,"
    LOCATE 14,9 :PRINT "[3] - ."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB abc
    
    CLS:LOCATE 3,7:PRINT pot$:LOCATE 4,7:PRINT sou$
    LOCATE 8,3  :PRINT "16 -  :"
    LOCATE 10,9 :PRINT "[1] - ,"
    LOCATE 12,9 :PRINT "[2] - ,"
    LOCATE 14,9 :PRINT "[3] - ."
    LOCATE 18,15:PRINT tou$
    GOSUB touche:GOSUB abc
    
    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 "1234567891123456789212345678931234567894123456789512345678961234"
    PRINT l$;"12345678911234567892123456789312345678941234567895123456789612345678"
    LOCATE 4,10:PRINT ""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT 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 4,10:PRINT "1234567891123456789212345678931234567894123456789512345678961234"
    PRINT l$;"12345678911234567892123456789312345678941234567895123456789612345678"
    LOCATE 4,10:PRINT ""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT 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 4,10:PRINT "1234567891123456789212345678931234567894123456789512345678961234"
    PRINT l$;"12345678911234567892123456789312345678941234567895123456789612345678"
    LOCATE 4,10:PRINT ""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
    PRINT l$;""
         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$;
    PRINT#4, :CLOSE #4
    CLS:RUN "test1"
rep2p:
    GOSUB star
    PRINT#4, :PRINT#4, l$;   
    PRINT#4, :CLOSE #4
    CLS:RUN "test1"
rep3p:
    GOSUB star
    PRINT#4, :PRINT#4, l$;
    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