// 쪠  窠 ( ࠭, ᫨ ᦠ⮩)
#(N,5,0)=_(0);        // ᫮ ࠡ ᥩ  ⠡
$GAUGESURE(8900*)
$(_EQ())
  $
$_
${(  ன )
  $(_," "); // " " (஡) -   㫨, "0" - 
  &(N,4,0)=2;     // ⠢ &(N,4,0)=0   㬬  
  &(N,4,0)=2;     // ⠢ &(N,4,0)=0   㬬   
  &MPRSFLAG(N,2,0)=0;    // 1 - 뢠 ⥫  室.
$}(  ன )
&(N,5,0)=0;
$                                      //     ⠡
  #=_();                       // ਧ  
  $()
    #BEG(N,2,0)=_(BEG,);
    #END(N,2,0)=_(END,);
    #YEAR(C,4,0)=_(YEAR,);
${(2.஢ )
    #I0(C,19,0)=_(F,);
    #I1(C,13,0)=_(I,);
    #I2(C,15,0)=_(O,);
    #TN(N,15,0)=_(C_FIO,);
$}(2.஢ )
${(3.  室)
    &X(V,2,0)=1; &Y(V,2,0)=1; &Z(V,2,0)=1; &W(V,2,0)=1;
    $
      &Z=1;  &E@Y(N,4,0)=0;
      $
        &DED@Y@Z(N,10,@)=0.; &Z=Z+1;
      $(_LE(Z-13))
      &Y=Y+1;
    $(_LE(Y-10))
    &X=1; &Y=1;
    $
      &Z=1;  &FLAG(V,2,0)=0;
      $
        #DEDUCTION(C,255,0)=_(DED@Z,);
        #(C,255,0)=_(DEDUCTION,X,2);
        #E(N,4,0)=_(,1);             //  
        #DED@Z(N,10,@)=_(,2);    // 㬬 
        $ (1-_EQ(DED@Z))
          &FLAG=1;          //  㫥 㬬 
        $_
        $ (_EQ(E-42)*_EQ(Z-12));         //     12 
          &SNEDV1=DED@Z;                     // 㬬 
          &SNEDV2=SNEDV-SNEDV1;              // ⮪ 㬬  .
        $_
        &Z=Z+1;
      $(_LE(Z-12))
      $(1-_EQ(FLAG))
        &Z=1; &W=0; &E@Y=E; &DED00(N,10,@)=0;
        $
          &W=Z-1;
          &DED@Y@Z=DED@Z-DED@W;
          &Z=Z+1;
        $(_LE(Z-12))
        &DED@Y@Z=DED12;
        &Y=Y+1;
      $_
      &X=X+1;
    $(_LE(X-20))
    &Z=1; &YS13(N,10,@)=0;
    $
      &FL@Z(N,1,0)=_LE(BEG-@Z)*_GE(END-@Z);
      &MS@Z(N,10,@)=0;  &Y=1;
      $
        &MS@Z=MS@Z+DED@Y@Z;  &Y=Y+1;
      $(_LE(Y-10))
      &YS@Z(N,10,@)=(YS13+MS@Z)*FL@Z;  &YS13=YS@Z; &Z=Z+1;
    $(_LE(Z-13))
    &YS13(N,10,@)=MS13;
$}(3.  室)
${(4. ᮢ㯭 室)
    &X=1; &Y=1; &Z=1;
    $
      &Z=1; &C@Y(N,4,0)=0;
      $
        &INC@Y@Z(N,10,@)=0.; &Z=Z+1;
      $(_LE(Z-13))
      &Y=Y+1;
    $(_LE(Y-10))
    &X=1; &Y=1;
    $
      &Z=1; &FLAG(V,2,0)=0;
      $
        #INCOME(C,255,0)=_(I@Z,);
        #(C,255,0)=_(INCOME,X,2);
        #C(N,4,0)=_(,1);             //  室
        #INC@Z(N,10,@)=_(,2);     // 㬬 室
        $ (1-_EQ(INC@Z))
          &FLAG=1;          //  㫥 㬬 室
        $_
        &Z=Z+1;
      $(_LE(Z-12))
      $(1-_EQ(FLAG))
        &Z=1; &W=0;  &INC00(N,10,@)=0; &C@Y=C;
        $
          &W=Z-1;
          &INC@Y@Z=INC@Z-INC@W;
          &Z=Z+1;
        $(_LE(Z-12))
        &INC@Y@Z=INC12;
        &Y=Y+1;
      $_
      &X=X+1;
    $(_LE(X-20))
    &X=1; &Y=1; &Z=1;
    $ //    㬬 室  ᪨
      &Z=1; &CDI@Y(N,4,0)=0; &CD@Y(N,4,0)=0;
      $
        &SDI@Y@Z(N,10,@)=0.; &SD@Y@Z(N,10,@)=0.; &Z=Z+1;
      $(_LE(Z-13))
      &Y=Y+1;
    $(_LE(Y-10))
    &X=1; &Y=1;
    $
      &Z=1; &FLAG(V,2,0)=0;
      $
        #DINCOME(C,255,0)=_(DI@Z,);
        #(C,255,0)=_(DINCOME,X,2);
        #CDI(N,4,0)=_(,1);        //  室
        #SDI@Z(N,10,@)=_(,2);  // 㬬 室
        #CD(N,4,0)=_(,3);         //  ᪨
        #SD@Z(N,10,@)=_(,4);   // 㬬 ᪨
        $ (1-_EQ(SDI@Z))
          &FLAG=1;                              //  㫥 㬬 室
        $_
        &Z=Z+1;
      $(_LE(Z-12))
      $(1-_EQ(FLAG))
        &Z=1;  &CDI@Y=CDI;  &CD@Y=CD;
        &W=0; &SDI00(N,10,@)=0; &SD00(N,10,@)=0;
        $
          &W=Z-1;
          &SDI@Y@Z=SDI@Z-SDI@W;
          &SD@Y@Z=SD@Z-SD@W;
          &Z=Z+1;
        $(_LE(Z-12))
        &SDI@Y@Z=SDI12;
        &SD@Y@Z=SD12;
        &Y=Y+1;
      $_
      &X=X+1;
    $(_LE(X-20))
    &Z=1;
    &W=0;
    &PR00(N,10,@)=0;    &PRDIS00(N,10,@)=0;  &PRD00(N,10,@)=0;
    &PRDED00(N,10,@)=0; &PRS00(N,10,@)=0;    &PRT00(N,10,@)=0;
    &PRF00(N,10,@)=0;   &PRDLT00(N,10,@)=0;
    $
      &FL@Z(N,1,0)=_LE(BEG-@Z)*_GE(END-@Z);
      &W=Z-1;
      // 室
      #PRLIST(C,255,0)=_(PRLIST@Z,);
      #PR@Z(N,10,@)=_(PRLIST,1);     // 㬬 室
      &MPR@Z(N,10,@)=PR@Z-PR@W;            &YPR@Z(N,10,@)=PR@Z*FL@Z;
      #PRDIS@Z(N,10,@)=_(PRLIST,2);  // 㬬 ᪨
      &MPRDIS@Z(N,10,@)=PRDIS@Z-PRDIS@W;   &YPRDIS@Z(N,10,@)=PRDIS@Z*FL@Z;
      #PRD@Z(N,10,@)=_(PRLIST,3);    // 㬬 室 - ᪨
      &MPRD@Z(N,10,@)=PRD@Z-PRD@W;         &YPRD@Z(N,10,@)=PRD@Z*FL@Z;
      #PRDED@Z(N,10,@)=_(PRLIST,4);  // 㬬 
      &MPRDED@Z(N,10,@)=PRDED@Z-PRDED@W;   &YPRDED@Z(N,10,@)=PRDED@Z*FL@Z;
      #PRS@Z(N,10,@)=_(PRLIST,5);    //  㬬
      &MPRS@Z(N,10,@)=PRS@Z-PRS@W;         &YPRS@Z(N,10,@)=PRS@Z*FL@Z;
      $ (_EQ(MPRSFLAG))
        &MPRS@Z=MPRS@Z*_GE(MPRS@Z));
      $_
      #PRT@Z(N,10,@)=_(PRLIST,6);    // ᫥ 
      &MPRT@Z(N,10,@)=PRT@Z-PRT@W;         &YPRT@Z(N,10,@)=PRT@Z;
      #PRF@Z(N,10,@)=_(PRLIST,7);    // ঠ  
      &MPRF@Z(N,10,@)=PRF@Z-PRF@W;         &YPRF@Z(N,10,@)=PRF@Z;
      #PRDLT@Z(N,10,@)=_(PRLIST,8);  //   
      &MPRDLT@Z(N,10,@)=PRDLT@Z-PRDLT@W;   &YPRDLT@Z(N,10,@)=PRDLT@Z;
      // /
      #RKLIST(C,255,0)=_(RKLIST@Z,);
      #RK@Z(N,10,@)=_(RKLIST,1);     // 㬬 室
      &MRK@Z(N,10,@)=RK@Z-RK@W;            &YRK@Z(N,10,@)=RK@Z;
      #RKDIS@Z(N,10,@)=_(RKLIST,2);  // 㬬 ᪨
      &MRKDIS@Z(N,10,@)=RKDIS@Z-RKDIS@W;   &YRKDIS@Z(N,10,@)=RKDIS@Z;
      #RKD@Z(N,10,@)=_(RKLIST,3);    // 㬬 室 - ᪨
      &MRKD@Z(N,10,@)=RKD@Z-RKD@W;         &YRKD@Z(N,10,@)=RKD@Z;
      #RKDED@Z(N,10,@)=_(RKLIST,4);  // 㬬 
      &MRKDED@Z(N,10,@)=RKDED@Z-RKDED@W;   &YRKDED@Z(N,10,@)=RKDED@Z;
      #RKS@Z(N,10,@)=_(RKLIST,5);    //  㬬
      &MRKS@Z(N,10,@)=RKS@Z-RKS@W;         &YRKS@Z(N,10,@)=RKS@Z;
      #RKT@Z(N,10,@)=_(RKLIST,6);    // ᫥ 
      &MRKT@Z(N,10,@)=RKT@Z-RKT@W;         &YRKT@Z(N,10,@)=RKT@Z;
      #RKF@Z(N,10,@)=_(RKLIST,7);    // ঠ  
      &MRKF@Z(N,10,@)=RKF@Z-RKF@W;         &YRKF@Z(N,10,@)=RKF@Z;
      #RKDLT@Z(N,10,@)=_(RKLIST,8);  //   
      &MRKDLT@Z(N,10,@)=RKDLT@Z-RKDLT@W;   &YRKDLT@Z(N,10,@)=RKDLT@Z;
      // 룮
      #PFLIST(C,255,0)=_(PFLIST@Z,);
      #PF@Z(N,10,@)=_(PFLIST,1);     // 㬬 室
      &MPF@Z(N,10,@)=PF@Z-PF@W;            &YPF@Z(N,10,@)=PF@Z;
      #PFDIS@Z(N,10,@)=_(PFLIST,2);  // 㬬 ᪨
      &MPFDIS@Z(N,10,@)=PFDIS@Z-PFDIS@W;   &YPFDIS@Z(N,10,@)=PFDIS@Z;
      #PFD@Z(N,10,@)=_(PFLIST,3);    // 㬬 室 - ᪨
      &MPFD@Z(N,10,@)=PFD@Z-PFD@W;         &YPFD@Z(N,10,@)=PFD@Z;
      #PFDED@Z(N,10,@)=_(PFLIST,4);  // 㬬 
      &MPFDED@Z(N,10,@)=PFDED@Z-PFDED@W;   &YPFDED@Z(N,10,@)=PFDED@Z;
      #PFS@Z(N,10,@)=_(PFLIST,5);    //  㬬
      &MPFS@Z(N,10,@)=PFS@Z-PFS@W;         &YPFS@Z(N,10,@)=PFS@Z;
      #PFT@Z(N,10,@)=_(PFLIST,6);    // ᫥ 
      &MPFT@Z(N,10,@)=PFT@Z-PFT@W;         &YPFT@Z(N,10,@)=PFT@Z;
      #PFF@Z(N,10,@)=_(PFLIST,7);    // ঠ  
      &MPFF@Z(N,10,@)=PFF@Z-PFF@W;         &YPFF@Z(N,10,@)=PFF@Z;
      #PFDLT@Z(N,10,@)=_(PFLIST,8);  //   
      &MPFDLT@Z(N,10,@)=PFDLT@Z-PFDLT@W;   &YPFDLT@Z(N,10,@)=PFDLT@Z;
      //  㬬
      #FLLIST(C,255,0)=_(FLLIST@Z,);
      #FL@Z(N,10,@)=_(FLLIST,1);     // 㬬 室
      &MFL@Z(N,10,@)=FL@Z-FL@W;            &YFL@Z(N,10,@)=FL@Z;
      #FLDIS@Z(N,10,@)=_(FLLIST,2);  // 㬬 ᪨
      &MFLDIS@Z(N,10,@)=FLDIS@Z-FLDIS@W;   &YFLDIS@Z(N,10,@)=FLDIS@Z;
      #FLD@Z(N,10,@)=_(FLLIST,3);    // 㬬 室 - ᪨
      &MFLD@Z(N,10,@)=FLD@Z-FLD@W;         &YFLD@Z(N,10,@)=FLD@Z;
      #FLDED@Z(N,10,@)=_(FLLIST,4);  // 㬬 
      &MFLDED@Z(N,10,@)=FLDED@Z-FLDED@W;   &YFLDED@Z(N,10,@)=FLDED@Z;
      #FLS@Z(N,10,@)=_(FLLIST,5);    //  㬬
      &MFLS@Z(N,10,@)=FLS@Z-FLS@W;         &YFLS@Z(N,10,@)=FLS@Z;
      #FLT@Z(N,10,@)=_(FLLIST,6);    // ᫥ 
      &MFLT@Z(N,10,@)=FLT@Z-FLT@W;         &YFLT@Z(N,10,@)=FLT@Z;
      #FLF@Z(N,10,@)=_(FLLIST,7);    // ঠ  
      &MFLF@Z(N,10,@)=FLF@Z-FLF@W;         &YFLF@Z(N,10,@)=FLF@Z;
      #FLDLT@Z(N,10,@)=_(FLLIST,8);  //   
      &MFLDLT@Z(N,10,@)=FLDLT@Z-FLDLT@W;   &YFLDLT@Z(N,10,@)=FLDLT@Z;
      &Z=Z+1;
    $(_LE(Z-12))
    // 室
    &YPR@Z(N,10,@)=PR12;         &YPRDIS@Z(N,10,@)=PRDIS12;
    &YPRD@Z(N,10,@)=PRD12;       &YPRDED@Z(N,10,@)=PRDED12;
    &YPRS@Z(N,10,@)=PRS12;       &YPRT@Z(N,10,@)=PRT12;
    &YPRF@Z(N,10,@)=PRF12;       &YPRDLT@Z(N,10,@)=PRDLT12;
    // /
    &YRK@Z(N,10,@)=RK12;         &YRKDIS@Z(N,10,@)=RKDIS12;
    &YRKD@Z(N,10,@)=RKD12;       &YRKDED@Z(N,10,@)=RKDED12;
    &YRKS@Z(N,10,@)=RKS12;       &YRKT@Z(N,10,@)=RKT12;
    &YRKF@Z(N,10,@)=RKF12;       &YRKDLT@Z(N,10,@)=RKDLT12;
    // 룮
    &YPF@Z(N,10,@)=PF12;         &YPFDIS@Z(N,10,@)=PFDIS12;
    &YPFD@Z(N,10,@)=PFD12;       &YPFDED@Z(N,10,@)=PFDED12;
    &YPFS@Z(N,10,@)=PFS12;       &YPFT@Z(N,10,@)=PFT12;
    &YPFF@Z(N,10,@)=PFF12;       &YPFDLT@Z(N,10,@)=PFDLT12;
    // 騩 室
    &YFL@Z(N,10,@)=FL12;         &YFLDIS@Z(N,10,@)=FLDIS12;
    &YFLD@Z(N,10,@)=FLD12;       &YFLDED@Z(N,10,@)=FLDED12;
    &YFLS@Z(N,10,@)=FLS12;       &YFLT@Z(N,10,@)=FLT12;
    &YFLF@Z(N,10,@)=FLF12;       &YFLDLT@Z(N,10,@)=FLDLT12;
    &Z=1;
    $
      &FL@Z(N,1,0)=_LE(BEG-@Z)*_GE(END-@Z);
      $ (_EQ(Z-13))
           &FL@Z(N,1,0)=1;
      $_
      // 室
      &WPR@Z(N,10,@)=YPR@Z*FL@Z;
      &WPRDIS@Z(N,10,@)=YPRDIS@Z*FL@Z;
      &WPRD@Z(N,10,@)=YPRD@Z*FL@Z;
      &WPRDED@Z(N,10,@)=YPRDED@Z*FL@Z;
      &WPRS@Z(N,10,@)=YPRS@Z*FL@Z;
      &WPRT@Z(N,10,@)=YPRT@Z*FL@Z;
      &WPRF@Z(N,10,@)=YPRF@Z*FL@Z;
      // /
      &WRK@Z(N,10,@)=YRK@Z*FL@Z;
      &WRKDIS@Z(N,10,@)=YRKDIS@Z*FL@Z;
      &WRKD@Z(N,10,@)=YRKD@Z*FL@Z;
      &WRKDED@Z(N,10,@)=YRKDED@Z*FL@Z;
      &WRKS@Z(N,10,@)=YRKS@Z*FL@Z;
      &WRKT@Z(N,10,@)=YRKT@Z*FL@Z;
      &WRKF@Z(N,10,@)=YRKF@Z*FL@Z;
      //  
      &MPR@Z(N,10,@)=MPR@Z*FL@Z;
      &MPRDED@Z(N,10,@)=MPRDED@Z*FL@Z;
      &MRK@Z(N,10,@)=MRK@Z*FL@Z;
      &MRKDED@Z(N,10,@)=MRKDED@Z*FL@Z;
      &Z=Z+1;
    $(_LE(Z-13))
  &SUM1(N,10,@)=WPR13+WRK13;  //  砫 
  &SUM2(N,10,@)=WPRS13+WRKS13;//  室
  &SUM3(N,10,@)=WPRDIS13+WRKDIS13;// 㬬 ᪨
  &WFLT13(N,10,@)=WPRT13+WRKT13;
  &WFLF13(N,10,@)=WPRF13+WRKF13;
  $}(4. ᮢ㯭 室)
  ${(5. ଠ ࠢ. )
   窠 (饭 ଠ)  @YEAR 
   : @I0                  @I1           @I2              (.. @TN             )
  㯭  室  砫 
 ---------------------------------------------------------------------------------------------------
           |    㬬 室     |   C㬬 ⮢     |㬬     |㬬     |                     |
           |---------------------|---------------------|᪨    |ᮢ㯭. |㬬          |
      | 筮|   | 筮|   |(室)|. |---------------------|
           |          |          |          |          |          |室    |᫥. |ঠ|
 ---------------------------------------------------------------------------------------------------
     |@MPR01    |@WPR01    |@MPRDED01 |@WPRDED01 |@WPRDIS01 |@WPRS01   |@WPRT01   |@WPRF01   |
 ࠫ   |@MPR02    |@WPR02    |@MPRDED02 |@WPRDED02 |@WPRDIS02 |@WPRS02   |@WPRT02   |@WPRF02   |
       |@MPR03    |@WPR03    |@MPRDED03 |@WPRDED03 |@WPRDIS03 |@WPRS03   |@WPRT03   |@WPRF03   |
 ५    |@MPR04    |@WPR04    |@MPRDED04 |@WPRDED04 |@WPRDIS04 |@WPRS04   |@WPRT04   |@WPRF04   |
        |@MPR05    |@WPR05    |@MPRDED05 |@WPRDED05 |@WPRDIS05 |@WPRS05   |@WPRT05   |@WPRF05   |
       |@MPR06    |@WPR06    |@MPRDED06 |@WPRDED06 |@WPRDIS06 |@WPRS06   |@WPRT06   |@WPRF06   |
       |@MPR07    |@WPR07    |@MPRDED07 |@WPRDED07 |@WPRDIS07 |@WPRS07   |@WPRT07   |@WPRF07   |
     |@MPR08    |@WPR08    |@MPRDED08 |@WPRDED08 |@WPRDIS08 |@WPRS08   |@WPRT08   |@WPRF08   |
   |@MPR09    |@WPR09    |@MPRDED09 |@WPRDED09 |@WPRDIS09 |@WPRS09   |@WPRT09   |@WPRF09   |
    |@MPR10    |@WPR10    |@MPRDED10 |@WPRDED10 |@WPRDIS10 |@WPRS10   |@WPRT10   |@WPRF10   |
     |@MPR11    |@WPR11    |@MPRDED11 |@WPRDED11 |@WPRDIS11 |@WPRS11   |@WPRT11   |@WPRF11   |
    |@MPR12    |@WPR12    |@MPRDED12 |@WPRDED12 |@WPRDIS12 |@WPRS12   |@WPRT12   |@WPRF12   |
 ----------|----------|-----------------------------------------------------------------------------
 ⮣     |@WPR13    |@WPR13    |@WPRDED13 |@WPRDED13 |@WPRDIS13 |@WPRS13   |@WPRT13   |@WPRF13   |
 ---------------------------------------------------------------------------------------------------

  樥  
 ---------------------------------------------------------------------------------------------------
           |    㬬 室     |   C㬬 ⮢     |㬬     |. |                     |
           |---------------------|---------------------|᪨    |㬬     |㬬          |
      | 筮|   | 筮|   |(室)| 砫  |---------------------|
           |          |          |          |          |          |      |᫥. |ঠ|
 ---------------------------------------------------------------------------------------------------
     |@MRK01    |@WRK01    |@MRKDED01 |@WRKDED01 |@WRKDIS01 |@WRKS01   |@WRKT01   |@WRKF01   |
 ࠫ   |@MRK02    |@WRK02    |@MRKDED02 |@WRKDED02 |@WRKDIS02 |@WRKS02   |@WRKT02   |@WRKF02   |
       |@MRK03    |@WRK03    |@MRKDED03 |@WRKDED03 |@WRKDIS03 |@WRKS03   |@WRKT03   |@WRKF03   |
 ५    |@MRK04    |@WRK04    |@MRKDED04 |@WRKDED04 |@WRKDIS04 |@WRKS04   |@WRKT04   |@WRKF04   |
        |@MRK05    |@WRK05    |@MRKDED05 |@WRKDED05 |@WRKDIS05 |@WRKS05   |@WRKT05   |@WRKF05   |
       |@MRK06    |@WRK06    |@MRKDED06 |@WRKDED06 |@WRKDIS06 |@WRKS06   |@WRKT06   |@WRKF06   |
       |@MRK07    |@WRK07    |@MRKDED07 |@WRKDED07 |@WRKDIS07 |@WRKS07   |@WRKT07   |@WRKF07   |
     |@MRK08    |@WRK08    |@MRKDED08 |@WRKDED08 |@WRKDIS08 |@WRKS08   |@WRKT08   |@WRKF08   |
   |@MRK09    |@WRK09    |@MRKDED09 |@WRKDED09 |@WRKDIS09 |@WRKS09   |@WRKT09   |@WRKF09   |
    |@MRK10    |@WRK10    |@MRKDED10 |@WRKDED10 |@WRKDIS10 |@WRKS10   |@WRKT10   |@WRKF10   |
     |@MRK11    |@WRK11    |@MRKDED11 |@WRKDED11 |@WRKDIS11 |@WRKS11   |@WRKT11   |@WRKF11   |
    |@MRK12    |@WRK12    |@MRKDED12 |@WRKDED12 |@WRKDIS12 |@WRKS12   |@WRKT12   |@WRKF12   |
 ----------|----------|----------------------------------------------------------------------------|
 ⮣     |@WRK13    |@WRK13    |@WRKDED13 |@WRKDED13 |@WRKDIS13 |@WRKS13   |@WRKT13   |@WRKF13   |
 --------------------------------------------------------------------------------------------------|
 ⮣     |          |          |          |          |          |          |          |          |
 饥     |@SUM1     |@SUM1     |@YS13     |@YS13     |@SUM3     |@SUM2     |@WFLT13   |@WFLF13   |
 ---------------------------------------------------------------------------------------------------
 $LF
$}(5. ଠ ࠢ. )
  $_
  &=+1;
$(_GT(-))
