// -2 2010 .
${(1. ன )
&SOKR(N,2,0)=0; // 0-㬬  ਮ 㣫 ⤥쭮
//                 1-㣫 㬬  , 㬬  ਮ ᪫뢠  㣫 㬬  
$}(1. ன )
${(2.   ନ஢)
// 1) ନ஢ -2. ஢ ࠢ쭮  쭮 ,
//     室  ࠢ.
// 2)  ࠧ 2. 
//     ⮫ " /" 㬥   1  .
//       ଠ ..
// 3) ࠭  (Ctrl+S).   (Ctrl+F4).
// 4) 믮  -  祣 ᫥  ᮮ⢥騩 ०
//    ନ஢ -2
//    !!!  !!! । 믮  ଠ   
//     ⠭ ଠ ஥  ० "쪮  ⥭"
// 5) ᬮ ⠭ 祭 客 ᮢ,
//     室  ४஢.
// 6) ࠭  (Ctrl+S).   (Ctrl+F4).
// 7) 믮 ।  䠩 - ࠢ ᮮ⢥騩 ०
//    ନ஢ -2
$}(2.   ନ஢)
&VSTR(N,2,0)=1; //0-祭 祭  㬬 ᮢ   
//                1-     
// ᮡ ᫥    ᮢ
&VDOK(N,2,0)=1; // 0- ᪫뢠  㬬 祭   
//                 1-   祭  祭   砫 ਮ + 祭   ᫥ ⠫
&Format(N,2,0)=0;
&FPRINT(N,2,0)=1;
#MES(N,3,0)=_(AEDAT,0);  
#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=_(10,9,75,15,롥 ०,   , 믮  , ।  䠩 );
  $
    &Format=0;
  $_
//
  $(_EQ(Format-27))
    $
  $_
//
  $(_EQ(Format))
    #FPRINT=_(15,9,70,15, ,  ନ஢ ,   );
    $(_EQ(FPRINT-27))
      $
    $_
  $_
//
$_
//
$BEG_SCRIPT

  int np = 5;
  var param[np];

  param[0] = atoi(Format);
  param[1] = atoi(FPRINT);
  param[2] = atoi(VSTR);
  param[3] = atoi(SOKR);
  param[4] = atoi(VDOK);

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

  UnloadScriptModule("forms\\rsv2_10");
  UnloadScriptModule("forms\\rsv2_15");

  if ( atoi(MES) < 325 ) LoadScriptModule("forms\\rsv2_10");
  else                   LoadScriptModule("forms\\rsv2_15");

  rsv2m(param,np);

  UnloadScriptModule("forms\\rsv2_10");
  UnloadScriptModule("forms\\rsv2_15");

$END_SCRIPT
$