O:ECANL..PCM SEPT 83 P 27` 100: IN"Compound Amount","Series Cmpd.Amt.","Sinking Fund","Capital Recovery","Present Worth","Series Pres. Worth","Grad Present Worth","Grad Unif. Series"#I18: A$(I): I:39H%@285,"Press any key to continue...";:A$݄$(1)o':@8,"Select Economic Ananlysis:"(I18:@4040I140(I4),"#";I;:"-";A$(I);: Iւ-@291,"Press "(27)"p ESC "(27)"q to end";"2@33,"";:A$݄$(1):A$""50:(A$)27 : C(A$):C1C850 : 90X4@80,"Present Value: ";:A$:P(A$):P052:705@80,"Future Value: ";:A$:F(A$):F053:70Ѓ6@80,"Periodic Payment / Receipt: ";:A$:A(A$):A054:707@80,"Uniform Arithmetic Gradient: ";:A$:G(A$):G055:70C>XP:80:@200,"Present Value = ";F$;P:37q?XF:80:@200,"Future Value = ";F$;F:37@XA:80:@200,"Periodic Amount = ";F$;A:37߄AXA:80:@200,"Uniform Arithmetic Gradient = ";F$;A:37F@120,"Interest Rate: ";:A$:X(A$):X0X4070SG@160,"Number of Periods: ";:A$:N(A$):N1N48071YHlPN(X)(10)1}QX1E6NN1RF$"$"(N,"#")",.##":ƅZ: C 100,400,300,500,200,600,800,700d@12,"COMPOUND AMOUNT"n 52xFP(1X)N:63@13,"PRESENT WORTH" 537PF(1X)(N):62O,@14,"SINKING FUND"W653s@AF(X((1X)N1)):64@9,"SERIES COMPOUND AMOUNT"54FA(((1X)N1)X): 63Ն@12,"CAPITAL RECOVERY"ކ 52AP(X(1X)N((1X)N1)):64"X@10,"SERIES PRESENT WORTH"+b 54QlPA(((1X)N1)(X(1X)N)):62s@8,"GRADIENT UNIFORM SERIES"| 55AG(1X(N((1X)N1))):65 @9,"GRADIENT PRESENT WORTH"LJ*554PGX(((1X)N1)XN)(1(1X)N):62PIR40IC: