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