You are here

easter_butcher.bas


Title: easter_butcher
Description: Easter by the method of Butcher

Category: Utilities
Copyright: Bob Riess
Email: riessb@usa.net
Created: May 2001
Version: 1.0
Sbver: 0.6


'#sec:Main
? "Easter by the method of ";cat(1);"Butcher";cat(-1)
10 input "Enter a year : ",yr
if
yr=0 then 99
ta=yr%19
tb=yr\\100
tc=yr%100
td=tb\\4
te=tb%4
tf=(tb+8)\\25
tg=(tb-tf+1)\\3
th=(19*ta+tb-td-tg+15)%30
ti=tc\\4
tk=tc%4
tl=(32+2*te+2*ti-th-tk)%7
tm=(ta+11*th+22*tl)\\451
day=th+tl-7*tm+114
mon=day\\31
day=day%31+1
if
mon=3 then
? "Sunday, March ";day;", ";yr
else
? "Sunday, April ";day;", ";yr
fi
goto 10
99 end
'