//-------- ࠢ    ࠡ祣 ६
#(N,5,0)=_(0);        // ᫮ ࠡ ᥩ  ⠡
$(_EQ())
  $
$_
&WST1(N,5,0)=12;
&WST2(N,5,0)=WST1-1;
${(7. ਧ  )
  $(_," "); // " " (஡) -   㫨, "0" - 
$}(7. ਧ  )
#NPER(N,5,0)=_(33,0); #KPER(N,5,0)=_(32,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-12+1))
#############################################
#(N,3,0)=_();             //  ࠭
&IPER(N,5,0)=0;
#TNLS(N,7,0)=_(0,0);
#FIOLS(C,40,0)=_(1,0);
#(N,5,0)=0;
$ //横  !

奬 襭 
: @FIOLS                                  ( ⠡.  @TNLS   )

$                             //  ਮ
&(N,5,0)=;
#MCUR(C,7,0)=(5,NPER+IPER);
奬 襭  @MCUR
&WST1(N,5,0)=11;
&R(V,2,0)=0; #HDNG(C,250,0)=R_String(  -  |.| .   | 襭 |   %  |); &HLEN(N,5,0)=47;
$
&R=R+1;
#HTEK(C,@HLEN,0)=R_String(HDNG);
#MCUR(C,7,0)=(5,NPER+R-1+IPER);
#MHD(C,@WST1,0)=_( ,MCUR, |);
&HLEN=HLEN+@WST1;
#HDNG=_(HTEK,MHD);
$ (_LT(R-12))
#HTEK(C,@HLEN,0)=R_String(HDNG);
#HDNG(C,250,0)=_(HTEK,.뤠|);
@HDNG
@DELIM
&Z(V,2,0)=0;
$ //㫥 ⮣
&Z=Z+1;
&TSUM@Z(N,10,2)=0;
$(_LT(Z-12));
&TTSUM(N,10,2)=0;
&TTPSUM(N,10,2)=0;
$                             //     ⠡
&MNOZ(N,5,0)=0;
#VID(N,7,2)=_(3,);
#NAME(C,7,0)=_(name,);
$(_LT(VID-300-1))
&MNOZ=1;
$
&MNOZ=-1;
$_
#TEMP(C,255,0)=_(2*IPER+9,);
//#SUMTMP(N,11,2)=_(2*IPER+8,);
#SUMTMP(N,11,2)=_(TEMP,1);
&Z(V,2,0)=0;
&TOTAL(N,10,2)=0;
&PTOTT(N,15,2)=0;
&PTOT(N,5,2)=0;
$ //横  栬  뤠
&Z=Z+1;
#TEMP1(N,10,2)=_(TEMP,Z+1);
&SUM@Z(N,10,2)=TEMP1;
&TSUM@Z(N,10,2)=TSUM@Z+MNOZ*TEMP1;
&TOTAL=TOTAL+TEMP1;
$(_LT(Z-13));
$(_NE(SUMTMP))
&PTOTT=TOTAL*100/SUMTMP;
&PTOT=PTOTT;
$_
&TTSUM(N,10,2)=TTSUM+MNOZ*SUMTMP;
&TTPSUM(N,10,2)=TTPSUM+MNOZ*TOTAL;
$(_NE(SUMTMP))
@VID   |@NAME  |@SUMTMP    |@TOTAL    | @PTOT|@SUM01    |@SUM02    |@SUM03    |@SUM04    |@SUM05    |@SUM06    |@SUM07    |@SUM08    |@SUM09    |@SUM10    |@SUM11    |@SUM12    |@SUM13    |
$_
&=+1;
$(_GT(-))
#NTNLS(N,7,0)=_(0,);
$
&NTNLS(N,7,0)=0;
$_
$(_EQ(NTNLS-TNLS)*_GT(-))
&IPER=IPER+1;
@DELIM
$_
$(_NE(TTSUM))
ᥣ  |       |@TTSUM     |@TTPSUM   |      |@TSUM01   |@TSUM02   |@TSUM03   |@TSUM04   |@TSUM05   |@TSUM06   |@TSUM07   |@TSUM08   |@TSUM09   |@TSUM10   |@TSUM11   |@TSUM12   |@TSUM13   |
$_

$(_LT(IPER-DPER))
&=;
&TNLS=NTNLS;
&IPER(N,5,0)=0;
$(_GT(-))
$LF
