Code and Definition of Sankara Jayanti
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
Definition & Code- Deepavali = Tula Krishna Chaturdasi Coinciding with 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 > 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
DEFINITION OF EASTER AND CODES FOR ALL THREE
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
Code for Kataka ( Cancer ) New Moon
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
Akshaya Thriteeya – Code & Definition
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
Definition & Code for Ramayana Month
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
Definition and Code for Vishu
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
Code & Definition of Pongal
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
Code for Hindu Lunar Year
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