Un petit calendrier à feuilleter

LABEL Afdat, Aff2, Rbk, Suivant, Precedent, Saut, Saut1, Masks, Crayon, Evnt
DIM ws, wf, hf, h1, h2, h3, h4, mg, mc, mh, rs, gs, bs, x, y, i%, j%, a$, b$, c$, f$
DIM nm$(12),jo$(7), lm(12), Jour, Mois, Annee, nj$, m$, j$, wt, ht, sz2%, nc2%, ht2%
DIM svm%, pre$, bisex, la, x1
DIM fet$: fet$ = "C:\TEXTES\Fetes.txt"
DIM fev$: fev$ = "C:\TEXTES\Evnt"

DATA "Janvier","Février","Mars","Avril","Mai","Juin","Juillet","Août"
DATA "Septembre","Octobre","Novembre","Décembre"
DATA "Dimanche", "Lundi","Mardi","Mercredi","Jeudi","Vendredi","Samedi"
DATA 31,28,31,30,31,30,31,31,30,31,30,31
FOR i% = 1 TO 12: READ nm$(i%): NEXT i%
FOR i% = 0 TO 6: READ jo$(i%): NEXT i%
FOR i% = 1 TO 12: READ lm(i%): NEXT i%
wf = 100: h1 = 25: h2 = 60: h3 = 25: h4 = 20
hf = h1 + h2 + h3  + h4
mg = 10: mc = 10: mh = 10: ' marges gauche et droite, centre, haut
ws = mg+wf+mc+wf+mg: ' largeur du socle
rs = 164: gs = 92: bs = 0: ' couleur du socle

WIDTH 0,ws+16: BORDER_SMALL 0
PICTURE 1: TOP 1,0: LEFT 1,0: WIDTH 1,ws: HEIGHT 1,mh+hf+30: ' socle
COLOR 1,rs,gs,bs
2D_TARGET_IS 1: 2D_PEN_WIDTH 16: 2D_PEN_COLOR rs+20,gs+20,bs
2D_LINE mg+5,HEIGHT(1)-15,WIDTH(1)-mg-5,HEIGHT(1)-15
ON_CLICK 1,Saut
GOSUB Crayon

FORM 50: TOP 50,TOP(1)+mh+hf+28: LEFT 50,wf/2+7: WIDTH 50,wf+10: HEIGHT 50,95
BORDER_HIDE 50: FONT_BOLD 50: COLOR 50,255,0,0: TO_FOREGROUND 50: HIDE 50
BUTTON 51: PARENT 51,50: TOP 51,0: LEFT 51,0: WIDTH 51,wf/2+16: CAPTION 51,"<-10 jours"
BUTTON 52: PARENT 52,50: TOP 52,TOP(51)+25: LEFT 52,LEFT(51): WIDTH 52,WIDTH(51): CAPTION 52,"< -1 mois"
BUTTON 53: PARENT 53,50: TOP 53,TOP(52)+25: LEFT 53,LEFT(51): WIDTH 53,WIDTH(51): CAPTION 53,"< -1 an"
BUTTON 54: PARENT 54,50: TOP 54,0: LEFT 54,LEFT(51)+WIDTH(51): WIDTH 54,WIDTH(51): CAPTION 54,"+10 jours>"
BUTTON 55: PARENT 55,50: TOP 55,TOP(54)+25: LEFT 55,LEFT(54): WIDTH 55,WIDTH(51): CAPTION 55,"+1 mois >"
BUTTON 56: PARENT 56,50: TOP 56,TOP(55)+25: LEFT 56,LEFT(54): WIDTH 56,WIDTH(51): CAPTION 56,"+1 an >"
FOR i% = 51 TO 56: ON_CLICK i%, Saut1: NEXT i%
BUTTON 57: PARENT 57,50: TOP 57,TOP(56)+26: LEFT 57,0: WIDTH 57,WIDTH(50): HEIGHT 57,18
CAPTION 57,"OK": ON_CLICK 57,Masks

