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 > 237 .and. lsun < 238 .and. ahargana > ah1 .and. ahargana < ah2
store date to dt
store lsun to lx1
skip-1
store date to dt1
xd = lx1 -270
lx = xd*3600/149.58
?”Solstice at hours before IM “,lx, xd
?”Solstice at hrs “,lx,”on”, dt1
?dt