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 ahargana > ah1 .and. ahargana< ah2 .and. lsun > 180 .and. lsun < 181
store date to string
display
?”Date”, string
store lsun to lx1
lq = 66.3333 – lx1
if lq > .7748
string= string+1
endif
?string
