\START\
\COMMENT=by James Marshall, converts Julian date to calendar date
\NAME=JD2DATE
\FILE=jd2date.85p
Disp "Julian Date"
Input JD
(int (JD+.5))\->\I
((JD+.5)-int (JD+.5))\->\F
If I\<=\2299160
Goto AAA
(int ((I-1867216.25)/36524.25))\->\A
(I+1+A-int (A/4))\->\B
Goto BBB
Lbl AAA
I\->\B
Lbl BBB
(B+1524)\->\C
(int ((C-122.1)/365.25))\->\D
(int (365.25*D))\->\E
(int ((C-E)/30.6001))\->\G
(C-E+F-int (30.6001*G))\->\H
(int (H))\->\DATE
(24*(H-int (H)))\->\HOUR
(60*(HOUR-int (HOUR)))\->\MINS
(60*(MINS-int (MINS)))\->\SEC
(int (HOUR))\->\HOUR
(int (MINS))\->\MINS
(int (10*SEC)/10)\->\SEC
If G\<=\13
Then
(G-1)\->\MON
Else
(G-13)\->\MON
End
If MON>2
Then
(D-4716)\->\YEAR
Else
(D-4715)\->\YEAR
End
Disp "DATE:"
Disp "MONTH",MON
Disp "DAY",DATE
Disp "YEAR",YEAR
Pause
Disp "UNIVERSAL TIME:"
Disp "HOUR",HOUR
Disp "MIN",MINS
Disp "SEC",SEC
Pause
\STOP\