//--- 4 ⤥   -------- - ------------------- 20.09.2000
//. ந ப  (1.)   .  
//--------------------------------------------------------------------------
#(N,8,0)=R_Face(podr);   #(C,30,0)=_();
#(C,11,0)=R_Face(zvanie);#(C,10,0)=R_Face(nomer);     #(C,10,0)=R_Face(attestat);
#(C,15,0)=R_Face(f);      #(C,15,0)=R_Face(i);         #(C,15,0)=R_Face(o);
#(C,10,0)=R_Face(data_r);#(C,12,0)=R_Face(dolgnost); #(C,2,0)=R_Face(det);
#(C,9,0)=2(srok_s);  #(C,10,0)=R_Face(data_rb);
//
${(1. ன  .  )
#S102(N,9,2)=R_BZ(0,0,102);  //. 102 
#S294(N,9,2)=R_BZ(0,0,294);  //     294 
$}(1. ன  .  )
//
#(N,5,0)=_(0);        // ᫮ ࠡ ᥩ  ⠡
$(_EQ())
  $
$_
&WST1(N,5,0)=12;
&WST2(N,5,0)=WST1-1;
${(7. ਧ  )
  $(_," "); // " " (஡) -   㫨, "0" - 
$}(7. ਧ  )
#NPER(N,5,0)=_(17,0); #KPER(N,5,0)=_(16,0);
&DPER(N,5,0)=KPER-NPER+1;
&R(V,2,0)=0; #DELIM(C,250,0)=R_String(---------------);
$
&R=R+1; #DELIM=_(------------,DELIM);
$ (_LE(R-DPER))
&(N,5,0)=0; &OLDTN(N,7,0)=0; &FLUD(N,5,0)=0; &FLHD(N,5,0)=0;
#(N,3,0)=_();             //  ࠭
$                             //     ⠡
$ (_GT(-))
#FIOLS(C,40,0)=_(1,); #TNLS(N,7,0)=_(0,);
$
#FIOLS(C,40,0)=R_String( ); &TNLS(N,7,0)=0;
$_
$ (1-_EQ(OLDTN-TNLS))              //   / 
$ (_GT(OLDTN))                     //  
@DELIM
&R(V,2,0)=0; &HLEN(N,5,0)=15; &TOTIT(N,12,2)=0;
$ (FLUD)
#HDNG(C,250,0)=R_String(| ঠ    |);
$
#HDNG(C,250,0)=R_String(| ᫥   |);
$_
$
&R=R+1;
#HTEK(C,@HLEN ,0)=R_String(HDNG);
#MCUR(C,@WST2,2)=R_Calculat(SIT@R);
&TOTIT=TOTIT+SIT@R
#MHD(C,@WST1,0)=_(MCUR,|);
&HLEN=HLEN+@WST1;
#HDNG=_(HTEK,MHD);
$ (_LT(R-DPER))
#HTEK(C,@HLEN ,0)=R_String(HDNG); #MCUR(C,@WST2,2)=R_Calculat(TOTIT);
#MHD(C,@WST1,0)=_(MCUR,|);
#HDNG=_(HTEK,MHD);
@HDNG
@DELIM

@DELIM
&R=0; #HDNG(C,250,0)=R_String(| ⮣       |); &HLEN(N,5,0)=15; &TOTIT(N,12,2)=0;
$
&R=R+1;
#HTEK(C,@HLEN ,0)=R_String(HDNG);
$ (FLUD)
#MCUR(C,@WST2,2)=R_Calculat(NIT@R - SIT@R );
&TOTIT=TOTIT + NIT@R - SIT@R
$
#MCUR(C,@WST2,2)=R_Calculat(SIT@R - NIT@R );
&TOTIT=TOTIT - NIT@R + SIT@R
$_
#MHD(C,@WST1,0)=_(MCUR,|);
&HLEN=HLEN+@WST1;
#HDNG=_(HTEK,MHD);
$ (_LT(R-DPER))
#HTEK(C,@HLEN ,0)=R_String(HDNG); #MCUR(C,@WST2,2)=R_Calculat(TOTIT);
#MHD(C,@WST1,0)=_(MCUR,|);
#HDNG=_(HTEK,MHD);
@HDNG
@DELIM

⠢⥫ @        _______________________  @
             ()            ()        (஢  )
