1amscpm set to 1 if cpm2.2 on Amstrad1amscpm set to 0 if cpm2.2 on Amstrad! amscpm ();"E"; amscpm ( );; "**************************************************"; "* *"; "* REAL ESTATE EVALUATOR *";# "* .from Bearsville, New York RCPM 03/82. *";( "* *";2 "**************************************************"< F  ()P "FOR : ", Z d n (()x "ADDRESS ";   () " ";  "PURCHASE PRICE $"; P "DOWN PAYMENT (%) ";  "LOAN TERM (YEARS) "; % "CLOSING COSTS (% OF COST) ";   "MORTGAGE INTEREST (%) ";  # "ADDITIONAL ESCROW COSTS $"; " C%, "REAL ESTATE TAXS PER YEAR $"; 6 #@ "HEATING COSTS PER MONTH $"; J 'T "ELECTRICITY COSTS PER MONTH $"; ^ )h "WATER, MAINT., ETC. PER MONTH $"; r | "INSURANCE PER MONTH $";  I "INCOME PER MONTH $";   (d)Pd IM V(I)M":$########.##"4D((Pd))C((Pd))+ "DOWN PAYMENT (INCL.ESCROW)= ",D(((IV)(V))PI( )" (),"CASH FLOW ANALYSIS " %& "MONTHLY MORTGAGE PAYMENTS =",0 ;P:M()&D "MONTHLY EXPENSES = ",N ;MX &b "MONTHLY INCOME = ",l ;v (PM)C "**********************************************************"C()% "MONTHLY CASH FLOW =", ;C C   ) ( );"WARNING NEGATIVE CASH FLOW"C "**********************************************************"% "APPROXIMATE VALUE OF LAND $";  @ "APPROX. TAX BRACKET (WHOLE NUMBER % OF INCOME: ie 48) ";  '  "NEW (1) OR USED (2) BUILDING ";   Bd*  H4U > R HU"RDU((P))#\G( M)C(  )f(p ();"INVESTMENT TAX ADVANTAGE "z Y  C(d)P"":$######.## FIRST YEAR"  "DEDUCTABLE INTEREST = "; ;JC  "REAL ESTATE TAXES = "; ;  "DEPRECIATION = "; ;D  "EXPENSES = "; ;G$J (JDC)  "TOTAL DEDUCTABLE = "; ;J $ "TOTAL INCOME = ";. ; 8 B "NET DEDUCTION = ";L ;J( )"VT(J( ))B` Cj "**********************************************************"t T  ~ "TAX BREAK = "; ;T    () ;"NO TAX BREAK" T%IDCCC C "**********************************************************"( "ANNUAL PROPERTY INFLATION (%) ";  I0D(Pd)C(Pd) M"V((d)M)PE(VPJ)":####"!  "RETURN ON INVESTMENT = ";0T((E (C)T)(D))d ;T( " % FIRST YEAR" 2 "GROWTH = ";$< ;E(C) T5F "SELECT OTHER PERIOD FOR RETURN ON INVESTMENT"P "HOW MANY YEARS "; Z MdYM nJ x "V((d)M)P  "TOTAL PRINCIPAL PAID ="; ;J- "PROPERTY VALUE AFTER DESIRED TIME ="; ;V- "EQUITY GROWTH =";! ;V(PJ)C(CJC)(D( M) )ME(VPJ)'D(()Pd)CBd, "TAX SAVINGS OVER DESIRED TIME ="; ;BQR(P(d)M)P(B)(Pd)CCC()Y"TB,T"##### %"-6 "RETURN ON INVESTMENT OVER PERIOD = ";/@ T;((ECT)(D))dJ+T "DO YOU WANT ANOTHER PERIOD (Y/N) "; ^ h "Y" Fr "N" )| "ANSWER CORRECTLY PLEASE..." T   J J J  YIIP PJJ JJPJJ  P