// ଠ -49 ⭮-⥦  
${(1. ன ) 
&cs(N,2,0)=28; // ⢮ ப  
&zf(N,2,0)=0;  // ਧ  㫥 ⮫殢: 1-, 0- 
$}(1. ன ) 
// 
#(N,8,0)=_(1);          
#podr(C,30,0)=_();          
#noved(C,15,0)=_(PrintNumb);          
#dataf(C,10,0)=_(3);           
#1(,7,0)=(7);          
#2(,2,0)=(3);          
#dn(C,10,0)=_(01.,1);          
#dk(C,10,0)=_(2,.,1);          
// 
$BEG_SCRIPT     
 
  var CurFile=CreateObject("CurPrnFile");     
  CurFile.SetFlagBrowse(0);     
 
  int npar = 7; 
  var param[npar]; 
 
  param[0] = atoi(cs); 
  param[1] = atoi(zf); 
  param[2] = OemToAnsi(podr); 
  param[3] = OemToAnsi(noved); 
  param[4] = OemToAnsi(dataf); 
  param[5] = OemToAnsi(dn); 
  param[6] = OemToAnsi(dk); 
 
  UnloadScriptModule("dmodules"); 
  LoadScriptModule("dmodules"); 
    UnloadDynamicModules(); 
  UnloadScriptModule("dmodules"); 
 
  LoadScriptModule("forms\\t49_01"); 
    t49(param,npar); 
  UnloadScriptModule("forms\\t49_01"); 
 
$END_SCRIPT     
$