"_____"__________________200__.

$ (_GT(-))
$_
$_
$_
$ (_GT(TNLS))                      //  
#S(C,2,0)=_(22,0);
#RES(N,4,0)=_(S,* );
#1(C,40,0)=NameSrc(S);

$ (1-_EQ(RES))
         筨 䨭஢: @1
$_
                                                                             Ŀ
                                                                                  
E                   - F                                     Ĵ
                                                            ଠ 417   0504417 
०(業ࠫ- 壠) @__________________________   @   
୮ ࠧ____________________________________________            
(ࠧ)________________________________________________            
 _______________________________________________________           
 室_________________________________________________________            
,,⢮ @               @           @           .@TNLS    
                                                                             
-----------------------------------------------------------------------------------------------
      |,|ࠧ|   |   ⠦  |᭮ |⢮ |㯯| 室
 ஦ |⥣|           |   祭   |  ࠡ |    |-----------|| 
          |       |           |   ⥯  |         |(⠢) |⥩|||
-----------------------------------------------------------------------------------------------
@     |       |           |@       |@    |@S102    |@|     |      |
-----------------------------------------------------------------------------------------------

                                       ⬥⪨  ਥ  ࠡ  ॢ
-------------------------------------------------------------------------------------------------------------------
      ਪ    ||||  㬬 ﭭ ᫥ /
----------------|ࠧ.|         |   |,   ..
      ||            |         |        |------------------------------------------------------------------
          |     |            |         |        |          |          |          |          |          |
-------------------------------------------------------------------------------------------------------------------
    1     |  2  |     3      |    4    |   5    |    6     |    7     |    8     |     9    |    10    |    11
-------------------------------------------------------------------------------------------------------------------
          |     |            |         |        |          |          |          |          |          |
-------------------------------------------------------------------------------------------------------------------
          |     |            |         |        |          |          |          |          |          |
-------------------------------------------------------------------------------------------------------------------
          |     |            |         |        |          |          |          |          |          |
-------------------------------------------------------------------------------------------------------------------
          |     |            |         |        |          |          |          |          |          |
-------------------------------------------------------------------------------------------------------------------

---------------------------------------- -----------------------------------------------------------------------------------
        ᯮ.᪮     | |  㬬 ﭭ 㤥ঠ
---------------------------------------| |----------------------------------------------------------------------------------
      ਪ    |     |砫|- | |        㬥         |  | 1-|     |  ࠧ  |  | 
----------------|ਮ |     |   | ||  |㤥-|㤥ঠ|᫥|㤥ঠ,|     |(/)
      ||       | |       | |            |            ||         |㤥ঠ|       |㤥ঠ |
---------------------------------------- -----------------------------------------------------------------------------------
    1     |  2  |   3   |  4   |   5   | |     6      |     7      |  8  |    9    |   10    |   11     |   12    |   13
---------------------------------------- -----------------------------------------------------------------------------------
          |     |       |      |       | |            |            |     |         |         |          |         |
          |     |       |      |       | |            |            |     |         |         |          |         |
          |     |       |      |       | |            |            |     |         |         |          |         |
---------------------------------------- -----------------------------------------------------------------------------------
$LF

