HIndu Astrology Consultancy Research & Software – 9388556053 – eastrovedica.com- zodiacastro1 @gmail.com

DA = 8th Lunation after Black Moon in Kanya

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 lsun > 150 .and. lsun < 180 .and. ahargana > ah1 .and. ahargana < ah2

store recno() to rn

loca for recno()> rn .and. thidhi =”AMAVAS” .and. ahargana > ah1 .and. ahargana < ah2
?” DATE AMAVASI”,DATE
STORE DATE TO DATE0

LOCA FOR thidhi= “ASHTAMI” .AND. DATE > DATE0
store date to dt
display

if found()

use holix
appe blank
repl holyday with “DURGA ASHTAMI”
repl date with dt
repl definition with “Eighth Lunation”
repl mathematic with “Moon 84~96 in Sharad Ritu”



endif

?dt

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 lsun > 330 .and. lsun < 360 .and. ahargana > ah1 .and. ahargana < ah2
store recno() to rn

loca for recno() >rn .and.thidhi = “AMAVAS”

store recno() to rX

loca for recno() >rx .and.thidhi = “POURNAMI”

display
store date to dt

if found()

use holi
appe blank
repl holyday with “Chithra Pournami”
repl date with dt

endif

Daily Astro Forecast at https://www.eastrovedica.com/html/daily.htm

Edit

Like

Comment

Share

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

use long20
loca for lsun > 0 .and. lsun < 1 .and. ahargana > ah1 .and. ahargana < ah2

store recno() to rn

loca for thidhi=”AMAVAS” .and. recno() > rn

display
store date to dt

if found()

use holix
appe blank
repl holyday with “Vaisakha Lunar Month”
repl definition with “Second Lunar Month”
repl mathematic with ” From Lunisolar 0″
repl date with dt

endif
?dt

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

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 lsun > 249 .and. lsun < 250 .and. ahargana > ah1 .and. ahargana < ah2
store date to dt
display

store date to dt
store lsun to lx1

skip-1
display

store lsun to lx3
store date to dt1

lx =lx3-249
hx= lx*3600/149.58

?”Mins from Solstice”,hx
?”Longitudinal diff from S Point”,lx

if abs(lx) > .2205
dtx =dt1
else
dtx =dt
endif

?dtx

if found()

use holi
appe blank
repl holyday with “Mithra Jayanti”
repl date with dtx

endif

Why are the pseudosecularists & co rattled by India being renamed as Bharat?

Bha means that which illumines all sciences

Rathi means Love for all mankind

Tha means overcoming difficulties,

Such a land is Bharat clled !

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

** Vaishakha Shukla Panchami

use long20

loca for lsun > 0 .and. lsun < 1 .and. ahargana > ah1 .and. ahargana < ah2
store lmoo to lmo
store lsun to lsu

lux = lmoo -lsun

store recno() to rn

loca for ld > 48 .and. ld < 60 .and. recno() > rn
display

store date to dt
display

?”Sankara Jayanti”, dt

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 lsun > 180 .and. lsun <181 .and. ahargana > ah1 .and. ahargana < ah2

display
store lmoo to lmo
store lsun to lsu

store recno() to rn

loca for ld >156.and. ld < 168 .and. recno() > rn
display

store date to dt
display

if found()

use holix
appe blank
repl holyday with “Deepavali”
repl date with dt
repl definition with ” Tula Krishna Chaturdasi”
repl mathematic with ” Coincides with Full Moon”

endif