PICTURE 2: TOP 2,TOP(1)+mh: LEFT 2,LEFT(1)+mg: WIDTH 2,wf: HEIGHT 2,hf: ' feuillets gauche
ON_CLICK 2,Precedent
sz2% = 8: ' taille caractères dans le Picture 2
FONT_NAME 2, "Arial": FONT_SIZE 2,sz2%: i% = TEXT_WIDTH("AabcBdefCghiDjklEmno",2)
nc2% = INT(20*(wf-5)/i%): ' nb de caractères par ligne dans picture 2
ht2% = TEXT_HEIGHT("AabcBdefCghiDjklEmno",2)

PICTURE 3: TOP 3,TOP(2): LEFT 3,LEFT(2)+wf+mc: WIDTH 3,wf: HEIGHT 3,HEIGHT(2): ' feuillets droite
ON_CLICK 3,Suivant

BUTTON 5: TOP 5,TOP(2)+HEIGHT(2)-15: LEFT 5,LEFT(2)+35: WIDTH 5,30: HEIGHT 5,16
CAPTION 5,"Evt": ON_CLICK 5,Evnt

PICTURE 10: TOP 10,TOP(3)+hf/4: LEFT 10,LEFT(3)-mc-20: WIDTH 10,mc+40: HEIGHT 10,20
PICTURE 11: TOP 11,TOP(3)+2.5*hf/4: LEFT 11,LEFT(10): WIDTH 11,WIDTH(10): HEIGHT 11,HEIGHT(10)

2D_TARGET_IS 10: 2D_PEN_COLOR rs,gs,bs: 2D_FILL_COLOR rs,gs,bs
2D_RECTANGLE 20,0,mc+20,20
2D_PEN_COLOR 0,0,0: 2D_CIRCLE 10,10,5: 2D_CIRCLE mc+30,10,5
2D_PEN_COLOR 164,164,164: 2D_PEN_WIDTH 5: 2D_LINE 10,10,mc+30,10
2D_TARGET_IS 11: 2D_PEN_COLOR rs,gs,bs: 2D_FILL_COLOR rs,gs,bs
2D_RECTANGLE 20,0,mc+20,20
2D_PEN_COLOR 0,0,0: 2D_CIRCLE 10,10,5: 2D_CIRCLE mc+30,10,5
2D_PEN_COLOR 164,164,164: 2D_PEN_WIDTH 5: 2D_LINE 10,10,mc+30,10

HEIGHT 0,hf+74
Jour=VAL(LEFT$(DATE$,2)): Mois=VAL(MID$(DATE$,4,2)): Annee=VAL(RIGHT$(DATE$,4))
bisex = 0: la = 365: lm(2) = 28
IF (FRAC(Annee/4)=0 AND FRAC(Annee/100)>0) OR FRAC(Annee/400)=0
    lm(2) = 29: bisex = 1: la = 366
