1750
NEXT
X
1820 NEXT
Z
1910
PRINT
AT
1B20
END
1900 FOR
X=l TO 1000
1910 NEXT X
1920 RETURN
House
Security
10
REM
*
LOGICAL
AND PROGRAM
*
15 CLS
2a Y=l
iN=0>P.
"
PLEASE ANSWER YES
OR
NO TO THE FOLLOWING QUESTIONS"
25 P .
30
INPUT
"
tS
THE FRONT DOOR
LOCKED"
;A
40 INPUT
"
IS
THE
BACK
DOOR LOCKED"
iB
50 INPUT
"
IS
THE
KITCHEN WINDOW
CLOSED"
;C
60
INPUT
"
IS THE BEDROOM
WINDOW
CLOSED AND LOCKED" ;D
70 INPUT
"
IS
THE GARAGE DOOR
LOCKED"
;E
75
P. :P.
80 IF (A
=
Y
>*<B=Y)*[C=Y>*<D=Y)*[E=Y)
THEN 120
90
P."
HOUSE
NOT LOCKED UP FOR THE
NIGHT."
95 P .
100 P." PLEASE
CHECK
POR AN UNLOCKED DOOR OR WINDOW."
110 END
120 P." HOUSE
SECURITY
CHECK SHOWS HOUSE
LOCKED UP
FOR THE
NIGHT."
130
END
214
Loan Amortization
This program provides a fully
developed
installment plan for the repay-
ment
of
small-to-moderate size loans, such as
car
or home
improvement
loans. The
program includes all instructions
necessary
to
using it. Use it
with common sense;
in the last payment period, amounts
may
be
carried
out to a fraction
of
a cent.
Challenge:
modify
the program
to
eliminate
fractional-cent
payments,
without changing the
total
amount
paid
as
interest
or
principal.
10 C=0:CLS;IN. " PR
I
NC
I
PAL
"
i
P
20 IN
.
"
*
OF PERIODS"
iL
30
IN .
"
INTEREST
RATE"
jR
40 I=R/i 2 i
1=1/100
50
T= 1 : F .X=1TDL
60 T=T*I
1+1 )
iN/.X :T=l/T
70
T=l-T
60
M=P*I/T
B5 H=INT(
H*
100+.S
>/
100
90 GDS.200
100
F.Z=1T0L
1 10 IFC< I 3G. 120
115
IN.
"PRESSENTER TO CONT I NUE "
:
A
J
I C =0 t GOS
.
200
120 A=< INT<
P*
1*100+
,5}
1/100
130
B=M-AjP=P-B
140 P.Zj
iP.
T. ( 10 )
,P
i
iP, T.
(
20
)
,M
j
150 P,T. [
30
)
,B;
:P.T . (40
)
.
A
160 C=C+1 (N.
Z
170
END
200
CLSiP.
"PAYMENT
REMAINING
MONTHLY PRINCIPAL
INTEREST"
210 P. "NUMBER
PRINCIPAL PAYMENT
PAYMENT
PAYMENT"
220
RET.
To Next Page
Loading...
