${(1.  )
// ଠ  -䨧᪠   ᯮ
//          
//       
//
// ਪ   30.08.2023  416
//      
// 
$}(1.  )
${(2. )
// ன  室  ࠧ
// "ன" -> 
// "ன ⠡   " -> 
// "ࠢ  ⨪" -> 
// " -xx" ->
// "ன   3-䨧᪠   ᯮ"
//
// ------------------------------------------------------------
//
// 砭.
//
//  ன "⮫  롮ન 㬬" 㦭 㪠  ⮡
//  ᫥   祭 ᨬ 1  ⮬ ⮫.
//
//   4 (७ ᮢ⥫⢮) 㬬  롨  ᯮᮡ:
//
// 1) 믮 ࠧ  ᯮ塞 ,
//    뢠  ᮢ⥫⢠    ࠢ筨 ᮢ⥫ 
//    "饭 "  
// 2) ᯮ ⤥  
//
// ------------------------------------------------------------
//
//  ன  ⥫쭮 㪠  ஢    ⥣ਨ
// ( 室    ன 塞 ஢ )
//  ண 㤥    ப   뢠  (㬬  ᫥)
//
//   ⥫쭮 ⪮४஢  
// "ࠢ筨" -> "⪠   㣨 ⠡" -> " ⪨" - ଠ -䨧᪠ 
//  ⮩ ⪥  ᮮ⢥⢨ " ⥣ਨ" - "ப "
//
// :
//
// ப 01 (10)  㬬 ப 02, 04, 06, 08
// ப 08 (40)  㬬 ப 09, 12, 13, 14
//
// ப 02 (21)  㬬 ப 02, 03
// ப 04 (23)  㬬 ப 04, 05
// ப 06 (23)  㬬 ப 06, 07
// ப 09 (41)  㬬 ப 09, 10, 11
//
// 
$}(2. )
//
#CHVS(N,2,0)=(chisvs,p3cul,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))
//
  #Format=_(15,9,70,15,롥 ०,   , ।  䠩 );
//
  $(_EQ(Format-27))
    $
  $_
//
  $(_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\\p31fiz_19");
  LoadScriptModule("forms\\p31fiz_19");
    p3fiz(param,np);
  UnloadScriptModule("forms\\p31fiz_19");

$END_SCRIPT
$