&FLUD(N,5,0)=0; &FLOST(N,6,0)=0; &FLDOLG(N,7,0)=0;
&SIT01(N,12,2)=0; &SIT02(N,12,2)=0; &SIT03(N,12,2)=0; &SIT04(N,12,2)=0; &SIT05(N,12,2)=0; &SIT06(N,12,2)=0; &SIT07(N,12,2)=0; &SIT08(N,12,2)=0; &SIT09(N,12,2)=0; &SIT10(N,12,2)=0; &SIT11(N,12,2)=0; &SIT12(N,12,2)=0; &SIT13(N,12,2)=0;
&NIT01(N,12,2)=0; &NIT02(N,12,2)=0; &NIT03(N,12,2)=0; &NIT04(N,12,2)=0; &NIT05(N,12,2)=0; &NIT06(N,12,2)=0; &NIT07(N,12,2)=0; &NIT08(N,12,2)=0; &NIT09(N,12,2)=0; &NIT10(N,12,2)=0; &NIT11(N,12,2)=0; &NIT12(N,12,2)=0; &NIT13(N,12,2)=0;
$_
$_
#=_();                // ਧ  
$()                            //   ப ⠡
#EC(N,3,0)=_(2,);
#NAMEC(C,7,0)=_(EC); #IC(N,3,0)=_(EC);
$ (_EQ(FLUD)*_GE(IC-200))
@DELIM
&R(V,2,0)=0; #HDNG(C,250,0)=R_String(| ᫥   |); &HLEN(N,5,0)=15; &TOTIT(N,12,2)=0;
$
&R=R+1;
#HTEK(C,@HLEN ,0)=R_String(HDNG);
#MCUR(C,@WST2,2)=R_Calculat(SIT@R);
&TOTIT=TOTIT+SIT@R
&NIT@R=SIT@R
&SIT@R=0;
#MHD(C,@WST1,0)=_(MCUR,|);
&HLEN=HLEN+@WST1;
#HDNG=_(HTEK,MHD);
$ (_LT(R-DPER))
#HTEK(C,@HLEN ,0)=R_String(HDNG); #MCUR(C,@WST2,2)=R_Calculat(TOTIT);
#MHD(C,@WST1,0)=_(MCUR,|); &NIT13=TOTIT;
#HDNG=_(HTEK,MHD);
@HDNG
@DELIM

@DELIM
&FLUD(N,5,0)=1;
$_
#SUM13(C,@WST1,0)=R_String( ); &X(V,2,0)=0;
$
&X=X+1;
$ (_LE(X-DPER))
#SUMTMP(C,@WST2,0)=_(3+X,);
#FLMN(N,5,0)=__(0,1003,EC);
$ ((1-_EQ(1-IC))*(1-_EQ(200-IC))*FLMN)
&SIT@X=SIT@X + @SUMTMP
$_
#SUM@X(C,@WST1,0)=_(SUMTMP,|);
$
#SUM@X(C,@WST1,0)=R_String( );
$_
$(_LT(X-12))
&X=DPER+1;
#SUMTMP(C,@WST2,0)=_(18,);
$ (_EQ(IC-1)+_EQ(IC-200))
#SUMTMP(C,@WST2,0)=R_String( ); &FLOST=1;
$_
#SUM@X(C,@WST1,0)=_(SUMTMP,|);
$ (_EQ(IC-1))
&FLHD=1;
@DELIM
$_
$ (FLHD)
| @EC |@NAMEC |@SUM01      @SUM02      @SUM03      @SUM04      @SUM05      @SUM06      @SUM07      @SUM08      @SUM09      @SUM10      @SUM11      @SUM12      @SUM13
$_
$ (_EQ(IC-1)+_EQ(FLHD))
@DELIM
&R(V,2,0)=0; #HDNG(C,250,0)=R_String(| - |.|); &HLEN(N,5,0)=15;
$
&R=R+1;
#HTEK(C,@HLEN ,0)=R_String(HDNG);
#MCUR(C,7,0)=(5,NPER+R-1);
#MHD(C,@WST1,0)=_(    ,MCUR,|);
&HLEN=HLEN+@WST1;
#HDNG=_(HTEK,MHD);
$ (_LT(R-DPER))
#HTEK(C,@HLEN ,0)=R_String(HDNG);#MHD(C,@WST1,0)=R_String(      㬬|);
#HDNG=_(HTEK,MHD);
@HDNG
@DELIM
$ (_EQ(FLHD))
&FLHD=1;
| @EC |@NAMEC |@SUM01      @SUM02      @SUM03      @SUM04      @SUM05      @SUM06      @SUM07      @SUM08      @SUM09      @SUM10      @SUM11      @SUM12      @SUM13
$_
$_
$ (_EQ(IC-200))
@DELIM
$_
$_
&=+1; &OLDTN=TNLS;
#(N,5,0)=_();         // 稪 ப  
$(_GE(+6-)+_EQ(-))
   ${(3.  )
//   ⨬ ਥ 室 ⥪   
   $}(3.  )
   $(_LT(-))
      $_
      ${(2.  )
//   ⨬ ਥ 室 ⥪  
      $}(2.  )
   $_
$_
$(_GT(-+1))
${(4.  ᯨ᪠)
//   ⨬ ਥ 室 ⥪   ᯨ᪠
$}(4.  ᯨ᪠)
$LF
