*"YEAR(XX),MONTH(XX),DATE(XX)";Y,M,DC172,Y:171,M:170,D`53280,0:53281,0:646,1Y(172)1900:M(171):D(170)"" FIGURE OUT DAY OF WEEK/MOON PHASE/JULIAN DATE QY(M3):J(275M9)((7Q7)4)367YD(((Q100)1)34)K DVJ47((J4)7):F10F11:DUDV1:PJ:P1D:D1:M1M:M1:260 MM1:DP1: M AND D WERE CHANGED TO MONTH 1 AND DAY 1 TO GET JUL DAY "646,1:PIP29.530588.2:PHPI((PI)):P2(PH100)1: MOON PHASE ," SUN MON TUE WED THU FRI SAT"! 61105(DU65),30L @:" JAN FEB MAR APR MAY JUNg JM61225(M65),30 T::" JUL AUG SEP OCT NOV DEC ^M6M1M:MM6:1345(M65),30:MM1 h: rM1$" 1111111111222222222233 |M2$"1234567890123456789012345678901; MP$" .<<<<[[[[]]]]>>>>. "h M1M3M5M7M8M10M12A31:450 A30:M2450: NOT FEBRUARY (Y3)A28:450 : NOT LEAP YEAR A29:Y100(Y100)450: NOT CENTURY YEAR) Y400(Y400)A28: CENTURY YR/LEAP YR/BUT NOT DIVISIBLE BY 400G " "(M1$,A):" "(M2$,A)V 1504D,30 ::" JULIAN "(PJ)1;:P=JUL DATE FOR TODAY. J=JAN 1 OF YEAR DLPJ1: " WEEK"((DL365)52)1 FG1PH$"N":490 PH$(MP$,(P24),1) :" MOON PHASE ";PH$L T$(TI$,2)":"(TI$,3,2)":"(TI$,2):TI$"000000"530u "":L116:::" TIME- ";T$;:500 DD1:DA560 D1:MM1:M12560 &M1:YY1 049152,D:49153,M:49154,Y1900::D(49152):M(49153):Y1900(49154) DTY$TI$NTY$TI$590+b"":250