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

{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