//--------- ᮪ 客 , 室    ----------
${(1.ன )
// ன  室  "ன ⠡   "
$}(1.ன )
&PrintPensD(N,1,0)=1; //   室   0 - , 1 - 
&TipForm(N,1,0)=0;
//
$BEG_SCRIPT 

PrintPensD = GetCommonCnfInt("printpd","sppens");
TipForm    = GetCommonCnfInt("tipform","sppens");

$END_SCRIPT 
//
$BEG_SCRIPT

  int arr[2]; // ⢮ ࠬ஢ + 1

  arr[0] = 1; // ⢮ ࠬ஢
  arr[1] = atoi(PrintPensD);

  UnloadScriptModule("PF\\StrPen");
  UnloadScriptModule("PF\\StrPen1");

  if ( atoi(TipForm) ) LoadScriptModule("PF\\StrPen1");
  else                 LoadScriptModule("PF\\StrPen");

  PrintStrahPensEx(arr);

  UnloadScriptModule("PF\\StrPen");
  UnloadScriptModule("PF\\StrPen1");

$END_SCRIPT
$