.PS
cct_init

# Usual defs...
qrt=dimen_/4;
hlf=dimen_/2;
dim=dimen_;

Org:Here
{line -> up_ 1.5*dim ; right_ ; "A" above_}
{line -> right_ 3* dim ; " $t$" ljust_}
move right_ dim/8
{box ht dim wid qrt with .s at Here; }
"$s_1 $" below_
move right_ qrt
{box ht dim wid qrt with .s at Here; }
"$s_2 $" below_
move right_ qrt
{box ht dim wid qrt with .s at Here; }
"$s_3 $" below_
move to Org+(2*dim,0)
{box ht dim wid qrt with .s at Here; }
"$s_8 $" below_
line dashed up_ 1.5* dim from last box.sw +(qrt,0)
move down_ 1.5* dim then right_ dim/8
{box ht dim wid qrt with .s at Here; }
"$s_1 $" below_
"$\cdots$" at Org+(dim,hlf)

"\tiny TDMA" at (2.5*dim,-0.5*dim)
.PE