//   ࠡ⭮  ࠡ⭨       2013 .
${(1. ன ⠡)
// ன  室  ࠧ "ன ⠡   "
//  ⥣ਨ ᮭ (㪮⥫, ᯥ樠, 㣨 㦠騥, ࠡ稥)
// ।   ⥣ਨ  ஢  ()
// ⢥⢨  ⥣ਨ     ⥣ਨ ᮭ  ଥ   ⪥ 611
// ⢥⢨  ࠧ     ࠧ  ଥ   ⪥ 612
//
//  ᨨ   ।  ᨬ  ன
// 騥 ன ⥬ - ன ० ४஢ - ४஢   
// ᫨ 祭 ⮩ cன - 0 -  ᨨ     " ᨨ" (prof)
// ᫨ 祭 ⮩ cன - 1 -  ᨨ     "" (dolgnost)
//
//  砥 ᫨ 㦭 뢠 1/3  㬬 ᫥,  ⠪  㦭 :
// )  䭮 ࠡ⪠ ( 9 ࠧ II) - ᨬ "4"  ⮫   롮ન 㬬;
// )   ( 10 ࠧ II) - ᨬ "5"  ⮫   롮ન 㬬;
// )  㣨 믫 ( 11 ࠧ II) - ᨬ "6"  ⮫   롮ન 㬬.
// ⮫   롮ન 㬬   ன   "ன ⠡   "
$}(1. ன ⠡)
//
&chis(N,2,0)=1; // 0-⢮   ⡮  ᫥ < 8 ࠭稢; 1- ࠢ 8
&stag(N,2,0)=1; // 0-० ᯮᮡ ᫥ ⠦
//
&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

  chis = GetCommonCnfInt("chis","t57");

  int np = 4;
  var param[np];

  param[0] = atoi(Format); 
  param[1] = atoi(FPRINT); 
  param[2] = atoi(chis);
  param[3] = atoi(stag);

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

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

$END_SCRIPT
$