//-----------    - ---------------
#(N,5,0)=_(0);        // ᫮ ࠡ ᥩ  ⠡
$(_EQ())
  $
$_
${(5. ⥫ ப ᯨ᪠)
  $(__,1);  // 1 (0,1,...) - ⢮ ய᪮ ப
  $(_,"-");      // ᨬ  મ: "-" ( .ᨬ)
$}(5. ⥫ ப ᯨ᪠)
${(6. ⥫ ⮫殢 ᯨ᪠)
  $(__,1); // 1,2,...-᫮ ᨬ  ࠧ 
  $(_,"|");     // ᨬ-ࠧ⥫  (|  ||  ..)
$}(6. ⥫ ⮫殢 ᯨ᪠)
${(7. ਧ  )
  $(_,"0"); // " " (஡) -   㫨, "0" - 
$}(7. ਧ  )
  #(N,8,0)=_(NumDep);
  #(C,30,0)=_();
  #(N,3,0)=(8); #(N,4,0)=(9);
  #(C,8,0)=_();
  //       ( ⠡ 㦥 )
  //  -    ࢮ  ⠡
  #(N,4,0)=_(Code,0);      // 祭    4 ࢮ 
  #(C,7,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.  ᯨ᪠)
  $()
  ࠧ: @     @
  $_
//   ⨬ ਥ 室 ⥪  ᯨ᪠
  ࠢ筠    @- @   @ @.
$ (1-_EQ(RES))
#1(C,40,0)=NameSrc(S);
  筨 䨭஢: @1
$_
$}(1.  ᯨ᪠)
&(N,5,0)=0;
&(N,5,0)=1;                                 // 稪 ࠭
#(N,3,0)=_();                      //  ࠭
//${( ⠡)
  #=_(,,)             //  
  #=_(__);                 //  㬬  
//$}( ⠡)
$                                             //     ⠡
  //${(ப )
    #=_();                         // ਧ  
    $()
      #=_(_,,)  //   ப ⠡
    $_
  //$}(ப )
  &=+1;
  #(N,5,0)=_();                 // 稪 ப  
  $(_GE(+6-)+_EQ(-))
    //${(⮣ )
      #=_(,_);            //  ⮣  .
    //$}(⮣ )
    ${(3.  )
//   ⨬ ਥ 室 ⥪   

    $}(3.  )
    $(_LT(-))
      $_
      ${(2.  )
        $()
  ࠧ: @     @
        $_
        &=+1;
//   ⨬ ਥ 室 ⥪  
  ࠢ筠    @- @   @ @.  @
      $}(2.  )
      //${( ⠡).   .
        #=_(,,)             //  
        #=_(__);                 //  㬬
      //$}( ⠡).   .
    $_
  $_
$(_GT(-))
//${(⮣ )
  #=_(_)
//$}(⮣ )
${(4.  ᯨ᪠)
//   ⨬ ਥ 室 ⥪   ᯨ᪠

$}(4.  ᯨ᪠)
$LF