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 > 210 .and. lsun < 240 .and. ahargana > ah1 .and. ahargana < ah2 .and. ld > 120 .and. ld < 132
store recno() to rn
display
loca for recno()>rn .and. ld > 120 .and. ld < 132
store recno() to rnx
store date to dt
if found()
use holix
appe blank
repl holyday with “Guruvayur Ekadasi”
repl date with dt
repl definition with ” Vrischika Shukla Ekadasi”
repl mathematic with ” 11th Lunation in Scorpio “
endif