0 'JULIAN DATE:MarvinMiller:75665,312:copyright1986:M=month 1to12:D=day 1to31:Y=year 1801to2069: G=GMT
1 PRINT:PRINT:INPUT"Month, Day, Year, GMT";M,D,Y,G:IFM=0THENMENU
2 JD=367*Y-INT((7*(Y+INT((M+9)/12)))/4)+INT(275*M/9)+D+1721013.5+(G/24)-0.5*SGN(100*Y*M-190002.5)+0.5
3 CLS:PRINT:PRINTM;D;Y;"@";G;"GMT";" =";" Julian Date ";JD:GOTO1