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)