Source Code<\/p>\n\n\n\n
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
store lmoo to lmo<\/p>\n\n\n\n
loca for starno = 8 .and. lsun > 270 .and. lsun < 300 .and. ahargana > ah1 .and. ahargana < ah2<\/p>\n\n\n\n
store date to dt<\/p>\n\n\n\n
?dt<\/p>\n\n\n\n
use nak
locate for space > lmo
store space to lx<\/p>\n\n\n\n
store lx-lmo to lz<\/p>\n\n\n\n
if lz > 1.3
dt = dt
else
dt = dt-1
endif<\/p>\n\n\n\n
?dt<\/p>\n","protected":false},"excerpt":{"rendered":"
Source Code input” YEAR ” to myear set cent onset date brit use ahasx loca for myear = yearstore ahargana to ah1skipstore ahargana to ah2 use long20store lmoo to lmo loca for starno = 8 .and. lsun > 270 .and. lsun < 300 .and. ahargana > ah1 .and. ahargana < ah2 store date to dt … <\/p>\n