// 
#(N,5,0)=_(0);        // ᫮ ࠡ ᥩ  ⠡
$(_EQ(-1))
  $
$_
#FIOLS(C,40,0)=R_String( ); // 
&TNLS(N,7,0)=0; // 
&EC(N,3,0)=0; // 譨  
&ICOD(N,3,0)=0; // ७  
&S1(N,9,2)=0;&S2(N,9,2)=0;&S3(N,9,2)=0;&S4(N,9,2)=0;
&S5(N,9,2)=0;&S6(N,9,2)=0;&S7(N,9,2)=0;&S8(N,9,2)=0;
&S9(N,9,2)=0;&SA(N,9,2)=0;&SB(N,9,2)=0;&SC(N,9,2)=0;
&SP(N,9,2)=0;
&N1(N,9,2)=0;&N2(N,9,2)=0;&N3(N,9,2)=0;&N4(N,9,2)=0;
&N5(N,9,2)=0;&N6(N,9,2)=0;&N7(N,9,2)=0;&N8(N,9,2)=0;
&N9(N,9,2)=0;&NA(N,9,2)=0;&NB(N,9,2)=0;&NC(N,9,2)=0;
&NP(N,9,2)=0;
&U1(N,9,2)=0;&U2(N,9,2)=0;&U3(N,9,2)=0;&U4(N,9,2)=0;
&U5(N,9,2)=0;&U6(N,9,2)=0;&U7(N,9,2)=0;&U8(N,9,2)=0;
&U9(N,9,2)=0;&UA(N,9,2)=0;&UB(N,9,2)=0;&UC(N,9,2)=0;
&UP(N,9,2)=0;
&I1(N,9,2)=0;&I2(N,9,2)=0;&I3(N,9,2)=0;&I4(N,9,2)=0;
&I5(N,9,2)=0;&I6(N,9,2)=0;&I7(N,9,2)=0;&I8(N,9,2)=0;
&I9(N,9,2)=0;&IA(N,9,2)=0;&IB(N,9,2)=0;&IC(N,9,2)=0;
&IP(N,9,2)=0;
$(_,"0"); // " " (஡) -   㫨, "0" - 
#NPER(N,5,0)=_(17,0); #KPER(N,5,0)=_(16,0);
#(N,2,0)=(0,NPER);
$(1-_EQ(1-))
ਮ  稭  ﭢ
  $
$_
#RSIM(C,10,0)=R_String(          );
$BEG_SCRIPT
sprintf(RSIM,"%s",rsimv);
$END_SCRIPT
#GOD(C,4,0)=(2,NPER); //  ਮ
&RD1(N,3,0)=0;&RD2(N,3,0)=0;&RD3(N,3,0)=0;&RD4(N,3,0)=0;&RD5(N,3,0)=0;&RD6(N,3,0)=0;
&RD7(N,3,0)=0;&RD8(N,3,0)=0;&RD9(N,3,0)=0;&RDA(N,3,0)=0;&RDB(N,3,0)=0;&RDC(N,3,0)=0;
&X(N,5,0)=0; // 稪 ᫥
&Y(N,5,0)=0; // 稪 㤥ঠ
&J1(V,3,0)=0; // ய⠭  ᫥
&Q1(V,3,0)=0; // ய⠭  㤥ঠ
#ANP(N,5,0)=(7,NPER); // ᮫  砫 ਮ ( ())
#M1(N,7,4)=(5,ANP+0);#M2(N,7,4)=(5,ANP+ 1);#M3(N,7,4)=(5,ANP+ 2);
#M4(N,7,4)=(5,ANP+3);#M5(N,7,4)=(5,ANP+ 4);#M6(N,7,4)=(5,ANP+ 5);
#M7(N,7,4)=(5,ANP+6);#M8(N,7,4)=(5,ANP+ 7);#M9(N,7,4)=(5,ANP+ 8);
#MA(N,7,4)=(5,ANP+9);#MB(N,7,4)=(5,ANP+10);#MC(N,7,4)=(5,ANP+11);
&(N,5,0)=0; &OLDTN(N,7,0)=0; &FLUD(N,5,0)=0; &FLHD(N,5,0)=0;
#(N,3,0)=_();             //  ࠭
#NOMP(N,3,0)=_(NU);
$                             //     ⠡
  $ (_GT(-))
    #FNU(N,1,0)=_(NOMP,);
    #FIOLS=_(1,); #TNLS=_(0,);
    #EC=_(2,); #ICOD=_(19,);
    #NAMEC(C,7,0)=_(EC);
    #FLMN(N,5,0)=__(0,1003,EC);
  $
    &FNU(N,1,0)=0;
    #FIOLS=R_String( ); &TNLS=0;
  $_
  $ (1-_EQ(OLDTN-TNLS))
    $(_GT(-))
      $(OLDTN)
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         |  |                       |          ࠫ            |                         |          ५             |                          |                         |           
      ⥫     |-|-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
                     |   |         |         |  ⮣  |         |         |  ⮣  |         |         |  ⮣  |         |         |  ⮣  |         |         |  ⮣  |         |         |  ⮣  |
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
          1          |  2  |    3    |    4    |    5    |    6    |    7    |    8    |    9    |    10   |    11   |    12   |    13   |    14   |    15   |    16   |    17   |    18   |    19   |    20   |
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
ࠡ⠭       | 01  |         |         |   @RD1  |         |         |   @RD2  |         |         |   @RD3  |         |         |    @RD4 |         |         |    @RD5 |         |         |    @RD6 |
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
ᥣ ᫥      | 02  |         |         |@N1      |         |         |@N2      |         |         |@N3      |         |         |@N4      |         |         |@N5      |         |         |@N6      |
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
 ⮬ ᫥  :| 03  |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
