${(1.  )
// ଠ  3-ࠧ
//         
//   
//
// ਪ   30.10.2012  574
//
// ⠫쭠
//      ⠫ 2013 
// ப ।⠢ -  10  ᫥ ⭮ ਮ
$}(1.  )
${(2. )
// ன  室  ࠧ
// "ன" -> "ன ⠡   " -> "ன   3-ࠧ"
//
// ------------------------------------------------------------
//
// 砭.
//
//  ன "⮫  롮ન 㬬" 㦭 㪠  ⮡
//  ᫥   祭 ᨬ 1  ⮬ ⮫.
//
//   4 (७ ᮢ⥫⢮) 㬬  롨  ᯮᮡ:
//
// 1) 믮 ࠧ  ᯮ塞 ,
//    뢠  ᮢ⥫⢠    ࠢ筨 ᮢ⥫ 
//    "饭 "  
// 2) ᯮ ⤥  
//
// ------------------------------------------------------------
//
//   ᮮ⢥⢨  ⥣ਨ -  ப 
// 㦭   "ଠ 3-ࠧ", 室  ࠧ
// "ࠢ筨" -> "⪠   㣨 ⠡" -> " ⪨"
//
// :
//
//  ப 06 (212)   ப 05 (211)
//  ப (232)  (233)   ப 231
//  ப (242)  (243)   ப 241
//  ப (252)  (253)   ப 251
//  ப (311)   ப 301
//
// .., ਬ, ᫨ ⥣     ப 05 (211)   ப 06 (212)
// 㦭 㪠   ⥣ਨ ᮮ⢥ ப 06
// 㪠뢠   ⥣      ப 05  㦭 !!!
$}(2. )
//
&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

  int np = 2;
  var param[np];

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

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

  UnloadScriptModule("forms\\p31obr_13");
  LoadScriptModule("forms\\p31obr_13");
    p3obr(param,np);
  UnloadScriptModule("forms\\p31obr_13");

$END_SCRIPT
$