//  áįĨâ­ëŠ Ģ¨áâŽĒ ĄĨ§ ā §Ą¨ĸĒ¨ ¨ ĄĨ§ áŽāâ¨āŽĸĒ¨.  
#CLIN(N,4,0)=‘—…’—ˆŠ_‘’ŽŠ(); #SIZL(N,4,0)=€‡Œ_‹ˆ‘’€();  
$…‘‹ˆ(_GT(‘’ŽŠ+CLIN+12-SIZL))  
  $LF  
$ŠŽ…–_…‘‹ˆ  
&GORTAB(N,4,0)=0;  
${‡Ž€(3.āŽį¨Ĩ ­ áâāŽŠĒ¨)  
&nazv(N,2,0) =  0; // 0-ĒŽāŽâĒŽĨ ­ §ĸ ­¨Ĩ ĸ¨¤  -“, 1-¤Ģ¨­­ŽĨ ¨Ŧī  
//  §ŦĨā ¯ŽĢī ¯ā¨ äŽāŦ¨āŽĸ ­¨¨ áâāŽĒ¨ Ēĸ¨âĒ   
&lmes(N,4,0) =  2; // ŦĨáīæ (§­ įĨ­¨Ĩ ­Ĩ ¤ŽĢĻ­Ž Ąëâė ŦĨ­ėčĨ 2)  
&lkod(N,4,0) =  3; // ĒŽ¤ (§­ įĨ­¨Ĩ ­Ĩ ¤ŽĢĻ­Ž Ąëâė ŦĨ­ėčĨ 3)  
&lsrc(N,4,0) =  0; // ¨áâŽį­¨Ē 䨭 ­á¨āŽĸ ­¨ī  
&lpod(N,4,0) =  0; // ¯Ž¤ā §¤ĨĢĨ­¨Ĩ  
&lcom(N,4,0) =  0; // áŽĸŦĨáâ¨âĨĢėáâĸŽ  
&lsub(N,4,0) =  0; // ŽĄęĨĒâ  
&lnaz(N,4,0) =  7; // ­ §ĸ ­¨Ĩ ĸ¨¤   
&l_rv(N,4,0) =  7; // ā ĄŽįĨĨ ĸāĨŦī  
&lsum(N,4,0) = 10; // áãŦŦ   
&lmni(N,4,0) =  1; // Ŧ­¨ŦŽáâė  
&sh(N,4,0)   =  0; // ¤Ģ¨­  ¯ŽĢŽĸ¨­ë áâāŽĒ¨ Ēĸ¨âĒ  (ĨáĢ¨ 0 - ĸëį¨áĢīĨŦ)  
&l_tn(N,4,0) =  7; // ā §ŦĨā ¯ŽĢī ¤Ģī â ĄĨĢė­ŽŖŽ ­ŽŦĨā   
&lkat(N,4,0) =  2; // ā §ŦĨā ¯ŽĢī ¤Ģī Ē âĨŖŽā¨¨  
$}‡Ž€(3.āŽį¨Ĩ ­ áâāŽŠĒ¨)  
//  
$BEG_SCRIPT  
  
int _sh = atoi(sh);  
  
if ( !_sh ) // ĸëį¨áĢīĨŦ âŽĢėĒŽ ĸ âŽŦ áĢãį Ĩ, ĨáĢ¨ sh ­Ĩ § ¤ ­  īĸ­Ž, â.Ĩ. ā ĸ­  ­ãĢî  
{  
  int cProb = 0;  
  
  if ( lmes ) { _sh += lmes; cProb++; }  
  if ( lkod ) { _sh += lkod; cProb++; }  
  if ( lsrc ) { _sh += lsrc; cProb++; }  
  if ( lpod ) { _sh += lpod; cProb++; }  
  if ( lcom ) { _sh += lcom; cProb++; }  
  if ( lsub ) { _sh += lsub; cProb++; }  
  if ( l_rv ) { _sh += l_rv; cProb++; }  
  if ( lnaz ) { _sh += lnaz; } // ¯ŽáĢĨ ­ §ĸ ­¨ī ­Ĩâ ¯āŽĄĨĢ   
  if ( lsum ) { _sh += lsum; } // ¯ŽáĢĨ áãŦŦë ­Ĩâ ¯āŽĄĨĢ   
  if ( lmni ) { _sh += lmni; } // ¯ŽáĢĨ Ŧ­¨ŦŽá⨠­Ĩâ ¯āŽĄĨĢ   
  
  sh = _sh;  
  sh = sh + cProb;  
}  
  