&Z(V,2,0)=3;
&J1=0;                                                                      
&XTMP(N,5,0)=X;                                                             
&YTMP(N,5,0)=Y;                                                             
$                                                                  
&X1(N,9,2)=R1@J1;&X2(N,9,2)=R2@J1;&X3(N,9,2)=R3@J1;&X4(N,9,2)=R4@J1;    
&X5(N,9,2)=R5@J1;&X6(N,9,2)=R6@J1;    
#X0(C,12,0)=R_String(NVID@J1);                                              
&Z=Z+1;
        @X0          | @Z  |         |         |@X1      |         |         |@X2      |         |         |@X3      |         |         |@X4      |         |         |@X5      |         |         |@X6      |
&J1=J1+1;                                                                   
&X=X-1;                                                                     
$(X)                                                                    
&Z=Z+1;
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
ᥣ 㤥ঠ       | @Z  |         |         |@U1      |         |         |@U2      |         |         |@U3      |         |         |@U4      |         |         |@U5      |         |         |@U6      |
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
&Z=Z+1;
 ⮬ ᫥  :| @Z  |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
&Q1=0;                                                                                                   
$                                                                                               
&X1(N,9,2)=T1@Q1;&X2(N,9,2)=T2@Q1;&X3(N,9,2)=T3@Q1;&X4(N,9,2)=T4@Q1;                                 
&X5(N,9,2)=T5@Q1;&X6(N,9,2)=T6@Q1;                                 
#X0(C,12,0)=R_String(UVID@Q1); 
&Z=Z+1;
        @X0          | @Z  |         |         |@X1      |         |         |@X2      |         |         |@X3      |         |         |@X4      |         |         |@X5      |         |         |@X6      |
&Q1=Q1+1;
&Y=Y-1;
$(Y)
#I1=MAX(N1-U1,0);#I2=MAX(N2-U2,0);#I3=MAX(N3-U3,0);#I4=MAX(N4-U4,0);#I5=MAX(N5-U5,0);
#I6=MAX(N6-U6,0);
&Z=Z+1;
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
㬬  뤠       | @Z  |         |         |@I1      |         |         |@I2      |         |         |@I3      |         |         |@I4      |         |         |@I5      |         |         |@I6      |
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
$_
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         |  |                         |                       |                     |                      |                       |                      |           
      ⥫     |-|-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
                     |   |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
          1          |  2  |    21   |    22   |    23   |    24   |    25   |    26   |    27   |    28   |    29   |    30   |    31   |    32   |    33   |    34   |    35   |    36   |    37   |    38   |
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
ࠡ⠭       | 01  |         |         |   @RD7  |         |         |   @RD8  |         |         |   @RD9  |         |         |   @RDA  |         |         |   @RDB  |         |         |   @RDC  |
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
ᥣ ᫥      | 02  |         |         |@N7      |         |         |@N8      |         |         |@N9      |         |         |@NA      |         |         |@NB      |         |         |@NC      |
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
 ⮬ ᫥  :| 03  |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
