// 㠫쭠 窠 2010 .
${(1. ன )
&ENIN(N,2,0)=1; // 0-᫨     室    室   頥  ࠧ " 室"
//              // 1- 室 뢠  ࠧ "᫥  ਮ "
$}(1. ன )
&REST(N,2,0)=0; // 1- ॥; 0- 
//  , ࠧ 4.1 ⮫ 5-8
&SINV(N,2,0)=1; // 1-⠢  㬬 室; 0- 㬬
//  ࣠権 
&OINV(N,2,0)=0; // 1- ⢥ ࣠権  ( ⮬ ᫥ ᮧ   ⢥ ࣠権 )
//                 2- ࣠権, ⠢ ⠫   ⮨   ⢥ ࣠権 
//                 0-।⨥   ࣠樥 
//${(2. ⥫ ன)
// ᮡ  ப "᫥ 客 ᮢ..."  ࠧ 2  3
&VSTR(N,2,0)=2; // 0-祭 祭  ந ᮮ⢥饩   
//                 1-祭 祭  㬬 ᮢ   
//                 2-   1,   ࠧ 1 頥 㬬 ᮢ ࠧ 2  3
//                 3-  ࠧ 2  3         ࠧ 1
// ᮡ 㣫
&SOKR(N,2,0)=0; // 1-㣫 㬬  , 㬬  ਮ ᪫뢠  㣫 㬬  
//                 0-㬬  ਮ 㣫 ⤥쭮
//$}(2. ⥫ ன)
&JUDG(N,2,0)=0; //  㤥: 1-㣫 믮   , 0-㣫 騥 㬬
&IKRT(N,2,0)=1; // 0--1; 1-㠫쭠 窠
#OKT(C,80,0)=R_String(01); //  ᭮ 
//
&Format(N,2,0)=0;
&FPRINT(N,2,0)=1;
#FF1(N,3,0)=_(FFIRST,0);
#FN1(C,256,0)=_(FNAME1,0);
#FN2(C,256,0)=_(FNAME2,0);
$BEG_SCRIPT
  var CurFile=CreateObject("CurPrnFile");
  CurFile.SetFlagBrowse(0);
  FreeSpaceString(FN1,3,""); FreeSpaceString(FN2,3,"");
  string FN = FN1 + FN2;
  if ( access(FN,0) ) FF1 = 0;
$END_SCRIPT
$(_EQ(FF1-1))
//
  $(_EQ(IKRT))
    #Format=_(15,9,70,15,롥 ०,   , ।  䠩 );
  $
    &Format=0;
  $_
//
  $(_EQ(Format-27))
    $
  $_
//
  $(_EQ(Format))
    #FPRINT=_(15,9,70,15, ,  ନ஢ ,   );
    $(_EQ(FPRINT-27))
      $
    $_
  $_
//
$_
//
#IKRT=_(12,9,66,15, ?,㠫 窨, 窠);    
$(_EQ(IKRT))
  &IKRT=1;
$
  &IKRT=2;
$_
//
$BEG_SCRIPT

  int np = 11;
  var param[np];

  param[0]  = atoi(Format);
  param[1]  = atoi(FPRINT);
  param[2]  = atoi(OINV);
  param[3]  = atoi(SINV);
  param[4]  = static_cast_to_string(OKT);
  param[5]  = atoi(ENIN);
  param[6]  = atoi(SOKR);
  param[7]  = atoi(JUDG);
  param[8]  = atoi(VSTR);
  param[9]  = atoi(REST);
  param[10] = atoi(IKRT);

  UnloadScriptModule("dmodules");
  LoadScriptModule("dmodules");
    UnloadDynamicModules();
  UnloadScriptModule("dmodules");

  UnloadScriptModule("forms\\rsv1_10");
  LoadScriptModule("forms\\rsv1_10");
    rsv1m(param,np);
  UnloadScriptModule("forms\\rsv1_10");

$END_SCRIPT
$