PROGRAM : JULIAN

:0 -> A,B,D,E,M,J,Y
:ClrHome
:Disp "  THIS PROGRAM"
:Disp " WILL CONVERT A"
:Disp " CALENDAR DATE"
:Disp "     TO THE"
:Disp "   JULIAN DAY"
:Disp ""
:Disp "PRESS ENTER"
:Pause
:
:If getKey=105
:Goto A
:End
:
:Lbl A
:ClrHome
:Disp "YEAR"
:Input Y
:Disp "MONTH"
:Input M
:Disp "DAY"
:Input D
:If Y*10000+M*100+15 > 15821015   **Greater than or equal to**
:Goto B
:If M > 2
:Goto C
:If M < 2   **Less than or equal to**
:Goto D
:
:Lbl B
:int (Y/100) -> A
:2-A+int (A/4) -> B
:If M > 2
:Goto C
:If M < 2   **Less than or equal to**
:Goto D
:
:Lbl C
:If A > 0   **Greater than or equal to**
:Goto E
:int (365.25Y)+int (30.6001(M+1))+D+1720994.5 -> J
:ClrHome
:Disp "THE JD IS"
:Disp ""
:Disp J
:
:Lbl D
:Y-1 -> Y
:M+12 -> M
:Goto C
:
:Lbl E
:int (365.25Y)+int (30.6001(M+1))+D+1720994.5+B -> J
:ClrHome
:Disp "THE JD IS"
:Disp ""
:Disp J