%
% schedule a new fresh day, insure there are six days ahead
%
Time.Now
_Sked.Future
%%% "skedfutr" log)(
countup
{
%%% "skedslnum" log)(
 - second exch "d" Time.Add Time.DateOrder
 *skedfold

 1 2 prezero text ^_Sked.Dfold exists
%%% "skedslexist" log)(
 {
%
% day slots exist
%
 }
 {
%
% slots for day do not exist, create them
%
  *skedsclr
  0 *skedspan _Sked.Slots
%%% "skedslots" log)(
  countup
  {
   !Sked.Slot
   "Open" *skedslot
  } for
 } ifelse

} for
pop
%
% now check for any new pickup number list file
%
"Pickups" ofconn folder( !Sked.Pfold
&"Pickups.txt" read !builder
"New" textwild
_Sked.Pfold
empty
{
 nextfile ?

 reading catcr cr lf replall !maker

 {
  _maker
  isnull ?
  lf slice !maker
  trim any?
  {
%
% has some significant element
%
   " " empty replall
   ^"|" &" " Time.Now quoter & &" !Sked.Made" catcr ^:builder
  } if

 } loop
 pop
 finaled
} loop
filing)
_builder
"Pickups.txt" ^_Sked.Pfold
write