Listing of file='JULIAN.BAS;01' on disk='vmedia/chip_128-sector.ccvf'
1000 REM SUBROUTINE TO DETERMINE THE JULIAN DATE (1900'S ONLY) 1010 REM 1020 REM ENTER DATE, DT AS YYMMDD, ROUTINE RETURNS JD 1030 REM 1040 REM ROUTINE USES VARIABLES J1,J2,J3,J4,J5,J$ 1050 REM 1060 REM 50000 REM DEFINE DT=DATE (YYMMDD),RETURNS JD=(JULIAN DATE) 50010 J$= RIGHT$ (STR$ (DT),6) 50020 J4= 1900+ VAL (LEFT$ (J$,2)) 50030 J2= .001 50040 J5= (- 1)* INT (((14- VAL (MID$ (J$,3,2)))/ 12)+ J2) 50050 J1= VAL (RIGHT$ (J$,2))- 2447095+ INT ((1461* (J4+ 4800+ J5)/ 4)+ J2) 50060 JD= J1+ INT ((367* (VAL (MID$ (J$,3,2))- 2- 12* J5)/ 12)+ J2) 50070 J1= JD- INT ((3* (J4+ 4900+ J5)/ 400)+ J2) 50080 JD= J1 50090 J3= JD- 7* INT ((J1/ 7)+ J2)+ 1 50100 J3= INT (J3+ J2) 50110 RETURN