А вот и другой возможный повтор той же истории о «гибели войска из-за льда». На сей раз фантомное отражение попало в середину XII века. Татищев, рассказывая об эпохе князя Юрия Долгорукого, сообщает под 1148 годом следующее. Изяслав, вместе с венграми, которых было около 3000 человек, пошел с войной на Давидовичей и Ольговичей. Последние укрепились в лесу. Дело было в холодное время года. «Изяслав немедленно пошел на них, но поскольку в тот день такая теплота учинилась, что невозможно было ему реку перейти, только стрельцы бились через реку. Ночью же пошел дождь великий, словно бы Бог специально ДЛЯ ПРЕСЕЧЕНИЯ МЕЖДОУСОБНОГО ПРОЛИТИЯ КРОВИ НИСПОСЛАЛ, что Изяслав видя, и потому что и на Днепре СТАЛ ЛЕД ПОРТИТЬСЯ… рассудил, что стоять более невозможно. И В ТОТ ЖЕ ДЕНЬ СО ВСЕМИ ВОЙСКАМИ ЗА ДНЕПР ПЕРЕШЛИ, А НА СЛЕДУЮЩИЙ ДЕНЬ НА ДНЕПРЕ ЛЕД РУШИЛСЯ, ЧЕМ ИЗЯСЛАВ И ВСЕ ВОЙСКА БЫЛИ ПОРАДОВАНЫ, что их Бог от великого труда избавил… Но венгры весьма неосмотрительно, идучи сквозь бор, ХОТЕЛИ ПРЯМО ЧЕРЕЗ ОЗЕРО ПЕРЕЙТИ, HO НА СРЕДИНЕ ЛЕД ОБЛОМИЛСЯ И Часть ИХ ПОТОНУЛА» [130], т. 2, с. 218–219.
Здесь в глухом виде проступают основные узлы библейского сюжета XIV века из истории Моисея, преследуемого «фараоном», см. «Библейская Русь», гл. 4:6. Война, два противоборствующих войска. Холодное время года. Два войска оказываются по разные стороны реки (стрельцы обмениваются выстрелами через реку). Река или озеро, покрытое льдом. Одно войско благополучно переправляется по уже слабеющему льду. Сразу после перехода лед рушится. Затем войско противника вступает на подтаявший лед (другой?) реки или озера. Лед неожиданно трескается, и многие воины погибают.
Программа написана на языке Фортран.
*_______________________________________________
program ind_date
*_______________________________________________
* Вычисление годов от Адама от 1 до 7980 = 15×19×28 с данным
* индиктом, кругом Солнцу и кругом Луне различно для дат
* от точки перескока индикта до точки перескока
* кругов Солнцу и Луне и дат оставшейся части года.
*
* Поэтому дается три варианта пересчета
* 1) без поправки кругов Солнцу и Луне
* 2) с поправкой кругов Солнцу и Луне на +1
* 3) с поправкой кругов Солнцу и Луне на -1
*
* При переводе полученных таким образом годов
* от Адама на года н. э. вычитается 5508 для всех
* месяцев года.
*_______________________________________________
CHARACTER*1 Q1
*_______________________________________________
OPEN(3,file='otvet.txt',access='sequential',
form='formatted',status='replace')
WRITE(*,*)'============================== '
WRITE(*,*)' ВВЕДИТЕ ИНДИКТ, КРУГ СОЛНЦУ И КРУГ ЛУНЕ '
WRITE(*,*)' (ЕСЛИ ЗНАЧЕНИЕ НЕИЗВЕСТНО, ВВЕДИТЕ НОЛЬ) '
WRITE(*,*)'
WRITE(*,*)'======================= '
301 write(*,*)' '
write(*,*)'Введите ИНДИКТ (от 1 до 15; 0 если неизвестен)'
read(*,*) indict
write(*,*)'Введите КРУГ СОЛНЦУ (от 1 до 28; 0 если неизвестен)'
read(*,*) isun
write(*,*)'Введите КРУГ ЛУНЕ (от 1 до 28; 0 если неизвестен)'
read(*,*) imoon
302 WRITE(*,*)' '
WRITE(*,*)
'///////////////////////\\\\\\\\\\\\\\\\\\\\\\\'
WRITE(*,*) ' 1: ПУСК '
WRITE(*,*) ' 2: ИЗМЕНИТЬ ЗНАЧЕНИЯ'
WRITE(*,*) ' 3: ЗАКОНЧИТЬ РАБОТУ'
5 WRITE(*,*) ' ВВЕДИТЕ НУЖНОЕ ЧИСЛО И НАЖМИТЕ КЛАВИШУ <ВВОД>'
READ(*,'(A)') Q1
IF(Q1.NE.'1'.AND.Q1.NE.'2'.AND.Q1.NE.'3') THEN
WRITE(*,*) ' НЕВЕРНОЕ ЗНАЧЕНИЕ? ДОЛЖНО БЫТЬ 1, 2 ИЛИ 3'
GOTO 5
ENDIF
ivvod=ICHAR(Q1)-ICHAR('0')
IF (ivvod.EQ.1) GO TO 303
IF (ivvod.EQ.2) GO TO 301
IF (ivvod.EQ.3) STOP 'ЗАВЕРШЕНО ПОЛЬЗОВАТЕЛЕМ'
GO TO 302
303 CONTINUE
*____________проверяем данные на правильность _____________________
IF ((indict.LT.0).OR.(indict.GE.16)) GOTO 100
IF ((isun.LT.0).OR.(isun.GE.29)) GOTO 100
IF ((imoon.LT.0).OR.(imoon.GE.20)) GOTO 100
GOTO 200! данные введены правильно
100 WRITE(3,*)' WRONG INPUT DATA: '! данные введены неверно
WRITE(*,*) ' WRONG INPUT DATA: '
WRITE(3,*) 'indict= ',indict,' isun= ',isun,
' imoon=',imoon
STOP
*____________ начало расчетов ___________________________
20 °CONTINUE
WRITE(3,*)' indict = ',indict
WRITE(3,*)' Sun = ',isun
WRITE(3,*)' Moon = ',imoon
WRITE(3,*)' '
WRITE(3,*)' '
WRITE(3,*)'БЕЗ ПОПРАВКИ / ПОПРАВКА(S+1,M+1) / ПОПРАВКА (S-1,M-1)'
WRITE(3,*)'от АДАМА, Н.Э./от АДАМА, Н.Э. /от АДАМА, Н.Э.'
WRITE(3,*)'_____________________________________________'
WRITE(3,*)''
indx=0
isx=0
imx=0
DO iadam=1,7980
IF (iadam.EQ.6690) THEN
write(*,*) iadam
END IF
iAD=iadam-5508
indx=indx+1
isx=isx+1
imx=imx+1
IF (indx.EQ.16) indx=1
IF (isx.EQ.29) isx=1
IF (imx.EQ.20) imx=1
indy=indict
IF (indy.EQ.0) indy=indx! нулевые значения -
! произвольные
IF (indx.EQ.indy) THEN
*______ БЕЗ ПОПРАВКИ: табличные круги Солнца и Луны такие же,
*______ как в источнике
isy=isun
imy=imoon
IF (isun.EQ.0) isy=isx
IF (imoon.EQ.0) imy=imx
IF ((isx.EQ.isy).AND.(imx.EQ.imy)) THEN
WRITE(3,*)iadam,' ',iAD
WRITE(3,*)''
END IF
*______ С ПОПРАВКОЙ: круги Солнца и Луны ПОДПРАВЛЯЮТСЯ НА +1
IF (isun.NE.0) isy=isun+1
IF (isy.EQ.29) isy=1
IF (imoon.NE.0) imy=imoon+1
IF (imy.EQ.20) imy=1
