prgmNEW1

ClrHome
Fix 2
Input "Wanted area (ft)=",A
Input "Yr Built=",Y
Input "Yr Design=",Z
Input "I%=",Q
Input "Weighted Index Loc=",I

Disp "Interpolate"
Input "Table for ft=",L₄
Input "Table for $=",L₅

L₁*L₂→L₃
L₅(1)-(L₅(1)-L₅(3))*((L₄(2)-L₄(1))/(L₄(3)-L₄(1)))→B
A*B→C
C+sum(L₃)→T
(T*(I/100))→D
Y-2012→E
D*(1+(Q/100))^(E)→F

If Z>0
Then
Disp "Interpolate for Eng Fees"
Input "Table Eng Fee $=",L₆
Input "Table Eng Fee %=",⌊DATA
⌊DATA(1)-(⌊DATA(1)-⌊DATA(3))*((L₆(2)-L₆(1))/(L₆(3)-L₆(1)))→G
D*(G/100)→H
H*(1+(I/100))^(Z-2012)→K
Output(7,2,"Fee %=")
Output(7,9,G)
Output(8,2,"Fee.Cost,12=$")
Output(8,15,H)
Output(9,2,"Fee.Cost,Yr=$")
Output(9,15,K)
Else
If Z=0
Then

ClrHome

Output(1,2,"($/ft²) X=$")
Output(1,13,B)
Output(2,2,"ALL.Items=$")
Output(2,13,sum(L₃))
Output(3,2,"Area.Cost=$")
Output(3,13,C)
Output(4,2,"T.Cost(US,12)=$")
Output(4,17,T)
Output(5,2,"Cost(Loc,12)=$")
Output(5,16,D)
Output(6,2,"Cost(Loc,Yr)=$"
Output(6,16,F)


End
Float

FDCB00AEC9

" "