GORTAB = sh * 2 + 1 + 4;  
  
$END_SCRIPT  
$“‘’€(ƒŽˆ‡_’€,@GORTAB)  // Žâáâ㯠Žâ ĢĨĸŽŖŽ Ēā ī ĄãŦ Ŗ¨ ¤Ģī ĸâŽāŽŖŽ Ēĸ¨âĒ   
$BEG_SCRIPT  
  
  int Param[14];  
  
  Param[0]  = atoi(lmes);  
  Param[1]  = atoi(lkod);  
  Param[2]  = atoi(lsrc);  
  Param[3]  = atoi(lpod);  
  Param[4]  = atoi(lcom);  
  Param[5]  = atoi(lsub);  
  Param[6]  = atoi(lnaz);  
  Param[7]  = atoi(l_rv);  
  Param[8]  = atoi(lsum);  
  Param[9]  = atoi(lmni);  
  Param[10] = atoi(sh);  
  Param[11] = atoi(l_tn);  
  Param[12] = atoi(lkat);  
  Param[13] = atoi(nazv);  
  
 UnloadScriptModule("check\\check102");  
 LoadScriptModule("check\\check102");  
  MainCheck( Param );  
 UnloadScriptModule("check\\check102");  
  
$END_SCRIPT  
${‡Ž€(1.‘ãŦŦë ¤Ģī ¯āŽĸĨāĒ¨ /­ ĢŽŖ ). €—€‹Ž áãŦŦ ¤Ģī /­ ĢŽŖ .  
//$…‘‹ˆ  // ‡ ĒŽŦŦĨ­â¨āãŠâĨ íâã áâāŽĒã ¤Ģī ¯Ĩį â¨ áãŦŦ ¯Ž ¯/­ ĢŽŖã. 
&FLSUMM(N,4,0)=1;  // 1 - ¯Ĩį âė áãŦŦ ¨áâŽį­¨Ē  ĸë¯Ģ âë, 2 ¯Ĩį âė ŽĄé¨å áãŦŦ 
#‘“ŒŒ›(C,160,0)=R_String(2,7,15,16,14); // ¯ĨāĨį¨áĢ¨âĨ ĸ áĒŽĄĒ å ­ãĻ­ëĨ áãŦŦë 
#REM001(C,35,0)=R_String(ŽĢ­ëŠ ¤ŽåŽ¤ ĄĨ§ ãįĨâ  áĒ¨¤ŽĒ);            // 1 
#REM002(C,35,0)=R_String(Žá­Žĸ­ŽŠ ¤ŽåŽ¤ ĄĨ§ ãįĨâ  áĒ¨¤ŽĒ);          // 2 
#REM003(C,35,0)=R_String(„ŽåŽ¤ ¯Ž 2-Š â ĄĢ¨æĨ ĄĨ§ ãįĨâ  áĒ¨¤ŽĒ);    // 3 
#REM007(C,35,0)=R_String( ĢŽŖ á ¯ŽĢ­ŽŠ áãŦŦë);                     // 7 
#REM008(C,35,0)=R_String( ĢŽŖ á Žá­Žĸ­ŽŠ áãŦŦë);                   // 8 
#REM009(C,35,0)=R_String( ĢŽŖ á áãŦŦë ¯Ž 2-Š â ĄĢ¨æĨ);             // 9 
#REM011(C,35,0)=R_String( ĢŽŖ, ¯ĨāĨ¤ ­­ëŠ Ē ĸ§ëáĒ ­¨î ĸ ˆ);       // 11 
#REM012(C,35,0)=R_String( ĢŽŖ,ã¤ĨāĻ ­­ëŠ ĸ ¯Ĩā¨Ž¤Ĩ)                // 12 
#REM013(C,35,0)=R_String( ĢŽŖ,ã¤ĨāĻ ­­ëŠ ĸ áįĨâ ¯Ĩā¨Ž¤ )           // 13 
#REM014(C,35,0)=R_String(‘ãŦŦ  ĸëįĨâŽĸ);                            // 14 
#REM015(C,35,0)=R_String(ĨāᎭ Ģė­ëĨ ĸëįĨâë);                      // 15 
#REM016(C,35,0)=R_String(‚ëįĨâë ­  ¨Ļ¤¨ĸĨ­æĨĸ);                     // 16 
#REM032(C,35,0)=R_String(āŽæĨ­â ŽĄĢŽĻĨ­¨ī ­ ĢŽŖŽŦ);                // 32 
#REM033(C,35,0)=R_String(‘ãŦŦ  áĒ¨¤ŽĒ ¯Ž ¤ŽåŽ¤ã);                   // 33 
#REM034(C,35,0)=R_String(‘ãŦŦ  ¯Ž 3-Š â ĄĢ¨æĨ);                     // 34 
#REM035(C,35,0)=R_String(ŽĄĢ Ŗ ĨŦ ī áãŦŦ  ¯Ž 3-Š â ĄĢ¨æĨ);          // 35 
#REM036(C,35,0)=R_String(‘ãŦŦ  ­ ĢŽŖ  ¯Ž 3-Š â ĄĢ¨æĨ);              // 36 
#REM037(C,35,0)=R_String(‘ãŦŦ  ĸëįĨâŽĸ ¯Ž ¤ŽåŽ¤ã);                  // 37 
#REM038(C,35,0)=R_String(‘ãŦŦ  ĸëįĨâŽĸ ¯Ž 2-Š â ĄĢ¨æĨ);             // 38 
#REM039(C,35,0)=R_String(‘ãŦŦ  ĸëįĨâŽĸ ¯Ž 3-Š â ĄĢ¨æĨ);             // 39 
#REM041(C,35,0)=R_String(ŽĢ­ëŠ ¤ŽåŽ¤ á ãįĨâŽŦ áĒ¨¤ŽĒ);             // 41 
#REM042(C,35,0)=R_String(Žá­Žĸ­ŽŠ ¤ŽåŽ¤ á ãįĨâŽŦ áĒ¨¤ŽĒ);           // 42 
#REM043(C,35,0)=R_String(„ŽåŽ¤ ¯Ž 2-Š â ĄĢ¨æĨ á ãįĨâŽŦ áĒ¨¤ŽĒ);     // 43 
#REM044(C,35,0)=R_String(„ŽåŽ¤ ¯Ž 3-Š â ĄĢ¨æĨ á ãįĨâŽŦ áĒ¨¤ŽĒ);     // 44 
#REM045(C,35,0)=R_String(ŽĄĢ Ŗ ĨŦ ī áãŦŦ  Žá­Žĸ­ŽŖŽ ¤ŽåŽ¤ );        // 45 
#REM046(C,35,0)=R_String(ŽĄĢ Ŗ ĨŦ ī áãŦŦ  ¯Ž 2-Š â ĄĢ¨æĨ);          // 46 
#REM047(C,35,0)=R_String(ŽĄĢ Ŗ ĨŦ ī áãŦŦ  ¯Ž 3-Š â ĄĢ¨æĨ);          // 47 
#REM048(C,35,0)=R_String(ŽĄé ī ŽĄĢ Ŗ ĨŦ ī áãŦŦ );                   // 48 
#REM050(C,35,0)=R_String(„ŽåŽ¤ ¤Ģī ā áįĨâ  ĸëįĨâŽĸ);                // 50 
#REM063(C,35,0)=R_String(‘Ē¨¤Ē¨ ¯Ž Žá­Žĸ­ŽŦã ¤ŽåŽ¤ã);               // 63 
#REM064(C,35,0)=R_String(‘Ē¨¤Ē¨ ¯Ž 2-Š â ĄĢ¨æĨ);                    // 64 
#REM065(C,35,0)=R_String(‘Ē¨¤Ē¨ ¯Ž 3-Š â ĄĢ¨æĨ);                    // 65 
#REM300(C,35,0)=R_String(Œ âĨā¨ Ģė­ ī ¯ŽŦŽéė);                      // 300 
#REM301(C,35,0)=R_String(‘Ē¨¤Ē  ¯Ž Ŧ âĨā¨ Ģė­ŽŠ ¯ŽŦŽé¨);            // 301 
#REM302(C,35,0)=R_String(Ž¤ āĒ¨);                                  // 302 
#REM303(C,35,0)=R_String(‘Ē¨¤Ē  ¯Ž ¯Ž¤ āĒ Ŧ);                       // 303 
#REM304(C,35,0)=R_String(ā¨§ë);                                    // 304 
#REM305(C,35,0)=R_String(‘Ē¨¤Ē  ¯Ž ¯ā¨§ Ŧ);                         // 305 
#REM306(C,35,0)=R_String(‚ëįĨâ ĸ ” á Žá­Žĸ­ŽŖŽ ¤ŽåŽ¤ );            // 306 
#REM307(C,35,0)=R_String(‚ëįĨâ ĸ ” á ā/Ē);                         // 307 
#REM308(C,35,0)=R_String(‚ëįĨâ ĸ ” á ¤ŽåŽ¤  áŽĸŦĨáâ¨âĨĢĨŠ);        // 308 
#REM309(C,35,0)=R_String(‚ëįĨâ ĸ ” á ā/Ē áŽĸŦĨáâ¨âĨĢĨŠ);           // 309 
#REM310(C,35,0)=R_String(‡ âā âë ­  áâāŽ¨âĨĢėáâĸŽ);                 // 310 
#REM507(C,35,0)=R_String( ĢŽŖ á ¯ŽĢ­ŽŠ áãŦŦë ĸ ”);                // 507 
#REM508(C,35,0)=R_String( ĢŽŖ á Žá­Žĸ­ŽŠ áãŦŦë ĸ ”);              // 508 
#REM509(C,35,0)=R_String( ĢŽŖ á áãŦŦë p/Ē ĸ ”);                   // 509 
#REM511(C,35,0)=R_String( ĢŽŖ Ē ĸ§ëáĒ ­¨î ĸ ˆ ĸ ”);              // 511 
#REM512(C,35,0)=R_String(“¤ĨāĻ ­Ž ­ ĢŽŖ  ĸ ¯Ĩā¨Ž¤Ĩ ĸ ”);           // 512 
#REM513(C,35,0)=R_String(“¤ĨāĻ ­Ž ­ ĢŽŖ  ĸ áįĨâ ¯Ĩā¨Ž¤  ĸ ”);      // 513 
  áãŦŦë ¤Ģī ¯āŽĸĨāĒ¨ ¯/­ ĢŽŖ        §  âĨĒ.ŦĨá.  á ­ į.ŖŽ¤  
$}‡Ž€(1.‘ãŦŦë ¤Ģī ¯āŽĸĨāĒ¨ /­ ĢŽŖ ).  ŠŽ…– áãŦŦ ¤Ģī /­ ĢŽŖ .  
// á¨áâĨŦ­ ī į áâė §Ž­ë áãŦŦ ¯Ž ¯/­ ĢŽŖã  
$…‘‹ˆ (_EQ(FLSUMM-1))  
  #‘“ŒƒŽ„001(N,11,@ŠŽ )=R_Tax(1,1,g,0,ˆáâŽį­¨Ē ĸë¯Ģ âë,*,);  
