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 > 180 .and. lsun <181 .and. ahargana > ah1 .and. ahargana < ah2
display
store lmoo to lmo
store lsun to lsu
store recno() to rn
loca for ld >156.and. ld < 168 .and. recno() > rn
display
store date to dt
display
if found()
use holix
appe blank
repl holyday with “Deepavali”
repl date with dt
repl definition with ” Tula Krishna Chaturdasi”
repl mathematic with ” Coincides with Full Moon”
endif