${(1.  )
//   祭   ࠡ⭮ 
// ਪ   29.07.2022  532
// 筠
//    1 䥢ࠫ 2023 
// ப ।⠢ -  ᫥騩  ᫥ ⭮ 
$}(1.  )
${(2. )
//    ࣠樨  㪠  ன 
// ன - ன ⠡    - ⭮  ⨪ - 18. ଠ 3- " 祭 "
//  㬮砭 㪠  998
//
// 㬬   ࠡ⭮  (ப 07) 롨  ன  -4
// 㬬  롨    ࣠樨   ਭ
//
$}(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); 
#MES(N,3,0)=_(AEND,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");
  UnloadScriptModule("forms\\f3_14");
  UnloadScriptModule("forms\\f3_15");

    if ( atoi(MES) < 313 ) LoadScriptModule("forms\\f3");
    else 
    if ( atoi(MES) < 325 ) LoadScriptModule("forms\\f3_14");
    else                   LoadScriptModule("forms\\f3_15");

    f3(param,np);

  UnloadScriptModule("forms\\f3");
  UnloadScriptModule("forms\\f3_14");
  UnloadScriptModule("forms\\f3_15");

$END_SCRIPT
$