'
'	Easter date calculator
'
? "Easter by the method of "+chr$(27)+"[1mCarter"+chr$(27)+"[21m"
10 input "Enter a year : ",yr
if yr=0 then 99
if yr<1900 or yr>2099 then 89
tb=225-11*(yr%19)
td=(tb-21)%30+21
te=(yr+yr\4+td+1)%7
day=td+7-te
if day<32 then
 ? "Sunday, March ";day;", ";yr
else
 ? "Sunday, April ";day-31;", ";yr
fi
goto 10
89 ? "1899 < year < 2100"
goto 10
99 end

