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 chandra2
LOCA FOR MONTH= “BHADRA”
STORE RECNO() TO RE
?date
use long20
go re
LOCATE FOR lsun >120 .and. lsun < 150 .and. LD > 36 .and. ld < 48 .and. ahargana > ah1 .and. ahargana < ah2
?dATE
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 chandra2
LOCA FOR MONTH= “BHADRA”
STORE RECNO() TO RE
?date
use long20
go re
LOCATE FOR lsun >120 .and. lsun < 150 .and. LD > 36 .and. ld < 48 .and. ahargana > ah1 .and. ahargana < ah2
?dATE 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 chandra2 LOCA FOR MONTH= “BHADRA” STORE RECNO() TO RE ?date use long20 go re LOCATE FOR lsun >120 .and. lsun < 150 .and. LD > 36 .and. ld < 48 .and. ahargana > ah1 .and. ahargana < ah2 ?dATE
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 chandra2
LOCA FOR MONTH= “BHADRA”
STORE RECNO() TO RE
?date
use long20
go re
LOCATE FOR lsun >120 .and. lsun < 150 .and. LD > 36 .and. ld < 48 .and. ahargana > ah1 .and. ahargana < ah2
?dATE