DIM nom%(20), numero(25)
CLS
form4$ = " ####"
form10$ = "[ #### ]"
form9$ = "[ ### ]"
form8$ = "[ ## ]"
form7$ = "[ # ]"
K$ = "="
m$ = "_"
form11$ = "#"
form12$ = "##"
form13$ = "###"
form14$ = "####"
COLOR 15

PRINT "Pour quelle mise voulez-vous faire la recherche";
INPUT n
nomchiff = n
PRINT
a$ = STR$(n)
a$ = RIGHT$(a$, LEN(a$) - 1)
compt1 = 0
OPEN "STRS" + a$ FOR OUTPUT AS #2
OPEN "super" + a$ FOR INPUT AS #3
WHILE NOT EOF(3)
FOR i% = 1 TO n
INPUT #3, numero(i%)
NEXT i%

FOR i% = 1 TO n
IF numero(i%) >= 0 THEN
IF numero(i%) <= 9 THEN
PRINT #2, USING form11$; numero(i%);
PRINT #2, ",";
END IF
END IF
IF numero(i%) >= 10 THEN
IF numero(i%) <= 70 THEN
PRINT #2, USING form12$; numero(i%);
PRINT #2, ",";
END IF
END IF
NEXT i%
PRINT #2, K$
PRINT #2,
combine = 0
COLOR 15
xx% = 0



OPEN "LISTE5" FOR INPUT AS #1
WHILE NOT EOF(1)
INPUT #1, a$
jj% = VAL(a$)
FLAG1 = 0
FOR K% = 1 TO 20
INPUT #1, a$
KK% = VAL(a$)
nom%(K%) = KK%
NEXT K%
flagcomb = 0
FOR i% = 1 TO n
FOR j% = 1 TO 20
IF numero(i%) = nom%(j%) THEN
flagcomb = flagcomb + 1
END IF
NEXT j%
NEXT i%

IF flagcomb >= nomchiff THEN
zz% = jj% - xx%
combine = combine + 1
xx% = jj%

IF jj% <= 9 THEN
PRINT #2, USING form11$; jj%;
END IF


IF jj% >= 10 THEN
IF jj% <= 99 THEN
PRINT #2, USING form12$; jj%;
END IF
END IF


IF jj% >= 100 THEN
IF jj% <= 999 THEN
PRINT #2, USING form13$; jj%;
END IF
END IF


IF jj% >= 1000 THEN
IF jj% <= 9999 THEN
PRINT #2, USING form14$; jj%;
END IF
END IF



PRINT #2, ",";



REM END IF

IF zz% <= 9 THEN
PRINT #2, USING form11$; zz%;
END IF
IF zz% >= 10 THEN
IF zz% <= 99 THEN
PRINT #2, USING form12$; zz%;
END IF
END IF
IF zz% >= 100 THEN
IF zz% <= 999 THEN
PRINT #2, USING form13$; zz%;
END IF
END IF
IF zz% >= 1000 THEN
IF zz% <= 9999 THEN
PRINT #2, USING form14$; zz%;
END IF
END IF
PRINT #2, ",";
END IF

WEND
flagcomb = 0


PRINT #2,
PRINT #2,
PRINT #2, "Combinaison sortie ";
IF combine <= 9 THEN
PRINT #2, USING form11$; combine;
END IF
IF combine >= 10 THEN
IF combine <= 99 THEN
PRINT #2, USING form12$; combine;
END IF
END IF
IF combine >= 100 THEN
IF combine <= 999 THEN
PRINT #2, USING form13$; combine;
END IF
END IF
IF combine >= 1000 THEN
IF combine <= 9999 THEN
PRINT #2, USING form14$; combine;
END IF
END IF
PRINT #2, " Fois"



PRINT #2, "Ecart actuel ";
IF jj% - xx% <= 9 THEN
PRINT #2, USING form11$; jj% - xx%;
END IF
IF jj% - xx% >= 10 THEN
IF jj% - xx% <= 99 THEN
PRINT #2, USING form12$; jj% - xx%;
END IF
END IF
IF jj% - xx% >= 100 THEN
IF jj% - xx% <= 999 THEN
PRINT #2, USING form13$; jj% - xx%;
END IF
END IF
IF jj% - xx% >= 1000 THEN
IF jj% - xx% <= 9999 THEN
PRINT #2, USING form14$; jj% - xx%;
END IF
END IF

PRINT #2, " Tirage(s)"
PRINT #2,
FOR c = 1 TO 80
PRINT #2, m$;
NEXT c
PRINT #2,
PRINT #2,
compt1 = compt1 + 1
LOCATE 3, 5: PRINT "Nombre de combines"; compt1
CLOSE #1
WEND
CLOSE #3
CLOSE #2
PRINT "Fichier de sortie Strs"; n