${(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-
&NL(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 = 7;
  var param[np];

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

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

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

  UnloadScriptModule("dek_esnx");

$END_SCRIPT
$