%
% establish Atop location string
%
% stack: cont-name
%
 0 !Atop.Vector
 dup 1 right
"rgtlocn" log)(
 <
 |V
  -1 right dup 1 right !Atop.Vector -1 right
 > not
 {
 } if
 2 right
 1 slicepos
 second !Atop.Ncont
 dup !Atop.Gcont
%
% stack: cont-num cont-group
%