END_IF
QPaques(Annee)
pre$ = ""
GOSUB Afdat: ' date du jour
END
' ==============================================================================
Afdat:
Jmq(Annee,Mois,Jour): ' quantième de l'année rs_qa%
JourSem(Annee,Mois,Jour): nj$ = jo$(rs_js%): ' nom du jour
m$ = nm$(Mois): ' nom du mois
j$ = STR$(Jour): ' nombre jour
2D_TARGET_IS 2: CLS: PRINT_TARGET_IS 2: FONT_NAME 2,"Arial"
FONT_SIZE 2,7: PRINT_LOCATE 5,5: PRINT nj$+" "+STR$(Jour)+" "+m$
2D_TARGET_IS 3: CLS: PRINT_TARGET_IS 3: FONT_NAME 3, "Arial"
FONT_SIZE 3,15: FONT_COLOR 3,0,0,0
wt = TEXT_WIDTH(m$,3): ht = TEXT_HEIGHT(m$,3): ' taille texte à afficher
x = 5+(wf-wt)/2: y = (h1-ht)/2
PRINT_LOCATE x, y: PRINT m$
FONT_SIZE 3,46: FONT_COLOR 3,255,0,0: FONT_BOLD 3
wt = TEXT_WIDTH(j$,3): ht = TEXT_HEIGHT(j$,3)
x = 5+(wf-wt)/2: y = h1+(h2-ht)/2
PRINT_LOCATE x, y: PRINT j$
FONT_SIZE 3,13: FONT_COLOR 3,0,0,0: FONT_BOLD_OFF 3
wt = TEXT_WIDTH(nj$,3): ht = TEXT_HEIGHT(nj$,3)
x = 5+(wf-wt)/2: y = h1+h2+(h3-ht)/2
PRINT_LOCATE x, y: PRINT nj$
CAPTION 0, STRING$(25," ")+"- ANNÉE "+STR$(Annee)+" -"
' Fête du jour
b$ = RIGHT$("0"+STR$(Mois),2) + RIGHT$("0"+STR$(Jour),2)
IF FILE_EXISTS(fet$) = 1
    FILE_OPEN_READ 1, fet$
    WHILE FILE_EOF(1) = 0
        FILE_READLN 1, a$: IF LEFT$(a$,4) = b$ THEN a$ = MID$(a$,6,50): EXIT_WHILE
    END_WHIlE
    FILE_CLOSE 1
    FONT_SIZE 3,7: FONT_ITALIC 3: wt = TEXT_wIDTH(a$,3): ht = TEXT_HEIGHT(a$,3)
    x = (wf-wt)/2: y = h1+h2+h3+(h4-ht)/2
    PRINT_LOCATE x, y: PRINT a$: FONT_ITALIC_OFF 3
END_IF
' Fêtes mobiles + Événements du jour dans Picture 2
y = 25: x = 5
IF rs_qa%=rs_qpa OR rs_qa%=rs_qas OR rs_qa%=rs_qpe
    IF rs_qa% = rs_qpa THEN a$ = "PAQUES"
    IF rs_qa% = rs_qas THEN a$ = "ASCENSION"
    IF rs_qa% = rs_qpe THEN a$ = "PENTECOTE"
    GOSUB Aff2
END_IF
IF pre$ <> "" THEN a$ = pre$: GOSUB Aff2: pre$ = "": ' heures été et hiver

f$ = fev$ + STR$(Annee) + ".txt": ' fichier des événements de l'année courante
' articles de la forme MMJJ ...libellé (court)...
a$ = ""
IF FILE_EXISTS(f$) = 1
    FILE_OPEN_READ 1, f$
    WHILE FILE_EOF(1) = 0
        FILE_READLN 1, c$
        i% = INSTR(c$, b$ + " ")
        IF i%>0 AND i%<7 THEN a$ = a$+MID$(c$, i%+5, 50)+CHR$(13)+CHR$(10)
    END_WHIlE
    FILE_CLOSE 1
    IF a$ <> "" THEN a$ = LEFT$(a$,LEN(a$)-2): GOSUB Aff2
END_IF
TO_FOREGROUND 50
RETURN
' ==============================================================================
Aff2:
' a$ -> Picture 2 en x,y
PRINT_TARGET_IS 2
Rbk:
i% = INSTR(a$, CHR$(13)+CHR$(10))
IF i% > 0
    b$ = LEFT$(a$, i%-1): a$ = MID$(a$, i%+2,100)
ELSE
    b$ = a$: a$ = ""
END_IF
WHILE LEN(b$) > nc2%
    FOR j% = nc2% TO 1 STEP -1
        IF MID$(b$, j%, 1) = " " THEN EXIT_FOR
    NEXT j%
    PRINT_LOCATE x, y: PRINT LEFT$(b$, j%-1): b$ = MID$(b$, j%+1,50)
    y = y + ht2%
END_WHILE
IF b$ <> "" THEN PRINT_LOCATE x,y: PRINT b$: y = y + ht2%
IF a$ <> "" THEN GOTO Rbk
y = y + 16
RETURN
' ==============================================================================
Suivant:
Jour = Jour + 1
svm% = Mois
IF Jour > lm(Mois)
    Jour = 1: Mois = Mois + 1
    IF Mois > 12
        Mois = 1: Annee = Annee + 1: QPaques(Annee)
        IF (FRAC(Annee/4)=0 AND FRAC(Annee/100)>0) OR FRAC(Annee/400)=0
            bisex = 1: lm(2) = 29: la = 366: ' bissextile
        ELSE
            bisex = 0: lm(2) = 28: la = 365
        END_IF
    END_IF
