{Display a title and clear the screen}
  display_title(Solar and sidereal Times)

{Which way round do we wish to convert?}
  ask_for_character(Convert from solar to sidereal [Y or N],yn,c1)
  if (c1=Y)
     set_string(s1,sidereal)
     set_string(s2,solar)
  end_if

  if (c1!Y)
     set_character(c1,Y)
     ask_for_character(....... from sidereal to solar [Y or N],yn,c1)
     if (c1=Y)
        set_string(s1,solar)
        set_string(s2,sidereal)
     end_if
  end_if

{If we made a selection, carry out the conversion and display the result}
  if (c1=Y)
     new_line 
     find_time(s1)
     new_line
     display_time(s2)
     display_time(s1)
  end_if

{Another go?}
  new_line
  ask_for_repeat