PROGRAM: EASTER
 
:ClrHome
:Disp "  THIS PROGRAM"
:Disp " GIVES THE DATE"
:Disp "   OF EASTER"
:Disp "    FOR ANY"
:Disp "   GIVEN YEAR"
:Disp ""
:Disp "PRESS ENTER"
:Pause
:If getKey=105
:Goto A
:
:Lbl A
:ClrHome
:Disp "ENTER YEAR"
:Input X
:If X > 1583      **Greater than of equal to**
:Goto B
:If X < 1583
:Goto C
:
:Lbl B
:X/19 -> Y
:X-(int Y*19) -> A
:X/100 -> B
:X-(int B*100) -> C
:B/4 -> D
:B-(4*int D) -> E
:(int B+8)/25 -> F
:(int B-int F+1)/3 -> G
:(19A+int B-int D-int G+15)/30 -> Y
:(19A+int B-int D-int G+15)-(30*Y) -> H
:C/4 -> I
:C-(4*int I) -> K
:(32+2E+2int I-H-K)/7 -> Y
:(32+2E+2int I-H-K)-(7*Y) -> L
:(A+11H+22L)/451 -> M
:(H+L-7int M+114)/31 -> N
:(H+L-7int M+114)-(31*int N) -> P
:P+1 -> P
:ClrHome
:Disp "MONTH NUMBER"
:Disp int N
:Disp ""
:Disp "DAY NUMBER"
:Disp P
:Stop
:
:Lbl C
:X/4 -> Y
:X-(int Y*4) -> A
:X/7 -> Y
:X-(int Y*7) ->B
:X/19 -> Y
:X-(int Y*19) -> C
:(19*C+15)/30 -> Y
:(19*C+15)-(int Y*30) -> D
:(2A+4B-D+34)/7 -> Y
:(2A+4B-D+34)-(int Y*7) -> E
:(D+E+114)/31 -> F
:(D+E+114)-(int F*31) -> G
:ClrHome
:Disp "MONTH NUMBER" 
:Disp int F
:Disp ""
:Disp "DAY NUMBER"
:Disp G+1