${(1.  )
// ଠ  ᫥  ࠡ⭮  ࠡ⭨ ࣠権 
// ࠢ࠭  ࠧ फ᪮ .  
//
//   ⠫쭮.
//
// 쬮 ࠢ⥫⢠ फ᪮  ⢠ ࠢ࠭ 
// फ᪮   10.10.2011 15-16/
$}(1.  )
${(3. 樨  ࠡ  ମ)
//  砥 ᫨  ⠡    ,  (⠡) ᫥ ᪮஢ (F7)
//   믮   ( 㦭  ⮣ ⮡   ய ᫥  ணࠬ)
//
//  ᫥ ࠡ⭮      ⠡ ⮫ ⠡ 室
//  ᨬ, ⠪ ।  ⠡.
//  㬮砭  25 ⮫  (㭪 ਥ   ⠡ StTV)
//  砥 ᫨ ᯮ 㣮 ⮫   㦭 ⪮४஢.
//  ᫥ 室騥  䮭 ᫥ ࠡ⭮    祭 
// ( 㬮砭) ᨬ "1"  ⮬ ⮫  
//  室,   ᨬ   㭪樨 ਥ   ⠡ SimvNach
//  .믫  㬮砭  ᨬ "5"  ⮬  ⮫ 
//  室,   ᨬ  .믫   㭪樨 ਥ   ⠡ SimvSoc
//
// ᮡ 롮ન 㬬   ᫥    ਭ 
//  ࠧ "ன ⠡"  
//  㬮砭 㬬 롨   ਭ
$}(3. 樨  ࠡ  ମ)
${(2. ன ⠡)
&MesPN(N,1,0)=1; // 1 - 㬬   ਭ, 0 -   ᫥
//
$}(2. ன ⠡)
//
$BEG_SCRIPT

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

  var param[2];
  param[0]=static_cast_to_string(1); //⢮ ࠬ஢
  param[1]=static_cast_to_string(MesPN);

  UnloadScriptModule("forms\\pz4");
  LoadScriptModule("forms\\pz4");
    pz4(param);
  UnloadScriptModule("forms\\pz4");

$END_SCRIPT
$