Cell mean coding?

[behinger]

Is it possible to get a cell-mean coding somehow?

e.g. y~0+A+B => both 2 levels

1 0 0 0
1 0 0 0
0 1 0 0
0 1 0 0
0 0 1 0
0 0 1 0
0 0 0 1
0 0 0 1

The hack I use right now is to combine all categorical variables to one new variable and thus have a 4-level predictor that I can DummyCode. Maybe I missed something obvious (A=>FullDummy, B=>FullDummy doesnt work, gives me:

1 0 1 0
0 1 1 0
1 0 0 1
0 1 0 1

Cheers!