${( ன ⠡)
 &FINV(N,2,0)=0; // 1 - 訢,    ࣠樨 ; 0 -  訢
 &ORG(N,2,0)=0;  // 1 - ᥫ᪮宧⢥ ࣠; 0 -  ᥫ᪮宧⢥ ࣠;
 &PROCINV(N,5,2)=60; // 業  믫   ᫥ ᮢ  ࠢ⨧
 // 뢠  믫   砥  業 PROCINV (.)  .5 ⠡.9
 &STRINV(N,2,0)=0; // 0 - ; 1 - 
$}( ன ⠡)
$BEG_SCRIPT

  int np = 4;
  var param[np];

  param[0] = atoi(FINV);
  param[1] = atoi(ORG);
  param[2] = atof(PROCINV);
  param[3] = atoi(STRINV);

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

  LoadScriptModule("forms\\fss4_04");
    fss4_par(param,np);

//  fss4(FINV,ORG,PROCINV,STRINV);

  UnloadScriptModule("forms\\fss4_04");

$END_SCRIPT
$