//   ⨥ ᪨ ⮢ ( ᪢)
//-------------------------------------------------------
#(N,5,0)=_(0);        // ᫮ ࠡ ᥩ  ⠡
$(_EQ())
  $
$_
//   ⨥ ⮢
#flagPrintedForm(N,2,0)=0;
$BEG_SCRIPT
  UnloadScriptModule("bank\\msk_otk");
  LoadScriptModule("bank\\msk_otk");
  flagPrintedForm=Print();
  UnloadScriptModule("bank\\msk_otk");
$END_SCRIPT
$(_EQ(flagPrintedForm-27))//   "⬥" - 室  

  $BEG_SCRIPT
    var CurFile=CreateObject("CurPrnFile");
    CurFile.SetFlagBrowse(0);
  $END_SCRIPT
  $
$
  $(_EQ(flagPrintedForm-1))//㦥 ᯥ⠫   ଠ( १ Excel 蠡) - 室  
    $BEG_SCRIPT
      var CurFile=CreateObject("CurPrnFile");
      CurFile.SetFlagBrowse(0);
    $END_SCRIPT
    $
  $_
$_
${(5. ⥫ ப ᯨ᪠)
  $(__,0); // 0 (1,...) - ⢮ ய᪮ ப
  $(_,"-");     // ᨬ  મ: "-" ( .ᨬ)
$}(5. ⥫ ப ᯨ᪠)
${(6. ⥫ ⮫殢 ᯨ᪠)
  $(__,1); // 1,2,...-᫮ ᨬ  ࠧ 
  $(_,"|");     // ᨬ-ࠧ⥫  (|  ||  ..)
$}(6. ⥫ ⮫殢 ᯨ᪠)
${(7. ਧ  )
  $(_," "); // " " (஡) -   㫨, "0" - 
$}(7. ਧ  )
${(1.  ᯨ᪠)
//   ⨬ ਥ 室 ⥪  ᯨ᪠

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

    $}(3.  )
    $(_LT(-))
      $_
      ${(2.  )
//   ⨬ ਥ 室 ⥪  

      $}(2.  )
      //${( ⠡).   .
        #=_(,,)             //  
        #=_(__);                 //  㬬
      //$}( ⠡).   .
    $_
  $_
$(_GT(-))
${(4.  ᯨ᪠)
//   ⨬ ਥ 室 ⥪   ᯨ᪠

$}(4.  ᯨ᪠)
$LF




