----------------------UTILITY:J
••t1t1M·M•
Start
the
program,
and
it·
displays
the
menu
asking
the
mode
of
payment
desired.
Select
the
mode
and
input
the
amount
of
loan,
number
of
installments,
and
annual
interest
rate.
The
program
then
outputs
the
monthly
payment
of
principal
and
interest
components,
together
with
the
balance
of
loan.
L)[TI~:fj
.1.114
B~::
1
•••••1111111••••t••••••••••11•111lflt•••••••••111•••1111••••••111•••••••••111t•••••••••••t•111•••••••11t••11111111rt1t•t•l•tt1rt••t•l••••IIUilllllll•11111111111111<11111•1111141iltlll•l•~l•t1111111t!lllll•t1Ull•IIIM
I
10
·
Payment
Plan
for
long-term
Lorn
j
20
nm
r,=
1
ro
4 I
30
READ
Zt(ll
!
40
NEXT
I i
50
LF'R I
NT
CHf~$
( :C'?l ;
60
CLS
7(2)
80
F"RINT"l:Equc.d
90
PRINT"2:Equal
Interests"
In,:;t.
of
Inst.
of
100
PRINT"3:
AdcJ-On"
F't- i n
:.:..
j
pal
"
F'r·
inc
i
p~.l
Pl
us
110
PRINT"4:Inst.of
fJecr·easing
F'ri.ncipal
Plus";
:FOR
1=0
TO
800:NEXT
I:F'RINT:F'RINT"
Interests"
120
f'RINT"[Select
1"'4
keyJ";
130
X$=INKEY$:
IF
X$=""
THEN
13(2)
140
IF
ASC(X$)<ASC("l"l
THEN
130
ELSE
IF
ASC("4")
<ASC(X$)
THEN
130
150
X=VAL(X$)
160
GOSUB
lCZl0CZl
170
ON
X GOSUB 2000,3000,400CZl,5CZlCZl0
180
LF'RINT
0HR$(27);"2"
190
CLS:
PR
INT
"-iHHHH'***-IE-IE·-IE··lHHHHHt****
If
vou
wish
t
a
#
If
continue,
200
L.OCATE
0,
5
210
STOP:GOTO
5(1)
l
QJCZJCZJ
1010
CLS
1020·
F'RINT
Z$(Xl
10~-0
F'RINT:
INF'UT"Amount
1.040
F'RINT:
INPUT"Numbet-
*-IE
PUSH
<CONT>
key.
*******
of
Lat-n
-"
,A
of
Inst.
=c"
'T
67
To Next Page
Loading...
