May June 1980 - Commodore Computers

MAY/JUNE, I 1980, I960. ISSUE 4. COMPUTE. 19
Keeping Up The
Payments
Basically Useful
Keeping Up The
Payments Robert Lock OCk
BASIC DAvIv Programs furnished by
Marvin L. Dejong, DaJong, School of TheOzorks
TheOzarks
I decided to use this highly useful l SCI set of" programs
furnished by Dr. Marvin L. Dejong to illustrate some
poi nt s to you beginning Atari/Apple/PET Owners.
points to you beginning Atari/Apple/PET Owners.
Much off thee Basic software we provide in this
magazine is easilyy transferred for use oonn your own
machine, even though it may be presented by a PET
owner, an Atari owner, etc. 'rhese These programs,
developed on (I assume) the AIM-65, will run without
revision on your Apple, Alari, Atari, or PE'T'. PET. Your re:;u results il :;
will differ slighliy, slightly, a variation ation caused by your
particular Basic interpreter, bUl but the program code
ilself itself is transparent. In future issues, we hope (Q to
solicitt the help of you readers in maintaining Ihe the
flow of software for various machines, machines. Thus, when
we print an extensive ensive program for PET' that one of
you sits s down and modifies to run on your Apple, ,
please case send me a copy (al (at leasl least the mods), so
we can update in a lalcr later issue for Apple owners,
owners.
I'd like to devotc devote a section of the magazine c to (Q
"listingg reruns" if the e demand warrants. One option,
I suppose, would be to simply y cover techniques for
conversion, with occasional routines rOlltines that provide some
10 REM REfl PROGRAM PROGRAfl 1- CALCULATES THE BALANCE OF
A LOAN AFTER N PAYMENTS.
A LOAN AFTER N PAYMENTS.
20 PRINT "ENTER YOUR CURRENT BALANCE."
30 INPUT BAL0
40 PRINT "ENTER THE NUMBER OF PAYMENTS."
"
50 INPUT N
60 PRINT "ENTER YOUR MONTHLY flONTHLY PAYMENT."
."
70 INPUT PMT
70 INPUT PMT
80 PRINT "ENTER YOUR ANNUAL I NTEREST RATE
80 PRINT "ENTER YOUR ANNUAL INTEREST RATE
IN PERCENT."
90 INPUT APR
100 I=APR/1200
120 DUMY=BAL0
120 DUMY=BAL0
130 FOR J=1 TO N
130 FOR J=l TO N
140 BAL0=BAL0*(1+I)-PMT
150 NEXT J
150 NEXT J
160 NT=N*PHT- (DUMY- BAL0)
160 NT=N*PMT-(DUMY-BAL0)
170 PRINT "YOUR BALANCE AFTER ";N;" PAYMENTS
IS 5";BAL0 $ ";BAL13
180 PRINT "YOU PAID S";NT;" $1t IN INTEREST."
. "
190 END
190 END
ENTER YOUR CURRENT BALANCE.
.
?3000
ENTER THE NUMBER OF PAYMENTS.
PAYHENTS .
?23
ENTER YOUR MONTHLY HONTHLY PAYMENT.
?143.79
.79
ENTER YOUR ANNUAL INTEREST RATE IN PERCENT.
.
?10.8
YOUR BALANCE AFTER 23 PAYMENTS IS 530.3651184
$30.3651184
YOU PAID $337.535119 IN I N INTEREST.
equivalency across machines. Please take the time e 10 to
note your thoughls thoughts on this on the Editor's Feedback
card in the center of the magazine, magazine. My thanks La to
Marvin for the programs.
A hit bit f!f of "ediloria/liunse": "tUtorial license": When l.''' I kl.'}'td keyed ill in tlieu these /)rQ,t!,rams programs for
r{'/)rodlleli(m, reproduction, I lril.'d tried 10 to prt!Jl.'rve preserve Iheir their or(t!,ill(J1 originalflllllor. flavor. }'vu You
should 1I0ie note lIial that I look took tilt the libcrlJ' liberty (jf of IIlltl,t!,;II.t!,
nudging lilies /inn IhiJI that wert were too
lon.1.! long ova over inlo into (J a nOIl-lXisll.'l1/ non-existent (onlilllwfivn continuation lille, line. If ) you 'Oll 're just slartill.1! starting ouf, out,
dOli don'f t I,)' try 10 to enter I/'r the prugram program thaI that wa)'- way... ) you '0 11 'It 'II hUllt hare bla"ks blanks ill i?i ),our your oUlpul
output
(or worse).
EXil Example: lllph.: : Program 2, Line 60.
A'~) My'
Iiiit' line s},mw:
shows:
60 PRINT ""ENTER YOURR INTEREST RATE ELATE IN
PERCENT." ENT ,"
\"Jhell When )'ou'rc you're keying in the pro.l.!ram program, , you should type it like
this:
6U 60 PRINT "ENTER ■ENIER YOURR INTEREST RATE IN
PPERCENT."(press ERCENT, carriage return)
Cleor Clear 1.' enough? 1U1I.l.!h?
10 REM PROGRAM 2- CALCULATES THE flONTHLY
MONTHLY
PAYMENT TO AMORTIZE A LOAN
PAYMENT TO AMORTIZE A LOAN
20 PRINT "ENTER THE NUflBER NUMBER OF PAYMENTS."
30 INPUT N
40 PRINT "ENTER THE BALANCE OF THE LOAN."
505 0 INPUT BAL0
60 PRINT "ENTER YOUR ANNUAL INTEREST RATE IN
PERCENT." "
70 INPUT APR
70 INPUT APR
80 I=APR/1200
90 PMT=BAL0*I*(1/(1-(1+I)t(- PMT=BAL0*I*(1/(1-(1+I)T(-N)))
100 PRINT "YOUR PAYMENTS ARE $";PMT
100 PRINT "YOUR PAYHENTS ARE $";PMT
110 NT=N*PMT- BAL0
110 NT=N*PMT-BAL0
120 PRINT "YOU PAY $";NT;" IN INTEREST."
130 END
ENTER THE NUMBER OF PAYMENTS.
?23
ENTER THE BALANCE OF THE LOAN.
73000 ?3000
ENTER YOUR ANNUAL INTEREST RATE IN PERCENT.
?10.8
?10.8
YOUR PAYMENTS ARE $144.984191
YOU PAY $334.636391 IN INTEREST.
YOU PAY $334.636391 IN INTEREST.
10 REM REfl PROGRAM 3- CALCULATES THE NUMBER NUflBER OF
PAYMENTS TO AMORTIZE A LOAN
20 PRINT "ENTER THE CURRENT BALANCE."
."
30 INPUT BAL0
4400 PRINT "ENTER YOUR MONTHLY flONTHLY PAYMENT."
50 INPUT PHT
5 0 INPUT PMT
60 PRINT "ENTER YOUR ANNUAL INTEREST RATE
IN PERCENT."
IN PERCENT . "
70 INPUT APR
70 INPUT APR
80 I=APR/1200
90 N=~(LOG(1-BAL0/PMT*I))/LOG(I+l)
N=-(LOG(1-BAL0/PMT*I)) / LOG(I+1 )
100 1130 PRINT "YOU HAVE ";N;" PAYMENTS PAn1ENTS TO MAKE."
110 0 NT=N*PMT-BAL0
NT=N*PfIT- 120 PRINT "YOU WILL \HLL PAY $";NT;" $tt;NT;" IN INTEREST."
130 END
130 END
?ENTER THE CURRENT BALANCE.
?3000
ENTER YOUR flONTHLY PAYfIENT.
?l43.79
ENTER YOUR ANNUAL INTEREST RATE IN PERCENT .
7ENTER THE CURRENT BALANCE.
?3000
ENTER YOUR MONTHLY PAYMENT.
7143.79
ENTER YOUR ANNUAL INTEREST RATE IN PERCENT.
710.8 ?10 . 8
YOU HAVE 23.2123282 PAYMENTS PAYHENTS TO MAKE. HAKE.
YOU WILL PAY $337.700665 IN INTEREST. ©
YOU l'lILL PAY $337 .700665 IN INTEREST. ©