//  - ଠ "1-T"  
${(1. ன)
//
// ன  室 
// ன - ன ⠡    - ⭮  ⨪ - ଠ 1-
//
// 㬬 뢠  ன  -4
//
// ᫨    - 稭 ଠ -4  ஥, 㦭 ᤥ ᫥饥
// ३  ன  -4
// ன - ன ⠡    - ⭮  ⨪ - ன  -4
//  ⮫  ᫥
// ३   室:
// ࠢ筨 -  室,  ⮫   㪠  ன  -4
//  ⮬ ⮫ ᨬ "1"  ᭮ 믫
//  "5"  믫 樠쭮 ࠪ
// 㬬  ࠬ  뢠   祭 ᨬ ""  20- ⮫ ⠡ 室
//  ᫥  ன 
// ன - 騥 ன ⥬ - ன  ᨮ 䮭 - ⮧ ⠦  ⭮   -  -  ஢ 
//
$}(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);
&YEAR(N,4,0)=2013;
//
$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 
//
$(_GE(GOD-YEAR)) 
$(_EQ(FF1-1)) 
// 
  #Format=_(15,9,70,15,롥 ०,   , ।  䠩 ); 
// 
  $(_EQ(Format-27)) 
    $ 
  $_ 
//  
  $(_EQ(Format)) 
    #FPRINT=_(15,9,70,15, ,  ନ஢ ,   ); 
    $(_EQ(FPRINT-27)) 
      $ 
    $_ 
  $_ 
// 
$_ 
$_ 
//
$BEG_SCRIPT 

  if ( atoi(GOD) >= atoi(YEAR) )
  {
    int np = 2;
    var param[np];

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

    UnloadScriptModule("dmodules");
    LoadScriptModule("dmodules");
      UnloadDynamicModules();
    UnloadScriptModule("dmodules");
    
    UnloadScriptModule("forms\\t1_14");
    LoadScriptModule("forms\\t1_14");

      t1(param,np);

    UnloadScriptModule("forms\\t1_14");
  }
 
  if ( atoi(GOD) < atoi(YEAR) )
  {
    var array_param[1]; 
    array_param[0]=static_cast_to_string(1); //⢮ ࠬ஢ 
        
    UnloadScriptModule("forms\\1_t"); 
    LoadScriptModule("forms\\1_t"); 
      PrintForm1t(array_param); 
    UnloadScriptModule("forms\\1_t"); 
  }
 
$END_SCRIPT 
$