//-------- ࠢ    ࠡ祣 ६ 
#(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; 
#(N,3,0)=_();             //  ࠭ 
$                             //     ⠡ 
$ (_GT(-)) 
#FIOLS(C,40,0)=_(2,); #TNLS(N,6,0)=_(0,); #PODRLS(N,6,0)=_(1,); 
$ 
#FIOLS(C,40,0)=R_String( ); &TNLS(N,6,0)=0; &PODRLS(N,6,0)=0; 
$_ 
$ (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); 
         ------------------------ 
         | ᥣ   |@ITSUM      | 
         ------------------------ 
 
     ਮ 믫  @MBEG    @MFIN 
 
     । ࠡ⮪  ਮ: @ASUM 
     @PSUM 
 
 
     ࠢ   । ____________________________ 
 
 
     @                                  @ 
 
     @                               @ 
 
$ (_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); 
 
 
                                    
 
          ।: @ 
$ (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,); 
         | @CMES   |@CSUM       | 
&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 
