55LNILTTMLINECNPASYEARSFFINABADASHIIIXFINPFESBABJTPTOTTITOTBORDRGSNFINISLINEPRINTBEGISJSELECFFINYEARSIPAKEYADBAMSBABCALDPMMPMAVAAYEAARATFVAFYEAPVBAMKSNBSNYKERETRN@  !"#$%&'()*+,-./0123456789:;<=>?@@ABCD <<< HOME LOAN >>> <<< ANALYSIS >>> <<< COPYRIGHT 1982 >>>( <<< J. F. SKINNER >>>2 <<< VERSION 1.1 >>>< <<< FOR ANTIC MAGAZINE >>>F A3PPINPUT ROUTINER"@ AT"@ A#0Z{ A4`-@@K:96-@E-@(U( 1 gARs-@({6.1d")@"AnH"AU!AdAU3AR@>@H Ax:"A&*!@'6-&@267,. : >:,!A++ @F)"@G)!@WA'67<,.>:,(>:,'6-%@ AMOVE CURSOR?6-F:B2y,!6-T:,06-F:A2,?6-F:Ad,#"@)"# A "AU6-8," @-@&( '"@)"@'6-%@'"@)"@'6-&@!@6-@ @6-@-@&(=>-@@E  Ap"ApApApApA A A PAA AA0APAA!0A!A"0A"A#A#0,AdAU Ap6CALCULATE@"@ A#0J7"@ A) # A$0- A'`7 ApT-"@ A) # A%- Ap^! A)  A$0! A&h"@ Ar Ap|c$cPOKE 77,0: POKE 580,1:ZZZ=PEEK(16):IF PEEK(16)>128 THEN POKE 16,ZZZ-128:POKE 53774,ZZZ-128<AdAU'A@d9A<$i%2@@U@@9-@@u= _2@b$iKSND?0@@@?2@A@@y-@A =2@Q-@AU o0@@r$yBSNDi%2@AAA9-@@u= _2@b$iGSNDPRINT SCREEN6-@ A6-%@ A6-@) +AR@) AQ0@@@70@@@Q0@@%%( Π( $ Month--(  YEARS % $&(0 ( DATEPRININTBAL:(DPRINT SCREEN LINENN 6.=:,B:,"@467@<@,. N67@<@,.=:,X A@bE 6.=:,/7B:,&@&7B:,&@67B:,%@,..00v AE67B:,%@,..00 Ae AdE 6.=:,/7B:,&@&7B:,&@67B:,%@,..00 Ap67B:,%@,..0067B:,%@,..00$"6.0.00$ A AE 6.=:,/7B:,&@&7B:,&@67B:,%@,..00 A67B:,%@,..00+-@(-&-@+(%-@( -@(%(@ A0$ AuAdAU (  (E 6.=:,/7B:,&@&7B:,&@67B:,%@,..00 Aw67B:,%@,..00  A E 6.=:,/7B:,&@&7B:,&@67B:,%@,..00 A67B:,%@,..00 B K-@@(TOTAL1-@@5(G-@@K(*00(' 4(>(H//(&R>-@@!>(# =print =go to the next year\>-@@">(# =return to the MAIN MENU fB"!-@@!B( p'AdAU'B2y@z06-F:B2y,!6-T:,06-F:Ad, "@'  A0" A @I"@  A3)6-56-@ ? A `I A@ A  '  A0$COPY SCREEN TO PRINTER-AdAU!6-AU-6-@?-@@!?($ Position Paper and press ŭ ?-@@"?($ (Press to Exit Print Mode) !6-F:Ad,!6-F:B2y,7"@3!AdAU-6-AU7 A@7"@!B2y@-6-@7 A` AAdAU>-@@!>(# $-"@-3 ŠΠ. -8-@@8B -L)@V!!67%@<%@,.>:,` j=6-F:B2y,"@0B2y@3'= A`t3~ AdAU$SCREEN OUTPUT 6-6-%%@'AR'AdAU  6- A0+A@ !6-@ + A A$0 6-6-6-6-U-@@!>(# CALCULATING P-@$@!U(?-@@"?($ (Press to Exit Calculation) 6-&@ -@%@-@@6-%@( @ A@26-@6-%@< 6-$F&&6-P:+%>P,$A,'AP(6-$A6-P:,(6-'AZ 6-&6-%6-%d76-F:B2y, @!'-6-@7 A0n  APx 6-&AR@  -@@!D( CALCULATING  f2@@@@2@ * A@  % 6-&6-6-%6-&# A@ @# A0.-@@ .(LAST PAYMENT %%!%( +  BALLOON A0$ START+@%@ A70@ @70@@@70@@@70@0@@@ @ @" @ HOME ' @ LOAN ,* @ ANALYSIS* @6## @ Ԡ @## @ ٠͠ J @T## @ ^g @,1/@C/@@U/@g/h"F:B2y,@" A@r @AdAU| A0ENTER PURCHASE PRICE 6-A:, A2PENTER INTEREST RATE 350 A4` 6-A:,6.6-'A6-@ A2PENTER LENGTH 6-A:,6-@ A2P&ENTER FIRST MONTHD 6-A:,N% @)!@%6-@X A2PbENTER FIRST YEAR 6-A:, A2PENTER AMORTIZATION YEAR 6-A:, A2PENTER DOWN PAYMENT 6-A:,  A4` A2PENTER BALLOON PAYMENT " 6-A:,6-@" A2P*ENTER MONTHLY PAYMENTH0 6-A:,6. A) & A%0 A2PRENTER APPRAISED VALUEp 6-A:,z A2P <<>> 6-A:, A2P ENTER RATE OF APPRECIATION 6-A:, A'` A2PENTER RESALE VALUE 6-A:, A2P SELECT PRINT SCREEN$ 1 A36-@%6-@16-@. A `8 6-B A2PL ENTER RESALE YEARj 6-A:,t A2P~ CALC MONTHLY PAYMENT A%` 6-+&,&6-'A  6-6-% 5"+6-+@%,#+$@,5 A$ ))6-+@%,#++$@,&@, 6-$$'+&@, A%' &&6-P:+%>P,$A,'A E 6.=:,/7B:,&@&7B:,&@67B:,%@,..00 A%( 67B:,%@,..00 B $-@(@ $(  -@(@ ( $ , A4`"F:A,"@, A4` 67B:,%@,..00 A%0 CALCULATE PURCHASE PRICE( 6-'A2 5"+6-+@%,#+$@,5 A&0< ))6-+@%,#++$@,&@,F 6-+$+&@,,'+$,P 6-P:%?P,Z 6-%%d %-@(@%( n -@(@(x $ CALC APPRECIATION RATE 6-+&,'+&, 6-+',$A &&6-P:+%>P,$A,'A %-@(@%(  -@(@( $ CALC FUTURE RE VALUE  6-" A( " A(    A(P -@+&, 6-%+$+'A,, 6-P:,   A(" -@+&,, 6-&+$+'A,,6 6-P:,@  J %-@(@%( T -@(@(^ $h CALCULATE PV OF BALLOONr IAR@'B2y@3"?6-I A0P| " A0P >-@@!>(# Calculating Present Value  >-@@">(# of Balloon Payment  6- _-@+$@,=2@@@@_2@ --@'@"-(++$@,&,  6-F:B2y, 6-+&+$,, 2 )"@%6-('2 A0@  6- &&6-P:+%>P,$A,'A >-@@!>(#=up =down =compute >-@@">(#Type a number and then press  $ FORMAT AT SCREEN '6-6-'6-@ ;@@'@@91+; A& 'AR@'AdAU0 Q0@@@70@@@Q0@@: 00(' D (N (X //(&b 1-@@1( HOME LOAN ANALYSISl 3-@@3( (c) 1982 by Jim Skinnerv A50 -@@  00('  ( ( //(&   AR@ >-@@!>(#=up =down =compute >-@@">(#Type a number and then press  Ap PRINTER OFF LINE B-@@">(# B  AdAU "@ A0 AP INITIALIZE *@e@*AdAU* ##@@S:4 70@70@> '6-A6-A'6-A0H ss;@,;@,9@,;@@,;@,;@,;@,;@,;@,;@,R 6-BP6-AP'6-@P36-@0?6-@K6-AW6-AUc6-@o6-@{6-A6-A\ k6-A6-%#6-A/6-;6-G6-BPS6-B _6-@k6-A3ca 11;@9,;@5,;@8,9@,f 467@,. %67@@,. 467@,.h 116.'| | j --6.# then press l 006.&--------------------------------------p + A A7! A&+ A$0z A INPUT ERROR  6.0' >-@@!>(# I couldn't read the last number  >-@@">(# you typed... Please try again.  @   B A0 MAIN SCREEN 5-@@5(Purchase Price.........  5-@@5(Down Payment...........  5-@@5(Interest Rate.........  5-@@5(Balloon Payment........  5-@@5(Length of Loan in Years 5-@@ 5(Monthly Payment........ 5-@@5(Year of First Payment. 5-@@5(Month of First Payment. $5-@@5(Amortization Year...... .<-@@<(" 85-@@5(Appraised Value........ B5-@@5(Appraised Year......... L5-@@5(Appreciation rate...... V5-@@5(Resale Value........... `5-@@5(Resale Year............ j8-@@8( t$~.#-@@"'68,-+ .$++1,1,1,7,7,5,7,2,6,4,2,4,1,7,4,5,7,4,1D1:HOMELOAN.BAS