Vishu = Day when Sun crosses 0 Degree in the Sidereal Zodiac, when his Gross RA s 0, Longitude = 0 and his declination = 0 Degree.
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 > 0 .and. lsun < 1 .and. ahargana > ah1 .and. ahargana < ah2
store date to dt
store lsun to lx1
skip-1
display
store lsun to lx3
store date to dt1
lx =lx3-0
hx= lx*3600/149.58
?”in Mins from Solstice”,hx,lx
if abs(lx) > .2205 .and. lx1 < 0
dtx =dt1
else
dtx =dt
endif
?dtx
wait