// ଠ -49 ⭮-⥦   
${(1. ன )  
&cs(N,2,0)=28; // ⢮ ப  
&zf(N,2,0)=1;  // ਧ  㫥 ⮫殢: 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      
$