$ˆ€—…  
  #‘“ŒƒŽ„001(N,11,@ŠŽ )=R_Tax(1,1,g,0,*,*,);  
$ŠŽ…–_…‘‹ˆ  
#‘“ŒƒŽ„002(N,11,@ŠŽ )=R_Tax(2);   #‘“ŒƒŽ„003(N,11,@ŠŽ )=R_Tax(3);  
#‘“ŒƒŽ„007(N,11,@ŠŽ )=R_Tax(7);   #‘“ŒƒŽ„008(N,11,@ŠŽ )=R_Tax(8);  
#‘“ŒƒŽ„009(N,11,@ŠŽ )=R_Tax(9);   #‘“ŒƒŽ„011(N,11,@ŠŽ )=R_Tax(11);  
#‘“ŒƒŽ„012(N,11,@ŠŽ )=R_Tax(12);  
#‘“ŒƒŽ„013(N,11,@ŠŽ )=R_Tax(13);  #‘“ŒƒŽ„014(N,11,@ŠŽ )=R_Tax(14);  
#‘“ŒƒŽ„015(N,11,@ŠŽ )=R_Tax(15);  #‘“ŒƒŽ„016(N,11,@ŠŽ )=R_Tax(16);  
#‘“ŒƒŽ„032(N,11,@ŠŽ )=R_Tax(32);  #‘“ŒƒŽ„033(N,11,@ŠŽ )=R_Tax(33);  
#‘“ŒƒŽ„034(N,11,@ŠŽ )=R_Tax(34);  #‘“ŒƒŽ„035(N,11,@ŠŽ )=R_Tax(35);  
#‘“ŒƒŽ„036(N,11,@ŠŽ )=R_Tax(36);  #‘“ŒƒŽ„037(N,11,@ŠŽ )=R_Tax(37);  
#‘“ŒƒŽ„038(N,11,@ŠŽ )=R_Tax(38);  #‘“ŒƒŽ„039(N,11,@ŠŽ )=R_Tax(39);  
#‘“ŒƒŽ„041(N,11,@ŠŽ )=R_Tax(41);  #‘“ŒƒŽ„042(N,11,@ŠŽ )=R_Tax(42);  
#‘“ŒƒŽ„043(N,11,@ŠŽ )=R_Tax(43);  #‘“ŒƒŽ„044(N,11,@ŠŽ )=R_Tax(44);  
#‘“ŒƒŽ„045(N,11,@ŠŽ )=R_Tax(45);  #‘“ŒƒŽ„046(N,11,@ŠŽ )=R_Tax(46);  
#‘“ŒƒŽ„047(N,11,@ŠŽ )=R_Tax(47);  #‘“ŒƒŽ„048(N,11,@ŠŽ )=R_Tax(48);  
#‘“ŒƒŽ„050(N,11,@ŠŽ )=R_Tax(50);  #‘“ŒƒŽ„063(N,11,@ŠŽ )=R_Tax(63);  
#‘“ŒƒŽ„064(N,11,@ŠŽ )=R_Tax(64);  #‘“ŒƒŽ„065(N,11,@ŠŽ )=R_Tax(65);  
#‘“ŒƒŽ„300(N,11,@ŠŽ )=R_Tax(list,Summa,2760,0,503,1," ");  
#‘“ŒƒŽ„301(N,11,@ŠŽ )=R_Tax(list,RealDiscount,2760,0,503,1," ");  
#‘“ŒƒŽ„302(N,11,@ŠŽ )=R_Tax(list,Summa,2720,0,501,1," ");  
#‘“ŒƒŽ„303(N,11,@ŠŽ )=R_Tax(list,RealDiscount,2720,0,501,1," ");  
#‘“ŒƒŽ„304(N,11,@ŠŽ )=R_Tax(list,Summa,2730,0,502,1," ");  
#‘“ŒƒŽ„305(N,11,@ŠŽ )=R_Tax(list,RealDiscount,2730,0,502,1," ");  
#‘“ŒƒŽ„306(N,11,@ŠŽ )=R_Tax(list,Summa,0,10,0,1," ");  
#‘“ŒƒŽ„307(N,11,@ŠŽ )=R_Tax(list,Summa,0,11,0,2," ");  
#‘“ŒƒŽ„308(N,11,@ŠŽ )=R_Tax(list,Summa,0,10,0,1,"0");  
#‘“ŒƒŽ„309(N,11,@ŠŽ )=R_Tax(list,Summa,0,11,0,2,"0");  
#‘“ŒƒŽ„310(N,11,@ŠŽ )=R_Tax(list,Summa,0,42,5,1," ");  
$…‘‹ˆ (_EQ(FLSUMM-1))  
  #‘“ŒƒŽ„507(N,11,@ŠŽ )=R_Tax(7,1,g,0,ˆáâŽį­¨Ē ĸë¯Ģ âë,*,”);  
