; ************************************************************
; Easter Date
; ************************************************************
; PPX Volume 7 (1982), Number 4/5, page 26

#EMULATOR c:\ti-59\prg2\eastdt\eastdt.t59
#LISTING c:\ti-59\prg2\eastdt\eastdt.lst
#POCKETPC c:\ti-59\prg2\eastdt\eastdt.ti

lbl a
sto 1 $45171335 op 0 op 2 op 5
rcl 1 prt adv rcl 1 - $1900 = 
sto 2 / 1 9 = inv int * 1 9 =
a' sto 3 * 7 + 1 = / 1 9 = int
sto 4 +/- + 4 + ( 1 1 * rcl 3 )
= / 2 9 = inv int * 2 9 = a' sto 5 rcl 2 / 4 = int
sto 6 + rcl 2 + 3 1 - rcl 5 = / 7 =
inv int * 7 = a' sto 7 +/- + 2 5 -
rcl 5 = sto 8 x%t 1 x%t ge b' 3 1 - rcl 8
abs = sto 9 $3013351523 op 2 op 5 rcl 9
prt clr adv adv rtn

lbl b'
$1333352427 op 2 op 5 rcl 8 prt clr adv adv rtn

lbl a'
fix 0 ee inv ee inv fix rtn




#end
 