//   ࠡ⭮  ࠡ⭨       2013 .
${(1. ன ⠡)
// ன  室  ࠧ "ன ⠡   "
//  ⥣ਨ ᮭ (㪮⥫, ᯥ樠, 㣨 㦠騥, ࠡ稥)
// ।   ⥣ਨ  ஢  ()
// ⢥⢨  ⥣ਨ     ⥣ਨ ᮭ  ଥ   ⪥ 611
// ⢥⢨  ࠧ     ࠧ  ଥ   ⪥ 612
//
//  ᨨ   ।  ᨬ  ன
// 騥 ன ⥬ - ன ० ४஢ - ४஢   
// ᫨ 祭 ⮩ cன - 0 -  ᨨ     " ᨨ" (prof)
// ᫨ 祭 ⮩ cன - 1 -  ᨨ     "" (dolgnost)
//
//  砥 ᫨ 㦭 뢠 1/3  㬬 ᫥,  ⠪  㦭 :
// )  䭮 ࠡ⪠ ( 9 ࠧ II) - ᨬ "4"  ⮫   롮ન 㬬;
// )   ( 10 ࠧ II) - ᨬ "5"  ⮫   롮ન 㬬;
// )  㣨 믫 ( 11 ࠧ II) - ᨬ "6"  ⮫   롮ન 㬬.
// ⮫   롮ન 㬬   ன   "ன ⠡   "
//
//     2017   "ன ⠡   "   57-  ன:
//
//  ࠧ 1    ன  -4
//
//   筨   
// 0- ; 1-  筨    㫥, ᫨   筨 =0,   ࠢ 0  ᥬ 筨
//
// ਧ  㬬
// 1-  ਭ; 0-  ᫥
//  ⮩ ன ⮡ࠦ  室  ᮮ⢥饩 ன  -4
//
// 㬬  ७ ᮢ⥫⢠  뢠   8 (9-11) ( 㪠뢠  ᭮ ),
// ஬ 㪮饣 ⠢ ࠧ  ࠢ࠭ ( 㪠뢠   ᭮    ᮢ⥫⢠).
//  ⠪ ࣠権 㦭  ன
// "뢠  㪮⥫   .ᮢ. (.8-12)" 㪠 1
// ७ ᮢ⥫⢮ ।   ஢  " ࠡ" (祭 1)
//
$}(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_15");
  LoadScriptModule("forms\\t57_15");
    t57_15(param,np);
  UnloadScriptModule("forms\\t57_15");

$END_SCRIPT
$