Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.mrao.cam.ac.uk/~pjds/ascript/users/rise_set.txt Дата изменения: Sat Oct 12 20:06:15 1996 Дата индексирования: Tue Oct 2 10:17:51 2012 Кодировка: Поисковые слова: uranus

{Clear the screen and put up a title}
display_title(+++ Rising and Setting +++)

{Set the delimiter to % so that we can use commas in prompts}
set_delimiter(%)

{Set the default object name}
if (s1=.)
set_string(s1%Sun)
end_if

{Get the name of the object}
ask_for_string(Object name [Sun, Moon, a planet etc.]%s1)

{Get the ra & dec if necessary}
if (s1!sun)
if (s1!moon)
if (s1!mercury)
if (s1!venus)
if(s1!mars)
if(s1!jupiter)
if (s1!saturn)
if (s1!uranus)
if(s1!neptune)

{Phew! none of those, so get ra/dec}
ask_for_coordinates(r)
end_if
end_if
end_if
end_if
end_if
end_if
end_if
end_if
end_if

{Calculate the rising and setting...}
find_rise_set(s1)

{...and display the result in a good colour}
set_normal_text(10)
display_rise_set(s1)
set_normal_text(7)

{Go again?}
ask_for_repeat