mera = year (mdate) -825

use long20

locate for date = mdate
store lsun to ls
store sg1 to sgx

if ls < 120

mera = mera
else
mera = mera+1
endif

store mera to mlera
?mlera

skera = year(date())-78

use ephex

locate for date = date()
store lsun to ls

if ls < 250

skera = skera
else
skera = skera -1
endif

store skera to skxera

kera= mdate+3102 B C E

use long20
locate for date = date()
store lsun to ls

if ls < 255

kera = kera
else
kera = kera -1

endif

https://www.youtube.com/watch?v=R-1QofuAOAQ