%
% access remote sms messages
%
% is the Remote SMS pull flag set
%
_Arching.RemoteSms true?
"remsmsa" log)(
{
%
% remote sms pull allowed, check current shooter exists
% 
 _Aamg.SmsCounter "Shooters" text?conn
 {
%
% shooter exists in our purview,
% change to next shooter next pass
%
  +:Aamg.SmsCounter
  true
 }
 {
%
% we have passed the last ordinal shooter to be checked,
% process first shooter on next pass, after pulling non-shooters
%
  *smspulls
  0 dup !Aamg.SmsCounter
  "Shooters" text?conn
 } ifelse
%
% stack: valid-ordinal-shooter
%
% is there a valid shooter, only fails if no shooters to be checked
%
"smserve" log)(
 {
%
% valid shooter ordinal, process the remote pulls
% for this shooter's sms messages
%
  *smserves
 } if
} if
"remsmsx" log#