${(1. ன ⠡)
&PT(N,2,0)=1; //1-ᯮ짮 ன  ; 0-ᯮ짮 ன    ࠬ஢ 
&FT(N,2,0)=1; //1-   ॢ ; 0- 
//    
&RN(N,2,0)=1; //1- ⮬ 客 ; 0-   
$}(1. ன ⠡)
$BEG_SCRIPT

  int np = 3;
  var param[np];

  param[0] = atoi(PT);
  param[1] = atoi(FT);
  param[2] = atoi(RN);

  UnloadScriptModule("dek_esn");
  UnloadScriptModule("dek_esns");
  UnloadScriptModule("dek_esnx");
  UnloadScriptModule("kartesn");
  UnloadScriptModule("t54a");
  UnloadScriptModule("zarpens");
  UnloadScriptModule("avanspl");
  UnloadScriptModule("avanspf");

  LoadScriptModule("kartesn");

    IndKartESN_par(param,np);
//  IndKartESN_DL(PT, FT, RN);

  UnloadScriptModule("kartesn");

$END_SCRIPT
$