END_IF
pre$ = ""
IF Mois <> svm% AND (Mois = 3 OR Mois = 10)
    Ete_Hiver(Annee,Mois)
    IF Jour = jeh%
        IF Mois = 3
            pre$ = "Heure d'Été à 2H -> 3H"
        ELSE
            pre$ = "Heure d'Hiver à 3H -> 2H"
        END_IF
    END_IF
END_IF
2D_TARGET_IS 3: 2D_PEN_COLOR 192,192,192: 2D_FILL_COLOR 255,255,255
FOR i% = WIDTH(3) TO 0 STEP -3
    2D_RECTANGLE i%,0,WIDTH(3),HEIGHT(3): WAIT 10
NEXT i%
CLS
GOSUB Afdat
RETURN
' ==============================================================================
Precedent:
Jour = Jour - 1
svm% = Mois
IF Jour < 1
    Mois = Mois - 1
    IF Mois < 1
        Mois = 12: Annee = Annee - 1: QPaques(Annee)
        IF (FRAC(Annee/4)=0 AND FRAC(Annee/100)>0) OR FRAC(Annee/400)=0
            bisex = 1: lm(2) = 29: la = 366: ' bissextile
        ELSE
            bisex = 0: lm(2) = 28: la = 365
        END_IF
    END_IF
    Jour = lm(Mois)
END_IF
pre$ = ""
IF Mois <> svm% AND (Mois = 3 OR Mois = 10)
    Ete_Hiver(Annee,Mois)
    IF Jour = jeh%
        IF Mois = 3
            pre$ = "Heure d'Été à 2H -> 3H"
        ELSE
            pre$ = "Heure d'Hiver à 3H -> 2H"
        END_IF
    END_IF
END_IF
2D_TARGET_IS 2: 2D_PEN_WIDTH 5: 2D_PEN_COLOR 192,192,192
FOR i% = 0 TO wf step 4
    2D_LINE i%,0,i%,HEIGHT(2): WAIT 10
    CLS
NEXT i%
GOSUB Afdat
RETURN
' ==============================================================================
Saut:
SHOW 50: TO_FOREGROUND 50
RETURN
' ==============================================================================
Saut1:
i% = NUMBER_CLICK
SELECT i%
    CASE 53: Annee = Annee-1
    CASE 52: Mois = Mois-1: IF Mois < 1 THEN Mois = 12 : Annee = Annee-1
    CASE 51: rs_qa% = rs_qa%-10
            IF rs_qa% < 1
                Jour = 1
            ELSE
                Qjm(Annee,rs_qa%)
            END_IF
    CASE 54: rs_qa% = rs_qa%+10
            IF rs_qa% > la
                Jour = 31
            ELSE
                Qjm(Annee,rs_qa%)
            END_IF
    CASE 55: Mois = Mois+1: IF Mois > 12 THEN Mois = 1: Annee = Annee+1
    CASE 56: Annee = Annee+1
