// ଠ 1-T()  
${(1.  )
//
// ଠ  1-T()  
//         
//       
//
// ਪ   15.07.2019  404
//
// 
//     2019 
//
$}(1.  )
${(2. ன)
//
// ன  室 
// ன - ன ⠡    - ⭮  ⨪ - ଠ 1-()
//
// ⢥⢨   ⥣ਨ  ப   :
// ࠢ筨 - ⪠   㣨 ⠡ -  ⪨ - ଠ 1-()
//  ⪨: 641
//  ⮩ ⪥ 㦭 㪠  ⥣ 뢠   ப 
// ⥫ ᫮:
// - ᫨ ⥣  㪠  ⪥,  㤥 ⥭  ப 1
// - ᫨ 㦭 ⮡ ⥣  뢠,   ⪥ 641   ⥣ਨ 㦭 㪠: -1
//
// 㬬 뢠  ன  -4
//
// ᫨    - 稭 ଠ -4  ஥, 㦭 ᤥ ᫥饥
// ३  ன  -4
// ன - ன ⠡    - ⭮  ⨪ - ன  -4
//  ⮫  ᫥
// ३   室:
// ࠢ筨 -  室,  ⮫   㪠  ன  -4
//  ⮬ ⮫ ᨬ "1"  ᭮ 믫
//  "5"  믫 樠쭮 ࠪ
// 㬬  ࠬ  뢠   祭 ᨬ ""  20- ⮫ ⠡ 室
//  ᫥  ன 
// ன - 騥 ன ⥬ - ன  ᨮ 䮭 - ⮧ ⠦  ⭮   -  -  ஢ 
//
$}(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); 
  CurFile.SetFlag_Print(0); //  
  FN1 = TrimN(to_string(FN1));
  FN2 = TrimN(to_string(FN2));
  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\\t1_gms");
   UnloadScriptModule("forms\\t1gms_19");
   LoadScriptModule("forms\\t1gms_19");

   t1gms(param,np);

   UnloadScriptModule("forms\\t1gms_19");
 
$END_SCRIPT 
$