{Clear the screen and display a title at the top}
display_title(++ DATE CONVERSIONS ++)

{Convert to Julian?}
ask_for_character(Convert from calendar date to Julian,yn,c1)
if (c1=Y)
    find_date(julian)
    display_date(julian)
end_if

{Convert to calendar?}
if (c1!Y)
  ask_for_character(....... from Julian date to calendar,yn,c2)
  if (c2=Y)
    find_date(calendar)
    display_date(calendar)
    display_time(solar)
  end_if
end_if

{Another calculation?}
new_line
ask_for_repeat