4 of 6 AMORTIZE.BAS

 BBS: Inland Empire Archive
Date: 03-28-93 (15:10)             Number: 192
From: CHARLES GRAHAM               Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: 4 of 6 AMORTIZE.BAS            Conf: (2) Quik_Bas

'Begin AMORTIZE.BAS Message 04
'
        LPRINT "/";
        IF yr > 9 THEN
            LPRINT USING "##"; yr;
        ELSE
            LPRINT "0" + RIGHT$(STR$(yr), 1);
        END IF
        LPRINT TAB(12); " ";
        LPRINT USING "#######.##"; intr#;
        LPRINT TAB(26); " ";
        LPRINT USING "#######.##"; prin#;
        LPRINT TAB(40); " ";
        LPRINT USING "#######.##"; totint#;
        LPRINT TAB(54); " ";
        LPRINT USING "#######.##"; totprin#;
        LPRINT TAB(68); " ";
        LPRINT USING "#######.##"; prinbal#
    END IF
    mo = mo + 1
NEXT ct
IF o$ = "s" THEN
    GOSUB pause
ELSE
    LPRINT CHR$(12);
    LPRINT CHR$(12);
END IF
COLOR 7, 0
CLS
END
' ** Replace this with a blank line **
printheaders:
IF o$ = "s" THEN
    PRINT client$
    PRINT "Amount of loan         = ";
    PRINT USING "#######.##"; amt#
    PRINT "Monthly payment        = ";
    PRINT USING "#######.##"; pmt#
    PRINT "Annual Percentage Rate = ";
    PRINT USING "#####.####"; rate
    PRINT "Term of loan [months]  =        ";
    PRINT USING "###"; n
    PRINT
    PRINT "PMT   DATE    INT PAID     PRIN PAID  TOT INT " + _
"PAID   TOT PRIN PD  PRINCIPL BAL"
    LOCATE 22, 19
    PRINT "Press ESCape to end, other key to continue";
    LOCATE 9, 1
ELSE
    pg = pg + 1
    LPRINT CHR$(12);
    LPRINT client$;
    LPRINT TAB(71); "Page"; pg
'
'End AMORTIZE.BAS Message 04


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