//-------- ࠢ    ࠡ祣 ६
#DAT(C,10,0)=(6);
#(N,5,0)=_(0);        // ᫮ ࠡ ᥩ  ⠡
$(_EQ())
  $
$_
 ${(1. ன)
 &RKV(N,2,0)=0; // 1-  , ᪨ ४  ⥫䮭; 0- 
 $}(1. ன)
${(7. ਧ  )
  $(_,"0"); // " " (஡) -   㫨, "0" - 
$}(7. ਧ  )
&(N,5,0)=0; &OLDTN(N,7,0)=0; &FLUD(N,5,0)=0;
//ନ஢  砫
#MN(C,10,0)=_(
#(N,3,0)=_();             //  ࠭
$                             //     ⠡
$ (_GT(-))
#FIOLS(C,40,0)=_(2,); #TNLS(N,6,0)=_(1,); #PODRLS(C,20,0)=_(3,);
#ADLS(C,70,0)=_(7,);#PLS(C,10,0)=_(8,);#PLS1(C,5,0)=_(10,);
#PLS2(C,10,0)=_(11,);#PLS3(C,45,0)=_(12,);#PLS4(C,10,0)=_(13,);
#DOLS(C,20,0)=_(14,);
$
#FIOLS(C,40,0)=R_String( ); &TNLS(N,6,0)=0; #PODRLS(C,20,0)=R_String( );
#PLS2(C,10,0)=R_String( );#PLS3(C,45,0)=R_String( );#PLS4(C,10,0)=R_String( );
#ADLS(C,70,0)=R_String( );#PLS(C,10,0)=R_String( );#PLS1(C,5,0)=R_String( );
#DOLS(C,20,0)=R_String( );
$_
$ (1-_EQ(OLDTN-TNLS))              //   / 
$ (_GT(OLDTN))                     //  
#M1(N,2,0)=R_Date(1); #G1(N,4,0)=R_Date(5); #M2(N,2,0)=R_Date(2); #G2(N,4,0)=R_Date(6);
&M1=M1+0; &M2=M2+0;
#MBEG(C,7,0)=_(M1,.,G1); #MFIN(C,7,0)=_(M2,.,G2);
$ (_LE(NMES))
&ASUM(N,12,2)=0;
$
&ASUM(N,12,2)=ITSUM/NMES;
$_
#QSUM(C,73,0)=_(ASUM,1);
#PSUM(C,75,0)=_((,1,1,QSUM,1,73,),1,1,1);
  । ࠡ⮪  c 3  ⠢ @ASUM
  @PSUM
  -----------------------------------------------------------------------
&1(N,4,0)=-1;
#TNLS1(N,6,0)=_(1,1);
#ADLS(C,70,0)=_(7,1);#PLS(C,10,0)=_(8,1);#PLS1(C,5,0)=_(10,1);
#PLS2(C,10,0)=_(11,1);#PLS3(C,45,0)=_(12,1);#PLS4(C,10,0)=_(13,1);
  ঠ  ࠡ⭮  13%.
   㪠 ࠡ⭮  ந  㤥ঠ  -
  ⥫ ⠬  㣨 ᯮ⥫ 㬥⠬  ࠧ  %.
  ⠦ ࠡ  ।⨨  @PLS
    @TNLS1
  ஦  :
  @ADLS
  ᯮ: @PLS1  @PLS2
  뤠 @PLS3                                               @PLS4

  ⠪ ⥫䮭 74-09-51

   뤠 @DAT

  㪮⥫ ०

   壠

  ..壠
#ADLS(C,70,0)=_(7,);#PLS(C,10,0)=_(8,);#PLS1(C,5,0)=_(10,);
#PLS2(C,10,0)=_(11,);#PLS3(C,45,0)=_(12,);#PLS4(C,10,0)=_(13,);
$ (_GT(-))
$_
$_
$_
$ (_GT(TNLS))                      //  
// #SCOM(C,1,0)=R_String(,);
// #LSTR(C,30,0)=_(TNLS,1,6,SCOM,1,1, .,1,6, ,1,1,PODRLS,1,6,),1,1,1);
// #S(C,2,0)=_(3,0);
// #RES(N,4,0)=_(S,* );
// #1(C,40,0)=NameSrc(S);
//                                








                                       .

      뤠  । @FIOLS
     ⮬,  () ⢨⥫쭮 ﭭ ࠡ⠥  :
    @DOLS                  ࠧ @PODRLS                ()
//          ।: @
// $ (1-_EQ(RES))
//          筨 䨭஢ : @1
// $_
// $ (1-_EQ(RKV))
//          ।            @
//                   @
//       .             @
//           । @
//         䮭                    @
// $_
//         : @FIOLS
//              ( ⠡.  @LSTR
//         ------------------------
//         |    |   㬬    |
//         |      |   室   |
//         ------------------------
&ITSUM(N,12,2)=0; &NMES(N,5,0)=0;
$_
$_
 #=_();                // ਧ  
 $()                            //   ப ⠡
#CMES(C,7,0)=_(4,); #CSUM(N,12,2)=_(5,);
&ITSUM=ITSUM+CSUM; &NMES=NMES+1;
   $_
&=+1; &OLDTN=TNLS;
#(N,5,0)=_();         // 稪 ப  
$(_GE(+6-)+_EQ(-))
   ${(3.  )
//   ⨬ ਥ 室 ⥪   
   $}(3.  )
   $(_LT(-))
    $_
      ${(2.  )
//   ⨬ ਥ 室 ⥪  
      $}(2.  )
   $_
$_
$(_GT(-+1))
${(4.  ᯨ᪠)
//   ⨬ ਥ 室 ⥪   ᯨ᪠
$}(4.  ᯨ᪠)
$LF