&Z=3;
&J1=0;
&X=XTMP;
&Y=YTMP;
$
&X7(N,9,2)=R7@J1;&X8(N,9,2)=R8@J1;
&X9(N,9,2)=R9@J1;&XA(N,9,2)=RA@J1;&XB(N,9,2)=RB@J1;&XC(N,9,2)=RC@J1;
#X0(C,12,0)=R_String(NVID@J1);
&Z=Z+1;
        @X0          | @Z  |         |         |@X7      |         |         |@X8      |         |         |@X9      |         |         |@XA      |         |         |@XB      |         |         |@XC      |
&J1=J1+1;
&X=X-1;
$(X)
&Z=Z+1;
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
ᥣ 㤥ঠ       | @Z  |         |         |@U7      |         |         |@U8      |         |         |@U9      |         |         |@UA      |         |         |@UB      |         |         |@UC      |
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
&Z=Z+1;
 ⮬ ᫥  :| @Z  |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
&Q1=0;
$
&X7(N,9,2)=T7@Q1;&X8(N,9,2)=T8@Q1;
&X9(N,9,2)=T9@Q1;&XA(N,9,2)=TA@Q1;&XB(N,9,2)=TB@Q1;&XC(N,9,2)=TC@Q1;
#X0(C,12,0)=R_String(UVID@Q1); 
&Z=Z+1;
        @X0          | @Z  |         |         |@X7      |         |         |@X8      |         |         |@X9      |         |         |@XA      |         |         |@XB      |         |         |@XC      |
&Q1=Q1+1;
&Y=Y-1;
$(Y)
#I7=MAX(N7-U7,0);#I8=MAX(N8-U8,0);#I9=MAX(N9-U9,0);#IA=MAX(NA-UA,0);
#IB=MAX(NB-UB,0);#IC=MAX(NC-UC,0);#IP=MAX(NP-UP,0);
&Z=Z+1;
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
㬬  뤠       | @Z  |         |         |@I7      |         |         |@I8      |         |         |@I9      |         |         |@IA      |         |         |@IB      |         |         |@IC      |
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

⠢ ___________________    ___________________    _____________________           "_____" ________________________  _______ .
             ()             ()         (஢ )
$_
      $_
//
#(C,40,0)=_(1,);
#(N,8,0)=_(,100);   // 颥 ᫮ ப
$(_GT())
  &(N,8,0)=0;
  #(C,100,0)=_();
$
  #(C,100,0)=R_String(.....................................);
$_
#=_();
#(N,8,0)=_(26,);
$(_GT())
  #(C,31,0)=_(@   );
$
  #(C,31,0)=R_String(...............................);
$_
#=_(TNLS,10000);
#BD(C,10,0)=R_Face(data_r);
#KAT(N,2,0)=R_Face(kat);
#NKAT(C,19,0)=_(KAT);
&RD1=0;&RD2=0;&RD3=0;&RD4=0;&RD5=0;&RD6=0;
&RD7=0;&RD8=0;&RD9=0;&RDA=0;&RDB=0;&RDC=0;
&NTMP(N,5,0)=NPER;
#RD1=_(1,@RSIM     ,NPER,NPER);
&NTMP=NTMP+1;
#RD2=_(1,@RSIM     ,NTMP,NTMP);
&NTMP=NTMP+1;
#RD3=_(1,@RSIM     ,NTMP,NTMP);
&NTMP=NTMP+1;
#RD4=_(1,@RSIM     ,NTMP,NTMP);
&NTMP=NTMP+1;
#RD5=_(1,@RSIM     ,NTMP,NTMP);
&NTMP=NTMP+1;
#RD6=_(1,@RSIM     ,NTMP,NTMP);
&NTMP=NTMP+1;
#RD7=_(1,@RSIM     ,NTMP,NTMP);
&NTMP=NTMP+1;
#RD8=_(1,@RSIM     ,NTMP,NTMP);
&NTMP=NTMP+1;
$(NPER)
#RD9=_(1,@RSIM     ,NTMP,NTMP);
$_
&NTMP=NTMP+1;
$(_GT(1-(NPER+11)))
#RDA=_(1,@RSIM     ,NTMP,NTMP);
&NTMP=NTMP+1;
#RDB=_(1,@RSIM     ,NTMP,NTMP);
&NTMP=NTMP+1;
#RDC=_(1,@RSIM     ,NTMP,NTMP);
$_
#DET(N,2,0)=R_Face(det);
$(_EQ(DET))
#DETI(C,4,0)=R_String(    );
$
#DETI(C,4,0)=R_String(@DET);
$_
#DINV(C,10,0)=_(01.01.,@GOD);
#STRINVAL(C,50,0)=R_Face(d_inv,DINV);
#CELEM(N,2,0)=_(STRINVAL,0);
$(_GT(CELEM-1))
#INVALTMP(C,10,0)=_(STRINVAL,2);
#INVALTMP=_(!SP,INVALTMP);
#INVAL(N,2,0)=R_String(INVALTMP);
$
#INVAL(N,2,0)=R_String(STRINVAL);
$_
#STAVKA(N,10,2)=R_Tarif(NPER,3);
#DOLG(C,20,0)=R_Face(dolgnost,0,DINV);
#DSTA(C,10,0)=R_Face(data_st);
#DST(N,2,0)=_(@DSTA     ,  .  .    );
$(_EQ(DST))
#DSTAG(C,12,0)=R_String(            );
$ 
#DSTAG(C,12,0)=_( ,@DSTA     );
$_
#S(C,2,0)=_(25,0);
#RES(N,4,0)=_(S,* );
#1(C,40,0)=NameSrc(S);
$(_," "); // " " (஡) -   㫨, "0" - 
                                                                                    -
                                                                                                                                                                                            ---------------------------
                                                                                        @GOD .                                                                                           |                     |
                                                                                                                                                                                            |-------------------------|
