Replicating an SPSS manova in R

Question

I\'m trying to replicate an SPSS manova table shown on page 127 in this book in R. I think I have the correct R code but the outputs don\'t match.