PROGRAM: CALENDAR

:0->A,B,C,D,E,F,X,Y,Z
:ClrHome
:Disp " This Program"
:Disp " Will Convert a"
:Disp "  Julian Day"
:Disp "    to the"
:Disp " Calendar Date"
:Disp "":Disp "Press Enter"
:Pause
:If getKey=105
:Goto A:
:End
:
:Lbl A
:ClrHome
:Disp "Julian Day"
:Input Z
:fPart (Z+.5)->F
:iPart (Z+.5)->Z
:If Z<2299161
:Goto C
:If Z>2299161        **greater than OR equal to**
:Goto B
:
:Lbl B
:int ((Z-1867216.25/36524.25)->X
:Z+1+X-int (X/4)->A
:Goto D
:
:Lbl C
:Z->A
:Goto D
:
:Lbl D
:A+1524->B
:int ((B-122.1)/365.25)->C
:int (365.25C)->D
:int ((B-D)/30.6001)->E
:Goto E
:
:Lbl E
:B-D-int (30.6001E)+F->D
:If E<13.5
:Then:E-1->M
:End
:If E>13.5
:Then:E-13->M
:End
:If M>2.5
:Then:C-4716->Y
:End
:If M<2.5
:Then:C-4715->Y
:End
:Goto F
:
:Lbl F
:Disp "Year"
:Disp Y
:Disp "Month"
:Disp M
:Disp "Day"
:Disp D
: