//  - ᮢ 
${(1. ன )
&bt(N,2,0)=0;  // 1-⭠ ଠ ; 0-ଠ -53
&cs(N,2,0)=55; // ⢮ ப    
&it(N,2,0)=1;  //  ⮣  : 1-: 0- 
$}(1. ன )
//
#(N,8,0)=_(NumDep);         
#podr(C,30,0)=_();         
#noved(C,15,0)=_(PrintNumb);         
#dataf(C,10,0)=_(D_DOC);          
#1(,7,0)=(7);         
#2(,2,0)=(3);         
#dn(C,10,0)=_(01.,1);         
#dk(C,10,0)=_(2,.,1);         
//
#reg(N,2,0)=_(12,9,66,15,ᮢ ,,室 थ);
$(_EQ(reg-27))    
$BEG_SCRIPT    
  var CurFile=CreateObject("CurPrnFile");    
  CurFile.SetFlagBrowse(0);    
$END_SCRIPT    
$    
$_    
//
$BEG_SCRIPT    

  var CurFile=CreateObject("CurPrnFile");    
  CurFile.SetFlagBrowse(0);    

  int np = 7;
  var param[np];

  param[0] = atoi(cs);
  param[1] = OemToAnsi(podr);
  param[2] = OemToAnsi(noved);
  param[3] = OemToAnsi(dataf);
  param[4] = OemToAnsi(dn);
  param[5] = OemToAnsi(dk);
  param[6] = atoi(it);

  UnloadScriptModule("dmodules");
  LoadScriptModule("dmodules");
    UnloadDynamicModules();
  UnloadScriptModule("dmodules");

  if ( atoi(reg) )
  {
    LoadScriptModule("forms\\ispl_ko");
      ko(param,np);
    UnloadScriptModule("forms\\ispl_ko");
  }
  else
  {
    if ( atoi(bt) )
    {
      LoadScriptModule("forms\\ispl_ved");
        ved(param,np);
      UnloadScriptModule("forms\\ispl_ved");
    }
    else
    {
      LoadScriptModule("forms\\ispl_t53");
        at53(param,np);
      UnloadScriptModule("forms\\ispl_t53");
    }
  }

$END_SCRIPT    
$