// ଠ 0504421   ࠡ祣 ६    㤠
${(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-
&sovm(N,2,0)=0; // 0-  ( ᮢ⥫⢠); 
//                 1-⮫쪮  ᭮  ࠡ, 2-⮫쪮  ᮢ⥫⢠
&list34(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. ன)
//
#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[12];
  array_param[0]=11; //⢮ ࠬ஢
  array_param[1]=dobst;
  array_param[2]=sum;
  array_param[3]=podr;
  array_param[4]=regim;
  array_param[5]=stTV;
  array_param[6]=sovm;
  array_param[7]=list34;
  array_param[8]=nyav;
  array_param[9]=chasn;
  array_param[10]=sw;
  array_param[11]=nrsvm;
  LoadScriptModule("forms\\f421");
    f421(array_param);
  UnloadScriptModule("forms\\f421");

$END_SCRIPT
$