END_SELECT
GOSUB Afdat
RETURN
' ==============================================================================
Masks:
HIDE 50
RETURN
' ==============================================================================
Crayon:
2D_TARGET_IS 1: 2D_PEN_COLOR 0,0,0: 2D_PEN_WIDTH 1
x = 12: y = HEIGHT(1)-24: x1 = WIDTH(1)-15
2D_LINE x,y+8,x+20,y: 2D_POLY_TO x1,y: 2D_POLY_TO x1,y+16: 2D_POLY_TO x+20,y+16
2D_POLY_TO x+23,y+12: 2D_POLY_TO x1,y+12: 2D_POLY_TO x1,y+4: 2D_POLY_TO x+22,y+4
2D_POLY_TO x+20,y: 2D_POLY_TO x+23,y+4
2D_POLY_TO x+23,y+4: 2D_POLY_TO x+23,y+12: 2D_POLY_TO x+20,y+16: 2D_POLY_TO x,y+8
2D_FLOOD x+30,y+8,255,255,0: 2D_FLOOD x+30,y+14,164,164,0: 2D_FLOOD x+30,y+2,192,192,0
2D_FLOOD x+5,y+8,220,196,196: 2D_LINE x,y+8,x+7,y+8
PRINT_TARGET_IS 1: FONT_NAME 1,"Arial": FONT_SIZE 1,5: FONT_ITALIC 1: 2D_FILL_COLOR 255,255,0
FONT_COLOR 1,80,80,80: PRINT_LOCATE x1-25,y+5: PRINT "CLIC"
RETURN
' ==============================================================================
Evnt:
' gestion du fichier des événements
IF FILE_EXISTS(fev$ + STR$(Annee)+".txt") = 0
    FILE_OPEN_WRITE 1,fev$ + STR$(Annee)+".txt"
    a$ = "* Fichier des événements " + STR$(Annee) + ", articles de la forme "
    a$ = a$ + "#AAAAMMJJ[espace]texte de l'événement du jour"
    FILE_WRITELN 1, a$
    FILE_CLOSE 1
END_IF
EXECUTE_WAIT "Notepad.exe " + fev$ + STR$(Annee)+".txt"
RETURN
' ==============================================================================
SUB JourSem(Annee,Mois,Jour)
' Jour de la semaine d'une date donnée (0= Dimanche à 6= Samedi) -> rs_js%
DIM_LOCAL js_d
IF VARIABLE("rs_js%") = 0 THEN DIM rs_js%
js_d = Annee
IF Mois<3 THEN js_d = js_d-1
js_d=INT(23*Mois/9)+Jour+4+Annee+INT(js_d/4)-INT(js_d/100)+INT(js_d/400)
IF Mois>=3 THEN js_d = js_d-2
rs_js% = js_d-7*INT(js_d/7)
END_SUB
' ==============================================================================
SUB QPaques(Annee)
' Quantièmes de Pâques, Ascension, Pentecôte en fonction de Annee
' Résultats dans rs_qpa, rs_qas, rs_qpe
DIM_LOCAL qp_a,qp_b,qp_c,qp_d,qp_e,qp_f,qp_g,qp_h,qp_i,qp_k,qp_l,qp_m
DIM_LOCAL qp_bi,qp_ci,qp_cj
IF VARIABLE("rs_qpa") = 0 THEN DIM rs_qpa
IF VARIABLE("rs_qas") = 0 THEN DIM rs_qas
IF VARIABLE("rs_qpe") = 0 THEN DIM rs_qpe
qp_a = 19*FRAC(Annee/19)
qp_b = INT(Annee/100)
qp_c = 100*FRAC(Annee/100)
qp_ci = 4*FRAC(Annee/4)
qp_cj = 400*FRAC(Annee/400)
qp_bi = 0: IF qp_ci = 0 AND (qp_c <> 0 OR qp_cj = 0) THEN qp_bi = 1
qp_d = INT(qp_b/4)
qp_e = 4*FRAC(qp_b/4)
qp_f = INT((qp_b + 8) / 25)
qp_g = INT((qp_b - qp_f + 1) / 3)
qp_h = 30*FRAC((19 * qp_a + qp_b - qp_d - qp_g + 15)/30)
qp_i = INT(qp_c/4)
qp_k = 4*FRAC(qp_c/4)
qp_l = 7*FRAC((32 + 2 * qp_e + 2 * qp_i - qp_h - qp_k)/7)
qp_m = INT((qp_a + 11 * qp_h + 22 * qp_l) / 451)
rs_qpa = qp_h + qp_l - 7 * qp_m + 81 + qp_bi
rs_qpa = INT(rs_qpa + .1)
rs_qas = rs_qpa + 39: rs_qpe = rs_qpa + 49
END_SUB
' ==============================================================================
SUB Jmq(Annee,Mois,Jour)
' Quantième de l'année en fonction de Annee, Mois, Jour -> rs_qa%
DIM_LOCAL Jm_Q, Jm_m
IF VARIABLE("rs_qa%") = 0 THEN DIM rs_qa%
Jm_Q = 0
IF Mois > 1
    FOR Jm_m = 1 TO Mois - 1
        SELECT Jm_m
            CASE 1: Jm_Q = Jm_Q+31
            CASE 2: Jm_Q = Jm_Q+28
