options ls=75 nodate;

data offnote;
   *infile "offnote.dat" firstobs=5;
   input oventype  $    power    offnote;
cards;

                     conventional      1        1.2  
                     conventional      1        3.0  
                     conventional      2        2.8  
                     conventional      2        1.9  
                     conventional      3        2.8  
                     conventional      3        1.3  
                     microwave         1        1.0  
                     microwave         1        0.2  
                     microwave         2        3.7  
                     microwave         2        4.3  
                     microwave         3        6.6  
                     microwave         3        6.1  
;
run;
proc glm;
   class oventype power;
   model offnote=oventype|power;
   contrast "power linear for conventional" power -1 0 1 oventype*power -1 0 1;
   contrast "power linear for microwave" power -1 0 1 oventype*power 0 0 0 -1 0 1;
   contrast "linear X oventype interaction" oventype*power 1 0 -1 -1 0 1;
   contrast "power quadratic for conventional" power -1 2 -1 oventype*power -1 2 -1;
   contrast "power quadratic for microwave" power -1 2 -1 oventype*power 0 0 0 -1 2 -1;
   estimate "power linear for conventional" power -1 0 1 oventype*power -1 0 1;
   estimate "power linear for microwave" power -1 0 1 oventype*power 0 0 0 -1 0 1;
   estimate "linear X oventype interaction" oventype*power 1 0 -1 -1 0 1;
   lsmeans oventype*power;
   lsmeans oventype*power/slice=oventype;
run;