10 Dim N$(11),W$(6),K(12),JK$(11)
  20 Cls:Cur 17,24:Print  "ÂÅ×ÍÛÉ ÊÀËÅÍÄÀÐÜ (ÎÒ 1581Ã.)"
  30 For I=0 To 11: Read N$(I): Next I
  40 For I=0 To 6: Read W$(I): Next I
  50 For I=0 To 11:Read K(I): Next I
  60 For I=0 To 11: Read JK$(I): Next I
  70 Print : Print  Tab(17);"ÂÂÅÄÈÒÅ:ÌÅÑßÖ,ÃÎÄ";:Input ME,G
  80 XY=0: D=1:If G/4=Int(G/4) Then K(1)=29
  90 Rem * ÏÎÏÐÀÂÊÀ ÍÀ ÑÒÈËÜ ËÅÒÎÈÑ×ÈÑËÅÍÈß *
 100 If G<1918 Then D=0
 110 GE=G:M=ME
 120 GoSub 140: Goto 220
 130 Rem * ÂÛ×ÈÑËÅÍÈÅ ÄÍß ÍÅÄÅËÈ *
 140 If M>=3 Then M=M-2: Goto 170
 150 If M<3 Then M=M+10
 160 If M>10 Then G=G-1
 170 CE=Int(G/100): G=G-CE*100
 180 Z=Int(2.6*M-0.1):DD=Z+D+G+Int(G/4)+Int(CE/4)-2*CE
 190 L=DD+777 : DN=L-7*Int(L/7)
 200 If DN=0 Then DN=7
 210 Return
 220 Cls: Cur 4,24
 230 GoSub 760
 240 Y=DN-1 : SP=21 :U=2
 250 Rem * ÖÈÊË ÌÅÑßÖÅÂ *
 260 For I=ME-1 To 11 Step 2
 270 If I+1>11 Then U=1
 280 If I=ME+7 OR I=ME+3 OR I=ME+11 Then GoSub 620
 290 Cur 23,SP: Print  N$(I)
 300 If U<>1 Then Cur 44,SP:Print  N$(I+1)
 310 Rem * ÖÈÊË ÄÍÅÉ ÍÅÄÅËÈ *
 320 For SH=0 To 6
 330 Cur 0,SP-SH-1: Print  W$(SH): Next SH
 340 X=15
 350 For V=1 To U: If V=1 Then DK=I
 360 If V=2 Then DK=I+1
 370 Rem * ÖÈÊË ×ÈÑÅË *
 380 For J=1 To K(DK)
 390 Y=Y+1
 400 If SP-Y=SP-8 Then Y=1: X=X+3
 410 Cur X,SP-Y: Print  J
 420 Next J
 430 X=36: Next V
 440 SP=SP-9: Next I: XY=1
 450 Rem * ÏÅ×ÀÒÜ ÐÈÑÓÍÊÀ *
 460 GoSub 620: Cls: Cur 0,24
 470 Print  Tab(6); "Ø"
 480 Print  Tab(5) ;"ØØØ"
 490 Print  Tab(4) ;"ØØØØØ"
 500 Print  Tab(3) ;"ØØØØØØØ"
 510 Print  Tab(2) ;"ØØØØØØØØØ"
 520 Print  Tab(1) ;"ØØØØØØØØØØØ"
 530 Print "ØØØØØØØØØØØØØ"
 540 Print  Tab(6);"Ø"
 550 Print  Tab(6);"Ø"
 560 GE=GE+1: Print  Tab(17);"Ñ  ÍÎÂÛÌ  ÃÎÄÎÌ !!!"
 570 GoSub 760
 580 PR=Usr(-2045)
 581 Cls
 582 U=2:K(1)=28
 583 If GE=1918 Then ME=1:G=1918 :Goto 80
 590 Cls
 591 Cur 0,24
 592 GoSub 760: ME=1: If GE/4=Int(GE/4) Then K(1)=29
 600 Goto 260
 610 Rem * ÂÂÎÄ ÄÀÍÍÛÕ È ÈÕ ÎÁÏÀÁÎÒÊÀ ÄËß ÏÐÎÄÎËÆÅÍÈß ÏÅ×ÀÒÈ *
 620 Cur 22,2: Input "ÄÀËÜØÅ (ÄÀ/ÍÅÒ)"; DA$
 630 If LEFT$(DA$,1)<>"Ä" AND LEFT$(DA$,1)<>"D" Then 660
 640 Cls: SP=21: If XY=1 Then XY=0:Return
 650 Cls:Cur 0,24: GoSub 760: Return
 660 Cls:Cur 10,22: Print  "ÄÎËÃÈÕ ÂÀÌ ËÅÒ ÆÈÇÍÈ !!!"
 670 K(1)=28: Goto 70
 680 Rem * ÎÏÈÑÀÍÈÅ ÄÀÍÍÛÕ *
 690 Data ßÍÂÀÐÜ,ÔÅÂÐÀËÜ,ÌÀÐÒ,ÀÏÐÅËÜ,ÌÀÉ,ÈÞÍÜ,ÈÞËÜ,ÀÂÃÓÑÒ
 700 Data ÑÅÍÒßÁÐÜ,ÎÊÒßÁÐÜ,ÍÎßÁÐÜ,ÄÅÊÀÁÐÜ
 710 Data ÏÎÍÅÄÅËÜÍÈÊ,ÂÒÎÐÍÈÊ,ÑÐÅÄÀ,×ÅÒÂÅÐÃ,ÏßÒÍÈÖÀ,ÑÓÁÁÎÒÀ,ÂÎÑÊÐÅÑÅÍÜÅ
 720 Data 31,28,31,30,31,30,31,31,30,31,30,31
 730 Data ÎÁÅÇÜßÍÛ,ÊÓÐÈÖÛ,ÑÎÁÀÊÈ,ÑÂÈÍÜÈ,ÌÛØÈ,ÊÎÐÎÂÛ
 740 Data ÒÈÃÐÀ,ÇÀÉÖÀ,ÄÐÀÊÎÍÀ,ÇÌÅÈ,ËÎØÀÄÈ,ÎÂÖÛ
 750 Rem *ÎÏÐÅÄÅËÅÍÈÅ È ÂÛÂÎÄ ÍÀÇÂÀÍÈß ÃÎÄÀ ÏÎ ÂÎÑÒÎ×ÍÎÌÓ ÊÀËÅÍÄÀÐÞ*
 760 OS=GE-12*Int(GE/12)
 770 W$=JK$(OS)
 780 Print  Tab(5);"ÏÎ ÂÎÑÒÎ×ÍÎÌÓ ÊÀËÅÍÄÀÐÞ ";GE;" ÃÎÄ - ÃÎÄ ";W$
 790 GC=GE-1563-Int((GE-1564)/60)*60
 800 CO=VAL(RIGHT$(STR$(GC),1))
 810 If CO=1 OR CO=2 Then CO$="ÑÈÍÈÉ":Goto 860
 820 If CO=3 OR CO=4 Then CO$="ÊÐÀÑÍÛÉ":Goto 860
 830 If CO=5 OR CO=6 Then CO$="ÆÅËÒÛÉ":Goto 860
 840 If CO=7 OR CO=8 Then CO$="ÁÅËÛÉ" :Goto 860
 850 CO$="×ÅÐÍÛÉ."
 860 Print  Tab(17); "ÖÂÅÒ ÃÎÄÀ-"; CO$
 870 Return