${( ன ⠡)
&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)=0; // ᮡ ᫥   ⠡ ஢ 믫  
// 0 -  ப  ᫥   ᫥
// 1 -   ॥   ( ⮫쪮   祭 9  2  .2   ᢮)
$}( ன ⠡)
//
&BLVMEN(N,2,0)=0; // 0 -      믫    ᯮ ᯥ.  (  ⬥ *  *  . ன  ); 1 -     ᯮ    믫      
//
$BEG_SCRIPT

  int np = 10;
  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);

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

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

$END_SCRIPT
$