Listing of file='REINV.BAS;01' on disk='vmedia/chip_75-sector.ccvf'
1 PLOT 12 2 PLOT 3,8,9 3 PRINT "REAL ESTATE EVALUATION PROGRAM " 4 PLOT 3,8,12 5 INPUT "WILL YOU BE USING A PRINTER? ";P$ 6 IF LEFT$ (P$,1)< > "P"THEN 8 7 GOTO 1500 8 PLOT 12 9 CLEAR 250 10 PRINT "*********************************************************" 20 PRINT "* *" 30 PRINT "****************** REAL ESTATE EVALUATION ***************" 40 PRINT "* m & m marketing consultants *" 50 PRINT "*********************************************************" 60 PRINT 70 DIM A$(30) 80 INPUT "FOR : ";A$ 90 PRINT 100 DIM B$(40) 110 INPUT "ADDRESS ";B$ 120 DIM C$(30) 130 INPUT " ";C$ 140 PRINT 150 INPUT "PURCHASE PRICE $";P4 160 INPUT "DOWN PAYMENT (%) ";D 170 INPUT "LOAN TERM (YEARS) ";L 180 INPUT "CLOSING COSTS-POINTS(% OF COST) ";C 190 INPUT "MORTGAGE INTEREST (%) ";I 200 INPUT "ADDITIONAL ESCROW COSTS $";C1 210 INPUT "REAL ESTATE TAXES PER YEAR $";T 220 INPUT "HEATING COSTS PER MONTH $";H 230 INPUT "ELECTRICITY COST PER MONTH $";E 240 INPUT "WATER; MAINT.; ETC. PER MONTH $";M 250 INPUT "INSURANCE PER MONTH $";I3 260 INPUT "INCOME PER MONTH $";R 270 F= (100.00- D)* P4/ 100 280 I1= I/ 1200.00 290 M1= L* 12 300 V1= (1.00000+ I1)^ M1 310 REM 320 D6= (D* P4/ 100)+ C1+ (C* P4/ 100) 330 PRINT "DOWN PAYMENT (INCL. ESCROW) =";D6 340 PRINT 350 P= (I1* V1)/ (V1- 1.00000)* F 360 P2= P+ I3+ (T/ 12) 380 PRINT TAB( 15);"CASH FLOW ANALYSIS " 390 PRINT 400 PRINT "MONTHLY MORTGAGE PAYMENTS = ";P2 410 M2= (H+ E+ M) 420 PRINT "MONTHLY EXPENSES = ";M2 430 PRINT 440 PRINT "MONTHLY INCOME = ";R 450 PRINT 460 X= (P2+ M2) 470 PRINT "*********************************************************" 480 C2= (R- X) 490 PRINT "MONTHLY CASH FLOW = ";C2 500 IF C2< 0THEN 520 510 GOTO 530 520 PRINT TAB( 10);"WARNING: NEGATIVE CASH FLOW " 530 PRINT "********************************************************" 540 PRINT 545 IF LEFT$ (NA$,1)= "Y"THEN 660 550 INPUT "APPROX. VALUE OF LAND $";V 560 INPUT "APPROX. TAX BRACKET (% OF INCOME) ";B 570 INPUT "NEW OR USED BUILDING? ";U$ 580 B7= B/ 100 590 IF U$= "N"THEN 620 600 U1= 1.25 610 GOTO 630 620 U1= 2 630 D1= U1* ((P4- V)/ 20) 640 G4= (12* M2)+ C1+ (I3* 12) 650 PRINT 660 PRINT TAB( 15);"INVESTMENT TAX ADVANTAGE " 670 PRINT 680 Y4= 12 690 GOSUB 1240 700 C3= (C/ 100)* P4 710 PRINT "DEDUCTABLE INTREST=";J1+ C3;" 1ST YR." 720 PRINT "REAL ESTATE TAXES= ";T;" 1ST YR" 730 PRINT "DEPRECIATION =";D1;" 1ST YR" 740 PRINT "EXPENSES =";G4;" 1ST YR" 750 PRINT 760 J4= (J1+ D1+ T+ G4+ C3) 770 PRINT "TOTAL DEDUCTABLE =";J4;" 1ST YR" 780 PRINT "TOTAL INCOME =";R* 12;" 1ST YR" 790 PRINT 800 PRINT "NET DEDUCTION =";J4- (R* 12);" 1ST YR" 810 T5= (J4- (R* 12))* B7 820 PRINT 830 PRINT "*********************************************************" 840 IF T5< 0THEN 870 850 PRINT "TAX BREAK =";T5;" 1ST YR" 860 GOTO 890 870 PRINT TAB( 15);"NO TAX BREAK" 880 REM 890 I5= D1+ C3+ C1- C2* 12 900 PRINT "*********************************************************" 905 IF LEFT$ (NA$,1)= "Y"THEN 970 910 INPUT "ANNUAL PROPERTY INFLATION(%) ";I6 920 D6= (D* P4/ 100)+ C1+ (C* P4/ 100) 930 M5= 1 940 V4= ((1+ I6/ 100)^ M5)* P4 950 E6= (V4- P4+ J2) 960 REM 970 PRINT "RETURN ON INVESTMENT=";((E6+ 12* (C2)+ T5)/ (D6))* 100;"% 1ST YR" 980 REM 990 PRINT "GROWTH = ";E6+ (C2)* 12+ T5;" 1ST YR" 995 PRINT 1000 PRINT "SELECT OTHER PERIOD FOR RETURN OF INVESTMENT " 1010 INPUT "HOW MANY YEARS? ";M5 1015 PRINT 1020 Y4= M5* 12 1030 F= F+ J2 1040 GOSUB 1240 1050 V4= ((1+ I6/ 100)^ M5)* P4 1060 PRINT "TOTAL PRINCIPLE PAID =";J2 1070 PRINT 1080 PRINT "PROPERTY VALUE AFTER DESIRED TIME=";V4 1090 PRINT "EQUITY GROWTH =";V4- (P4- J2) 1100 W= (C3+ J1+ C1)+ (D1+ T+ (I3+ M2- R)* 12)* M5 1110 E6= (V4- P4+ J2) 1120 D6= ((D+ C)* P4/ 100)+ C1 1130 B7= B/ 100 1140 PRINT "TAX SAVINGS OVER DESIRED TIME";W* B7 1150 R7= (P4* (1+ I6/ 100)^ M5)- P4+ (W* B7)/ (P4* D/ 100)- C2+ C1 1160 C8= (R- X)* Y4 1170 T5= W* B7 1180 REM 1190 PRINT "RETURN ON INVESTMENT OVER PERIOD="((E6+ C8+ T5)/ (D6))* 100;" %" 1200 REM 1205 PRINT 1210 INPUT "DO YOU WANT ANOTHER PERIOD? ";AP$ 1220 IF LEFT$ (AP$,1)= "Y"THEN 1000 1221 INPUT "DO YOU WANT THE NUMBERS AGAIN? ";NA$ 1222 IF LEFT$ (NA$,1)= "Y"THEN 380 1230 END 1240 J1= 0 1250 J2= 0 1260 J3= 0 1270 FOR J= 1TO Y4 1280 I2= I1* F 1290 P1= P- I2 1300 F= F- P1 1310 J1= J1+ I2 1320 J2= J2+ P1 1330 J3= J3+ P 1340 NEXT J 1350 RETURN 1500 REM PRINTER ROUTINE STARTS HERE