${(1. ன)
//==================================
// 騥 ன 
//==================================
&NumStTV(N,2,0)=1; //  ⮫  室   
//                    ⠡  (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 
$
