c c::c )"--------------------------------"(d( )"I JULIAN DATE I"Ud2 )"--------------------------------"_d<::dP )"AN ASTRONOMY PROGRAM BY ERIC BURGESS F.R.A.S."dn:d " THIS PROGRAM PROVIDES THE JULIAN DATE"d " FOR A CALENDAR DATE 1100 TO 2200":e " WAIT ... ""e K  : K.e:::>e "YEAR";Y1DeZe Y1 Y1Y1dgeYY1lxe "MONTH";M1~ee "DAY";D1e::eM2M1e M2 DYe M2 DY;e" M2 DYZe, M2 DYxf6 M2 DYf@ M2 DY/fJ M2 DYCfT M2 DYXf^ M2 DYnfh M2 DY0fr M2 DYNf|D3D1DYfD4mY(Y)f Y1 D4D4fD5:(D4)D3fJDD5g Y(Y) M1 JDJDgJDJD|+gJDJD((Y1l)d)Ug Y1/ JDJD( ((/Y1)d))mg Y1  JDJDg "JULIAN DATE IS ";JDg::g "DO YOU WANT ANOTHER DATE Y/N";A$g A$"Y" A$"y" g: JDJDg "JULIAN DATE IS ";JDg::g "DO YOU WANT ANOTHER DATE Y/N";A$g