options ls=70 ps=70;

data smoke;
 input smoke $ count;

datalines;
yes 64
zno 136
;
run;

title "Smoking Rate in Freshmen";
proc freq data=smoke;
 tables smoke/binomial(p=.28);
 weight count;
run;