%
% create Ball.txt for Robot deployment
%
empty !builder
empty ofhere
empty
{
 "" textwild
 nextfile ?

 reading length)
 second "Robot2\" ofapp ^
 read length)

 ne
 {
  dup &"," ^:builder
 } if
} loop
filing)
_builder
"Ballck.txt" ofbin write