	The Annual Interest Program computes the annual interest i when

	R = monthly payment (rate)
	P = pricipal amount
	n = number of payments


	Example: You buy a car and need $ 10.000 from the bank. 
	The bank gives you the money and you have to pay back $ 300
	for 36 month.

	How much is the yearly interest rate (i) of your payment?

	
	ENTER program from library (../Programs/annual interest.hpf)
	press END 
	press CONTINUE
	
	you will see a '1' in X register, which means give me the data.

	Now enter:

	P -> Z (PUSH UP)
	R -> Y (PUSH UP)
	n -> X

	Continue

	Result will be in X (5.065 % annual interest) 


        HP 9100A Program Listing - created: 04/25/2009 18:45:06.24
        ___________________________________________________________________

        File: '/home/andreas/Dokumente/gambas/HP9100A/Programs/annual interest.hpf'

        Line   Code  Instruction
        ____________________________
        0.0    20      CLEAR
        0.1    01      1
        0.2    41      STOP
        0.3    60      ACC +
        0.4    22      ROLL up
        0.5    23      x->()
        0.6    17      d
        0.7    43      IF FLAG
        0.8    01      1
        0.9    03      3
        0.a    22      ROLL up
        0.b    30      xswapy
        0.c    35      /
        0.d    25      PUSH down
        1.0    44      GO TO()()
        1.1    02      2
        1.2    01      1
        1.3    37      CLEAR x
        1.4    27      PUSH up
        1.5    27      PUSH up
        1.6    02      2
        1.7    41      STOP
        1.8    27      PUSH up
        1.9    01      1
        1.a    02      2
        1.b    00      0
        1.c    00      0
        1.d    35      /
        2.0    25      PUSH down
        2.1    23      x->()
        2.2    14      b
        2.3    27      PUSH up
        2.4    01      1
        2.5    33      +
        2.6    25      PUSH down
        2.7    27      PUSH up
        2.8    65      ln x
        2.9    22      ROLL up
        2.a    15      f
        2.b    36      x
        2.c    25      PUSH down
        2.d    74      e^x
        3.0    23      x->()
        3.1    16      c
        3.2    01      1
        3.3    30      xswapy
        3.4    35      /
        3.5    17      d
        3.6    22      ROLL up
        3.7    14      b
        3.8    36      x
        3.9    12      e
        3.a    30      xswapy
        3.b    34      -
        3.c    25      PUSH down
        3.d    36      x
        4.0    31      ROLL down
        4.1    30      xswapy
        4.2    15      f
        4.3    36      x
        4.4    17      d
        4.5    34      -
        4.6    16      c
        4.7    36      x
        4.8    30      xswapy
        4.9    31      ROLL down
        4.a    36      x
        4.b    12      e
        4.c    34      -
        4.d    31      ROLL down
        5.0    30      xswapy
        5.1    35      /
        5.2    14      b
        5.3    30      xswapy
        5.4    34      -
        5.5    30      xswapy
        5.6    23      x->()
        5.7    14      b
        5.8    27      PUSH up
        5.9    01      1
        5.a    02      2
        5.b    00      0
        5.c    00      0
        5.d    36      x
        6.0    37      CLEAR x
        6.1    31      ROLL down
        6.2    57      PAUSE
        6.3    55      |y|
        6.4    22      ROLL up
        6.5    26      ENTER EXP
        6.6    00      0
        6.7    11      9
        6.8    32      CHG SIGN
        6.9    22      ROLL up
        6.a    53      IF x>y
        6.b    02      2
        6.c    02      2
        6.d    37      CLEAR x
        7.0    30      xswapy
        7.1    37      CLEAR x
        7.2    22      ROLL up
        7.3    46      END

