10 DIM M$(12),N(12),J$(6)
20 FOR X.1 TO 12
30 READ MVX),14(X)
40 NEXT X
50 FOR X.0 TO 60 READ TEX)
70 NEXT iC 
100 REM *** SAISIE DATE ***
110 PRINT ".ANNEE ";
120 INPUT R$
130 A=VAL(R$)
140 IF A<1900 OR A>2000 THEN 110 
150 PRINT "MOIS :" H;
160 INPUT R$
170 M=VAL(RS)
180 IF M<1 OR M>12 THEN 150 
190 PRINT "TOUR"
200 INPUT È$
210 J.VAL(RS)
220 IF j<1 OR J > N(M) THEN 190
230 IF M=2 AND J=29 AND (A-INT(A/4)*4)00 THEN 190 
240 PRINT "LE :";J;" ";IVIS(M);" ";A;" EST UN "; 
250 REM ***CALCUL JOUR ***
260 IF M>2 THEN 290
270 M=M+12 
280 A.A- 1
290 N=J+2*M+INT(.6*(M+1))+A+INT(A/4 )-INT(A/100)+INT(A/400)
300 N=INT((b1/7-INT(N/7))*7+.5) 
310 PRINT MN) 
320 PRINT "UNE AUTRE"
330 INPUT R$
340 IF RS<>"N" THEN 100
350 END 
400 DATA "JANVIER",31,"FEVRIER",29,"MARS",31,"AVRIL",30„"MAI",31,"JUIN",30
410 DATA "JUILLET",31,,"AOUT",31,"SEPTEMBRE",30„"OCTOBRE",31,"MOVEMBRE",30,"DECEMBRE",31
420 DATA "LUNDI","MARDI ","MERCREDI ","JEUDI ","VENDREDI "," SAMED I ","DIMANCHE"