\START85\
\COMMENT=Program file dated 06/02/97, 19:04
\NAME=Depr
\FILE=DEPR.85P
:1\->\Q
:Menu(1,"SL",SL,2,"MACRS",MACRS,3,"OTHER",OTHER)
:Lbl SL
:Input "Years: ",Y
:Y+1\->\dim D
:Fill(100/Y,D)
:50/Y\->\D(1)
:50/Y\->\D(Y+1)
:Goto START
:Lbl MACRS
:Menu(1,"3 Yr.",TY,2,"5 Yr.",FY,3,"7 Yr.",SY,4,"10 Yr.",NY,5,"More\>\",\#\
MR)
:Lbl TY
:[33.3,44.5,14.8,7.4]\->\D
:Goto START
:Lbl FY
:[20,32,19.2,11.5,11.5,5.8]\->\D
:Goto START
:Lbl SY
:[14.3,24.5,17.5,12.5,8.9,8.9,8.9,4.5]\->\D
:Goto START
:Lbl NY
:[10,18,14.4,11.5,9.2,7.4,6.6,6.6,6.5,6.5,3.3]\->\D
:Goto START
:Lbl MR
:Menu(1,"15 Yr.",EY,2,"20 Yr.",WY,5,"More\>\",MACRS)
:Lbl EY
:[5,9.5,8.6,7.7,6.9,6.2,5.9,5.9,5.9,5.9,5.9,5.9,5.9,5.9,5.9,3.0]\->\D
:Goto START
:Lbl WY
:[3.8,7.2,6.7,6.2,5.7,5.3,4.9,4.5,4.5,4.5,4.5,4.5,4.5,4.5,4.5,4.4,4.4,4\#\
.4,4.4,4.4,2.2]\->\D
:Goto START
:Lbl OTHER
:0\->\Q
:Input "Depreciation list:   ",D
:Lbl START
:If Q\<>\0
:Then
:Disp "Depreciation list:"
:Pause D
:End
:D/100\->\D
:Input "Investment amount:   ",AMT
:Disp "Depr. amounts:"
:Pause AMT*D
:Input "Enter the tax rate:  ",TAX
:Disp "Tax shield:"
:Pause AMT*D*(TAX/100)
:Input "Cost of capital:     ",CC
:(dim D)\->\dim B
:(dim D)\->\dim A
:For(X,1,dim D)
:1/((1+(CC/100))^X)\->\B(X)
:End
:round(B,3)\->\B
:Disp "Present value list:"
:Pause B
:For(X,1,dim D)
:AMT*D(X)*(TAX/100)*B(X)\->\A(X)
:End
:Disp "Present value:"
:round(A,0)\->\A
:Pause A
:Disp "Present value sum:"
:Disp sum (\vc>li\ A)
\STOP85\