$BEG_SCRIPT

  int np = 1;
  var param[np];

  param[0] = 0;

  UnloadScriptModule("dmodules");
  LoadScriptModule("dmodules");
  UnloadDynamicModules();
  UnloadScriptModule("dmodules");
  UnloadScriptModule("forms\\fss4a_10");
  LoadScriptModule("forms\\fss4a_10");
  fss4am(param,np);
  UnloadScriptModule("forms\\fss4a_10");
$END_SCRIPT
$