Thank-you Damien.
This afternoon I also wrote a J2000 day program that outputs to a user-variable JD2K
EXPORT JDATE2K()
BEGIN
LOCAL JDY, JDM, JDD;
LOCAL LDY, LDM, LDD, LD2K;
LOCAL TDY, TDM, TDD, TD2K;
//allow for default to system date
Date()▶TD2K;
IP(TD2K)▶TDY;
((TD2K-TDY)*100)▶TD2K;
IP(TD2K)▶TDM;
IP((TD2K-TDM)*100)▶TDD;
//input desired date or default to system date
Input(LDY, "Year", "Year = (yyyy)", "Enter Year", TDY);
Input(LDM, "Month", "Month = (mm)", "Enter Month", TDM);
Input(LDD, "Day", "Day = (dd)", "Enter Day", TDD);
//calculate J2000 day
//easier to reference 3/1/2000 and add 59 days for leap year handling
LDD▶JDD;
(LDM+9) MOD 12▶JDM;
(LDY-2000) - IP(JDM/10)▶JDY; //reference to 2000AD
JDY*365+IP(JDY/4)-IP(JDY/100)+IP(JDY/400)+IP(((JDM*306)+5)/10)+(JDD+59)▶JD2K;
END;
Although it looks like the web page does not like unicode, the sto function is showing up as ▶