Listing of file='HOUSE.BAS;01' on disk='vmedia/chip_39-sector.ccvf'
1 REM HOUSE AND LOAN COST JAN 1981 2 REM 3 REM AMORTIZATION AND TOTAL INTEREST COST ON HOUSE AND LOAN 4 REM 5 REM 16K COMPUCOLOR 6 REM 10 REM ORIGINAL PROGRAM BY MARJORIE A. FITTING 11 REM DEPARTMENT OF MATHEMATICS AND COMPUTER SCIENCE 12 REM SAN JOSE STATE UNIVERSITY, SAN JOSE, CA 95192 20 REM 21 REM "______________________________" 22 REM "! SAN MATEO COUNTY !" 23 REM "! OFFICE OF EDUCATION !" 24 REM "! & !" 25 REM "! COMPUTER-USING EDUCATORS !" 26 REM "! !" 27 REM "! SOFTSWAP !" 28 REM "! !" 29 REM "!333 MAIN STREET, REDWOOD CITY!" 30 REM "!CA 94063 (415)364-5600 EX4401!" 31 REM "_______________________________" 40 REM "_______________________________" 41 REM "! PROGRAMS MAY BE COPIED FOR !" 42 REM "! EDUCATIONAL USE ONLY AND !" 43 REM "! ARE NOT TO BE SOLD. !" 44 REM "!!" 50 REM 51 REM EXPLANATION OF USE OF PROGRAMS 52 REM PROGRAM WILL FIGURE TOTAL COST OF HOUSE 53 REM WHEN ORIGINAL COST, AMOUNT OF LOAN 54 REM AMOUNT OF MONTHLY PAYMENT, AND INTEREST 55 REM ARE KNOWN. 60 REM 100 PRINT CHR$ (12) 110 PRINT "THIS PROGRAM WILL COMPUTE THE ACTUAL COST OF A HOUSE" 120 PRINT "WHEN YOU KNOW THE TOTAL COST OF THE HOUSE, THE AMOUNT BORROWED," 130 PRINT "THE RATE OF INTEREST AND THE AMOUNT OF THE MONTHLY PAYMENT." 140 PRINT :PRINT 150 INPUT "WHAT IS THE COST OF THE HOUSE?";C 160 INPUT "WHAT IS THE AMOUNT BORROWED?";W 170 INPUT "WHAT IS THE RATE OF INTEREST?";R 180 INPUT "WHAT IS THE MONTHLY PAYMENT?";M 190 P= W 200 PRINT :PRINT 210 I= 0:A= 0:B= 0:S= 0 220 GOSUB 410 230 PRINT 240 FOR K= 1TO 480 250 A= INT (P* R/ 12)/ 100 260 S= M- A 270 I= I+ A 280 B= P- S 290 IF B< 0THEN S= P 300 PRINT "";K;TAB( 8)"";P;TAB( 24)"";A;TAB( 40)"";S;TAB( 52)"";I 310 P= P- S 320 IF B< 0THEN K= 480 330 IF INT (K/ 12)< > K/ 12THEN GOTO 370 340 INPUT "PRESS <RETURN> TO CONTINUE.";Y$ 350 PRINT 360 GOSUB 410 370 NEXT K 380 PRINT P;TAB( 52)I 390 PRINT :PRINT 400 PRINT "COMBINED COST IS ";C+ I 403 PRINT :INPUT "PRESS <RETURN> WHEN READY. ";Y$ 405 LOAD "MENU":RUN 406 END 410 PRINT "MONTH";TAB( 8)"BALANCE";TAB( 24)"INTEREST";TAB( 40)"PAYMENT TO";TAB( 52)"ACCUM." 420 PRINT TAB( 40)"PRINCIPAL";TAB( 52)"INTEREST" 430 RETURN