Our method is based on the Fourth & Fifth systems of Prediction, Planetary Hours, Kala Hora and Stellar Transit.Try
Code for Gvr Ekadasi
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 > 210 .and. lsun < 240 .and. ahargana > ah1 .and. ahargana < ah2 .and. ld > 120 .and. ld < 132
store recno() to rn
display
loca for recno()>rn .and. ld > 120 .and. ld < 132
store recno() to rnx
store date to dt
if found()
use holix
appe blank
repl holyday with “Guruvayur Ekadasi”
repl date with dt
repl definition with ” Vrischika Shukla Ekadasi”
repl mathematic with ” 11th Lunation in Scorpio “
endif
Code for Makara Bharani
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 > 270 .and. lsun < 271 .and. ahargana > ah1 .and. ahargana < ah2
store recno() to rn
loca for recno() > rn .and. starno = 2
display
wait”
store date to dt
if found()
use holi
appe blank
repl holyday with “Makara Bharani”
repl date with dt
endif
Code for Ashtami Rohini
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
store lmoo to lmo
store lsun to lsu
lux=lmo -lsu
loca for ld >712 .and. ld< 812 .and. lmoo >40 .and. lmoo < 53.33 .and. lsun > 120 .and. lsun <150 .and. ahargana > ah1 .and. ahargana < ah2
store date to dt
display
?” ASH ROH”, dt
if found()
use holix
appe blank
repl holyday with “Ashtami Rohini”
repl date with dt
repl definition with ” Eighth LUNATION in LEO”
repl mathematic with ” Moon in 4th constellation”
endif
India’s Day
Free Code for Durga Ashtami
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
Code for Chaitra Pournami, Full Moon
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
Code for the Sacred Vaishakha
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
Code for the controversial Ganesh Chaturthi G C = Bhadra Shukla Chaturthi
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