; ************************************ 
; Master Library 20
; ************************************
; Day of the week, Days between dates


#EMULATOR c:\ti-59\ml\20\ML-20.t59

#LISTING c:\ti-59\ml\20\ML-20.LST

#AZEMULATOR c:\ti-59\ml\20\ML-20.TI


lbl s+                                ;000
( . 4 * rcl 1 + 2 . 3 ) int +/-
+ gto ge

lbl mean                              ;018
0 1/x rtn

lbl e'                                ;023
( sto 1 cp inv ge mean inv int
inv sum 1 * 4 inv log ) sto 3 x%t
1 5 8 1 ge mean 3 2 x%t ( ( rcl 1 
/ 1 0 0 ) sto 1 inv int inv sum 1
* 1 0 0 ) sto 2 ge mean 1 3 x%t rcl 1
ge mean ( 3 6 5 * rcl 3 + rcl 2 + 3
1 * rcl 1 - 3 1 + 3 x%t rcl 1 ge s+ 
1 inv sum 3

lbl ge                                 ;116
( rcl 3 / 4 ) int - ( . 7 5 + (
rcl 3 / 1 0 0 ) int * . 7 5 ) int
) rtn

lbl a                                  ;148
e' sto 4 0 rtn

lbl b                                  ;155
e' sto 5 0 rtn

lbl c                                  ;162
( rcl 5 - rcl 4 ) rtn

lbl d                                  ;172
( ( e' sto 1 +/- / 7 ) int * 7
+ rcl 1 ) rtn


#end 
