1 of 6 AMORTIZE.BAS

 BBS: Inland Empire Archive
Date: 03-28-93 (15:08)             Number: 190
From: CHARLES GRAHAM               Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: 1 of 6 AMORTIZE.BAS            Conf: (2) Quik_Bas
'Begin AMORTIZE.BAS Message 01
'
'AMORTIZE.BAS -- CHARLES GRAHAM, POB 58634, ST.LOUIS, MO 63158
totint# = 0
pg = 0
totprin# = 0
yrct = 0
COLOR 10, 1
GOSUB logo
LOCATE 1, 1
LINE INPUT ; "Enter client name(s) [40 char max] ====> "; client$
validated$ = "off"
loball = 1
hiball# = 9999999.99#
decimals = 1
WHILE validated$ = "off"
    GOSUB logo
    LOCATE 1, 1
    LINE INPUT ; "Enter amount to be financed ====> "; amt$
    quan$ = amt$
    GOSUB validate
WEND
amt# = VAL(amt$)
prinbal# = amt#
validated$ = "off"
loball = 1
hiball# = 25
decimals = 1
WHILE validated$ = "off"
    GOSUB logo
    LOCATE 1, 1
    LINE INPUT ; "Enter APR [1-25] ====> "; rate$
    quan$ = rate$
    GOSUB validate
WEND
rate = VAL(rate$)
i = rate / 1200
validated$ = "off"
loball = 1
hiball# = 480
decimals = 0
WHILE validated$ = "off"
    GOSUB logo
    LOCATE 1, 1
    LINE INPUT ; "Enter term of loan [1-480 months] ====> "; n$
    quan$ = n$
    GOSUB validate
WEND
n = VAL(n$)
pmt# = amt# / ((1 - ((1 + i) ^ (-n))) / i)
pmt# = INT((pmt# * 100) + .5) / 100
validated$ = "off"
loball = 1
'
'End AMORTIZE.BAS Message 01


--- QM v1.30
 * Origin: QwikCom * St Charles MO * 16.8K HST/V32b (1:100/602.0)
Outer Court
Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET