Hey Guys,
Well, the email I sent *wasn't* really a BASIC program but rather a math
formula. The M100 BASIC doesn't have a function called "Floor" ... it
is called "INT". But also I noticed the reference on Wikipedia that I
was looking at was for Eastern Orthodox Easter date, not modern day
Gregorian.
The formula for modern day Gregorian is actually much more compilicated
involving 11 intermediate variables. While writing this equation out
long-hand using only the year variable (Y) would look super impressive,
it would be quite long and not very efficient in terms of computations.
So for completeness (being the programmer that I am), I coded and tested
it in M100 BASIC:
10 DIMM$[12]
15 DATA
"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"
20 FORX=1TO12:READM$[X]:NEXT
25 INPUT"Year (0 to quit)";Y
30 IFY=0THENEND
35 A=YMOD19
40 B=INT(Y/100):C=YMOD100
45 D=INT(B/4) :E=BMOD4
50 G=INT((8*B+13)/25)
55 H=(19*A+B-D-G+15)MOD30
60 I=INT(C/4) :K=CMOD4
70 L=(32+2*E+2*I-H-K)MOD7
75 M=INT((A+11*H+19*L)/433)
80 N=INT((H+L-7*M+90)/25)
85 P=(H+L-7*M+33*N+19)MOD32
90 PRINT "Easter day: ";M$[N];P
95 GOTO25
Ken
On 8/29/21 6:25 PM, Joshua O'Keefe wrote:
Ken,
You have unbalanced parenthesis..... Can you please correct?
?SN ERROR
READY
