%
% stack: gal-build
%
  jsnow
  _Xact.Index positive
  {
   dup tuck ^"gal_" text!xact
%
% create the callback to shooter sms route
% form TMssssssssss_stamp.pts
%
   dup
^'<CamDrawer status="showroll">
 <showroll
  reqnum="'
&'" galat="results/xact'
&_Xact
&'" galtem="A" >
 </showroll>
</CamDrawer>
'
  }
  {
%
% no gallery for camera roll, send retract left drawer
%
   pop2nd
'<CamDrawer status="noroll">
</CamDrawer>
'
  } ifelse
  _Shooter.Sms ^"TM" &"_" &3)
%
% stack: cmd-data cmd-root
%
  *safeprep
%
% stack: conn-prep
%
  ".pts" overext