${(1. ன ⠡)
&PRSUM(N,2,0)=1;   //1 -  ஬. ⮣    3 ࠭, 0 - 
&MOVEMP(N,2,0)=1;  //1 -   . 室   200       0 -  300
&P600NULL(N,2,0)=1;//1 -    6XX  㫥 600,          0 - 
&UDOPS(N,2,0)=0;   //1 - 뢠 . 㬬,               0 - 
&SUMVMEN(N,2,0)=0; //1 -   ࠢ 㬬  室      0 - 
&DOP(N,2,0)=1;     //1 -  ;                                   0 - ⮫쪮 ࠭ 1,2,5,7
&NL(N,2,0)=1;      //1 - 㬥 ⮢ ண;                       0 -  浪
&PRINT(N,2,0)=1;   //1 - ᥣ  ᦠ ⮬                0 - ᯮ짮 ன 
$}(1. ன ⠡)
#=_(600_5_1,0,0);
#=_(605_5_1,0,0);
#=_(610_5_1,0,0);
#=_(611_5_1,0,0);
#=_(620_5_1,0,0);
#=_(621_5_1,0,0);
#=_(700_3_1,0,0);#=_(700_5_1,0,0);
#=_(700_7_1,0,0);#=_(700_9_1,0,0);
#=_(710_3_1,0,0);#=_(710_5_1,0,0);
#=_(710_7_1,0,0);#=_(710_9_1,0,0);
$BEG_SCRIPT

  int np = 8;
  var param[np];

  param[0] = atoi(PRSUM);    param[4] = atoi(SUMVMEN);
  param[1] = atoi(MOVEMP);   param[5] = atoi(DOP);
  param[2] = atoi(P600NULL); param[6] = atoi(NL);
  param[3] = atoi(UDOPS);    param[7] = atoi(PRINT);

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

  LoadScriptModule("dek_esns");
    mfunc(param,np);

//  MainFormFunc_DL(PRSUM, MOVEMP, P600NULL, UDOPS, SUMVMEN, DOP, NL, PRINT);

  UnloadScriptModule("dek_esns");

$END_SCRIPT
$
