${(1.  )
// 
//   ᫥   㤠 ࠡ⭨  ࣠権
//  ⨦ ⥫ "஦ " 
//
// 筮
// ப ।⠢ -  10 ᫠ , ᫥饣  
// 
$}(1.  )
${(2. )
// ன  室  ࠧ
// "ன" -> "ன ⠡   " -> "⭮  ⨪" -> "  .  /  ࠡ⭨"
//
// ------------------------------------------------------------
//
// 砭.
//
//  ன "⮫  롮ન 㬬" 㦭 㪠  ⮡
// 
//
//   4 (७ ᮢ⥫⢮) 㬬 롨 ⠪:
// 믮 ࠧ  ᯮ塞 ,
// 뢠  ᮢ⥫⢠    ࠢ筨 ᮢ⥫ 
// "饭 "  
//
// ------------------------------------------------------------
//
//   ᮮ⢥⢨  ⥣ਨ -  ப 
// 㦭   ".  .  /  ࠡ", 室  ࠧ
// "ࠢ筨" -> "⪠   㣨 ⠡" -> " ⪨"
//  ⪨ 631
//
// :
//  ப 05.1 - 05.5   ப 05
// .., ᫨ ⥣     ப 05   ப 05.2 
// 㦭 㪠   ⥣ਨ ᮮ⢥ ப 5.2
// 㪠뢠   ⥣      ப 05  㦭 !!!
//   ᠥ ப 04  04.1
//   ᠥ ப 14, 14.1, 14.2
// 
//  ன    ᢮    ⥣ਨ ਬ⥫쭮  ⮩ ଥ
// 
// ------------------------------------------------------------
// 
//  ⮫  롮ન 㬬  믫   祭
// 
//  .5  - 1
//  .6  - 2
//  .7  - 3
//  .8  - 4
//  .9  - 5
//  .10 - 6
//  .11 - 7
//  .12 - 8
//  .13 - 9
// 㬬     㬭  樥  + ୠ 
// 
//  砥 ᫨ 㬬   믫  㦭 㬭  樥
//  믫 ᫥   ⮫  롮ન 㬬  ⠡ 室
// 
//  .5  - 
//  .6  - 
//  .7  - 
//  .8  - 
//  .9  - 
//  .10 - 
//  .11 - 
//  .12 - 
//  .13 - 
// 
$}(2. )
//
#CHVS(N,2,0)=(chisvs,svednau,1); // 0- 楫 ᫠; 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);
$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))
  $(_EQ(Format))
    #FPRINT=_(15,9,70,15, ,  ନ஢ ,   );
    $(_EQ(FPRINT-27))
      $
    $_
  $_
//
$_
//
$BEG_SCRIPT

  int np = 3;
  var param[np];

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

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

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

$END_SCRIPT
$