63-TI99:(Christophe GOENAGA)[WinTi99 PASTE]
1 INPUT "SI VOUS VOULEZ SAVOIR QUEL JOUR DE LA SEMAINE NOUS SOMMES ENTREZ LA DATE SOUS FORME JJ,MM(1985)":JJ,MM
2 PRINT SEG$("MARMERJEUVENSAMDIMLUN",1+3*(VAL(SEG$("003128313031303131303130",MM,2))+JJ-1-7*INT((VAL(SEG$("003128313031303131303130",MM,2))+JJ-1)/7)),3