$ (1-_EQ(RES))
                                                                       筨 䨭஢: @1                                                                  ଠ 417   |         0504417         |
$     
                                                                                                                                                                          ଠ 417   |         0504417         |
$_
                                                                                                                                                                                            |-------------------------|
० (業ࠫ 壠)      @                                                                                                                                  | @                   |
                                                                                                                                                                                            |-------------------------|
୮ ࠧ       @                                                                                                                                               |                         |
                                                                                                                                                                                            |-------------------------|
 (ࠧ) ................................................................................................................................................................    |                         |
                                                                                                                                                                                            |-------------------------|
  ....................................................................................................................................................................   |                         |
                                                                                                                                                                                            |-------------------------|
 室 ......................................................................................................................................................................    |                         |
                                                                                                                                                                                            |-------------------------|
, , ⢮      @                                                                                                                                              | @TNLS                   |
                                                                                                                                                                                            ---------------------------
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  ஦ |   䨪,⥣    |    ࠧ    |                |       ⠦         |   ᭮ ,     |          ⢮          |       㯯         |  室   |
               |                             |                   |     祭 ⥯      |      ࠡ        |      (⠢)         |------------------------------|          |                       |
               |                             |                   |                         |                    |                       |     ⥩     |  楢  |                      |                       |
---------------|-----------------------------|-------------------|-------------------------|--------------------|-----------------------|---------------|--------------|----------------------|-----------------------|
  @BD          |@NKAT                        |                   |                         | @DSTAG             |   @STAVKA             |      @DETI    |              |         @INVAL       |                       |
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
          ਪ          |                                   |                    |   |                   㬬 ﭭ ᫥ ࠡ⭮ , ,   ..                         |
--------------------------|      ࠧ    |           |      |----------------------------------------------------------------------------------------------------------------------|
         |       |                                   |                    |           |              |              |              |              |             |              |              |              |           
-------------|------------|-----------------------------------|--------------------|-----------|--------------|--------------|--------------|--------------|-------------|--------------|--------------|--------------|
      1      |     2      |                 3                 |          4         |      5    |      6       |      7       |      8       |      9       |     10      |      11      |      12      |      13      |
-------------|------------|-----------------------------------|--------------------|-----------|--------------|--------------|--------------|--------------|-------------|--------------|--------------|--------------|
             |            |@                           |@DOLG               |           |              |              |              |              |             |              |              |              |
             |            |                                   |                    |           |              |              |              |              |             |              |              |              |
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
                           ᯮ짮 ᪮                   |                                               㬬 ﭭ 㤥ঠ                                                         |
------------------------------------------------------------------------------|---------------------------------------------------------------------------------------------------------------------------------------|
         ਪ         |                 |                        |⢮|     㬥(᭮)       |        |         |          |   ࠧ   |            |                        |
