Easter is the First Sunday after the Equinoctial Full Moon.
input” YEAR ” to myear
set cent on
set date brit
use ahasx
loca for myear = year
store ahargana to ah1
skip
store ahargana to ah2
use long20
loca for LSUN> 330 .and. thidhi=”POURNAMI” .and. ahargana > ah1 .and. ahargana < ah2
store date to dt
STORE RECNO() TO RN
DISPLAY
GO RN
LOCATE FOR DAY=”S” .AND. RECNO() > RN
SKIP
store date to dt1
skip-2
store date to dt2
skip-1
store date to dt3
use holix
appe blank
repl holyday with “Easter”
repl date with dt1
appe blank
repl holyday with “Good Friday”
repl date with dt2
appe blank
repl holyday with “Monte Thursday”
repl date with dt3
?dt1, dt2,dt3