'
'	Easter-date calculator
'
? "Easter by the method of "+chr$(27)+"[1mOudin"+chr$(27)+"[21m"
10 input "Enter a year : ",yr
if yr=0 then 99
tc = yr\100
tg = yr%19
tk = (tc-17)\25
tl = (tc-tc\4-(tc-tk)\3+19*tg+15)%30
tla=tl\28
tlb=29\(tl+1)
tlc=(21-tg)\11
tl=tl-tla*(1-tla*tlb)*tlc
tj=(yr+yr\4+tl+2-tc+tc\4)%7
tl=tl-tj
month=3+(tl+40)\44
day=tl+28-31*(month\4)
if month=3 then
 ? "Sunday, March ";day;", ";yr
else
 ? "Sunday, April ";day;", ";yr
fi
goto 10
99 end
