1 MODE 1:PEN 3:INPUT"jj,mm,aaaa ";x,y,z:c=-(y<3):MODE 0:PRINT"   LE: "RIGHT$(STR$(100+x),2)" "RIGHT$(STR$(100+y),2)STR$(z)STRING$(20,&D8),TAB(7)"TOMBE UN":PEN 4:FOR b=0 TO 6:j$(b)=MID$("DIMANCHE LUNDI    MARDI MERCREDI JEUDI  VENDREDI SAMEDI ",b*8+1,8)
2 LOCATE 7,7+b:PRINT j$(b):NEXT:a$(0)="NON":a=z-c:m=y+12*c-2:j=(x+a+a\4-a\100+a\400+(31*m)\12) MOD 7:PEN 13:PRINT,,,TAB(8)"ANNEE"TAB(9)a$(-(z MOD 4=0 AND(z MOD 100>0 OR z MOD 400=0)))"     BISSEXTILE":PEN 15:LOCATE 5,j+7:PRINT"# "j$(j)" #":CALL &BB06:RUN