//  "-4"  
${(1. ன ⠡) 
//   ⠫ :
&HowQu(N,1,0)=0; // 0 -  묨  I ⠫, I 㣮, 
                 //                          9 楢, 
                 // 1 -  묨 c 砫    ⭮.
//   ⠫  (  HowQu==0):
&WhenQu(N,1,0)=1;// 0 - 뢮  ⮫쪮    ਮ
                 //     (, , ᥭ, )
                 // 1 -    ([,],[,],
                 //                      [ᥭ,],[,]) 
//   :
&HowPr(N,1,0)=0; // 0 -  㬮砭 (᫨ ᫥ >=15    ,
                 // ᫨ <15   ਮ  砫 ), 
                 // 1 -   
                 // 2 - ਮ  砫 
$}(1. ன ⠡) 
${(2. ) 
#What(N,2,0)=_(15,9,65,15,ଠ ,ଠ -4,ଠ -4()); 
$(_EQ(What-27))
$BEG_SCRIPT    
  var CurFile=CreateObject("CurPrnFile");    
  CurFile.SetFlagBrowse(0);    
  CurFile.SetFlag_Print(0);
$END_SCRIPT    
$
$_
$}(2. ) 
// 
$BEG_SCRIPT 
 
  UnloadScriptModule("dmodules"); 
  LoadScriptModule("dmodules"); 
    UnloadDynamicModules(); 
  UnloadScriptModule("dmodules"); 
 
  var array_param[5]; 
  array_param[0]=static_cast_to_string(4); //⢮ ࠬ஢ 
  array_param[1]=static_cast_to_string(WhenQu); 
  array_param[2]=static_cast_to_string(HowQu); 
  array_param[3]=static_cast_to_string(What); 
  array_param[4]=static_cast_to_string(HowPr); 
      
  UnloadScriptModule("forms\\p4"); 
  LoadScriptModule("forms\\p4"); 
    p4(array_param); 
  UnloadScriptModule("forms\\p4"); 
 
$END_SCRIPT 
$