%%% "5594928743" !Sked.Phone
_Sked.Mode !Sked.HoldMode
_Sked.Sdocket !Sked.Remove
%
% 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

"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.Sphone &"_???.txt" !wilder
"Numbers\" ofconn
empty
{
 nextfile ?
 dup noext 3 right !Sked.Jx
 execing
 _Sked.Mode "ReqRsv" eq$ _Sked.Slot any)? and
 {
%
% check for mention of the docket to pull
%
   _Sked.Docket _Sked.Remove eq$
   {
%
% this file should be renamed
%
    finaled
   }
   {
   } ifelse
 
 }
 {
 } ifelse
} loop
filing)

%
% make sure the driver file is wiped if it is in that
%
_Sked.Sphone *skedplod
_Sked.Docket _Sked.Remove eq$
{
 empty !Sked.Docket
 empty !Sked.Date
 empty !Sked.Slot
 false !Sked.IsAdmin
 _Sked.Mode *skednumb
 true !Sked.IsAdmin
}
{
} ifelse