%%% "5594928743" !Sked.Phone

%
% move through the numbered records of reserved for this phone
% determine the next scheduled pickup time
%
_Sked.Phone *skedplod
%
% the records in the current driver file reflect the result of last sched
% find the earliest scheduled pickup that has not happened yet
%
empty !builder
empty !skprev

_Sked.Mode !Sked.HoldMode
"Before " &_Sked.Date &" " &_Sked.Slot &" " &_Sked.Mode &" " &_Sked.Docket
dup logs
pop
empty !Sked.Kx
0 !Sked.Jx
%
% mark time past the latest possible sched date and use now as low limit
%
Time.Now dup !Sked.High _Sked.Future + "d" Time.Add !Sked.Low
%
% check each schedule record against the prior values
%
_Sked.Phone &"_???.txt" !wilder
"Numbers\" ofconn
empty
{
 nextfile ?
 dup noext 3 right !Sked.Jx
 execing
 _Sked.Mode "ReqRsv" eq$ _Sked.Slot any)? and
 {
  _Sked.Date "_" left$ _Sked.Slot *skedspan &" " &_Sked.Stime
  dup !skedate
 "Test " &_Sked.Date &" " &_Sked.Slot &" " &_Sked.Mode &" " &_Sked.Docket log)(
  _Sked.High
"high" log)(
 "n" Time.Diff
"diff" log)(
  positive
  {
%
% below time threshold
%
  }
  {
   _skedate _skprev eq$
   {
   }
   {
%
% this is the next that was scheduled
%
    _skedate !skprev
    "Pickup " &_Sked.Docket &" scheduled " &_skedate catcr
    ^:builder
   } ifelse
  } ifelse
 }
 {
 } ifelse
} loop
filing)

_builder