1 REM - TIRAGE DE NOMBRES AU HASARD- ---
10 LET N..12
20 LET Q=12
30 DIM T(N)
40 REM -- INITIALISAT1ON DU TABLEAU 
50 PRINT "NOMBRES A TIRER"
60 FOR A=1 TO N
70 PRINT A;
80 PRINT " ";
90 LET T(A).A
100 NEXT A
110 PRINT
120 REM --REBUT TIRAGES 
130 LET V.N
140 FORA=1TOQ 
150 PRINT "TIRAGE NUMERO :";TAB(17);A 
160 LET W.RNIX1) 
170 LET X*INT(W*V)+1
180 PRINT "CASE TI REE : ";TAB(17);X
190 LET D=T(X)
200 PRINT "NOMBRE TIRE :";TAB(17);D
210 LET T(X)=T(V)
220 LET
1 
230
240
250
260
270 
280 
290 
300 
PRINT "RESTE A TIRER 
FOR t.1=1 TO Y 
PRINT T(J); 
PRINT " "; 
NEXT J 
INPUT R$ PRINT NEXT A 
310 REM 
320 PRINT "C'EST FINI ***" 
FIN TIRAGES