Sharp PC-1500 - Page 94

All and more about Sharp PC-1500 at http :/l www.PC-1500.info
PROGRAM
CALCULATION FOR LOAN LI MITS
PROGRAM NO.
3
TITLE
AND NUMBER OF I NSTALLMENTS
PS -D - 1
I Progr am List I I Memory Contents I
10: "A"CLEAR :LF
2
AS
No. of installmen ts
20: INPUT "NO . OF
I
J NS T. ? " I A
B
Installment
25:LPRJ NT "NO.
OF
c
Interest {%)
JNS r.
=' '
'
USING
"111111.11~"
D
Loan limits
;A
E
30:GOS UB 400
F
35:J = <l•C, J 00) 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
I I; 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 "INSTAL L
MENf?";B
x
40 5:LPRIN'f
'' INSTAL y
LM EN T =" :LPRJNT
z
U SJNG " tt II II 11111111
llll tttttt, 11 1111 "; 8
410:
INPUT "INT ERES
TC%>?
,, j c
4J5:LPRJNT
" I NTER£
ST<%> = ", US ING
"11111111 . 11 1111"; c
430:RETURN
440: ENO
.
STATUS J
4.78
Do not sale this PDF !!!
- 88 -