options nocenter ps=1000 ls=80;
data a;
   infile 'bactall.dat' firstobs=2;
   input id disease $ temp $ run $ cage date $ day wt bill leg;
   if day < 2 or day=22 or day=21;
proc print;
   var id disease temp run cage day wt bill leg;
run;