%
%%% |Uploading
%
% check for upload busy
%
  _Clup.Xact _Xact eq _Clup.Xact _Tack eq or
  {
"Upl " &_Clup.Xact &" " &_Xact &" " &_Clup.Filer &" " &_Cluq.Active log#
  }
  {
%
% done with this xact
%
   "Uploaded" *shootern
  } ifelse