13-INCOME-TAX 13%
      ----------------------------------------------------------------------------------------------------
      Evaluation rule for tax:
      ----------------------------------------------------------------------------------------------------
                                 13,00
      ----------------------------------------------------------------------------------------------------
      /120 Total sum for income-tax
      Regel GrPReg Vargt    Operation
      -------------------------------
      RU8B      *            ELIMI *
      RU8B      *            ZERO=&RUTC
      RU8B      *            ADDWT&RUTC
      RU8B      *            AMT+C *
      RU8B      *            ZERO=&RUTA
      RU8B      *            NEXTR A
      RU8B      *            ADDWT&RUTA
      RU8B      *            AMT+C /147
      RU8B      *            ZERO=&RUTB
      RU8B      *            ADDWT&RUTB
      RU8B      *            PRINT&RUTB
      -----------------------------------------------------------------------------------
      |WType   |Rate                  |Number                |Amount                |   |
      -----------------------------------------------------------------------------------
      |RUTB    |                 0,00 |                 0,00 |             5.232,31 |   |
      -----------------------------------------------------------------------------------
      RU8B      *            NEXTR B
      RU8B      *            ZERO=&INDL
      RU8B      *            ZERO= NRA

      Process tax privileges
      /104 Material help
      Regel GrPReg Vargt    Operation
      -------------------------------
      RU-3      *            TABLEY0299
      RU-3      *            ELIMI *
      RU-3      *            AMT=VA*
      RU-3      *            AMT+C *
      RU-3      *            AMT?0
      RU-3      *   =
      /108 Sum from prise
      Regel GrPReg Vargt    Operation
      -------------------------------
      RU-3      *            TABLEY0299
      RU-3      *            ELIMI *
      RU-3      *            AMT=VA*
      RU-3      *            AMT+C *
      RU-3      *            AMT?0
      RU-3      *   =
      /109 Sum from present
      Regel GrPReg Vargt    Operation
      -------------------------------
      RU-3      *            TABLEY0299
      RU-3      *            ELIMI *
      RU-3      *            AMT=VA*
      RU-3      *            AMT+C *
      RU-3      *            AMT?0
      RU-3      *   =
      /107 Decrease sum for tax
      Regel GrPReg Vargt    Operation
      -------------------------------
      RU-3      *            TABLEY0299
      RU-3      *            ELIMI *
      RU-3      *            AMT=VA*
      RU-3      *            AMT+C *
      RU-3      *            AMT?0
      RU-3      *   =
      /127 Material help veteran
      Regel GrPReg Vargt    Operation
      -------------------------------
      RU-3      *            TABLEY0299
      RU-3      *            ELIMI *
      RU-3      *            AMT=VA*
      RU-3      *            AMT+C *
      RU-3      *            AMT?0
      RU-3      *   =
      /353 TaxPrivil218_1_3
      Regel GrPReg Vargt    Operation
      -------------------------------
      RU-1      *            AMT=& INDL
      RU-1      *            AMT?0
      RU-1      *   =        GCY RU-2
      RU-2      *            RUSPL P?A
      RU-2      *   X        TABLEY0299
      RU-2      *   X        ELIMI *
      RU-2      *   X        AMT+BVALSM
      RU-2      *   X        AMT*-1
      RU-2      *   X        VALEN 1
      RU-2      *   X        NEXTR A
      RU-2      *   X        VARGBMETOD
      RU-2      *   X Y      PCY RU-28
      RU-2      8            ZERO=&RU-2
      RU-2      8            NEXTR A
      RU-2      8            ADDWT&RU-2
      RU-2      8            TABLEY0299
      RU-2      8            AMT=BVALOS
      RU-2      8            AMT?0
      RU-2      8   >        AMT?& RUTA
      RU-2      8   > *      AMT=& RU-2
      RU-2      *   X Y      NEXTR A
      RU-2      *   X Y      PCY RU-27
      RU-2      7            AMT?0
      RU-2      7   *        ELIMI *
      RU-2      7   *        ZERO= R
      RU-2      7   *        ADDWTI*
      RU-2      7   *        ADDCU
      RU-2      7   *        NEXTR A
      RU-2      7   *        ZERO=&RU-2
      RU-2      7   *        NEXTR B
      RU-2      7   *        ADDWT&RU-2
      RU-2      7   *        AMT=1
      RU-2      7   *        ADDWT&INDL
      RU-2      7   *        NEXTR C
      RU-2      7   *        AMT=& RU-2
      RU-2      7   *        NEXTR D
      RU-2      7   *
      RU-2      *   X Y      NEXTR B
      RU-2      *   X Y      PCY RU-26
      RU-2      6            AMT=C *
      RU-2      6            AMT+VA*
      RU-2      6            VALBS=0
      RU-2      6            AMT-C *
      RU-2      6            AMT-VA*
      RU-2      6            NEXTR A
      RU-2      6            WGTYP=*
      RU-2      *   X Y      NEXTR C
      RU-2      *   X Y      PCY RU-29
      RU-2      9            AMT?0
      RU-2      9   *        AMT*-1
      RU-2      9   *        AMT<& RUTC
      RU-2      9   *        AMT?& RUTB
      RU-2      9   * <      AMT*-1
      RU-2      9   * <      ADDWT&RUTB
      RU-2      9   * <      PRINT&RUTB
      -----------------------------------------------------------------------------------
      |WType   |Rate                  |Number                |Amount                |   |
      -----------------------------------------------------------------------------------
      |RUTB    |                 0,00 |                31,00 |             4.832,31 |   |
      -----------------------------------------------------------------------------------
      RU-2      9   * <      AMT?0
      RU-2      9   * < *    VALBS=0
      RU-2      9   * < *    ADDWTI*
      RU-2      9   * < *    ADDCU
      RU-2      *   X Y      NEXTR D
      RU-2      *   X Y

      Evaluate tax amount
      /320 IncomeTax13 Calculated
      Regel GrPReg Vargt    Operation
      -------------------------------
      RU8E      *            ELIMI *
      RU8E      *            WGTYP=*
      RU8E      *            AMT=& RUTB
      RU8E      *            AMT?0
      RU8E      *   *        R51P1=T1N
      RU8E      *   *        WGTYP=#4##
      RU8E      *   *        AMT-C *
      RU8E      *   *        ADDWTI*
      RU8E      *   *        WGTYP=*
      RU8E      *   *        NEXTR A
      RU8E      *   *        AMT=& RUTB
      RU8E      *   *        AMT= YSCAL
      RU8E      *   *        R51P1=T1N
      RU8E      *   *        AMT+C *
      RU8E      *   *        AMT+H *
      RU8E      *   *        NEXTR B
      RU8E      *   *        AMT*-1
      RU8E      *   *        WGTYP=*
      RU8E      *   *        ADDWTI*