data invest;
   do Year=2001 to 2003;
      Capital+5000;
      Capital+(Capital*.075);
      output;
   end;
run;

proc print data=invest noobs;
   title1 'Results of investing 5000 dollars for';
   title2 'three years at 7.5 percent interest.';
run;

data invest(drop=Quarter Year);
   set prog2.Banks;
   Capital=0;
   do Year=1 to 5;
      Capital+5000;
      do Quarter=1 to 4;
         Capital+((Rate/4)*Capital);
      end;
   end;
run;

proc print data=invest noobs;
   title1 'Results of investing 5000 dollars for';
   title2 'five years in three different banks that compound quarterly.';
run;