c : L(, ): "LUNAR UMBRAL ECLIPSES"d  )"BY ERIC BURGESS">d: )"THIS PROGRAM GIVES MAGNITUDE AND THE DATE OF"|d( )"LUNAR UMBRAL ECLIPSESSTARTING AT ANY DATE REQESTED"d2:: )"ENTER THE YEAR TO START";d7 Yd<: )"RUNNING ... PLEASE WAIT"dFLdZYldZD(Z"kE) eA(ZD)$e RAD(X)XI.eAA@eBy_hANeCB;p\heD(U NA) e"E(.Q]uA)FXe,FE(( RAD(D)))Re6GF(( RAD(D))) e@HG(( RAD(C)))~eJIH(( RAD(E)))~ fTI( RAD(I))+f^Jz6(( RAD(D)))$8fhWI JZfr W WlW0*i: vf| W WlW0*ifKW(( RAD(D)))f K f FL f: L(, ): "-------------------------------------------"$g  ) "MAGNITUDE OF THE ECLIPSE IS ... ";:gK(((K),))Bg KHgfgLf(A!G>l)gLL(;O( RAD(D)))(-2~( RAD(C)))gLL(( RAD(D)))>gL(L(( RAD(E)))a)g LdT D hL2((`T c)@)hLL2L%h&M(L2)/h0LLM9h:LLGhDNLRahNO((N33t)6)shXP(O6)hbQ((NP)t)hlR((NP)(Qt))'hv Q;p\ hSQ : hSQhTShT2TRi ()S  iOOiUOT2$iRR'Di T R TT:RRdi T R TT:RRi  ) "THE DATE OF THE ECLIPSE IS ... "i: $) "YEAR ";Oi $) "MONTH ";Ti  $) "DAY ";Ri: j   ): "DO YOU WANT THE NEXT ECLIPSE ";A$j*:.j4 A$"Y" :FL: Yj> A$"N" "INVALID RESPONSE":  jH  ): "DO YOU WANT ANOTHER YEAR ";A$jR A$"Y" : 2j\ A$"N" A$"" "INVALID RESPONSE": Hjf:  ): "DO YOU WANT ANOTHER YEAR ";A$jR A$"Y" : 2j\ A$"N" A$"" "INVAL