Code to Compute Malayalam Era

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