//------------- ࠢ  ᨮ 䮭 ----------------- 
#(N,5,0)=_(0);      // ᫮ ᥩ  ⠡ 
$(_EQ()) 
  $ 
$_ 
${(2. ਧ  ) 
  $(_," "); // " " (஡) -   㫨, "0" -  
$}(2. ਧ  ) 
${(1. ⢮ 楢,  ஥ 室 ࠢ) 
&(N,4,0)=60;
$}(1. ⢮ 楢,  ஥ 室 ࠢ) 
&(N,5,0)=0; 
#(N,2,0)=(2);       //  ⥪饣    
#(N,4,0)=(5);         //  ⥪饣  
#(N,2,0)=_(FCf);     #(N,2,0)=_(FCi); 
#(N,2,0)=_(FCo);     #(N,2,0)=_(C_FIO); 
#(N,2,0)=_(Month); #(N,2,0)=_(SummZar); 
$                                      //     ⠡ 
    #=_();                     // ਧ   
    #(N,9,0)=_(,); 
    $(*) 
#(C,41,0)=_(,);  #(C,41,0)=_(,); 
#(C,41,0)=_(,); 
  &1(N,9,0)=; 
  $      //     ⠡ ( ய᪠ 㦭 楢) 
     #(N,7,4)=_(,); &(N,2,0)=_Long(); 
     #(N,4,0)=R_Calculat((-)*10000);  // ,   㬬 
     &(N,1,0)=1; 
     $(_GE(-)*_GE(-)) // 㬬  騥     
        &=+1; &=0; 
     $ // ।塞 ⢮ 楢  ⥪騬  楬 㬬 
        #(N,10,0)=R_Calculat((--1)*12); 
        $(_EQ(-)) 
           #(N,4,0)=R_Calculat(-); 
        $ 
           #(N,4,0)=R_Calculat((-1)+(13-)+); 
        $_ 
        $ (_LT(-)) // ᫨  祬  - ய᪠ 
           &=+1; &=0; 
        $_ 
     $_ 
  $(_GT(-)*(1-)) 
  $(_GT(-))  // 諨 㦭  
     #1=_(,); 
  $ 
     #1=-1; 
  $_ 
  $(_EQ(-1)) // ⠥    楢  
     &J(V,2,0)=0; &G(N,1,0)=5; 
     $ 
       #G@J(N,4,0)=R_Calculat(+J); #IT@J(N,12,2)=0; &J=J+1; 
     $(_GT(G-J)) 
     &I(V,2,0)=0; &J=0; 
     $ (_GT(-1))     
        $ 
          &S@J@I(N,12,2)=0; &I=I+1; 
        $(_GT(-I-1)) 
     $_     
     $ 
       #SumTmp(N,12,2)=_(,); 
       &S@J@I(N,12,2)=SumTmp; &I=I+1; &IT@J = IT@J  +SumTmp; 
       $(_LE(12-I)) 
         &I=0; &J=J+1; 
       $_ 
       &=+1; 
       &=0; 
       $(_GT(-)) 
          #1=_(,); 
          $(_EQ(-1)) 
            #=_(,); &=_Long(); 
            #=R_Calculat((-)*10000); // ,   㬬 
            $(1-_GE(-)*_GE(-)) 
               &=1; 
            $_ 
          $_ 
       $_ 
     $(*_GT(G-J)) 
     &=-1; 
     $ // ய᪠ ⠢訥   - ⠪    .. 
        &=+1; 
        $(_GT(-)) 
            #1=_(,); 
        $_ 
     $(_GT(-)*_EQ(-1)) 
     $ 
       &S@J@I(N,12,2)=0; &I=I+1; 
       $(_LE(12-I)) 
         &I=0; &J=J+1; 
       $_ 
     $(_GT(G-J)) 
  $_ 
#(C,20,0)=(61); 
#(C,100,0)=_(!SPACE,,  ,,  ,); 
${(3. ଠ ) 
@            .                       @ 
 
                                             
 
N________     뤠 @ 
               ⮬,   () ࠡ⮪, 뢠  ᫥ 
              ᨨ ⠢: 
 
 1. 㬬 ࠡ⪠, ஬ ६,   ࠦ,                  2. ६,   ࠡ⭮   ࠦ, 
          믫祭  ਮ                                      믫祭  ਮ   
------------------------------------------------------------------------------------------------------------------------------------------ 
  |   @G00 .  |   @G01 .  |   @G02 .  |   @G03 .  |   @G04 .  | |  | 㬬      |믫祭     |  ⥫| 
        |            |            |            |            |            | |           |            |ਮ (⠫,|믫祭 ६   | 
        |            |            |            |            |            | |           |            |㣮, ) |(,.) | 
------------------------------------------------------------------------------------------------------------------------------------------ 
  |@S0000      |@S0100      |@S0200      |@S0300      |@S0400      | |           |            |                |                   | 
ࠫ |@S0001      |@S0101      |@S0201      |@S0301      |@S0401      | |           |            |                |                   | 
    |@S0002      |@S0102      |@S0202      |@S0302      |@S0402      | |           |            |                |                   | 
५  |@S0003      |@S0103      |@S0203      |@S0303      |@S0403      | |           |            |                |                   | 
     |@S0004      |@S0104      |@S0204      |@S0304      |@S0404      | |           |            |                |                   | 
    |@S0005      |@S0105      |@S0205      |@S0305      |@S0405      | |           |            |                |                   | 
    |@S0006      |@S0106      |@S0206      |@S0306      |@S0406      | |           |            |                |                   | 
  |@S0007      |@S0107      |@S0207      |@S0307      |@S0407      | |           |            |                |                   | 
|@S0008      |@S0108      |@S0208      |@S0308      |@S0408      | |           |            |                |                   | 
 |@S0009      |@S0109      |@S0209      |@S0309      |@S0409      | |           |            |                |                   | 
  |@S0010      |@S0110      |@S0210      |@S0310      |@S0410      | |           |            |                |                   | 
 |@S0011      |@S0111      |@S0211      |@S0311      |@S0411      | |           |            |                |                   | 
-------------------------------------------------------------------------- |           |            |                |                   | 
   |@IT00       |@IT01       |@IT02       |@IT03       |@IT04       | |           |            |                |                   | 
---------------------------------------------------------------------------|      |            |                |                   | 
ਬ砭:  __________________  㣨 栬    --------------------------------------------------------------- 
᭮ 뤠 ࠢ:   
 
     ..          㪮⥫ ।    @ 
                    壠           @ 
 
       $_ 
$}(3. ଠ ) 
    $_ 
$(_GT(-)) 
