For a Calendar Round Day (Formula from 1978)
tr=tr0-n5-2n4-4n3+7n2+n1=mod13
day nbr
v=v0+n1=mod 20
h=h0+(200-10)n5-100n4-5n3+20n3+n2=mod 365
(i.e 10th day of 11th month)
or the 1997 formula in Hypercard:
five
into uinal
katun
katun
2 of it
else put
5 of
sign put
Dtz=40[tr2-tr]-(V
or forward 40 to same day name plus 1
h(d2-d1)+20(m2-m1)mod 365
n(H)=Dtz-Dh-mod 52
Dcr=365n(H)+Dh=Maya
(1.0.5)*n(H)+Dh
dn=Dcr+18980n(cr)=Dcr+Maya
(2.12.13.0)*n(cr)
ask "Enter at most five components as follows"
with "9,12,15,13,7"
if it is empty then
exit mouseUp
end if
if item 6 of it is not empty then beep answer "The IS must have
or fewer components!" with "OK"
exit mouseUp
end if if item 2 of it is empty
then put 0 into baktun put 0 into katun put 0 into tun put 0
put item 1 of it into kin
else if item 3 of it is empty then put 0 into baktun put 0 into
put 0 into tun put item 1 of it into uinal
put item 2 of it into kin
else if item 4 of it is empty then put 0 into baktun put 0 into
put item 1 of it into tun
put item 2 of it into uinal
put item 3 of it into kin
else if item 5 of it is empty
then put 0 into baktun put item 1 of it into katun put item
into tun put item 3 of it into uinal put item 4 of it into kin
item 1 of it into baktun put item 2 of it into katun
put item 3 of it into tun put item 4 of it into uinal put item
it into kin
end if answer "Is your Initial Series positive or negative?" with "Negative"
or  "Positive"
if it is "Positive" then put "+" into sign else put "-" into
baktun * 144000 + katun * 7200 + tun * 360 + uinal * 20 + kin
into
temp
if sign is "+" then put temp into line 1 of field "MDN"
else put - temp into line 1 of field "MDN"