input” YEAR ” to myear
set cent on
set date brit
use ahas
loca for myear = year
store ahargana to ah1
skip
store ahargana to ah2
use long20
loca for lmoo > 66.66 .and. lmoo < 80 .and. lsun > 240 .and. lsun < 270 .and. ahargana > ah1 .and. ahargana< ah2
store date to dt
?dt
display