Month: September 2023

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

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