Votre jour de naissance !

input "Jour : ";jour
input "Mois : ";mois
[ann]
input "Année : ";annee
ann$ = str$(annee)
if len(ann$)<> 4 or annee >2005 goto [ann]
b = 0
g = 0
h = annee
if mois > 2 then h = annee + 1
for var = h to 2005
    if int(var / 100) = var / 100 then b = b - 1
    if int(var / 400) = var / 400 then b = b + 1
    if int(var / 4) = var / 4 then g = g + 1
next
c = 2005 - annee
d = int(c / 4)
d = g + b
e =365 * c + d
select case mois
    case 1
        e = e + 334
    case 2
        e = e + 306
    case 3
        e = e + 275
    case 4
        e = e + 245
    case 5
        e = e + 214
    case 6
        e = e + 184
    case 7
        e = e + 153
    case 8
        e = e + 122
    case 9
        e = e + 92
    case 10
        e = e + 61
    case 11
        e = e + 31
    case 12
        e = e + 0
end select
m = mois
if m = 1 or m = 3 or m =  5 or m = 7 or m = 8 or m = 10 or m = 12 then e = e + (31 - jour)
if m = 4 or m = 6 or m =  9 or m = 11 then e = e + (30 - jour)
if m = 2 then e = e + (28 - jour)
while e > 70000
    e = e - 70000
wend
while e > 7000
    e = e - 7000
wend
while e > 700
    e = e - 700
wend
while e > 70
    e = e - 70
wend
while e > 7
    e = e - 7
wend
select case e
    case 1
        print "Vendredi"
    case 2
        print "Jeudi"
    case 3
        print "Mercredi"
    case 4
        print "Mardi"
    case 5
        print "Lundi"
    case 6
        print "Dimanche"
    case 7
        print "Samedi"
    case 0
        print "Samedi"
end select