------------------------|     ਮ    |     砫       |      |-------------------------------| 㤥ঠ |   ࢮ   |  ᫥  |  㤥ঠ,|               |     ( )        |
         |     |                 |                        |          |      |  |           |  㤥ঠ  |  㤥ঠ   |    .    |     㤥ঠ      |                             |
-------------|----------|-----------------|------------------------|----------|------------------|------------|-----------|-------------|--------------|------------|-------------------|-----------------------------|
      1      |    2     |        3        |           4            |    5     |        6         |     7      |     8     |      9      |      10      |      11    |        12         |             13              |
-------------|----------|-----------------|------------------------|----------|------------------|------------|-----------|-------------|--------------|------------|-------------------|-----------------------------|
             |          |                 |                        |          |                  |            |           |             |              |            |                   |                             |
             |          |                 |                        |          |                  |            |           |             |              |            |                   |                             |
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
$(_,"0"); // " " (஡) -   㫨, "0" - 
$_
&S1=0;&S2=0;&S3=0;&S4=0;&S5=0;&S6=0;&S7=0;&S8=0;
&S9=0;&SA=0;&SB=0;&SC=0;&SP=0;
&N1=0;&N2=0;&N3=0;&N4=0;&N5=0;&N6=0;&N7=0;&N8=0;
&N9=0;&NA=0;&NB=0;&NC=0;&NP=0;
&U1=0;&U2=0;&U3=0;&U4=0;&U5=0;&U6=0;&U7=0;&U8=0;
&U9=0;&UA=0;&UB=0;&UC=0;&UP=0;
&J1=0;&Q1=0;&X=0;&Y=0;
    $_
  $_
  $(_GT(-))
#S1=_( 4,);#S2=_( 5,);#S3=_( 6,);
#S4=_( 7,);#S5=_( 8,);#S6=_( 9,);
#S7=_(10,);#S8=_(11,);#S9=_(12,);
#SA=_(13,);#SB=_(14,);#SC=_(15,);
#SP=_(18,);
    $(_EQ(1-ICOD))   // ⮪
#NVID@J1(C,12,0)=_(@EC,  ,@NAMEC );
&R1@J1(N,9,2)=S1;&R2@J1(N,9,2)=S2;&R3@J1(N,9,2)=S3;&R4@J1(N,9,2)=S4;&R5@J1(N,9,2)=S5;&R6@J1(N,9,2)=S6;
&R7@J1(N,9,2)=S7;&R8@J1(N,9,2)=S8;&R9@J1(N,9,2)=S9;&RA@J1(N,9,2)=SA;&RB@J1(N,9,2)=SB;&RC@J1(N,9,2)=SC;
&J1=J1+1;
&X=X+1;
    $_
    $(_NE(FNU)*_LT(1-ICOD)) // ᫥
      $(FLMN) //  ᫥
#NVID@J1(C,12,0)=_(@EC,  ,@NAMEC );
&R1@J1(N,9,2)=S1;&R2@J1(N,9,2)=S2;&R3@J1(N,9,2)=S3;&R4@J1(N,9,2)=S4;&R5@J1(N,9,2)=S5;&R6@J1(N,9,2)=S6;
&R7@J1(N,9,2)=S7;&R8@J1(N,9,2)=S8;&R9@J1(N,9,2)=S9;&RA@J1(N,9,2)=SA;&RB@J1(N,9,2)=SB;&RC@J1(N,9,2)=SC;
&J1=J1+1;
&X=X+1;
&N1=N1+S1;&N2=N2+S2;&N3=N3+S3;&N4=N4+S4;&N5=N5+S5;
&N6=N6+S6;&N7=N7+S7;&N8=N8+S8;&N9=N9+S9;&NA=NA+SA;
&NB=NB+SB;&NC=NC+SC;&NP=NP+SP;
      $ //  ᫥
#NVID@J1(C,12,0)=_(@EC,* ,@NAMEC );
&R1@J1(N,9,2)=S1;&R2@J1(N,9,2)=S2;&R3@J1(N,9,2)=S3;&R4@J1(N,9,2)=S4;&R5@J1(N,9,2)=S5;&R6@J1(N,9,2)=S6;
&R7@J1(N,9,2)=S7;&R8@J1(N,9,2)=S8;&R9@J1(N,9,2)=S9;&RA@J1(N,9,2)=SA;&RB@J1(N,9,2)=SB;&RC@J1(N,9,2)=SC;
&J1=J1+1;
&X=X+1;
      $_
    $_
    $(_EQ(200-ICOD)) // 
