LBL "TRURATE"
FS? 55
SF 21
"TRURATE"
SF 12
ADV
AVIEW
ADV
CF 12

LBL 00
  FIX 0
  "ADVANCES"
  XEQ "IN"
  ABS
  INT
  X<=0?
  GTO 00
STO 04

LBL 01
  "LEVELS"
  XEQ "IN"
  ABS
  INT
  STO 05
  "EXTRAS"
  XEQ "IN"
  ABS
  INT
  STO 06
  RCL 05
  +
  X<=0?
  GTO 01
CLX
STO 02
STO 03
15
STO 01
1
RCL 04
X=Y?
GTO 02
SF 05
XEQ 29
GTO 03

LBL 02
FIX 2
"LOAN"
XEQ "IN"
STO 02
XEQ 35
CLX
XEQ 35

LBL 03
RCL 05
X>0?
XEQ 31
CF 05
RCL 06
X>0?
XEQ 29
XEQ 33
RCL 02
RCL 03
X=Y?
GTO 37
FS? 55
CF 21
1.0001
STO 08
SCI 1
"OKAY"
AVIEW

LBL 20
  CLX
  STO 09
  STO 10
  15
  STO 01
  SF 05
  RCL 04
  XEQ 21
  CLD
  RCL 05
  X>0?
  XEQ 25
  CF 05
  RCL 06
  X>0?
  XEQ 21
  RCL 09
  "d="
  ARCL X
  AVIEW
  RCL 10
  /
  ST- 08
  ABS
  1 E-9
  X<Y?
  GTO 20
GTO 38

LBL 21
XEQ 34

LBL 22
  XEQ 36
  FS? 05
  CHS
  STO 11
  XEQ 36
  STO 12
  XEQ 23
  ST+ 09
  XEQ 24
  ST+ 10
  ISG 00
  GTO 22
RTN

LBL 23
RCL 11
RCL 08
RCL 12
Y^X
*
RTN

LBL 24
RCL 08
RCL 12
1
-
Y^X
RCL 11
*
RCL 12
*
RTN

LBL 25
XEQ 34
CLX
STO 13

LBL 26
  XEQ 36
  STO 11
  XEQ 36
  STO 12
  XEQ 27
  ST+ 0
  XEQ 28
  ST+ 10
  RCL 12
  STO 13
  ISG 00
  GTO 26
RTN

LBL 27
RCL 08
RCL 12
1
+
Y^X
RCL 08
RCL 13
1
+
Y^X
-
RCL 08
1
-
/
RCL 11
*
RTN

LBL 28
RCL 08
RCL 12
1
+
Y^X
RCL 12
*
RCL 08
RCL 13
1
+
Y^X
RCL 13
*
-
RCL 08
RCL 12
Y^X
RCL 12
1
+
*
-
RCL 08
RCL 13
Y^X
RCL 13
1
+
*
+
RCL 08
1
-
X^2
/
RCL 11
*
RTN

LBL 29
XEQ 34
LBL 30
  "EXTRA "
  FS? 05
  "ADVANCE "
  FIX 0
  ARCL 00
  FIX 2
  XEQ "IN"
  FS? 05
  ST+ 02
  FC? 05
  ST+ 03
  XEQ 35
  "TIME "
  FIX 0
  ARCL 00
  XEQ "IN"
  XEQ 35
  ISG 00
  GTO 30
RTN

LBL 31
XEQ 34
CLX
STO 12
LBL 32
  "LEVEL "
  FIX 0
  ARCL 00
  FIX 2
  XEQ "IN"
  STO 11
  XEQ 35
  FIX 0
  "LENGTH "
  ARCL 00
  XEQ "IN"
  ABS
  INT
  ST+ 12
  RCL 11
  *
  ST+ 03
  RCL 12
  XEQ 35
  ISG 00
  GTO 32
RTN

LBL 33
  "FREQUENCY"
  XEQ "IN"
  ABS
  X=0?
  GTO 33
STO 07
RTN

LBL 34
1 E3
/
1
+
STO 00
RTN

LBL 35
STO IND 01
1
ST+ 01
RDN
RTN

LBL 36
RCL IND 01
1
ST+ 01
RDN
RTN

LBL "PER"
"PERIOD RATE"
XEQ "IN"
1 E2
/
1
+
STO 08
XEQ 33
RCL 08
GTO 39

LBL 37
"ZERO RATE"
GTO 40

LBL 38
FS? 55
SF 21
FIX 2
"TAP="
ARCL 03
TONE 6
ADV
AVIEW
PSE
PSE
"TCC="
RCL 03
RCL 02
-
ARCL X
TONE 7
ADV
AVIEW
PSE
RCL 08
1/X

LBL 39
RCL 07
Y^X
1
-
1 E2
*
RCL X
10
*
INT
10
/
"APR="
FIX 1
ARCL X
RND

LBL 40
ADV
AVIEW
ADV
FIX 7
FS? 55
PRX
FIX 4
TONE 8
TONE 9
STOP

CLX
FC? 55
GTO 00

ADV
"------"
1.004

LBL 99
ACA
ISG X
GTO 99
PRBUF
ADV
GTO 00

LBL "IN"
"\-?"
CLX
CF 22
PROMPT
FS? 22
RTN
"ZERO"
ASTO L
FS? 55
GTO 00
AVIEW
RTN

LBL 00
"             "
ARCL L
PRA
END