input” YEAR ” to myear<\/p>\n\n\n\n
set cent on
set date brit<\/p>\n\n\n\n
use ahasx<\/p>\n\n\n\n
loca for myear = year
store ahargana to ah1
skip
store ahargana to ah2<\/p>\n\n\n\n
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<\/p>\n\n\n\n
xd = lx1 -270<\/p>\n\n\n\n
lx = xd*3600\/149.58<\/p>\n\n\n\n
?”Solstice at hours before IM “,lx, xd
?”Solstice at hrs “,lx,”on”, dt1<\/p>\n\n\n\n
?dt<\/p>\n","protected":false},"excerpt":{"rendered":"
input” YEAR ” to myear set cent onset date brit use ahasx loca for myear = yearstore ahargana to ah1skipstore ahargana to ah2 use long20loca for lsun > 237 .and. lsun < 238 .and. ahargana > ah1 .and. ahargana < ah2store date to dtstore lsun to lx1skip-1store date to dt1 xd = lx1 -270 lx … <\/p>\n