${(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)=1;
// 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   
$  
