${(1.  ) 
// ଠ  -
//         
//    
// 
// ਪ   30.10.2012  574 
// 
// ⠫쭠 
//      ⠫ 2013  
// ப ।⠢ -  10  ᫥ ⭮ ਮ 
$}(1.  ) 
${(2. ) 
// 롮ઠ 㬬 믮   ⮫ ⠡ 室, 
//  ⮫ 㦭 㪠   ⠡ ST,  㬮砭 ⠬ 25 ⮫, 
//  室  25 㪠  ࠭  ⮫. 
//
//  ᫥   祭 ᨬ 1 ( 鸞 ᨬ )  ⮬ ⮫.
//
//  㬮砭 㬬 롨   ᫥, ᫨ 㦭 ⮡ 㬬 롨ࠫ
//   ਭ,   㭪樨 ਥ  FL 㦭 return 1; ࠢ  return 0;
//
//   4 (७ ᮢ⥫⢮) 㬬 롨  ᮢ⥫ᢠ  
//  ࠢ筨 ᮢ⥫  ⮫ "饭 " ⮨ 뫪  ᭮  ࠡ.
//    㬬  ࠬ 鸞 c ᭮  ࠡ. 
//  
//  ᫥   । ⮢  ஢ ᯮ  ⠡ SUM01. 
//  ⮫ 㭪 ਥ ஥筮 ⠡  ⮣  㪠: 
// return p3sum("",ST,FL,__W,__A); 
// ..  㬮砭 㬬 롨  筨 䨭஢  譨  .
//  砥 ᫨ ᯮ 㣨   筨 ᪮쪮,  㦭 ᫨ १
//   ࢮ ࠬ, ਬ:    ᫥  뢠   
// 筨   , ,  -  ⮬ 砥   㭪樨 ਥ 㤥 룫拉 ⠪:
// return p3sum(",,",ST,FL,__W,__A);  
//   ᠥ  ।    -  ⠡ SUM02 
//  ।  ਭ饩 室 ⥫쭮 -  ⠡ SUM03 
//
//  ।  ப   ᨬ   ⥣ਨ  
//  ⭮ ࣠樨 㦭 믮 ன ᮮ⢥⢨  ⥣ਨ ப .
//   ᤥ ᪠  㭪 "3.  ⥣ਨ - ப "
$}(2. ) 
${(3.  ⥣ਨ - ப ) 
//  ⮣ ⮡   ।묨  ⥣ਨ   ᮮ⢥騥 ப 
// 室 믮 ᫥騥 ⢨:
//
//  㭪樨 稭  SysP3cul101(kod)  SysP3cul103(kod) ⥫쭮
// (室  㫥 statfn.s ⠫ SCRIPT\FORMS)
//     㫥 ⠫ SCRIPT\USER, ਬ  usinit.s
//  २  ᮮ⢥⢥  UserP3cul101(kod) ... UserP3cul103(kod)
// ..    㭪樨 ᨬ "Sys"  "User"
//
//   㭪樨 ( ⠢ User) 㦭 㤥 ᪮४஢, ਬ
// ᫨ 㦭 ⮡  ப 101      ⥣ਨ 5, 7  12
// 㭪 UserP3cul101(kod) 㤥 룫拉 ⠪:
//
// UserP3cul101(kod){ if ( 5 == kod || 7 == kod || 12 == kod ) return 1; else return 0;}
//
//  砥 ᫨  ப 421      ⥣ਨ 9
// 㭪 UserP3cul421(kod) 㤥 룫拉 ⠪:
//
// UserP3cul421(kod){ if ( 9 == kod ) return 1; else return 0;}
//
//  ⠪    ப
//
//  砥 ᫨  ࣠樨      ⭥ᥭ  - ப 
//  ᮮ⢥ 㭪   0 ()
// ਬ ᫨  ࣠樨   ⭮  ப 291
// ᮮ⢥ ⮩ ப 㭪 㤥 룫拉 ⠪:
//
// UserP3cul291(kod){ return 0;}
//
// :
//  ப 311   ப 301
//  ப 301, 291, 401   ப 621
// .., ᫨ ⥣     ப 311   ப 301   ப 621
//  㦭 㪠 ⮫쪮  UserP3cul311(kod)
// , ᫨ ⥣     ப 401   ப 621
//  㦭 㪠 ⮫쪮  UserP3cul401(kod)
$}(3.  ⥣ਨ - ப ) 
// 
${(4. ன)  
//  ⮡ࠦ ᫥ 譨 ᮢ⥫
&CHVS(N,2,0)=0;// 0- 楫 ᫠; 1-   
$}(4. ன)  
//  
&Format(N,2,0)=0;  
&FPRINT(N,2,0)=1;  
#FF1(N,3,0)=_(FFIRST,0);  
#FN1(C,256,0)=_(FNAME1,0);  
#FN2(C,256,0)=_(FNAME2,0);  
$BEG_SCRIPT  
  var CurFile=CreateObject("CurPrnFile");  
  CurFile.SetFlagBrowse(0);  
  FreeSpaceString(FN1,3,""); FreeSpaceString(FN2,3,"");  
  string FN = FN1 + FN2;  
  if ( access(FN,0) ) FF1 = 0;  
$END_SCRIPT  
$(_EQ(FF1-1))  
//  
  #Format=_(15,9,70,15,롥 ०,   , ।  䠩 );  
//  
  $(_EQ(Format-27))  
    $  
  $_  
//  
  $(_EQ(Format))  
    #FPRINT=_(15,9,70,15, ,  ନ஢ ,   );  
    $(_EQ(FPRINT-27))  
      $  
    $_  
  $_  
//  
$_  
// 
$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\\p3cul_13"); 
  LoadScriptModule("forms\\p3cul_13"); 
    p3cul(param,np); 
  UnloadScriptModule("forms\\p3cul_13"); 
 
$END_SCRIPT 
$