// ଠ  () ਪ   27.07.2018  461  
${(1. ன)
//
// 㬬 뢠  ன  -4
//
// ᫨    - 稭 ଠ -4  ஥, 㦭 ᤥ ᫥饥
// ३  ன  -4
// ன - ன ⠡    - ⭮  ⨪ - ன  -4
//  ⮫  ᫥
// ३   室:
// ࠢ筨 -  室,  ⮫   㪠  ன  -4
//  ⮬ ⮫ ᨬ "1"  ᭮ 믫
//  "5"  믫 樠쭮 ࠪ
// 㬬  ࠬ  뢠   祭 ᨬ ""  20- ⮫ ⠡ 室
//  ᫥  ன 
// ன - 騥 ன ⥬ - ன  ᨮ 䮭 - ⮧ ⠦  ⭮   -  -  ஢ 
//
//   ()    ணࠬ  ⮫쪮 ࠧ 1  2.
//  3, 4  5 ᫥  ᠬ⥫쭮.
//  ⮣ ନ .
//  ନ஢ ,  Excel ଥ,  騥 .
// ᫥ ⮣ 室 ࠭  (Ctrl+S)
// ᫥ ⮣  믮 ।  䠩.
//
$}(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); 
#GOD(N,4,0)=_(god,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\\micro");
   LoadScriptModule("forms\\micro");

   micro(param,np);

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