Kuchela Day = First WED in Dhanu
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
go top
locate for lsun > 239 .and. lsun < 240 .and. ahargana > ah1 .and. ahargana < ah2
?lsun
?ah1
?ah2
store recno() to re
go re
?re
loca for day=”Wed” .and. recno() > re
store date to dt
?date