// ଠ 0504421   ࠡ祣 ६    㤠   
${(1. ன)   
&sovm(N,2,0)=0; // 0-  ( ᮢ⥫⢠);
//                 1-⮫쪮  ᭮  ࠡ, 2-⮫쪮  ᮢ⥫⢠
&nyav(N,2,0) = 0;// 0 - 뢮  ⠡ (), 1 - ⮫쪮 ⪫
&chasn(N,2,0) = 0;// 0 - 뢮 ⮫쪮 ࠡ⠭ , 1 -  ⪫
                  // 2 - 뢮    ⠡
&sw(N,2,0) = 0;// 0 -    ⠡, 1 -  砥 ⪫ 室 
               //室  ࠧ  ਬ ᫮ 
&nrsvm(N,2,0)=0;// 0-  ⠡ ᮢ⥫,६  ࠡ( ); 1-
$}(1. ன)   
// { 㠫 ன   
&sum(N,2,0)=1; // 롮ઠ 㬬: 0-  ਭ; 1-  ᫥   
&stTV(N,6,0)=1; //  ⮫ ⠡ 室,  ஬ 祭:   
//"1"- ᫥  3.,"2" -    4.,"0" -     ⠡   
//   
&dobst(N,2,0)=0; //   室 ⮫  3  4 ࠭   
//                  0-; 1-   
&list34(N,2,0)=0; // 0-  (      )   
//                   1-⮫쪮 , 2-⮫쪮    
// } 㠫 ன   
#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");   
   
  int np = 12;   
  var param[np];   
   
  param[0]  = 0;   
  param[1]  = dobst;   
  param[2]  = sum;   
  param[3]  = podr;   
  param[4]  = regim;   
  param[5]  = stTV;   
  param[6]  = sovm;   
  param[7]  = list34;   
  param[8]  = nyav;   
  param[9]  = chasn;   
  param[10] = sw;   
  param[11] = nrsvm;   
   
  UnloadScriptModule("forms\\f421");   
  UnloadScriptModule("user\\f421_15_1");   
  LoadScriptModule("user\\f421_15_1");   
    f421(param,np);   
  UnloadScriptModule("user\\f421_15_1");   
   
$END_SCRIPT   
$   
   
  
