// ଠ -12   ࠡ祣 ६    㤠
${(1. ன) 
&kod(N,2,0)=0; // 0- ⠡ ᯮ짮 㪢 ; 1-஢ 
&nul(N,2,0)=2; // 0- 㫨; 1-  㫨; 2- 㫥  
&sum(N,2,0)=1; // 롮ઠ 㬬: 0-  ਭ; 1-  ᫥
&raz2(N,2,0)=1; // 1- ࠧ 2; 0- 
&usob(N,2,0)=1; // 1- ᫮ 祭  蠯 ; 0- 
&sovm(N,2,0)=0; // 0-  ( ᮢ⥫⢠); 
//                 1-⮫쪮  ᭮  ࠡ, 2-⮫쪮  ᮢ⥫⢠
&nrsvm(N,2,0)=0;// 0-  ⠡ ᮢ⥫,६  ࠡ( ); 1- 
&mnim(N,2,0)=0; // 0-   ; 1-  
$}(1. ன) 
//
#regim(N,2,0)=_(12,9,66,15, ,    , );    
$(_EQ(regim-27))            
  $BEG_SCRIPT            
    var CurFile=CreateObject("CurPrnFile");            
    CurFile.SetFlagBrowse(0);            
  $END_SCRIPT            
  $            
$_            
//
#(N,8,0)=_(NumDep);         
#podr(C,90,0)=_();         
//
$BEG_SCRIPT 

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

  var array_param[11];
  array_param[0]=10; //⢮ ࠬ஢
  array_param[1]=regim;
  array_param[2]=podr;
  array_param[3]=usob;
  array_param[4]=kod;
  array_param[5]=nul;
  array_param[6]=raz2;
  array_param[7]=sum;
  array_param[8]=sovm;
  array_param[9]=nrsvm;
  array_param[10]=mnim;
  UnloadScriptModule("forms\\t13"); 
  LoadScriptModule("forms\\t13"); 
    t13(array_param);
  UnloadScriptModule("forms\\t13"); 

$END_SCRIPT 
$