#UVID@Q1(C,12,0)=_(@EC,  ,@NAMEC );
&T1@Q1(N,9,2)=S1;&T2@Q1(N,9,2)=S2;&T3@Q1(N,9,2)=S3;&T4@Q1(N,9,2)=S4;&T5@Q1(N,9,2)=S5;&T6@Q1(N,9,2)=S6;
&T7@Q1(N,9,2)=S7;&T8@Q1(N,9,2)=S8;&T9@Q1(N,9,2)=S9;&TA@Q1(N,9,2)=SA;&TB@Q1(N,9,2)=SB;&TC@Q1(N,9,2)=SC;
&Q1=Q1+1;
&Y=Y+1;
    $_
    $ (_EQ(FNU)) // ঠ 
      $(FLMN) //  㤥ঠ
#UVID@Q1(C,12,0)=_(@EC,  ,@NAMEC );
&T1@Q1(N,9,2)=S1;&T2@Q1(N,9,2)=S2;&T3@Q1(N,9,2)=S3;&T4@Q1(N,9,2)=S4;&T5@Q1(N,9,2)=S5;&T6@Q1(N,9,2)=S6;
&T7@Q1(N,9,2)=S7;&T8@Q1(N,9,2)=S8;&T9@Q1(N,9,2)=S9;&TA@Q1(N,9,2)=SA;&TB@Q1(N,9,2)=SB;&TC@Q1(N,9,2)=SC;
&Q1=Q1+1;
&Y=Y+1;
&U1=U1+S1;&U2=U2+S2;&U3=U3+S3;&U4=U4+S4;&U5=U5+S5;
&U6=U6+S6;&U7=U7+S7;&U8=U8+S8;&U9=U9+S9;&UA=UA+SA;
&UB=UB+SB;&UC=UC+SC;&UP=UP+SPR;
      $ //  㤥ঠ
#UVID@Q1(C,12,0)=_(@EC,* ,@NAMEC );
&T1@Q1(N,9,2)=S1;&T2@Q1(N,9,2)=S2;&T3@Q1(N,9,2)=S3;&T4@Q1(N,9,2)=S4;&T5@Q1(N,9,2)=S5;&T6@Q1(N,9,2)=S6;
&T7@Q1(N,9,2)=S7;&T8@Q1(N,9,2)=S8;&T9@Q1(N,9,2)=S9;&TA@Q1(N,9,2)=SA;&TB@Q1(N,9,2)=SB;&TC@Q1(N,9,2)=SC;
&Q1=Q1+1;
&Y=Y+1;
      $_
    $_
  $_
  &OLDTN=TNLS;
  &=+1;
$(_GT(-+1))
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         |  |                       |          ࠫ            |                         |          ५             |                          |                         |           
      ⥫     |-|-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
                     |   |         |         |  ⮣  |         |         |  ⮣  |         |         |  ⮣  |         |         |  ⮣  |         |         |  ⮣  |         |         |  ⮣  |
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
          1          |  2  |    3    |    4    |    5    |    6    |    7    |    8    |    9    |    10   |    11   |    12   |    13   |    14   |    15   |    16   |    17   |    18   |    19   |    20   |
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
ࠡ⠭       | 01  |         |         |   @RD1  |         |         |   @RD2  |         |         |   @RD3  |         |         |    @RD4 |         |         |    @RD5 |         |         |    @RD6 |
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
ᥣ ᫥      | 02  |         |         |@N1      |         |         |@N2      |         |         |@N3      |         |         |@N4      |         |         |@N5      |         |         |@N6      |
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
 ⮬ ᫥  :| 03  |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
&Z(V,2,0)=3;
&J1=0;                                                                      
&XTMP(N,5,0)=X;                                                             
&YTMP(N,5,0)=Y;                                                             
$                                                                  
&X1(N,9,2)=R1@J1;&X2(N,9,2)=R2@J1;&X3(N,9,2)=R3@J1;&X4(N,9,2)=R4@J1;    
&X5(N,9,2)=R5@J1;&X6(N,9,2)=R6@J1;    
#X0(C,12,0)=R_String(NVID@J1);                                              
&Z=Z+1;
        @X0          | @Z  |         |         |@X1      |         |         |@X2      |         |         |@X3      |         |         |@X4      |         |         |@X5      |         |         |@X6      |
