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
store lmoo to lmo
store lsun to lsu
lux=lmo -lsu
loca for ld >712 .and. ld< 812 .and. lmoo >40 .and. lmoo < 53.33 .and. lsun > 120 .and. lsun <150 .and. ahargana > ah1 .and. ahargana < ah2
store date to dt
display
?” ASH ROH”, dt
if found()
use holix
appe blank
repl holyday with “Ashtami Rohini”
repl date with dt
repl definition with ” Eighth LUNATION in LEO”
repl mathematic with ” Moon in 4th constellation”
endif