# TITLE:  Financial Calculations
# AUTHOR: Kim, Hyungjin 
# EMAIL:  kimhjin@shinbiro.com, kimhjin1@hanmail.net 
# WEB:    http://www.spiderpixel.co.uk/caspro/subhtml/finance.html       
# DATE:   1997
# MAKE:   CASIO
# MODEL:  fx7700G


@@ Program A
"PV"?->P

@@ Program B
"FV"?->F

@@ Program C
Lbl 1
"INT"?->I
I<=(-)100=>Goto 1
I/100+1->J

@@ Program D
Lbl 1
"N"?->N
N<=0=>Goto 1

@@ Program E
"PMT"?->M

@@ Program F
Prog A:Prog C:Prog D
"FV =":PJ^N

@@ Program I
Lbl 1
Prog A
P=0=>Goto 1
Prog B:Prog D
FP<0=>N/2=Intg (N/2)=>Goto 2
"INT =":100(N#nrt(F/P)-1)
Goto 3
Lbl 2
"NOT"
Lbl 3

@@ Program J
Prog #r
P=0=>FM>=0=>Goto 7
F>=0=>F<=-M=>Goto 7
A=F=>Goto 4
Lbl 1
J-S/10^Z->J
Isz Z
Z>6=>Goto 5
Lbl 2
 J<=.1=>J=10^(-)Z=>Isz Z
J+S/10^Z->J
P->Q:0->Y
Lbl 3
Isz Y
QJ-M->Q
Y<N=>Goto 3
SQ>SF=>Goto 1
Goto 2
Lbl 4
"I =":B
Goto 6
Lbl 7
"NOT"
Goto 6
Lbl 5
"I =":100(J-1)
Lbl 6

@@ Program K
Lbl 1
"N"?->A
A<0=>Goto 1
Intg A<>A=>Goto 1
1->B
Lbl 0
"INV"?->C
C<0=>Goto 0
0->D~E:1->F
Lbl 2
Isz D
D_
?->G[D]
D<A=>Goto 2
Prog O
G<=0=>Goto 8
2->B
G<C=>(-)1->F
G<C=>0->B
G=C=>Goto 5
Lbl 3
B-F/10^E->B
Isz E
E>6=>Goto 6
Lbl 4
B<=.1=>B=10^(-)E=>Isz E
B+F/10^E->B
Prog O
FG<FC=>Goto 3
Goto 4
Lbl 5
"IRR =":D-D
Goto 7
Lbl 8
"NOT"
Goto 7
Lbl 6
"IRR =":100(B-1)
Lbl 7

@@ Program L
Prog #th
PJ^N->A
A>F=>1->S
A<F=>(-)1->S
A<F=>(-)10^Z->M
A=F=>Goto 4
Lbl 1
M-10^ZS->M
Dsz Z
Z<(-)3=>Goto 5
Lbl 2
M+10^ZS->M
P->Q:0->Y
Lbl 3
Isz Y
QJ-M->Q
Y<N=>Goto 3
SQ<SF=>Goto 1
Goto 2
Lbl 4
"PMT =":B
Goto 6
Lbl 5
"PMT =":M
Lbl 6

@@ Program M
0->Y
Prog A:Prog C:Prog Y:Prog E
Lbl 1
PJ-M->P
Isz Y
Y<>N=>Goto 1
"FV =":P

@@ Program N
Lbl 1
Prog A:Prog B
F/P<=0=>Goto 1
Prog C
"N =":log (F/P)/log J

@@ Program O
0->D
0->G
Lbl 1
Isz D
G+G[D]/B^D->G
D<A=>Goto 1
Lbl 2

@@ Program P
Prog B:Prog C:Prog D
"PV =":F/J^N

@@ Program Q
Prog B:Prog C:Prog Y:Prog E
0->Y
Lbl 1
(F+M)/J->F
Isz Y
Y<>N=>Goto 1
"PV =":F

@@ Program R
Prog #r
P=0=>FM>0=>Goto 7
F=0=>M<0=>Goto 7
A=F=>Goto 4
Lbl 1
J-S/10^Z->J
Isz Z
Z>6=>Goto 5
Lbl 2
J<=.1=>J=10^-Z=>Isz Z
J+S/10^Z->J
P->Q:0->Y
Lbl 3
Isz Y
(Q-M)J->Q
Y<N=>Goto 3
SQ>SF=>Goto 1
Goto 2
Lbl 4
"I =":B
Goto 6
Lbl 7
"NOT"
Goto 6
Lbl 5
"I =":100(J-1)
Lbl 6

@@ Program T
Prog #th
PJ^(N+1)->A
A>F=>1->S
A<F=>(-)1->S
A<F=>(-)10^Z->M
A=F=>Goto 4
Lbl 1
M-10^ZS->M
Dsz Z
Z<(-)3=>Goto 5
Lbl 2
M+10^ZS->M
P->Q:0->Y
Lbl 3
Isz Y
(Q-M)J->Q
Y<N=>Goto 3
SQ<SF=>Goto 1
Goto 2
Lbl 4
"PMT =":B
Goto 6
Lbl 5
"PMT":M
Lbl 6

@@ Program U
Prog C:Prog Y
0->Y:0->A~B
Lbl 1
Y_
?->C
A+CJ^(N-Y)->A
B+CJ^Y->B
Isz Y
Y-1<>N=>Goto 1
"FV =":A_
"PV =":B

@@ Program V
Prog X
P>F=>.01IP>=M=>Goto 4
P<F=>.01IP<=M=>Goto 4
Lbl 1
Isz N
0->Y:P->Q
Lbl 2
Isz Y
QJ-M->Q
Y<N=>Goto 2
SQ<SF=>Goto 1
0->Y
Lbl 3
Isz Y
PJ-M->P
Y<N-1=>Goto 3
"N =":N_
"ERROR =":Q-F_
"N-1 ERROR =":P-F
Goto 5
Lbl 4
"NEVER"
Lbl 5

@@ Program W
Prog X
P>F=>.01IP>=M=>Goto 4
P<F=>.01IP<=M=>Goto 4
Lbl 1
Isz N
0->Y:P->Q
Lbl 2
Isz Y
(Q-M)J->Q
Y<N=>Goto 2
SQ<SF=>Goto 1
0->Y
Lbl 3
Isz Y
(P-M)J->P
Y<N-1=>Goto 3
"N =":N_
"ERROR =":Q-F_
"N-1 ERROR =":P-F
Goto 5
Lbl 4
"NEVER"
Lbl 5

@@ Program X
Prog A:Prog B:Prog C:Prog E
F<=P=>1->S
P>F=>(-)1->S
0->N

@@ Program Y
Lbl 1
"N"?->N
N<0=>Goto 1
Intg N<>N=>Goto 1

@@ Program Z
Intg log(Abs F+Abs P+1)+Intg Abs log J+1->Z

@@ Program r
0->B:2->J:0->Z
Lbl 1
Prog A
P<0=>Goto 1
Prog B:Prog Y:Prog E
P-MN->A
A<F=>1->S
A>F=>(-)1->S
A>F=>0->J

@@ Program th
0->B
Prog A:Prog B:Prog C:Prog Y:Prog Z
10^Z->M