// -3 2010 .
${(1. ன )
&SOKR(N,2,0)=0; // 0-㬬  ਮ 㣫 ⤥쭮
//                 1-㣫 㬬  , 㬬  ਮ ᪫뢠  㣫 㬬  
$}(1. ன )
&VSTR(N,2,0)=1; //0-祭 祭  㬬 ᮢ   
//                1-     
// ᮡ ᫥    ᮢ
&VDOK(N,2,0)=1; // 0- ᪫뢠  㬬 祭   
//                 1-   祭  祭   砫 ਮ + 祭   ᫥ ⠫
&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))
      $
    $_
  $_
//
$_
//
$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\\rv3_10");
  LoadScriptModule("forms\\rv3_10");
    rv3m(param,np);
  UnloadScriptModule("forms\\rv3_10");

$END_SCRIPT
$