${(1.  )
// ଠ  - 
//   ᫥   㤠 ࠡ⭨ ० ⥬ 樠쭮  ᥫ 
// ᪮    ⥣ ᮭ
// 
// ਪ ⢠ 樠 ⭮襭 ᪮   30.06.2021.  262
// 
// ப ᤠ -  2- ᫠  
$}(1.  )
${(2. )
// ன  室  ࠧ
// "ன" -> "ன ⠡   " -> "⭮  ⨪" ->
// " -" -> "ன   3- "
// ------------------------------------------------------------
//
// 砭.
//
// ᫨ ᯮ塞   ७ ᮢ⥫⢮, 㦭   ஢  
// " ࠡ" 㪠 祭 "⥫⢮"
//
//  譨 ᮢ⥫   ஢ 
// " ࠡ ( ।ᯨ筮 ᫥)" 㪠 4  9 (譨 ᮢ⥫)
// 
//  ࠧ ନ ,    㤥  ( ⮬  ଠ)   ਮ.
// ⮬ 㦭 㤥 ᭠砫 ନ஢    ।騩 ਮ.
//  ନ஢   ।騩 ਮ,    롮 䠩,
// ⪠  롮,  "⬥".
// 
//  ᫥ ,   ।騩 ਮ 㦭 㤥 ਭ  䠩 
// ନ஢  騩 ਮ.
//    롮 䠩, 㦭 㤥  䠩  ⮬  ।騩 ਮ.
// 
//  㭨樯쭮 ࠧ,  ᯮ⥫  ⠪ ⥫䮭 
//  㪠  ன .
// 
// ------------------------------------------------------------
//
//   ᮮ⢥⢨  ⥣ਨ -  ப 
// 㦭   607 "ଠ 3- ", 室  ࠧ
// "ࠢ筨" -> "⪠   㣨 ⠡" -> " ⪨"
//
// :
//
//  ப 5   ப 4 
//
// .., ᫨ ⥣     ப 5   ப 4 
// 㦭 㪠   ⥣ਨ ᮮ⢥ ப 5
// 㪠뢠   ⥣     ப 4  㦭
//
$}(2. )
//
#CHVS(N,2,0)=(chisvs,zpsocche,1); // 0- 楫 ᫠; 1-   
//
&Format(N,2,0)=0;
&FPRINT(N,2,0)=0;
$BEG_SCRIPT

  int np = 3;
  var param[np];

  param[0] = atoi(Format);
  param[1] = atoi(FPRINT);
  param[2] = atoi(CHVS);

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

  UnloadScriptModule("forms\\ZpSocChel");
  LoadScriptModule("forms\\ZpSocChel");
    ZpSoc(param,np);
  UnloadScriptModule("forms\\ZpSocChel");

$END_SCRIPT
$