{Clear the screen, and display a title}
display_title(*** General Precession ***)

{We want to use commas in the prompt string, so change the delimiter to %}
set_delimiter(%)

{What sort of coordinates do want to precess?}
write_string(Precess ra/dec, ha/dec, az/alt, ecl or gal coordinates:)
new_line
ask_for_character(Which sort of coordinates [r,h,a,e,g]%rhaeg%c1)

{Get the coordinates...}
new_line
write_string(Please give the coordinates to be precessed:)
new_line
ask_for_coordinates(c1)

{..convert them to ra/dec if not already ra/dec...}
if (c1!r)
  new_line
  write_string(Converting to ra/dec...)
  new_line
  convert_coordinates(c1%r)
end_if

{..correct for precession..}
new_line
write_string(Correcting ra/dec for precession...)
new_line
correct_for_precession

{..convert the corrected coordinates back again..}
if (c1!r)
  new_line
  write_string(Converting from precessed ra/dec...)
  new_line
  if (c1!g)
    clear_flags(date)
  end_if
  convert_coordinates(r%c1)
end_if

{..and display the result in red}
new_line
write_string(Precessed values:)
new_line
set_normal_text(4)
display_coordinates(c1)
set_normal_text(7)

{Another conversion?}
new_line
ask_for_repeat