// 㠫쭠 窠   2004 .
${(1. ன ⠡)
&pbar(N,2,0)=1; // 0-⪫ "progress-bar"; 1- ⪫
&vmen(N,2,0)=0; // 1 -   砥    室 ; 0 - ⠭ ਠ
$}(1. ன ⠡)
//
#NOMP(N,3,0)=_(VMD); #fvmen(N,14,0)=_(NOMP,0);                
//
$(_NE(vmen))
  &fvmen=1;
$_
//
$(_EQ(fvmen))
  $BEG_SCRIPT    
   AmbaMessageBox(" ࠭   ਬ ᯥ樠  ०.",
                  "窠  㤥 ନ஢!",0,0);
    var CurFile=CreateObject("CurPrnFile");    
    CurFile.SetFlagBrowse(0);    
  $END_SCRIPT    
  $    
$_
//
#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 = 3;
  var param[np];

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

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

  LoadScriptModule("forms\\krtops14");
    krtops_par(param,np);

//  krtops(pbar,regim,vmen);

  UnloadScriptModule("forms\\krtops14");

$END_SCRIPT
$