%
% download image file for shooter
%
% stack: shooter-num
%
!clun

%
% check file size of the downloading image to prevent
% premature copy
%
_Clup.FileE &"\CurImg" jpeg ofconn File.Info
{
%
% a file does exist in the download area
%
 _Clur.File term2 ge
 {
%
% the image file is now completely downloaded
% the venue and shooter number were retained on cloud launch
%
  _Clur.Venue &_Clur.ShootNum ofincom folder !File.Dir
  _Clup.FileE &"\CurImg" jpeg ofconn
  _File.Dir _Clur.File "/" right$ & ".gpj" reextend
  dup tuck
  copyfile
%
% safely rename
%
  ".jpg" overext

  false !Clur.Active
  false !Clur.Allow
  false !Cluq.Inhibit
"&&&&&>>> R" log#
 } if
} if

%
% stack: 
%