Listing of file='CONDO.BAS;01' on disk='vmedia/chip_39-sector.ccvf'
1 REM CONDOMINIUM JAN 1981 2 REM 3 REM COMPUTES CASH FLOW AND NET PROFIT 4 REM FOR AN INVESTMENT IN A CONDOMINIUM 5 REM 6 REM 16K COMPUCOLOR II 7 REM 9 REM 10 REM CREATED BY MARJORIE A. FITTING, JANUARY 31, 1981 11 REM DEPARTMENT OF MATHEMATICS AND COMPUTER SCIENCE 12 REM SAN JOSE STATE UNIVERSITY, SAN JOSE, CA 95192 13 REM 14 REM SUBMITTED TO CREATIVE COMPUTING, FEB 1981 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 SEE DOCUMENTATION ACCOMPANYING 52 REM THIS PROGRAM FOR EXPLANATION 53 REM 60 REM 79 REM D1, D2 ARE PURCHASING COSTS OF CONDOMINIUM 80 REM C IS TOTAL COST, C1 PROPERTY TAX ON TOTAL COST 81 REM L IS LAND COST, L1 TAX ON LAND VALUE 82 REM A1 IS AMOUNT OF FIRST LOAN, P1 THE INTEREST RATE 83 REM A2 IS AMOUNT OF SECOND LOAN, P2 THE INTEREST RATE 84 REM I1, I2 ARE INTEREST AMOUNTS, I TOTAL INTEREST 85 REM F1,F2 ARE CONDOMINIUM FEES, F3 OTHER EXPENSES 86 REM T1,T2 ARE FEDERAL TAX RATES, T3 STATE TAX (INCOME) 87 REM E IS ACTUAL COST OVER THREE YEARS 88 REM V IS VALUE AT G% INFLATION 89 REM B IS BUILDING COST, D IS DEPRECIATION ON THIS 90 REM Q IS TOTAL DEPRECIATION, 3 YEARS 91 REM Y YEARS UNDER CONSIDERATION 92 REM Z IS MONTHLY TAX 93 REM P IS TAX ON PROFIT AFTER SALE, S IS SALES COMMISSION 94 REM U IS RATE OF INFLATION 99 PRINT CHR$ (12) 100 PRINT " CASH FLOW AND PROFIT FOR PURCHASE OF CONDOMINIUM " 110 PRINT :PRINT :PRINT 115 PRINT "ENTER RATE OR PERCENTAGE OF 12.7% AS 12.7 NOT .127." 116 PRINT 120 INPUT "WHAT IS THE COST OF THE CONDOMINIUM? ";D1 125 INPUT "WHAT ARE THE CLOSING COSTS (NOT LOAN COSTS)?";D2 127 C= D1+ D2 130 L= .25* C 140 B= .75* C 150 D= 2* 1/ 40/ 12* B 160 PRINT 170 INPUT "WHAT IS THE AMOUNT OF THE FIRST LOAN? ";A1 175 INPUT "WHAT IS THE LOAN FEE ON THIS LOAN?";A3 180 INPUT "WHAT PERCENT OF INTEREST ON THIS LOAN? ";P1 185 INPUT "WHAT IS THE MONTHLY PAYMENT ON THIS LOAN? ";P3 188 INPUT "WHAT IS THE LENGTH OF THIS LOAN IN MONTHS? ";L3 190 I1= INT (A1* P1/ 12+ .5)/ 100 200 PRINT 210 INPUT "WHAT IS THE AMOUNT OF THE SECOND LOAN? ";A2 215 INPUT "WHAT IS THE LOAN FEE ON THIS LOAN?";A4 220 INPUT "WHAT IS THE PERCENT OF INTEREST ON THIS LOAN? ";P2 222 INPUT "WHAT IS THE MONTHLY PAYMENT ON THIS LOAN? ";P4 223 INPUT "WHAT IS THE LENGTH OF THIS LOAN IN MONTHS? ";L4 230 I2= INT (A2* P2/ 12+ .5)/ 100 240 PRINT 250 INPUT "WHAT IS THE MONTHLY CONDOMINIUM FEE FOR THE OWNER? ";F1 260 INPUT "WHAT IS THE CONDOMINIUM FEE FOR THE INHABITANT? ";F2 270 INPUT "WHAT OTHER MONTHLY EXPENSES WILL THERE BE? ";F3 280 F= F1+ F2+ F3 290 PRINT 300 INPUT "IN WHAT FEDERAL TAX BRACKETS IS THE OWNER? ";T1,T2 310 INPUT "STATE INCOME TAX IS FIGURED AT WHAT %? ";T3 320 T= (T1+ T2)/ 2+ T3 330 PRINT 340 PRINT "THE PROPERTY TAX RATE IS FIGURED AT 4.896 OF TOTAL ASSESSED " 341 PRINT "VALUE AND .011 OF LAND ONLY VALUE." 350 L1= INT (L* .011/ 4+ .5)/ 100 360 C1= INT (C* 4.896/ 4+ .5)/ 100 370 Z= INT ((L1+ C1)* 100/ 12)/ 100 400 PRINT 410 INPUT "WHAT IS THE MONTHLY COLLECTED RENT?";R 420 PRINT :INPUT "HOW MANY YEARS DO YOU PLAN TO KEEP THE CONDO?";Y 430 INPUT "WHAT IS THE RATE OF INFLATION?";U 500 INPUT "PRESS <RETURN> WHEN READY.";Y$ 505 TMP= PEEK (33265):REM ***SAVE BASIC OUTPUT FLAG *** 506 REM PLOT 27,82,3,27,77:REM ***ESC R 3 ESC M FOR PRINTER *** 508 PRINT TAB( 10);"BUYING A CONDOMINIUM" 509 PRINT :PRINT :PRINT 510 PRINT "ASSUME THAT A CONDOMINIUM COSTING $";D1 511 PRINT "HAS BEEN PURCHASED WITH $";D2;" IN CLOSING COSTS," 512 PRINT "LOANS OF $";A1;" AND $";A2;" WITH INTEREST AT ";P1;" AND ";P2;"%." 513 PRINT "CONSIDERING INCOME TAXES OF ";T1;",";T2;" AND ";T3;"%." 514 PRINT "AND INFLATION OF ";U;", THE RESULTS ARE LIKELY TO BE " 516 PRINT :PRINT :PRINT 519 PRINT "FIRST MONTH'S CASH FLOW" 520 PRINT TAB( 5)"PAYMENT ON FIRST LOAN";TAB( 41);"$";P3 530 PRINT TAB( 5)"PAYMENT ON SECOND LOAN";TAB( 42);P4 532 PRINT 550 PRINT TAB( 5)"PROPERTY TAXES";TAB( 42);Z 560 IF R< > 0THEN F= F- F2 570 PRINT TAB( 5)"ASSOCIATION FEE BY OWNER";TAB( 42);F; 580 PRINT 590 PRINT TAB( 40)"__________" 595 W= P3+ P4+ F+ Z 600 PRINT TAB( 5)"TOTAL CASH EXPENSES";TAB( 40)"$";W 610 PRINT 620 PRINT TAB( 5)"RENT";TAB( 40)"$ ";R 630 PRINT TAB( 40)"_________" 640 PRINT TAB( 5)"NET CASH EXPENSES";TAB( 42);W- R 650 PRINT 652 L5= A3/ L3+ A4/ L4 655 X= INT (T* (D+ I2+ I1+ F+ Z- R+ L5)+ .5)/ 100 660 PRINT "TAX RECOVERY ";TAB( 42);X 670 PRINT TAB( 40)"_________" 680 PRINT "NET CASH FLOW OUT";TAB( 40);"$ ";W- R- X 690 PRINT :PRINT :INPUT "PRESS <RETURN> TO CONTINUE.";Y$ 691 REM *** REMOVE STEP 690 FOR USE WITH PRINTER *** 700 PRINT :PRINT :PRINT 701 U1= 1+ U/ 100 702 V= C 704 FOR K= 1TO Y 706 V= INT (U1* V) 708 NEXT K 710 PRINT "COSTS OF CONDOMINIUM" 715 PRINT :PRINT "ESTIMATED SALE PRICE";TAB( 50)"$";V 720 PRINT TAB( 5)"COST OF UNIT";TAB( 40);"$";D1 730 PRINT TAB( 5)"CLOSING COSTS";TAB( 43);D2 735 PRINT TAB( 5)"LOAN COSTS";TAB( 44);A3+ A4 736 Z5= Z* 12:Z6= Z* 12 737 FOR K= 2TO Y:Z5= Z5* 1.02:Z6= Z6+ Z5:NEXT K 738 PRINT TAB( 5)"TOTAL TAXES";TAB( 42);Z6 740 C5= C 750 D5= D* 12:Q= D* 12 760 FOR K= 2TO Y 770 C5= C5- D5 780 D5= INT (C5* 5+ .5)/ 100 790 Q= Q+ D5 800 NEXT K 801 A5= A1:A6= A2 802 FOR K= 1TO 12* Y 804 P5= INT (A5* P1/ 12+ .5)/ 100:P6= INT (A6* P2/ 12+ .5)/ 100 806 A5= A5- P3+ P5:A6= A6- P4+ P6 808 I5= I5+ P5+ P6 809 NEXT K 815 PRINT TAB( 5)"TOTAL INTEREST PAID";TAB( 42);I5 820 PRINT TAB( 40)"__________" 830 PRINT 835 E= D1+ D2+ I5+ A3+ A4+ Z6 840 PRINT "TOTAL COST OF CONDOMINIUM";TAB( 40)"$";E 842 PRINT 843 L7= (A3/ L3+ A4/ L4)* 12* Y 845 R5= .57* (I5+ Z6+ F* Y* 12+ L7+ Q- R* Y* 12) 847 PRINT TAB( 5)"RECOVERED FROM TAXES";TAB( 42);R5 848 PRINT TAB( 40);"_________" 849 PRINT "NET RETURN ON CONDOMINIUM";TAB( 50);"$";V- E+ R5 850 PRINT 880 S= INT (6* V+ .5)/ 100 890 PRINT TAB( 5)"SALES EXPENSE";TAB( 42);S 895 V5= V- S- C- A3- A4+ L7 900 P= INT (.4* T* V5)/ 100 910 PRINT TAB( 5)"TAXES ON PROFIT";TAB( 42);P 920 PRINT TAB( 40);"__________" 930 PRINT "GROSS PROFIT";TAB( 51)"$";V- E+ R5- S- P 940 PRINT :PRINT 950 PRINT INT ((V- E+ R5- S- P)* 100/ (D1+ D2+ A3+ A4- A1- A2)/ Y)/ 100;" IS THE % PER YEAR AFTER TAX PROFIT." 960 PRINT :PRINT :PRINT 965 INPUT "PRESS <RETURN> WHEN READY.";Y$ 966 LOAD "MENU":RUN 970 POKE 33265,TMP:REM ***RESET OUTPUT TO CRT *** 980 RUN 1000:REM ***NEXT STEP NUMBER TO BE RUN *** 1000 END