$BEG_SCRIPT

  int np = 1;
  var param[np];

  param[0] = 0;

  UnloadScriptModule("dmodules");
  LoadScriptModule("dmodules");
    UnloadDynamicModules();
  UnloadScriptModule("dmodules");
  LoadScriptModule("forms\\fss4a");

    fss4a_par(param,np);
//  fss4a();

  UnloadScriptModule("forms\\fss4a");

$END_SCRIPT
$