/*  Compute the future value of periodic cash flows of
**  $123, $145, and $134 earning 7% per period.
*/
declare
     cashflow = array of FloatObject;
     xfvc = Float;
enddeclare
begin
     cashflow[1].value = 123;
     cashflow[2].value = 145;
     cashflow[3].value = 134;
     xfv = fvc(i = .07, list = cashflow);
end