\startuseMPgraphic{recBox}{w,h,sx,sy,lColor}
numeric u; u := 1cm;
draw unitsquare xyscaled (\MPvar{w}, \MPvar{h}) shifted (\MPvar{sx},\MPvar{sy}) withpen pencircle scaled 3pt withcolor \MPvar{lColor};
\stopuseMPgraphic
\defineoverlay
[kBox]
[\useMPgraphic{recBox}{w=2u,h=LineHeight+4pt, sx=.8u,sy=LineHeight-2pt,lColor=darkred}]
\starttext
\framed[frame=on,background=kBox]{
\starttable[|cw(.7cm)|cw(.7cm)|cw(1cm)|cw(1cm)|]
\HL
\NC \NS[2][c] q \NC\AR
\NC p\NC \NC 00 \NC 01\NC\AR
\HL
\NC 1 \NC 2 \NC 3 \NC 4\NC\AR
\NC 1 \NC 2 \NC 3 \NC 4\NC\AR
\NC 1 \NC 2 \NC 3 \NC 4\NC\AR
\NC 1 \NC 2 \NC 3 \NC 4\NC\AR
\NC 1 \NC 2 \NC 3 \NC 4\NC\AR
\HL
\stoptable
}
\stoptext