${(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,6
&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_7_1,0,0);
#=_(710_3_1,0,0);
#=_(710_7_1,0,0);
#=_(700_5_1,0,0);
#=_(700_9_1,0,0);
#=_(710_5_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);

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

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

  UnloadScriptModule("dek_esn");

$END_SCRIPT
$