IF (FRAC(Annee/4)=0 AND FRAC(Annee/100)>0) OR FRAC(Annee/400)=0 THEN Jm_Q=Jm_Q+1
            CASE 3: Jm_Q = Jm_Q+31
            CASE 4: Jm_Q = Jm_Q+30
            CASE 5: Jm_Q = Jm_Q+31
            CASE 6: Jm_Q = Jm_Q+30
            CASE 7: Jm_Q = Jm_Q+31
            CASE 8: Jm_Q = Jm_Q+31
            CASE 9: Jm_Q = Jm_Q+30
            CASE 10: Jm_Q = Jm_Q+31
            CASE 11: Jm_Q = Jm_Q+30
        END_SELECT
    NEXT Jm_m
END_IF
rs_qa% = Jm_Q+Jour
END_SUB
' ==============================================================================
SUB Qjm(Annee,Q)
' Mois et jour en fonction du quantième -> Mois, Jour
DIM_LOCAL qj_bi%, qj_qt%, qj_lm%
qj_bi% = 0: qj_qt% = 0
IF (FRAC(Annee/4)=0 AND FRAC(Annee/100)>0) OR FRAC(Annee/400)=0 THEN qj_bi%=1
Mois = 1: qj_qt% = 31
IF Q<32
    Jour = Q
ELSE
    WHILE Q > qj_qt%
        Mois = Mois + 1
        IF Mois = 4 OR Mois = 6 OR Mois = 9 OR Mois = 11
            qj_lm% = 30
        ELSE
            IF Mois = 2
                qj_lm% = 28 + qj_bi%
            ELSE
                qj_lm% = 31
            END_IF
        END_IF
        qj_qt% = qj_qt% + qj_lm%
    END_WHILE
    Jour = Q - qj_qt% + qj_lm%
END_IF
END_SUB
' ==============================================================================
SUB Ete_Hiver(annee%,mois%)
' quantième j% de Mars (heure d'été) ou Octobre (heure d'hiver) de l'année donnée
' (c'est le dernier dimanche du mois donné, été: +1/heure, hiver -1/heure)
IF VARIABLE("jeh%") = 0 THEN DIM jeh%
DIM_LOCAL a_h%, b_h%, s_h%
mois% = mois%-2
s_h% = INT(annee%/100): a_h% = annee% - s_h%*100
b_h% = INT(2.6*mois% - .19) + 31 + a_h%+INT(a_h%/4)+INT(s_h%/4)-s_h%*2
jeh% = 31-INT((b_h%/7-INT(b_h%/7))*7+.1)
END_SUB
' ==============================================================================

