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. lsun < 360 .and. ahargana > ah1 .and. ahargana < ah2
store recno() to rn
loca for recno() >rn .and.thidhi = “AMAVAS”
store recno() to rX
loca for recno() >rx .and.thidhi = “POURNAMI”
display
store date to dt
if found()
use holi
appe blank
repl holyday with “Chithra Pournami”
repl date with dt
endif