_Fen.Next zero
{
}
{
 +Fen.Next 30 gt
"+++++++++++next" log)(
 {
%
% overlong checking the user fence values
%
  0 !Fen.Next
 }
 {
%
% still checking user fence values
% see if the seed text there yet
%
  _Fen.Seed ".txt" reextend ofconn
"+++++++++++conn" log)(
  exists
"+++++++++++connexist" log)(
  {
%
% completed checking for this user
%

   *trakvion

   0 !Fen.Next
  }
  {
%
% still processing
%
  } ifelse
 } ifelse
} ifelse

_Fen.Next zero
"+++++++++++zero2" log)(
{
%
% whether was zero or is now zero, start the next user check
%
 "chk*.html" !wilder
 empty oflocal
 _Fen.Seed
 {
  empty !Fen.Seed
  nextfile ?
"+++++++++++newseed" log)(
  dup !Fen.Seed
  @@
  (@
%
% navigate to this seed
%
  _Fen.Seed ".txt" reextend ofconn read !Trak.Vion
  _Fen.Seed ".txt" reextend ofconn del
  @Trakopr
  second
  localhost
")))))))))))url" log)(
  *navformp
%
% signal we are processing the fence activity of user
%
  +:Fen.Next
  )@
  true ?
 } loop
 filing)
} if