5 PRINT CHR$(27);"E"'CLEAR SCREEN Z-89
10 PRINT "**************************************************"
20 PRINT "*                                                *"
30 PRINT "*           REAL ESTATE EVALUATOR                *"
35 PRINT "*  .from Bearsville, New York RCPM  03/82.       *"
40 PRINT "*                                                *"
50 PRINT "**************************************************"
60 PRINT 
70 DIM A$ (30)
80 PRINT "FOR : ",
90 INPUT A$
100 PRINT 
110 DIM B$(40)
120 PRINT "ADDRESS ";
130 INPUT B$
140 DIM C$ (30)
150 PRINT "            ";
160 INPUT C$
170 PRINT
180 PRINT "PURCHASE PRICE $";
190 INPUT P4
200 PRINT "DOWN PAYMENT (%) ";
210 INPUT D
220 PRINT "LOAN TERM (YEARS) ";
230 INPUT L
240 PRINT "CLOSING COSTS (% OF COST)  ";
250 INPUT C
260 PRINT "MORTGAGE INTEREST (%) ";
270 INPUT I
280 PRINT "ADDITIONAL ESCROW COSTS $";
290 INPUT C1
300 PRINT "REAL ESTATE TAXS PER YEAR $";
310 INPUT T
320 PRINT "HEATING COSTS PER MONTH $";
330 INPUT H
340 PRINT "ELECTRICITY COSTS PER MONTH $";
350 INPUT E
360 PRINT "WATER, MAINT., ETC. PER MONTH $";
370 INPUT M
380 PRINT "INSURANCE PER MONTH $";
390 INPUT I3
400 PRINT "INCOME PER MONTH $";
410 INPUT R
420 LET F=(100-D)*P4/100
430 LET I1=I/1200
440 M1=L*12
450 V1=(1+I1)*M1
460 T$=":$########.##"
470 D6=(D*(P4/100))+C1+(C*(P4/100))
480 PRINT "DOWN PAYMENT (INCL.ESCROW)= ",D6
490 PRINT
500 P=((I1*V1)/(V1-1))*F
510 P2=P+I3+(T/12)
520 '
530 PRINT TAB(15),"CASH FLOW ANALYSIS "
540 PRINT 
550 PRINT "MONTHLY MORTGAGE PAYMENTS =",
560 PRINT USING T$;P2
570 M2=(H+E+M)
580 PRINT "MONTHLY EXPENSES          = ",
590 PRINT USING T$;M2
600 PRINT 
610 PRINT "MONTHLY INCOME            = ",
620 PRINT USING T$;R
630 PRINT 
640 X=(P2+M2)
650 PRINT "**********************************************************"
660 C2=(R-X)
670 PRINT "MONTHLY CASH FLOW         =",
680 PRINT USING T$;C2
690 IF C2<0 THEN 710
700 GOTO 720
710 PRINT TAB(10);"WARNING NEGATIVE CASH FLOW"
720 PRINT "**********************************************************"
730 PRINT
740 PRINT "APPROXIMATE VALUE OF LAND $";
750 INPUT V
760 PRINT "APPROX. TAX BRACKET (WHOLE NUMBER % OF INCOME: ie 48) ";
770 INPUT B
780 PRINT "NEW (1) OR USED (2) BUILDING ";
790 INPUT U
800 B7=B/100
810 IF U=1 THEN 840
820 U1=1.25
830 GOTO 850
840 U1=2
850 D1=U1*((P4-V)/20)
860 G4=(12*M2)+C1+(13*12)
870 PRINT
880 PRINT TAB(15);"INVESTMENT TAX ADVANTAGE "
890 PRINT
900 Y4=12
910 GOSUB 1680
920 C3=(C/100)*P4
930 U$=":$######.## FIRST YEAR"
940 PRINT "DEDUCTABLE INTEREST = ";
950 PRINT USING U$;J1+C3
960 PRINT "REAL ESTATE TAXES   = ";
970 PRINT USING U$;T
980 PRINT "DEPRECIATION        = ";
990 PRINT USING U$;D1
1000 PRINT "EXPENSES            = ";
1010 PRINT USING U$;G4
1020 PRINT
1030 J4 =(J1+D1+T+C3)
1040 PRINT "TOTAL DEDUCTABLE    = ";
1050 PRINT USING U$;J4
1060 PRINT "TOTAL INCOME        = ";
1070 PRINT USING U$;R*12
1080 PRINT 
1090 PRINT "NET DEDUCTION       = ";
1100 PRINT USING U$;J4-(R*12)
1110 T5=(J4-(R*12))*B7
1120 PRINT 
1130 PRINT "**********************************************************"
1140 IF T5<0 THEN 1180
1150 PRINT "TAX BREAK           = ";
1160 PRINT USING U$;T5
1170 GOTO 1200 
1180 PRINT TAB(15) ;"NO TAX BREAK"
1190 T5=0
1200 I5=D1+C3+C1-C2*12
1210 PRINT "**********************************************************"
1220 PRINT "ANNUAL PROPERTY INFLATION (%) ";
1230 INPUT I6
1240 D6=(D*P4/100)+C1+(C*P4/100)
1250 M5=1
1260 V4=((1+16/100)^M5)*P4
1270 E6=(V4-P4+J2)
1280 Y$=":####"
1290 PRINT "RETURN ON INVESTMENT = ";
1300 T9=((E6+12*(C2)+T5)/(D6))*100
1310 PRINT USING Y$;T9
1320 PRINT " % FIRST YEAR"
1330 PRINT "GROWTH              = ";
1340 PRINT USING T$;E6+(C2)*12+T5
1350 PRINT "SELECT OTHER PERIOD FOR RETURN ON INVESTMENT"
1360 PRINT "HOW MANY YEARS ";
1370 INPUT M5
1380 Y4=M5*12
1390 F=F+J2
1400 GOSUB 1680
1410 V4=((1+16/100)^M5)*P4
1420 PRINT "TOTAL PRINCIPAL PAID =";
1430 PRINT USING T$;J2
1440 PRINT
1450 PRINT "PROPERTY VALUE AFTER DESIRED TIME =";
1460 PRINT USING T$;V4
1470 PRINT "EQUITY GROWTH                     =";
1480 PRINT USING T$;V4-(P4-J2)
1490 W=(C3+J1+C1)+(D1+T+(13+M2-R)*12)*M5
1500 E6=(V4-P4+J2)
1510 D6=((D+C)*P4/100)+C1
1520 B7=B/100
1530 PRINT "TAX SAVINGS OVER DESIRED TIME    =";
1540 PRINT USING T$;W*B7
1550 R7=(P4*(1+16/100)^M5)-P4+(W*B7)/(P4*D/100)-C2+C1
1560 C8=(R-X)*Y4
1570 T5=W*B7
1580 T2$="##### %"
1590 PRINT "RETURN ON INVESTMENT OVER PERIOD = ";
1600 PRINT USING T2$;((E6+C8+T5)/(D6))*100
1610 '
1620 PRINT "DO YOU WANT ANOTHER PERIOD (Y/N) ";
1630 INPUT O$
1640 IF O$="Y" THEN 1350
1650 IF O$="N" THEN 1670
1660 PRINT "ANSWER CORRECTLY PLEASE...":GOTO 1620
1670 GOTO 1800
1680 J1=0
1690 J2=0
1700 J3=0
1710 FOR J=1 TO Y4
1720 I2=I1*F
1730 P1=P-12
1740 F=F-P1
1750 J1=J1+12
1760 J2=J2+P1
1770 J3=J3+P
1780 NEXT J
1790 RETURN
1800 END
O Y4
1720 I2=I1*F
1730 P1=P-12
1740 F=F-P1
1750 J1=J1+