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

  int np = 3;
  var param[np];

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

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

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

//  fss4(FINV,ORG,PROCINV);

  UnloadScriptModule("forms\\fss4");

$END_SCRIPT
$