// ଠ -49 ⭮-⥦  2004 .
${(1. ன ⠡)
// ਧ  㫥 ⮫殢
&PrintZeroFld(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

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

  LoadScriptModule("forms\\t49");
    t49(podr,noved,dataf,dn,dk,PrintZeroFld);
  UnloadScriptModule("forms\\t49");

$END_SCRIPT
$