${(1. ன) 
//==================================
// 騥 ன
//==================================
&NumStTV(N,2,0)=31; //  ⮫  室  
//                    ⠡  (1- ⮫.)
//  ⠡ 室:
// 0 -     ⠡ ; 1 -   ⠡ ;
// 2-9 -      ⪨  ⠦ ( ⮪  ਯ)
&Fl_1day(N,2,0)=0; //  ⠡ 
// 0 - ࢠ  ࠭稢 砫 ਮ, 1 - 
&RazrStr(N,2,0)=1;
// 1 - ⠡  㬬  栬 稭  ண 
// 0 -  ࠧ뢮 
&RazrNU(N,2,0)=1;
// 1 - ࠧ  1  2  ⠡  㬬  栬
// 0 -  ࠧ뢮 
&PrintRV(N,2,0)=0;
// 1 -     , 0 - 
//==================================
// ன  ਠ ᪠
//==================================
&PrPRIKAZ(N,2,0)=0;
// 1 -   ਪ   ਪ, 0 - 
&FlDatPr(N,2,0)=1; ( ᯮ ᫨ PrPRIKAZ==1 )
// 1 - १  ਪ ( .४)
// 0 - 
&CountPr(N,2,0)=0; ( ᯮ ᫨ PrPRIKAZ==1 )
// 1 -   ,   ᪮쪮 ਪ
// 0 - 뢮 ⮫쪮 1  ਪ  1 
&CommPr(N,2,0)=0; ( ᯮ ᫨ PrPRIKAZ==1 )
// 1 - 뢮 ਩   ਪ ( )
// 0 -  뢮
#SimvDopR(C,20,0)=R_String(); ( ᯮ ᫨ PrPRIKAZ==1 )
// -  ᪮ ᫨ ᨬ .४⮢  ,
//   ⠢ ਪ (   "" )
&FlPrOtp(N,2,0)=1; ( ᯮ ᫨ PrPRIKAZ==1 )
//   ਪ    १ ⥫ ४
// 1 -   "" (  ᨬ -"", ᥢ ४-"pr")
// 0 -   ""(  ᨬ -"", ᥢ ४-"p")
&PrVidOtp(N,2,0)=0; // 0 -    ᪠
// 1 -   ᪮ (   ਮ)
// 2 -   ᪮  .(   ਮ), 
// 3 -   ᪮ (  - ); 
//==================================
$}(1. ன) 
#regim(N,2,0)=_(12,9,66,15,  ࠡ祣 ६,   ⠡,  १ );     
$BEG_SCRIPT  
 
  var array_param[14]; 
  array_param[0]=13; //⢮ ࠬ஢ 
  array_param[1]=regim; 
  array_param[2]=NumStTV; 
  array_param[3]=RazrStr; 
  array_param[4]=RazrNU; 
  array_param[5]=PrintRV; 
  array_param[6]=PrPRIKAZ; 
  array_param[7]=PrVidOtp; 
  array_param[8]=FlDatPr; 
  array_param[9]=FlPrOtp; 
  array_param[10]=CountPr; 
  array_param[11]=CommPr; 
  array_param[12]=SimvDopR; 
  array_param[13]=Fl_1day; 
 
  LoadScriptModule("forms\\f417");  
    f417_new(array_param); 
  UnloadScriptModule("forms\\f417");  
 
$END_SCRIPT  
$ 
