\documentstyle{csart}

\begin{document}

\setlength{\unitlength}{1mm}
\begin{picture}(160,160)(-10,-40)
%
\multiput(0,0)(20,0){6}{\multiput(0,15)(0,20){2}{\vector(0,-1){10}}}
\multiput(0,0)(20,0){3}{\multiput(5,0)(0,20){3}{\vector(1,0){10}}}
\multiput(60,40)(20,0){2}{\multiput(5,0)(0,20){1}{\vector(1,0){10}}}
\multiput(65,0)(0,20){2}{\vector(1,0){8}}
\multiput(87,0)(0,20){2}{\vector(1,0){6}}
%
\put(105,40){\vector(1,0){10}}
\put(60,-5){\vector(0,-1){10}}
%
\put(0,40){\makebox(0,0){$E_{ij}$}}
%
\put(80,20){\makebox(0,0){$A_{i+1,j+1}$}}
\put(80,0){\makebox(0,0){$B_{i+1,j+1}$}}
\put(100,20){\makebox(0,0){$C_{i+1,j+1}$}}
\put(100,0){\makebox(0,0){$D_{i+1,j+1}$}}
%
\put(120,40){\makebox(0,0){$E_{i+1,j}$}}
\put(60,-20){\makebox(0,0){$F_{i,j+1}$}}
%
\put(-7,30){\makebox(0,0)[r]{$P_i.Q_j^O!\mbox{chg}$}}
\put(-7,10){\makebox(0,0)[r]{$P_i.Q_j^I?\mbox{chg}$}}
\put(-7,-10){\makebox(0,0)[r]{$Q_j.P_i^O!\mbox{quo}$}}
%
\put(10,48){\makebox(0,0)[b]{$P_i.Q_{j-1}^I?\mbox{quo}$}}
\put(30,55){\makebox(0,0)[b]{$P_i.P_{i-1}^O!\mbox{ini}$}}
\put(50,48){\makebox(0,0)[b]{$P_i.P_{i-1}^I?\mbox{ini}$}}
\put(70,55){\makebox(0,0)[b]{$Q_j.P_i^O!\mbox{chg}$}}
\put(90,48){\makebox(0,0)[b]{$Q_j.P_i^I?\mbox{chg}$}}
\put(110,55){\makebox(0,0)[b]{$P_i.Q_j^O!\mbox{quo}$}}
%
\end{picture}

\end{document}
