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