; *********************************************
; Moon Phase Any Date
; *********************************************
; From PPX-59 Program 788015, by Thomas Friedel

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

lbl a
pgm 20 a 7 1 9 . 1 9 7 8 pgm 20
b ( 1 - ( pgm 20 c abs /
2 9 . 5 3 ) inv int ) fix 2
ee inv ee inv fix rtn



#end
