*Program 8-16 Demonstrating that DO WHILE loops are evaluated at the top;
data double;
   Interest = .0375;
   Total = 300;
   do while (Total lt 200);
      Year + 1;
      Total = Total + Interest*Total;
      output;
   end;
   format Total dollar10.2;
run;

proc print data=double noobs;
   title "Listing of DOUBLE";
run;