${(1.  )
//   祭   ࠡ⭮ 
//
// ਪ   24.07.2012  407
//
// 筠
//       2013 
// ப ।⠢ -  ᫥騩  ᫥ ⭮ 
$}(1.  )
${(2. )
//  ⠡ 㬬 롨   ⮫ ⠡ 室   ਭ
$}(2. )
//
&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)) 
// 
  #Format=_(15,9,70,15,롥 ०,   , ।  䠩 ); 
// 
  $(_EQ(Format-27)) 
    $ 
  $_ 
// 
  $(_EQ(Format)) 
    #FPRINT=_(15,9,70,15, ,  ନ஢ ,   ); 
    $(_EQ(FPRINT-27)) 
      $ 
    $_ 
  $_ 
// 
$_ 
//
$BEG_SCRIPT

  int np = 2;
  var param[np];

  param[0]  = atoi(Format); 
  param[1]  = atoi(FPRINT); 

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

  UnloadScriptModule("forms\\f3");
  LoadScriptModule("forms\\f3");
    f3(param,np);
  UnloadScriptModule("forms\\f3");

$END_SCRIPT
$