DA = 8th Lunation after Black Moon in Kanya
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 > 150 .and. lsun < 180 .and. ahargana > ah1 .and. ahargana < ah2
store recno() to rn
loca for recno()> rn .and. thidhi =”AMAVAS” .and. ahargana > ah1 .and. ahargana < ah2
?” DATE AMAVASI”,DATE
STORE DATE TO DATE0
LOCA FOR thidhi= “ASHTAMI” .AND. DATE > DATE0
store date to dt
display
if found()
use holix
appe blank
repl holyday with “DURGA ASHTAMI”
repl date with dt
repl definition with “Eighth Lunation”
repl mathematic with “Moon 84~96 in Sharad Ritu”
endif
?dt