$ˆ€—…  
  #‘“ŒƒŽ„507(N,11,@ŠŽ )=R_Tax(7,1,g,0,*,*,”);  
$ŠŽ…–_…‘‹ˆ  
#‘“ŒƒŽ„508(N,11,@ŠŽ )=R_Tax(8);   #‘“ŒƒŽ„509(N,11,@ŠŽ )=R_Tax(9);  
#‘“ŒƒŽ„511(N,11,@ŠŽ )=R_Tax(11);  #‘“ŒƒŽ„512(N,11,@ŠŽ )=R_Tax(12);  
#‘“ŒƒŽ„513(N,11,@ŠŽ )=R_Tax(13);  
$…‘‹ˆ (_EQ(FLSUMM-1))  
  #‘“ŒŒ…‘001(N,11,@ŠŽ )=R_Tax(1,1,0,0,ˆáâŽį­¨Ē ĸë¯Ģ âë,*,);  
$ˆ€—…  
  #‘“ŒŒ…‘001(N,11,@ŠŽ )=R_Tax(1,1,0,0,*,*,);  
$ŠŽ…–_…‘‹ˆ  
#‘“ŒŒ…‘002(N,11,@ŠŽ )=R_Tax(2);    #‘“ŒŒ…‘003(N,11,@ŠŽ )=R_Tax(3);  
#‘“ŒŒ…‘007(N,11,@ŠŽ )=R_Tax(7);    #‘“ŒŒ…‘008(N,11,@ŠŽ )=R_Tax(8);  
#‘“ŒŒ…‘009(N,11,@ŠŽ )=R_Tax(9);    #‘“ŒŒ…‘011(N,11,@ŠŽ )=R_Tax(11);  
#‘“ŒŒ…‘012(N,11,@ŠŽ )=R_Tax(12);  
#‘“ŒŒ…‘013(N,11,@ŠŽ )=R_Tax(13);   #‘“ŒŒ…‘014(N,11,@ŠŽ )=R_Tax(14);  
#‘“ŒŒ…‘015(N,11,@ŠŽ )=R_Tax(15);   #‘“ŒŒ…‘016(N,11,@ŠŽ )=R_Tax(16);  
#‘“ŒŒ…‘032(N,11,@ŠŽ )=R_Tax(32);   #‘“ŒŒ…‘033(N,11,@ŠŽ )=R_Tax(33);  
#‘“ŒŒ…‘034(N,11,@ŠŽ )=R_Tax(34);   #‘“ŒŒ…‘035(N,11,@ŠŽ )=R_Tax(35);  
#‘“ŒŒ…‘036(N,11,@ŠŽ )=R_Tax(36);   #‘“ŒŒ…‘037(N,11,@ŠŽ )=R_Tax(37);  
#‘“ŒŒ…‘038(N,11,@ŠŽ )=R_Tax(38);   #‘“ŒŒ…‘039(N,11,@ŠŽ )=R_Tax(39);  
#‘“ŒŒ…‘041(N,11,@ŠŽ )=R_Tax(41);   #‘“ŒŒ…‘042(N,11,@ŠŽ )=R_Tax(42);  
#‘“ŒŒ…‘043(N,11,@ŠŽ )=R_Tax(43);   #‘“ŒŒ…‘044(N,11,@ŠŽ )=R_Tax(44);  
#‘“ŒŒ…‘045(N,11,@ŠŽ )=R_Tax(45);   #‘“ŒŒ…‘046(N,11,@ŠŽ )=R_Tax(46);  
#‘“ŒŒ…‘047(N,11,@ŠŽ )=R_Tax(47);   #‘“ŒŒ…‘048(N,11,@ŠŽ )=R_Tax(48);  
#‘“ŒŒ…‘050(N,11,@ŠŽ )=R_Tax(50);   #‘“ŒŒ…‘063(N,11,@ŠŽ )=R_Tax(63);  
#‘“ŒŒ…‘064(N,11,@ŠŽ )=R_Tax(64);   #‘“ŒŒ…‘065(N,11,@ŠŽ )=R_Tax(65);  
#‘“ŒŒ…‘300(N,11,@ŠŽ )=R_Tax(list,Summa,2760,0,503,1," ");  
#‘“ŒŒ…‘301(N,11,@ŠŽ )=R_Tax(list,RealDiscount,2760,0,503,1," ");  
#‘“ŒŒ…‘302(N,11,@ŠŽ )=R_Tax(list,Summa,2720,0,501,1," ");  
#‘“ŒŒ…‘303(N,11,@ŠŽ )=R_Tax(list,RealDiscount,2720,0,501,1," ");  
#‘“ŒŒ…‘304(N,11,@ŠŽ )=R_Tax(list,Summa,2730,0,502,1," ");  
#‘“ŒŒ…‘305(N,11,@ŠŽ )=R_Tax(list,RealDiscount,2730,0,502,1," ");  
#‘“ŒŒ…‘306(N,11,@ŠŽ )=R_Tax(list,Summa,0,10,0,1," ");  
#‘“ŒŒ…‘307(N,11,@ŠŽ )=R_Tax(list,Summa,0,11,0,2," ");  
#‘“ŒŒ…‘308(N,11,@ŠŽ )=R_Tax(list,Summa,0,10,0,1,"0");  
#‘“ŒŒ…‘309(N,11,@ŠŽ )=R_Tax(list,Summa,0,11,0,2,"0");  
#‘“ŒŒ…‘310(N,11,@ŠŽ )=R_Tax(list,Summa,0,42,5,1," ");  
$…‘‹ˆ (_EQ(FLSUMM-1))  
  #‘“ŒŒ…‘507(N,11,@ŠŽ )=R_Tax(7,1,0,0,ˆáâŽį­¨Ē ĸë¯Ģ âë,*,”);  
