//-----------------   -----------------
#(N,5,0)=_(0); // ᫮ ࠡ ᥩ  ⠡
$(_EQ())
  $
$_
${(5. ⥫ ப ᯨ᪠)
  $(__,1);  // 1 (0,1,...) - ⢮ ய᪮ ப
  $(_,"-");      // ᨬ  મ: "-" ( .ᨬ)
$}(5. ⥫ ப ᯨ᪠)
${(6. ⥫ ⮫殢 ᯨ᪠)
  $(__,1); // 1,2,...-᫮ ᨬ  ࠧ 
  $(_,"|");     // ᨬ-ࠧ⥫  (|  ||  ..)
$}(6. ⥫ ⮫殢 ᯨ᪠)
${(7. ਧ  )
  $(_,"0"); // " " (஡) -   㫨, "0" - 
$}(7. ਧ  )
&(N,5,0)=0;
&(N,5,0)=1;                                 // 稪 ࠭
#(N,3,0)=_();                      //  ࠭
#(N,8,0)=_(NumDep);
#(C,30,0)=_();
#(N,3,0)=(8); #(N,4,0)=(9);
#(C,8,0)=_();
#NS(N,3,0)=_(SRC);
$ (_GE(NS))
#S(C,2,0)=_(NS,0);
#RES(N,4,0)=_(S,* );
$
&RES(N,4,0)=0;
$_
${(1.  ᯨ᪠)
  &(N,1,0)=0;  // =1 -    ᯨ᪠, =0 - ⪨.
//   ⨬ ਥ 室 ⥪    ᯨ᪠
  #(N,3,0)=_(CASHSUM);    //  ⮫  㬬  
  #(N,12,2)=_(,0);   // 㬬  
  $(_EQ(-1))

                                       @    .....................
  $_
  $()
  ࠧ: @     @
  $_
$ (1-_EQ(RES))
#1(C,40,0)=NameSrc(S);
  筨 䨭஢: @1
$_
  $(_EQ(-1))
                                       @     .................
       ப  .............  .............. .... .
  $(_GT())
    #(C,160,0)=_();
    #(N,8,0)=_(,60);   // 颥 ᫮ ப
    &(N,8,0)=0;
    $
      #(N,60,0)=_();
      $(_EQ())                         // ᫨ ࢠ ப
  㬬 @...................................................
      $
  @.........................................................
      $_
      &=+1;
    $(_LT(-))
    #=_();
  $
  ...................................................................
  ...................................................................
  $_
  &(N,12,0)=_Long(); &(N,4,0)=(-)*100;
  ..........................................(@          @ )

                 ⥦  N
  $_
  ௫  @ @ .
  $(_EQ(-1))
   饩  ⥦  믫祭  㡫....................
  .......................................................................
  ..................................................(.............)
   ஢ 㡫..................................................
  .......................................................................
  ..................................................(.............)
      .............            ஢ਫ 壠 ...............
          ᮢ थ N....    "..."........... .... .
  $_
$}(1.  ᯨ᪠)

//${( ⠡)
  #=_(,,)             //  
  #=_(__);                 //  㬬  
//$}( ⠡)
$                                        //     ⠡
  //${(ப )
    #=_();                         // ਧ  
    $()
      #=_(_,,)  //   ப
    $_
  //$}(ப )
  &=+1;
  #(N,5,0)=_();                   // 稪 ப  
  $(_GE(+6-)+_EQ(-))
    //${(⮣ )
      #=_(,_);            //  ⮣  .
    //$}(⮣ )
    ${(3.  )
//   ⨬ ਥ 室 ⥪   

    $}(3.  )
    $(_LT(-))
      $_
      ${(2.  )
        $()
  ࠧ: @     @
        $_
        &=+1;
//   ⨬ ਥ 室 ⥪  
  ௫  @ @ .                                    @
      $}(2.  )
      //${( ⠡).   .
        #=_(,,)             //  
        #=_(__);                 //  㬬
      //$}( ⠡).   .
    $_
  $_
$(_GT(-))
//${(⮣ )
  #=_(_)
//$}(⮣ )
${(4.  ᯨ᪠)
   &(N,1,0)=0;  // =1-   ᯨ᪠, =0-⪮.
//   ⨬ ਥ 室 ⥪     ᯨ᪠
  $(_EQ(-1))
  $(_GT())
    #(C,160,0)=_();
    #(N,8,0)=_(,60);   // 颥 ᫮ ப
    &(N,8,0)=0;
    $
      #(N,60,0)=_();
  @
      &=+1;
    $(_LT(-))
    #=_();
  $
  ...................................................................
  ...................................................................
  $_

     ⠢.............

     ஢ਫ ............
  $_
$}(4.  ᯨ᪠)
$LF