// 㠫쭠 窠   2004 .
${(1. ன ⠡)
&pbar(N,2,0)=1; // 0-⪫ "progress-bar"; 1- ⪫
$}(1. ன ⠡)
//
#regim(N,2,0)=_(12,9,66,15, ?,㠫 窨, 窠);    
//
$(_EQ(regim-27))    
  $BEG_SCRIPT    
    var CurFile=CreateObject("CurPrnFile");    
    CurFile.SetFlagBrowse(0);    
  $END_SCRIPT    
  $    
$_    
//
$BEG_SCRIPT

  int np = 2;
  var param[np];

  param[0] = atoi(pbar);
  param[1] = atoi(regim);

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

  LoadScriptModule("forms\\krtesn05");
    krtesn_par(param,np);

//  krtesn(pbar,regim);

  UnloadScriptModule("forms\\krtesn05");

$END_SCRIPT
$