10        CLS
20        REM
30        PRINT :PRINT :PRINT
40        PRINT TAB(33) "A SPECIAL PROGRAM"
50        PRINT :PRINT
60        PRINT TAB(21) "****** THE DATE OF EASTER  SUNDAY ******"
70        PRINT :PRINT
80        PRINT  TAB(33) "BY CHRIS SPRATT"
90        PRINT
100        PRINT TAB(35) " SEPT 1984"
101        PRINT TAB(35) "VICTORIA, BC"
110        PRINT
120        LOCATE  24,25
130        PRINT  "PRESS ANY KEY TO CONTINUE"
140       IF INKEY$ = "" THEN 140
150        CLS: PRINT :PRINT :PRINT :PRINT :
160   REM  --  THE DETERMINATION OF EASTER --
170   REM  BY CHRIS SPRATT  --  AUGUST 1984
180   REM  BULL. INST. MATH. VOL2 NO2 1966
190       LOCATE  5,29 :  INPUT "YEAR OF INTEREST "; Y
200       A = INT(((Y/19 - INT(Y/19)) * 19) +.5)
210       B = INT(Y/100)
220       C = INT(((Y/100 - INT(Y/100)) * 100) + .5)
230       D = INT (B/4)
240       E = INT (((B/4 -INT(B/4)) * 4) + .5)
250       G = INT (((8 * B) + 13)/25)
260       J = B - D - G
270       IF Y < 1583 THEN J = 30
280       H1 = INT(((11 * J) - 4)/30)
290       H2 = INT (((7 * A) + H1 + 6)/11)
300       HH = 19 * A + J + 15 - H2
310       H = INT (((HH/29 - INT (HH/29)) * 29) +.5)
320       I = INT (C/4)
330       K = INT(((C/4 - INT (C/4)) * 4) + .5)
340       LL = 32 + 2 * E + 2 * I - K - H
350       IF Y < 1583 THEN LL = 34 + B + 2 * I - H - K
360       L = INT (((LL/7 - INT (LL/7)) * 7) +.5)
370       N = INT (( 90 + H + L)/25)
380       PP = 19 + H + L + N
390       P = INT (((PP/32 - INT (PP/32 )) * 32) + .5)
400       PRINT :PRINT :PRINT :PRINT
410       IF N = 4 THEN N$="APRIL"
420       IF N = 3 THEN N$="MARCH"
430       CLS : PRINT :PRINT :PRINT :PRINT
440       PRINT TAB(20) "EASTER SUNDAY IN " ;Y;" IS ..."
450       PRINT  : PRINT : PRINT
460       PRINT TAB(30) N$; P
470       PRINT :PRINT :PRINT
480       PRINT TAB(20) : INPUT "DO YOU WANT ANOTHER YEAR Y/N";A$
490       IF A$ = "Y" THEN CLS: GOTO 190
500       IF A$ = "N" THEN GOTO 510
510       END