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 < 271 .and. ahargana > ah1 .and. ahargana < ah2
skip-1
store date to dt
store lsun to yx1
yd =270-yx1
yx = yd*3600/149.58
if yx> 13.5
dt=dt+1
endif
?dt