options nocenter ls=75;

data problem1;
 infile 'i:\.www\datasets502\EX2001.DAT' firstobs=2 dlm='09'x;
 input modern $ trad $ y;
 mod = 3; if modern = 'HI' then mod = 1; if modern = 'MED' then mod = 2;
 trd = 3; if trad = 'HI' then trd = 1; if trad = 'MED' then trd = 2;

proc glm;
 class mod trd;
 model y = mod trd mod*trd;

run;
quit;