10 !		ANALYSIS OF LEASE PURCHASE
	WRITTEN BY DARRYL JOHNSON & DICK D'ANGELO
		BENTLEY COLLEGE MAR-73
20 PRINT:PRINT TAB(22);"ANALYSIS OF LEASE PURCHASE":
	PRINT:PRINT "METHODS AVAILABLE ARE:":
	PRINT TAB(6);"1) STRAIGHT-LINE":
	PRINT TAB(6);"2) SUM-OF-THE-YEARS-DIGITS"
30 PRINT TAB(6);"3) COMPOUND INTEREST":
	PRINT TAB(6);"4) ALL OF THE ABOVE"
40 PRINT:INPUT "WHAT IS THE NUMBER OF YOUR METHOD";D%:D4%=D%:
	D4%=1% IF D%=4%:IF D%<1% OR D%>4% GOTO 40
50 PRINT:INPUT "WHAT IS THE ANNUAL RENT";D:PRINT:
	INPUT "HOW MANY YEARS IS THE LEASE LIFE";E:PRINT:
	INPUT "WHAT IS THE RATE OF INTEREST (I.E. ENTER 6% AS .06)";D2:
	PRINT:PRINT:PRINT:PRINT:PRINT
60 H$(0%)="     STRAIGHT-LINE-METHOD":
	H$(1%)="SUM-OF-THE-YEARS-DIGITS-METHOD":
		H$(2%)="   COMPOUND INTEREST METHOD"
70 A$=SPACE$(11%)+"###"+SPACE$(8%):A1$="$$#,###,###.##":
	A2$="  #,###,###.##"
80 E1=(1+E)*E/2:D1=D:E3=E:
	D0,D5=INT((1-1/(1+D2)^E)/D2*D*(1+D2)*100+.5)/100
90 PRINT FOR I%=0% TO 5%:PRINT TAB(27);"LEASE PURCHASE METHOD":
	PRINT TAB(20);"TOTAL EXPENSE ASSUMING AMORTIZATION":
	PRINT TAB(32);"COMPUTED BY":PRINT TAB(22);H$(D4%-1%)
100 PRINT:PRINT TAB(10);"PERIOD";TAB(24);"AMORTIZATION";
	TAB(43);"INTEREST";TAB(59);"TOTAL"
110 A3$=A$+A1$+" "+A1$+"  "+A1$
120 FOR E2=1 TO E: ON D4% GOTO 140,150,160
130 IF E2=2 THEN PRINT A3$
140 D7=INT(D5/E*100+.5)/100:D0=INT((D0-D1)*100+.5)/100:
	D8=INT(D0*D2*100+.5)/100:D9=INT((D8+D7)*100+.5)/100:
	D1=D-D8: GOTO 170
150 D7=INT(D5*E/E1*100+.5)/100:D0=INT((D0-D1)*100+.5)/100:
	D8=INT(D0*D2*100+.5)/100:D9=INT((D8+D7)*100+.5)/100:
	D1=D-D8:E=E-1:GOTO 170
160 D0=INT((D0-D1)*100+.5)/100:D8=INT(D0*D2*100+.5)/100:
	D7=INT((D-D8)*100+.5)/100:D9=INT((D8+D7)*100+.5)/100:
	D1=D-D8
170 A3$=A$+A2$+" "+A2$+"  "+A2$ IF E2=2:
	IF E2=E3 THEN D9=D7:D8=0
180 T=T+D7:T1=T1+D8:T2=T2+D9:PRINT USING A3$,E2,D7,D8,D9
190 NEXT E2:PRINT TAB(24);"------------   ------------";:
	PRINT TAB(55);"------------":
	A3$=SPACE$(10%)+"TOTALS"+SPACE$(6%)+A1$+" "+A1$+"  "+A1$
200 PRINT USING A3$,T,T1,T2:PRINT TAB(24);"============";:
	PRINT TAB(39);"============    ============":
	IF D4% THEN IF D4%<3% THEN D4%=D4%+1%:T,T1,T2=0:
	D0=D5:D1=D:E=E3:GOTO 90
210 END