${( ன ⠡)
&PROCINV(N,5,2)=60; // 業  믫   ᫥ ᮢ  ࠢ⨧
// 뢠  믫   砥  業 PROCINV (.)  .5 ⠡.9
&STRINV(N,2,0)=0; // 0 - ; 1 - 
// ᮡ  ᫥  ࠢ⨧
&TM(N,2,0)=1; // 業 : 0 -  㬬   (㣫  5  ᫥ ⮩); 1 -  饩 㬬  
// ᮡ  ⢠ ⥫ ᮡ  1.5 
// 0 - ⥫ = த⥫ (⮣ - ⥫  ப 6  ⫨  㬬 - ⥫  ப
// 7  8. 1 - ⥫ = ॡ (.. ⮣ ⥫  ப 6 = 㬬 ⥫  ப 7  8
&TypeCalcCnt1_5(N,2,0)=0;
// ᮡ  ⢠ ⥫ ᮡ  1.5   ⠡ । ࠡ⪠
// 0 - ⥫ த⥫, 1 - ⥫ ॡ
&SrzCnt1_5(N,2,0)=0;
&filtrInv(N,2,0)=0; // 1 -     㯯 > 3  ᯨ᮪; 0 -  
// !!!  !!! - ᢠ ६ exeptInv 祭 1  ⮫쪮  砥 ᫨    㯯  > 3 業  믫  ᫥ ᮢ  ࠢ⨧ ࠢ 100
&exeptInv(N,2,0)=0; // 1 -    㯯 > 3 PROCINV = 100; 0 - 祭 PROCINV    㯯 
&MilTr(N,2,0)=1; // 1 - ⮢   뢠  ⠡.9  10 ; 0 - 뢠
&TypeRvBl(N,2,0)=1; // ᮡ ᫥   ⠡ ஢ 믫  
// 0 -  ப  ᫥   ᫥
// 1 -   ॥   ( ⮫쪮   祭 9  2  .2   ᢮)
&NREZ(N,2,0)=0; // 1-室 १⮢ 뢠   ᫥  ࠢ⨧; 0-⪫
&SVC(N,2,0)=2; // 0 -  "" 㬬 客 ᮢ  ⠡.1  㬬
               // 祭 㬭 ⠡.3  ⠢ .
               // 1 -   ⠫
               // 2 -   㬬  砫 
               // 3 -     㣮
&BLVMEN(N,2,0)=0; // 0 -      믫    ᯮ ᯥ.  (  ⬥ *  *  . ன  );
                  // 1 -     ᯮ    믫      
&REST(N,2,0)=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(Format-27))
       $
    $_
  $_
$_
//
$BEG_SCRIPT

  int np = 15;
  var param[np];

  param[0] = atof(PROCINV);
  param[1] = atoi(STRINV);
  param[2] = atoi(BLVMEN);
  param[3] = atoi(TM);
  param[4] = atoi(TypeCalcCnt1_5);
  param[5] = atoi(SrzCnt1_5);
  param[6] = atoi(filtrInv);
  param[7] = atoi(exeptInv);
  param[8] = atoi(MilTr);
  param[9] = atoi(TypeRvBl);
  param[10] = atoi(NREZ);
  param[11] = atoi(Format);
  param[12] = atoi(FPRINT);
  param[13] = atoi(SVC);
  param[14] = atoi(REST);

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

  UnloadScriptModule("forms\\fss4_10");
  LoadScriptModule("forms\\fss4_10");
    fss4(param,np);
  UnloadScriptModule("forms\\fss4_10");

$END_SCRIPT
$