data;

input bait speed pounds @@;

cards;

1 1 200 1 1 150 1 2 65 1 2 60 1 2 90 1 3 35 2 1 55 2 2 35 2 2 70 2 3 120 2 3 160

proc glm;

class bait speed;

model pounds=bait|speed;

contrast 'new b' speed 1 0 -1,

                 speed 0 1 -1/e;

contrast 'really new b' speed 3 -3 0 bait*speed 2 -2 0 1 -1 0,

                        speed 3 0 -3 bait*speed 2 0 -2 1 0 -1;

run;