Sharp PC-1500 Applications Manual page 94

All and more about Sharp PC-1500 at http:/lwww.PC-1500.info
PROGRAM
CALCULATION FOR LOAN LIMITS
PROGRAM NO.
3
TITLE
AND NUMBER OF INSTALLMENTS
PS-D- 1
I
Program List
I I
Memory Contents
I
10: "A"CLEAR
:LF
2
AS
No. of installments
20: INPUT "NO . OF
I
J NS T. ? " I A
B
Installment
25:LPRJ NT "N O. OF
c
Interest
{%)
JNS
r.
=''
'
USING
"111111.11~"
D Loan limits
;A
E
30:GOSUB 400
F
35:J =<l•C, J00) nA
40:0= JNT
<<J- l >*B
G
/(J%(/ J00))
H
50:LPRJNT "L JMJ TS
="
I
55:LPRJNT USING
..
J
calculation Work
tttUttfillttttttlllfti,
!i
tttt";O
K
Calculation Work
60:LF 3:END
L
200: "B"CLEAR
: 1.F
2
2 J0 :JNPUT "Lli1JTS?
M
II;
0
N
2 JS:LPRINT
"L IM! TS
0
=" :LPR JN T
USING
"11111111111111
p
tttt, 111111 "; D
a
220 : GOSUB 400
230:K=B,<B- D*C'100
R
)
s
240:A=L OG K/LOG ( I
•C,100>
T
250:LPR1NT
"NO. OF
u
lNST. =" ,USING
11
tttttt.
!fli
11
;A
v
260:LF 3:ENO
w
400:JNPUT "INSTALL
MENf?";B
x
405:LPRIN'f
'' INSTAL
y
LMENT=" :LPRJNT
z
USJNG
" tt
II II 11111111
llll tttttt, 111111 "; 8
410: INPUT "INTERES
TC%>? ,, j
c
4J5:LPRJNT
" INTER£
ST<%> = ",
US ING
"11111111 . 11 1111";
c
430:RETURN
440: ENO
.
STATUS J
4.78
Do not sale this PDF !!!
- 88 -