${( ன ⠡)
&PROCINV(N,5,2)=60; // 業  믫   ᫥ ᮢ  ࠢ⨧
// 뢠  믫   砥  業 PROCINV (.)  .5 ⠡.9
&STRINV(N,2,0)=0; // 0 - ; 1 - 
&BLVMEN(N,2,0)=0; // 0 -      믫    ᯮ ᯥ.  (  ⬥ *  *  . ன  ); 1 -     ᯮ    믫      
$}( ன ⠡)
$BEG_SCRIPT

  int np = 3;
  var param[np];

  param[0] = atof(PROCINV);
  param[1] = atoi(STRINV);
  param[2] = atoi(BLVMEN);

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

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

$END_SCRIPT
$