&J1=J1+1;                                                                   
&X=X-1;                                                                     
$(X)                                                                    
&Z=Z+1;
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
ᥣ 㤥ঠ       | @Z  |         |         |@U1      |         |         |@U2      |         |         |@U3      |         |         |@U4      |         |         |@U5      |         |         |@U6      |
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
&Z=Z+1;
 ⮬ ᫥  :| @Z  |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
&Q1=0;                                                                                                   
$                                                                                               
&X1(N,9,2)=T1@Q1;&X2(N,9,2)=T2@Q1;&X3(N,9,2)=T3@Q1;&X4(N,9,2)=T4@Q1;                                 
&X5(N,9,2)=T5@Q1;&X6(N,9,2)=T6@Q1;                                 
#X0(C,12,0)=R_String(UVID@Q1); 
&Z=Z+1;
        @X0          | @Z  |         |         |@X1      |         |         |@X2      |         |         |@X3      |         |         |@X4      |         |         |@X5      |         |         |@X6      |
&Q1=Q1+1;
&Y=Y-1;
$(Y)
#I1=MAX(N1-U1,0);#I2=MAX(N2-U2,0);#I3=MAX(N3-U3,0);#I4=MAX(N4-U4,0);#I5=MAX(N5-U5,0);
#I6=MAX(N6-U6,0);
&Z=Z+1;
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
㬬  뤠       | @Z  |         |         |@I1      |         |         |@I2      |         |         |@I3      |         |         |@I4      |         |         |@I5      |         |         |@I6      |
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
$_
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         |  |                         |                       |                     |                      |                       |                      |           
      ⥫     |-|-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
                     |   |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
          1          |  2  |    21   |    22   |    23   |    24   |    25   |    26   |    27   |    28   |    29   |    30   |    31   |    32   |    33   |    34   |    35   |    36   |    37   |    38   |
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
ࠡ⠭       | 01  |         |         |   @RD7  |         |         |   @RD8  |         |         |   @RD9  |         |         |   @RDA  |         |         |   @RDB  |         |         |   @RDC  |
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
ᥣ ᫥      | 02  |         |         |@N7      |         |         |@N8      |         |         |@N9      |         |         |@NA      |         |         |@NB      |         |         |@NC      |
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
 ⮬ ᫥  :| 03  |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
&Z=3;
&J1=0;
&X=XTMP;
&Y=YTMP;
$
&X7(N,9,2)=R7@J1;&X8(N,9,2)=R8@J1;
&X9(N,9,2)=R9@J1;&XA(N,9,2)=RA@J1;&XB(N,9,2)=RB@J1;&XC(N,9,2)=RC@J1;
#X0(C,12,0)=R_String(NVID@J1);
&Z=Z+1;
        @X0          | @Z  |         |         |@X7      |         |         |@X8      |         |         |@X9      |         |         |@XA      |         |         |@XB      |         |         |@XC      |
&J1=J1+1;
&X=X-1;
$(X)
&Z=Z+1;
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
ᥣ 㤥ঠ       | @Z  |         |         |@U7      |         |         |@U8      |         |         |@U9      |         |         |@UA      |         |         |@UB      |         |         |@UC      |
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
&Z=Z+1;
 ⮬ ᫥  :| @Z  |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |         |
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
&Q1=0;
$
&X7(N,9,2)=T7@Q1;&X8(N,9,2)=T8@Q1;
&X9(N,9,2)=T9@Q1;&XA(N,9,2)=TA@Q1;&XB(N,9,2)=TB@Q1;&XC(N,9,2)=TC@Q1;
#X0(C,12,0)=R_String(UVID@Q1); 
&Z=Z+1;
        @X0          | @Z  |         |         |@X7      |         |         |@X8      |         |         |@X9      |         |         |@XA      |         |         |@XB      |         |         |@XC      |
&Q1=Q1+1;
&Y=Y-1;
$(Y)
#I7=MAX(N7-U7,0);#I8=MAX(N8-U8,0);#I9=MAX(N9-U9,0);#IA=MAX(NA-UA,0);
#IB=MAX(NB-UB,0);#IC=MAX(NC-UC,0);#IP=MAX(NP-UP,0);
&Z=Z+1;
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
㬬  뤠       | @Z  |         |         |@I7      |         |         |@I8      |         |         |@I9      |         |         |@IA      |         |         |@IB      |         |         |@IC      |
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

⠢ ___________________    ___________________    _____________________           "_____" ________________________  _______ .
             ()             ()         (஢ )
$_
$LF
$