DATE CALC.basbas.basd_PARCDCJCJCJTEXTSmBa`@)@)`HSMainP*`S6+oS6PP*`SJ++? "Today is ";DATEFMT ("DDDD",(DATE));" ";DATEFMT("MM,DD,YYYY",(DATE));"." ? "Julian = ";JULIAN (DATE) ? ? "1 - Predict the Future" ? "2 - Find Days between 2 dates" ? "3 - Day # to Date" ? "4 - Date to Day #" INPUT "Enter option ";a IF a = 1 ? "Enter first date - m,d,yyyy " INPUT m,d,y INPUT "Enter days to shift ";b c = JULIAN(d,m,y) + b ? ? DATEFMT ("DDDD, MM,DD,YY",c) ELIF a = 2 ? "Enter first date - m,d,yyyy " INPUT m,d,y ? "Enter second date - m,d,yyyy " INPUT n,e,z ? ? JULIAN (e,n,z)-JULIAN (d,m,y); " days." ELIF a = 3 INPUT "Enter Year ", k IF k = 2005 ' julian constant for 2005 = 2453371 l = 2453371 FI IF k = 2004 l = 2453005 FI INPUT "Enter Day # ", f g = l + f ? DATEFMT("dddd, m-d-yyyy", g) ELIF a = 4 ? "Enter Date M,D,YYYY" INPUT h,i,j ? JULIAN(i,h,j) - 2453371 ENDIFIF