Advertisement
- - - - - - - - - - - - - - - - - - - - - - U T I L I T Y : 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****
I f
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
Advertisement
