%
% create the presentation message downstream
%
% stack: info-file
%
*doneactx

*vendings
"donexadz" log)(
<
|Quick
|Single
> not
{
} if

*camrstop
"ready_" lock& del

"Z" xoned?< not
{
 _Arching.Vm
 {
  _Tem.Found
  {
   *tranxacz(
  }
  {
   _Arching.OrigLock any?
   {
    lock<
   } if
   ".sed" xoned del
   ".sec" xoned del
   "A.txt" xoned del

   true *atopserv

  } ifelse
 }
 {
  "prim6" !Atop.Cutton
  *atopfirg
 } ifelse
} if