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 lmoo > 26.66 .AND. lmoo < 40 .and. ahargana > ah1 .and. ahargana < ah2 .and. lsun> 210 .and. lsun< 240
display
store date to dt
?dt
Program shows 27/11/2023 as date for above.