The Sidereal Winter Solstice
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 > 270 .and. lsun < 300 .and. ahargana > ah1 .and. ahargana < ah2
store date to dt
store lsun to lx3
display
?LX3
lx =lx3-270
hx= lx*3600/149.58
?”in Mins from Solstice”,hx,lx
?dt