//-----------------   ----------------- 
#(N,5,0)=_(0); // ᫮ ࠡ ᥩ  ⠡ 
$(_EQ()) 
  $ 
$_ 
${(5. ⥫ ப ᯨ᪠) 
  $(__,0);  // 1 (0,1,...) - ⢮ ய᪮ ப
  $(_,"-");      // ᨬ  મ: "-" ( .ᨬ)
$}(5. ⥫ ப ᯨ᪠) 
${(6. ⥫ ⮫殢 ᯨ᪠) 
  $(__,1); // 1,2,...-᫮ ᨬ  ࠧ  
  $(_,"|");     // ᨬ-ࠧ⥫  (|  ||  ..) 
$}(6. ⥫ ⮫殢 ᯨ᪠) 
${(7. ਧ  ) 
  $(_," "); // " " (஡) -   㫨, "0" -  
$}(7. ਧ  ) 
&(N,5,0)=0; 
&(N,5,0)=1;                                 // 稪 ࠭ 
#(N,3,0)=_();                      //  ࠭ 
#(N,8,0)=_(1); 
#(C,30,0)=_(); 
#(N,3,0)=R_Date(1); #(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 
