Category : Miscellaneous Language Source Code
Archive   : PCLIST8B.ZIP
Filename : EASTERS.CLT

PROC 0
/* This CLIST computes the date Easter will occur on for a given year */
/* and allows a specified number of years to be calculated. */
CONTROL NOFLUSH
WRITENR Beginning year (ENTER ALL DIGITS) ===>
READ &y
IF &y = THEN +
SET Y = 19&substr(7:8,&sysdate)
writenr Number of years to view ===>
read &num
do &beg=1 to &num
SET &G = &Y
SET &G = &G//19
SET &G = &G + 1
SET &C = (&Y / 100) + 1
SET &X = (3 * &C / 4) - 12
SET &Z = ((8 * &C + 5) / 25) - 5
SET &D = (5 * &Y / 4) - &X - 10
SET &E = 11 * &G + 20 + &Z - &X
IF &E < 0 THEN SET &E = &E + 30
SET &E = &E//30
IF &E = 24 THEN GOTO E24
IF (&E = 25) && (&G > 11) THEN GOTO E24
GOTO NE
E24: +
SET &E = &E + 1
NE: +
SET &N = 44 - &E
IF &N < 21 THEN SET &N = &N + 30
SET &B = &D + &N
SET &B = &B//7
SET &N = &N + 7 - &B
IF &N > 31 THEN +
do
SET &N = &N - 31
WRITE Easter Sunday &Y, is April &N
end
ELSE WRITE Easter Sunday &Y, is March &N
set &y=&y+1
end
EXIT