# 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:  9850G


@@ 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_
?->List 1[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+List 1[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