%
% unassign this to the driver in focus
% with pickup number, date. and slot currently set
%
 _Sked.Slot !Sked.HoldSlot
 *skedslod
_Sked.Smode
<
|Open
%
% available to schedule this slot
%
 _Sked.Date !Sked.SlotDate
_Sked.Driver any)?
_Sked.Docket any)? and
{
 empty !Sked.Company
 _Sked.Driver dup !Sked.Phone *skedplod
 _Sked.Company any)?
 {
%
% driver exists and is registered
%
 _Sked.HoldPhone *skedplod
 _Sked.Driver !Sked.Sphone
 _Sked.Docket !Sked.Sdocket

 _Sked.Driver *skedplod

 _Sked.HoldSlot !Sked.Slot
 _Sked.Name !Sked.Sname
 _Sked.Company !Sked.Scompany
 "Reserved" !Sked.Smode
_Sked.HoldSlot 2 prezero text ^_Sked.Dfold
"skedwrslot" log)(
empty
"Sked.Slot" sval
"Sked.Smode" sval
"Sked.Sname" sval
"Sked.Scompany" sval
"Sked.Sdocket" sval
"Sked.Sphone" sval
exch write

 _Sked.Driver *skedplod
 _Sked.SlotDate !Sked.Date
 _Sked.Sdocket !Sked.Docket
 _Sked.HoldSlot !Sked.Slot
 false !Sked.IsAdmin
 "ReqRsv" *skednumb

"Your pickup number " &_Sked.Docket
&" was added to the schedule." catcr
&"See you at "
_Sked.Slot *skedspan &_Sked.Stime
&" sharp on " &_Sked.Date &"."

*skedymit

 true !Sked.IsAdmin

 _Sked.HoldPhone dup !Sked.Phone *skedplod

 *skedfocs
 catcr
 &"The driver was assigned that time slot."

 }
 {
  "Driver phone is not registered yet."
 } ifelse
 _Sked.HoldPhone dup !Sked.Phone *skedplod
}
{
 "Must have Driver phone, pickup number and slot."
} ifelse
 _Sked.HoldPhone dup !Sked.Phone *skedplod

> not
{
 "Slot " &_Sked.Slot &" is not available."
 _Sked.Phone *skedplod
} if