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

Easter is the First Sunday after the Equinoctial 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. thidhi=”POURNAMI” .and. ahargana > ah1 .and. ahargana < ah2

store date to dt
STORE RECNO() TO RN
DISPLAY
GO RN

LOCATE FOR DAY=”S” .AND. RECNO() > RN
SKIP

store date to dt1
skip-2
store date to dt2
skip-1
store date to dt3

use holix
appe blank
repl holyday with “Easter”
repl date with dt1

appe blank
repl holyday with “Good Friday”
repl date with dt2

appe blank
repl holyday with “Monte Thursday”
repl date with dt3

?dt1, dt2,dt3

Full Moons are good for Festivals and New Moons for respecting departed elders.

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

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

display
store date to dt

?” Kataka New Moon”, dt

Vaishakha Shukla Thriteeya = A T

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 > 0 .and. lsun < 1 .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 = “THRITHEEYA”

display
store date to 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 > 90 .and. lsun < 120 .and. ahargana > ah1 .and. ahargana < ah2
store date to dt
store lsun to lx1

skip-1
display

store lsun to lx3
store date to dt1

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

?”in Mins from Solstice”,hx,lx

if abs(lx) > .2205 .and. lx1 < 90
dtx =dt1
else
dtx =dt
endif

?dtx

Vishu = Day when Sun crosses 0 Degree in the Sidereal Zodiac, when his Gross RA s 0, Longitude = 0 and his declination = 0 Degree.

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 > 0 .and. lsun < 1 .and. ahargana > ah1 .and. ahargana < ah2

store date to dt
store lsun to lx1

skip-1
display

store lsun to lx3
store date to dt1

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

?”in Mins from Solstice”,hx,lx

if abs(lx) > .2205 .and. lx1 < 0

dtx =dt1
else
dtx =dt
endif

?dtx
wait

The Sidereal Winter Solstice

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 < 300 .and. ahargana > ah1 .and. ahargana < ah2

store date to dt
store lsun to lx3

display
?LX3

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

?”in Mins from Solstice”,hx,lx

?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”

display
store date to dt

?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 > 270 .and. lsun < 271 .and. ahargana > ah1 .and. ahargana < ah2

skip-1
store date to dt
store lsun to yx1

---

yd =270-yx1

yx = yd*3600/149.58

if yx> 13.5

dt=dt+1

endif

?dt

Rama Navami = Chaitra Shukla Navami. The Ninth Lunation in the Bright Fortnight in the lunar month, Chaitra.

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

?ah1

?ah2

use long20

loca for lsun > 330 .and. lsun < 359 .and. ahargana > ah1 .and. ahargana < ah2

store recno() to re

loca for recno() > re .and. thidhi = “NAVAMI”

store date to string

?dtoc(date)

Source Code

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

loca for starno = 8 .and. lsun > 270 .and. lsun < 300 .and. ahargana > ah1 .and. ahargana < ah2

store date to dt

?dt

use nak
locate for space > lmo
store space to lx

store lx-lmo to lz

if lz > 1.3
dt = dt
else
dt = dt-1
endif

?dt