0101,JOUR DE L'AN
0102,St Basile
0103,Ste Geneviève
0104,St Odilon
0105,St Edouard
0106,Ste Mélaine
0107,St Raymond
0108,St Lucien
0109,St Alix
0110,St Guillaume
0111,St Paulin
0112,Ste Tatiana
0113,Ste Yvette
0114,Ste Nina
0115,St Rémi
0116,St Marcel
0117,Ste Roseline
0118,Ste Prisca
0119,St Marius
0120,St Sébastien
0121,Ste Agnès
0122,St Vincent
0123,St Barnard
0124,St François de Sales
0125,St Apollos
0126,Ste Paule
0127,Ste Angèle
0128,St Thomas d'Aquin
0129,St Gildas
0130,Ste Martine
0131,Ste Marcelle
*
0201,Ste Ella
0202,Prés. Seigneur
0203,St Blaise
0204,Ste Véronique
0205,Ste Agathe
0206,St Gaston
0207,Ste Eugénie
0208,Ste Jacqueline
0209,Ste Apolline
0210,St Arnaud
0211,ND de Lourdes
0212,St Félix
0213,Ste Béatrice
0214,St Valentin
0215,St Claude
0216,Ste Julienne
0217,St Alexis
0218,Ste Bernadette
0219,St Gabin
0220,Ste Aimée
0221,St Damien
0222,Ste Isabelle
0223,St Lazare
0224,St Modeste
0225,St Roméo
0226,St Nestor
0227,Ste Honorine
0228,St Romain
0229,St Auguste
*
0301,St Aubin
0302,St Charles le Bon
0303,St Guénolé
0304,St Casimir
0305,Ste Olivia
0306,Ste Colette
0307,Ste Félicité
0308,St Jean de Dieu
0309,Ste Françoise
0310,St Vivien
0311,Ste Rosine
0312,Ste Justine
0313,St Rodrigue
0314,Ste Mathilde
0315,Ste Louise
0316,Ste Bénédicte
0317,St Patrice
0318,St Cyrille
0319,St Joseph
0320,PRINTEMPS,St Herbert
0321,Ste Clémence
0322,Ste Léa
0323,St Victorien
0324,Ste Catherine de Suède
0325,Annonciation
0326,Ste Larissa
0327,St Habib
0328,St Gontran
0329,Ste Gwladys
0330,St Amédée
0331,St Benjamin
*
0401,St Hugues
0402,Ste Sandrine
0403,St Richard
0404,St Isidore
0405,Ste Irène
0406,St Marcellin
0407,St Jean-Baptiste de la Salle
0408,Ste Julie
0409,St Gautier
0410,St Fulbert
0411,St Stanislas
0412,St Jules
0413,Ste Ida
0414,St Maxime
0415,St Paterne
0416,St Benoît-Joseph
0417,St Anicet
0418,St Parfait
0419,Ste Emma
0420,Ste Odette
0421,St Anselme
0422,St Alexandre
0423,St Georges
0424,St Fidèle
0425,St Marc
0426,Ste Alida
0427,Ste Zita
0428,Ste Valérie
0429,Ste Catherine de Sienne
0430,St Robert
*
0501,FETE DU TRAVAIL
0502,St Boris
0503,St Philippe/Jacques
0504,St Sylvain
0505,Ste Judith
0506,Ste Prudence
0507,Ste Gisèle
0508,VICTOIRE 1945
0509,Ste Pacôme
0510,Ste Solange
0511,Ste Estelle
0512,St Achille
0513,Ste Rolande
0514,St Mathias
0515,Ste Denise
0516,St Honoré
0517,St Pascal
0518,St Eric
0519,St Yves
0520,St Bernardin
0521,St Constantin
0522,St Emile
0523,St Didier
0524,St Donatien
0525,Ste Sophie
0526,St Bérenger
0527,St Augustin de C.
0528,St Germain
0529,St Aymar
0530,St Ferdinand
0531,Visitation
*
0601,St Justin
0602,Ste Blandine
0603,St Kévin
0604,Ste Clotilde
0605,St Boniface
0605,St Igor
0606,St Norbert
0607,St Gilbert
0608,St Médard
0609,Ste Diane
0610,St Landry
0611,St Barnabé
0612,St Guy
0613,St Antoine de Padoue
0614,St Elisée
0615,Ste Germaine
0616,St J.F. Régis
0617,St Hervé
0618,St Léonce
0619,St Romuald
0620,St Silvère
0621,ETE,St Rodolphe
0622,St Alban
0623,Ste Audrey
0624,St Jean-Baptiste
0625,St Salomon
0626,St Anthelme
0627,St Fernand
0628,St Irénée
0629,St Pierre et Paul
0630,St Martial
*
0701,St Thierry
0702,St Martinien
0703,St Thomas
0704,St Florent
0705,St Antoine
0706,Ste Mariette
0707,ST Raoul
0708,St Thibaut
0709,Ste Amandine
0710,St Ulrich
0711,St Benoît
0712,St Olivier
0713,St Henri Joël
0714,FETE NATIONALE
0715,St Donald
0716,ND du Mt Carmel
0717,Ste Charlotte
0718,St Frédéric
0719,St Arsène
0720,Ste Marina
0721,St Victor
0722,Ste Marie-Madeleine
0723,Ste Brigitte
0724,Ste Christine
0725,St Jacques
0726,Ste Anne
0727,Ste Nathalie
0728,St Samson
0729,Ste Marthe
0730,Ste Juliette
0731,St Ignace de Loyola
*
0801,St Alphonse
0802,St Julien-Eymard
0803,Ste Lydie
0804,St Jean-Marie Vianney
0805,St Abel
0806,Transfiguration
0807,St Gaétan
0808,St Dominique
0809,St Amour
0810,St Laurent
0811,Ste Claire
0812,Ste Clarisse
0813,St Hippolyte
0814,St Evrard
0815,ASSOMPTION
0816,St Armel
0817,St Hyacinthe
0818,Ste Hélène
0819,St Jean Eudes
0820,St Bernard
0821,St Christophe
0822,St Fabrice
0823,Ste Rose de lima
0824,St Barthélémy
0825,St Louis
0826,Ste Natacha
0827,Ste Monique
0828,St Augustin
0829,Ste Sabine
0830,St Fiacre
0831,St Aristide
*
0901,St Gilles
0902,Ste Ingrid
0903,Grégoire
0904,Ste Rosalie
0905,Ste Raïssa
0906,St Bertrand
0907,Ste Reine
0908,Nativité ND
0909,St Alain
0910,Ste Inès
0911,St Adelphe
0912,St Apollinaire
0913,St Aimé
0914,Ste Croix
0915,St Roland
0916,Ste Edith
0917,St Renaud
0918,Ste Nadège
0919,Ste Emilie
0920,St Davy
0921,St Matthieu
0922,St Maurice
0923,AUTOMNE,St Constant
0924,Ste Thècle
0925,St Hermann
0926,St Côme Damien
0927,St Vincent de Paul
0928,St Venceslas
0929,St Michel Gabriel
0930,St Jérôme
*
1001,Ste Thérèse E.J.
1002,St Léger
1003,St Gérard
1004,St François d'Assise
1005,Ste Fleur
1006,St Bruno
1007,St Serge
1008,Ste Pélagie
1009,St Denis
1010,St Ghislain
1011,St Firmin
1012,St Wilfried
1013,St Géraud
1014,St Juste
1015,Ste Thérèse d'Avila
1016,Ste Edwige
1017,St Baudouin
1018,St Luc
1019,St René
1020,Ste Adeline
1021,Ste Céline
1022,Ste Salomé
1023,St Jean de Capistran
1024,St Florentin
1025,St Enguerrand
1026,St Dimitri
1027,Ste Emeline
1028,St Simon
1029,St Narcisse
1030,Ste Bienvenue
1031,St Quentin
*
1101,TOUSSAINT
1102,Défunts
1103,St Hubert
1104,St Charles
1105,Ste Sylvie
1106,Ste Bertille
1107,Ste Carine
1108,St Geoffroy
1109,St Théodore
1110,St Léon
1111,ARMISTICE 1918
1112,St Christian
1113,St Brice
1114,Ste Sidoine
1115,St Albert
1116,Ste Marguerite
1117,Ste Elisabeth
1118,Ste Aude
1119,St Tanguy
1120,St Edmond
1121,Présentation de Marie
1122,Ste Cécile
1123,St Clément
1124,Ste Flora
1125,Ste Catherine Labouré
1126,Ste Delphine
1127,St Séverin
1128,St Jacques de la Marche
1129,St Saturnin
1130,St André
*
1201,Ste Florence
1202,Ste Viviane
1203,St François Xavier
1204,Ste Barbara
1205,St Gérald
1206,St Nicolas
1207,St Ambroise
1208,Immaculée Conception
1209,St Pierre Fourier
1210,St Romaric
1211,St Daniel
1212,Ste Jeanne Françoise Chantal
1213,Ste Lucie
1214,Ste Odile
1215,Ste Ninon
1216,Ste Alice
1217,St Judicaël
1218,St Gatien
1219,St Urbain
1220,St Théophile
1221,HIVER
1222,Ste Fr.-Xavière
1223,St Armand
1224,Ste Adèle
1225,NOËL
1226,St Etienne
1227,St Jean Apôtre
1228,Sts Innocents
1229,St David
1230,St Roger
1231,St Sylvestre