*Program 8-18 Demonstrating the LEAVE statement;
data leave_it;
   Interest = .0375;
   Total = 100;
   do Year = 1 to 100;
      Total = Total + Interest*Total;
      output;
      if Total ge 200 then leave;
   end;
   format Total dollar10.2;
run;
proc print data=leave_it noobs;
   title "Listing of leave_it";
run;