%
% get latest reg token for shooter
%
% stack: shooter-num
%
 !clun
 empty !Reg.Token
 _Clup.RegD &"\CurReg"
 text*conn
"curreg" log)(
 _Reg.Token
"latest reg" log)(
 any)?
 {
  _Clup.RegD &"\CurReg" conntext
  "_CurReg" &_clun bintext
  copyfile
 } if
 false !Clup.Active
"&&&&&>>> P" log#