input ” year ” to myear<\/p>\n\n\n\n
set cent on
set date brit<\/p>\n\n\n\n
use ahasx<\/p>\n\n\n\n
loca for myear = year
store ahargana to ah1
skip
store ahargana to ah2<\/p>\n\n\n\n
use long20<\/p>\n\n\n\n
loca for lsun > 330 .and. lsun < 360 .and. ahargana > ah1 .and. ahargana < ah2
store recno() to rn<\/p>\n\n\n\n
loca for recno() >rn .and.thidhi = “AMAVAS”<\/p>\n\n\n\n
store recno() to rX<\/p>\n\n\n\n
loca for recno() >rx .and.thidhi = “POURNAMI”<\/p>\n\n\n\n
display
store date to dt<\/p>\n\n\n\n
if found()<\/p>\n\n\n\n
use holi
appe blank
repl holyday with “Chithra Pournami”
repl date with dt<\/p>\n\n\n\n
endif<\/p>\n","protected":false},"excerpt":{"rendered":"
input ” year ” to myear set cent onset date brit use ahasx loca for myear = yearstore ahargana to ah1skipstore ahargana to ah2 use long20 loca for lsun > 330 .and. lsun < 360 .and. ahargana > ah1 .and. ahargana < ah2store recno() to rn loca for recno() >rn .and.thidhi = “AMAVAS” store recno() … <\/p>\n