$ˆ€—…  
  #‘“ŒŒ…‘507(N,11,@ŠŽ )=R_Tax(7,1,0,0,*,*,”);  
$ŠŽ…–_…‘‹ˆ  
#‘“ŒŒ…‘508(N,11,@ŠŽ )=R_Tax(8);   #‘“ŒŒ…‘509(N,11,@ŠŽ )=R_Tax(9);  
#‘“ŒŒ…‘511(N,11,@ŠŽ )=R_Tax(11);  #‘“ŒŒ…‘512(N,11,@ŠŽ )=R_Tax(12);  
#‘“ŒŒ…‘513(N,11,@ŠŽ )=R_Tax(13);  
  &CNT(N,4,0)=1;  
  $Ž‚’ŽŸ’œ  
    #N(V,3,0)=‹…Œ_Œ€‘‘ˆ‚€(‘“ŒŒ›,CNT);  
    $…‘‹ˆ (_GT(N))  
      #’…Š‘’(C,35,0)=R_String(REM@N );  
      &‘“ŒƒŽ„(N,11,@ŠŽ )=‘“ŒƒŽ„@N;  
      &‘“ŒŒ…‘(N,11,@ŠŽ )=‘“ŒŒ…‘@N;  
 @’…Š‘’                             @‘“ŒŒ…‘     @‘“ŒƒŽ„  
    $ŠŽ…–_…‘‹ˆ  
    &CNT=CNT+1;  
  $ŽŠ€ (_GT(N))  
$ŠŽ…–_…‘‹ˆ                  // ĒŽ­Ĩæ á¨áâĨ­ŽŠ į á⨠áãŦŦ ¯Ž ¯/­ ĢŽŖã  
${‡Ž€(2.‘ãŦŦë ¯Ž ĸ륎āĒ Ŧ â ĄĢ.ĸå-â¨). €—€‹Ž áãŦŦ ¯Ž ĸ륎āĒ Ŧ.  
//#‘“Œ”‡(N,11,@ŠŽ )=R_Col_S("1","*",15,0,0);  
//#‘“Œ”Œ(N,11,@ŠŽ )=R_Col_S("2","*",15,0,0);  
// ‘ãŦŦ  Ē Žâ¯ãáĒ㠔‡                @‘“Œ”‡  
// ‘ãŦŦ  Ē Žâ¯ãáĒ㠔Œ                @‘“Œ”Œ  
$}‡Ž€(2.‘ãŦŦë ¯Ž ĸ륎āĒ Ŧ â ĄĢ.ĸå-â¨).  ŠŽ…– áãŦŦ ¯Ž ĸ륎āĒ Ŧ.  
  
$‚›•Ž„